Gast
#1217585
hi all, wollte mal ganz schnell wissen ob das hier so geht.
Wollte eigentlich in Basic, den ganzen Port A und C als Eingang
definiert haben mit aktivierten Pullups an jedem Pin. und Die Ports B
und D sollten einfach als Ausgänge definiert sein.
Jedoch spuckt Bascom nen Fehler aus und will nicht compilieren.
Kann man mit Basic alle Pins am Port direkt definieren oder muss ich
ales einzen machen?
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Portb = Output
Config Portd = Output
Config Pina = Input
Porta = 1
Config Pinc = Input
Portc = 1
Do
If Pina.0 = 1 Then
Portb.0 = 1
End If
If Pina.1 = 1 Then
Portb.1 = 1
End If
If Pina.2 = 1 Then
Portb.2 = 1
End If
If Pina.3 = 1 Then
Portb.3 = 1
End If
If Pina.4 = 1 Then
Portb.4 = 1
End If
If Pina.5 = 1 Then
Portb.5 = 1
End If
If Pina.6 = 1 Then
Portb.6 = 1
End If
If Pina.7 = 1 Then
Portb.7 = 1
End If
If Pina. = 1 Then
Portb. = 1
End If
If Pinc.7 = 1 Then
Portd.0 = 1
End If
If Pinc.6 = 1 Then
Portd.1 = 1
End If
If Pinc.5 = 1 Then
Portd.2 = 1
End If
If Pinc.4 = 1 Then
Portd.3 = 1
End If
If Pinc.3 = 1 Then
Portd.4 = 1
End If
If Pinc.2 = 1 Then
Portd.5 = 1
End If
If Pinc.1 = 1 Then
Portd.6 = 1
End If
If Pinc.0 = 1 Then
Portd.7 = 1
End If
Loop
End
