Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Re: kann die PORTS nicht schalten Kategorie: CC-Pro Unit & Appl.Board (von vitty - 5.12.2008 17:45)
Als Antwort auf Re: kann die PORTS nicht schalten von GEMINI1606 - 5.12.2008 16:39
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board
> > Hallo,
> > ich habe in meinem program ports 20-23 also PC4-Pc7
> > auf ausgang initialisiert und steuere mit diesen in meinem
> > Programm ein schieberegister.
> > aber ich kann auch alle ports on schalten habe aber an den
> > pins keine Spannung.
> >
> > worwn könnte das liegen?????
> >
> > Die led´s funktionieren ohne probs.
> > aber meine pins net.
> >
> > mfg
>
> Hallo,
>
> wie schaltest du die Ausgänge ??
> Gib mal bitte den Programmcode.
>
> GruĂ?
> GEMINI1606
Ich bin noch ein totaler neuling im c-control pro programieren,
habe vorher nur mit der unit c-controll rumgeschpielt...
wär super wenn mir jemand helfen könnte....

Sub First_Charge()  'funktion zur messung der zellen
 Port_DataDirBit(16,1)
   Port_DataDirBit(17,1)
   Port_DataDirBit(18,1)
   Port_DataDirBit(19,1)
   Port_DataDirBit(20,1)
   Port_DataDirBit(21,1)
   Port_DataDirBit(22,1)
   Port_DataDirBit(23,1)
   Port_DataDirBit(51,1)
   Port_DataDirBit(52,1)


      LCD_Start()
      i=1
      adr=0
      curs=0
      For i=1 To 20



         If i=1 Then
            Port_WriteBit(20,PORT_ON)'register löschen

            AbsDelay(500)
            Port_WriteBit(20,PORT_OFF)'
            Port_WriteBit(23,PORT_ON)'register port a on wenn i=1
             Port_WriteBit(51,PORT_ON)'LED
         Else
            Port_WriteBit(23,PORT_OFF)'register port a off
            Port_WriteBit(51,PORT_OFF)'LED
         End If
           If i>1 Then
            'Port_WriteBit(23,PORT_OFF)'register port a off
           End If
      Port_WriteBit(22,PORT_ON)   'portC6 register b
      Port_WriteBit(21,PORT_ON)   'portC5 register clk
       Port_WriteBit(52,PORT_ON)'LED
      AbsDelay(500)
      Port_WriteBit(21,PORT_OFF)   'off clk register
       Port_WriteBit(52,PORT_OFF)'LED
      AbsDelay(200)

      ADC_Set(ADC_VREF_BG,ADC1)       'adc F0 initialisieren (zellen)

      zellen(i)=0
      zellen(i)=ADC_Read()*2.56/1024' Spannung ausrechnen


        zeile_1="ZELLE"
        Einheit="V"
        curs = ((i - 1) And 3) + 1
        'Zeilenschub()

        LCD_Locate(curs,1)
        LCD_WriteText(zeile_1)
        LCD_Locate(curs,7)                 'ausgabe der zellenwerte
        LCD_WriteWord(i,2)                 'auf dem bildschirm
        LCD_Locate(curs,11)
        LCD_WriteFloat(zellen(i),2)
        LCD_Locate(curs,15)
        LCD_WriteText(Einheit)
        AbsDelay(2000)


        EEPROM_WriteFloat(adr,zellen(i)) 'speichern der werte!!!!!!!
         adr=adr+4

        If i=20 Then
            Port_WriteBit(20,PORT_ON) 'register löschen on Flanke
            AbsDelay(500)             'verzögerung 0,5 sec.
            Port_WriteBit(20,PORT_OFF)'Clr off
            Port_WriteBit(22,PORT_OFF)'port b am register off.
        End If

     Next

die led´s sind nur zum testen da,die gehen auch.
 aber bei den ports tut sich nix. bin ratlos,
bin schon am verzweifeln

Danke im vorraus!!!!



    Antwort schreiben


Antworten:

Re: kann die PORTS nicht schalten (von GEMINI1606 - 8.12.2008 11:35)
    Re: kann die PORTS nicht schalten (von vitty - 8.12.2008 15:25)
        Re: kann die PORTS nicht schalten (von GEMINI1606 - 9.12.2008 10:54)
            Re: kann die PORTS nicht schalten (von vitty - 9.12.2008 13:52)
                Re: kann die PORTS nicht schalten (von GEMINI1606 - 9.12.2008 14:19)
                    Re: kann die PORTS nicht schalten (von vitty - 9.12.2008 16:59)
                       Danke ich habs hinbeckommen (von vitty - 10.12.2008 18:41)