| 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 | ||
| ||
|
> > 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) | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum