Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum
Re: Einsteiger braucht Hilfe Kategorie: CC-Pro Unit & Appl.Board (von Jan - 14.06.2009 16:00)
Als Antwort auf Einsteiger braucht Hilfe von Jan - 13.06.2009 13:24
Ich nutze:
C-Control Pro Mega128
Also es geht dabei um das erste Programm in diesem Buch. Dabei soll die LED1 nach Betätigen des Schalters
SW1 für zwei Sekunden aufleuchten. Kompilieren und �bertragen funktioniert soweit ich das beurteilen kann.
Hier mal noch der Quellcode:

Main.cbas


Dim delval As Integer
Dim schalter1 As Byte

Sub main()
   delval=2000
   Port_DataDirBit(PORT_LED1,PORT_OUT)
   Port_DataDirBit(PORT_SW1,PORT_IN)
   Port_WriteBit(PORT_LED1,PORT_OFF)
   Do While True
       SW1()
       If schalter1=0 Then
           LED1_On(delval)
       End If
   End While
End Sub



Ausgabe.cbas


Sub LED1_On(delay_val As Integer)

   Port_WriteBit(PORT_LED1,PORT_ON)
   AbsDelay(delay_val)

   Port_WriteBit(PORT_LED1,PORT_OFF)

End Sub


Eingabe.cbas


Sub SW1()
   schalter1=Port_ReadBit(PORT_SW1)
End Sub


GruÃ? Jan
 

    Antwort schreiben

Antworten:

Re: Einsteiger braucht Hilfe (von PeterS - 14.06.2009 23:01)
    Re: Einsteiger braucht Hilfe (von Jan - 15.06.2009 8:20)
        Re: Einsteiger braucht Hilfe (von michl - 27.08.2009 17:48)