Hey,
geht wohl doch - aber mit nur col!
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1600000
$baud = 9600
Config Portc = Output
Config Portb = Output
Portc = 0
Portb = 0
Dim Col As Integer
Dim Row As Integer
Dim Time As Integer
Time = 1000
Do
For Col = 0 To 8
Config Porta = Input
Portc = 0
Portb = 0
Portc.col = 1
Waitms Time
Portc.col = 1
Waitms Time
For Row = 0 To 3
Config Porta = Input
Config Porta.row = Output
Waitms Time
Elseif Row = 1 Then
Config Porta.1 = Output
Waitms Time
Elseif Row = 2 Then
Config Porta.2 = Output
Waitms Time
End If
Next
Next
Loop
Wenn ich das unten bei den rows mache kommt:
UNOWN Config PARAMETER [PORTA.ROW]
Lesezeichen