Schleifenhüpfer

[Hummel]

War mein erster Versuch ein Programm zu übertragen.

$regfile = "m168def.dat"
$crystal = 8000000

$baud = 9600
$hwstack = 64
$swstack = 20
$framesize = 60

Config Portc.0 = Output Fehlerhaft war "Config Pinc.0"
Config Portd.2 = Input Fehlerhaft war "Config Pind.2"

Led Alias Portc.0 Fehlerhaft war"Led Alias Pinc.0
Eingang1 Alias Portd.2 Fehlerhaft war"Eingang Alias Pind.2

Dim Wartezeit As Integer
Dim X As Byte

Const Ein = 1
Const Aus = 0

For X = 1 To 10

Led = Ein
Waitms 250
Led = Aus
Waitms 250

Next X

For X = 1 To 10

Led = Ein
Waitms 125
Led = Aus
Waitms 125

Next X

End
Gruß Karl[/b]

[Jaecko]

An dem Code wurde zu viel geändert bzw. die falschen Stellen.

Config Portd.2 = Input
Eingang1 Alias Portd.2

In beiden Fällen wäre Pinx.y richtig.
Input: PIn (I)
Output: POrt (O)