Hallo,
Ich möchte gern die einzelnen Ports von meinem Attiny via Pc ansteuern, doch leider komm ich in der Programmierung nicht weiter bzw. sie funktioniert nicht so wie ich will.

Code:
 $regfile = "2313def.dat"
 $framesize = 24
 $swstack = 8
 $hwstack = 32
 $crystal = 12000000
 $baud = 9600

Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output

Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portd.6 = 1

Dim i As Byte

Do
Print "Befehl eingeben"
If Usr.rxc = 1 Then
I = Udr
Select Case i

Case "01"
Portb.0 = 0
Case "02"
Portb.0 = 1

Case "03"
Portb.1 = 0
Case "04"
Portb.1 = 1

Case "05"
Portb.2 = 0
Case "06"
Portb.2 = 1

Case "07"
Portb.3 = 0
Case "08"
Portb.3 = 1

Case "09"
Portb.4 = 0
Case "10"
Portb.4 = 1

Case "11"
Portd.2 = 0
Case "12"
Portd.2 = 1

Case "13"
Portd.3 = 0
Case "14"
Portd.3 = 1

Case "15"
Portd.4 = 0
Case "16"
Portd.4 = 1

Case "17"
Portd.5 = 0
Case "18"
Portd.5 = 1

Case "19"
Portd.6 = 0
Case "20"
Portd.6 = 1


Case Else
Print "Falsche Eingabe"
End Select
End If
Loop


End
der attiny ist über einen max232 mit dem Pc verbunden
aber alles was ich empfange sind tausende Nullen
ohne dass ich irgendwas gemacht hab

wäre nett wenn mir jemand helfen könnte bin leider nur ein Neuling in Bascom