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 PeterS - 14.06.2009 23:01)
Als Antwort auf Re: Einsteiger braucht Hilfe von Jan - 14.06.2009 16:00
Ich nutze:
CC-Pro 128 Application Board, Pro-Bot128

Ja nu, sag doch, was geht denn nicht? Leuchtet die LED nicht für 2 Sekunden, wenn Du den
Schalter drückst? Hast Du denn nach dem �bertragen auch das Programm gestartet? Das hattest Du
nicht geschrieben.

Gruss Peter

> 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 Jan - 15.06.2009 8:20)
    Re: Einsteiger braucht Hilfe (von michl - 27.08.2009 17:48)