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

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: