| Re: LED ansteuern Kategorie: Programmierung Basic (von dergeheime - 25.09.2009 19:11) | |
|
Als Antwort auf Re: LED ansteuern von GEMINI1606 - 21.09.2009 10:37
| |
|
Hallo erstmal. Ich versuche mal Hilfe zu geben. Also im IDE muss ein Projekt eröffnet werden. Dazu kommt dann eine Datei hier z.B. LED01.cbas Programm compilieren und dann übertragen. Dann bitte starten. An den Ports muss es dann blinken. mfg G Dim aa As Integer Dim ret As Integer Sub main() Port_DataDirBit(16 , 1) ' Port C0 Port_DataDirBit(18 , 1) ' Port C2 Port_DataDirBit(20 , 1) ' Port C4 Port_WriteBit(16, 1) Port_WriteBit(18, 1) Port_WriteBit(20 , 1) aa = 9 Do Port_WriteBit(16 , 0 ) AbsDelay(1000) Port_WriteBit(16 , 1) AbsDelay(1000) Msg_WriteText("LED 1") Msg_WriteChar(13) Port_WriteBit(18 , 0 ) AbsDelay(1000) Port_WriteBit(18 , 1) AbsDelay(1000) Msg_WriteText("LED 2") Msg_WriteChar(13) Port_WriteBit(20 , 0 ) AbsDelay(1000) Port_WriteBit(20 , 1) AbsDelay(1000) Msg_WriteText("LED 3") Msg_WriteChar(13) Loop While (aa > 1) End Sub | |
Antwort schreiben Antworten: | |
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum