سلام دوستان گرامی برنامه زیر مال کالر آی دی است اما وقتی کامپایل می کنم بعد تولید فایل هگز ارور222 رو میده :angry: :angry: :angry:لطفا کمک کنید با تشکر. 
:redface:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 1200
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Word
Config Lcdpin = , Db4 = Pinb.4 , Db5 = Pinb.5 , _
Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.0 , E = Pinb.2
Config Lcd = 16 * 2
Config Pinb.1 = Output
Portb.1 = 0
Cls
Do
Cursor Off
A = Waitkey()
If A = 4 Then
E = A
A = Waitkey()
D = A - 8
E = E + A
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd "/"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Locate 1 , 8
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd ":"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lowerline
For B = 1 To D
A = Waitkey()
E = E + A
C = A And 15
Lcd C
Next B
A = Waitkey()
E = E + A
E = E Mod 256
If E <> 0 Then
Cls
Lcd "error"
End If
Wait 10
Cls
End If
Loop
End
:redface:$regfile = "m8def.dat"
$crystal = 8000000
$baud = 1200
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Word
Config Lcdpin = , Db4 = Pinb.4 , Db5 = Pinb.5 , _
Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.0 , E = Pinb.2
Config Lcd = 16 * 2
Config Pinb.1 = Output
Portb.1 = 0
Cls
Do
Cursor Off
A = Waitkey()
If A = 4 Then
E = A
A = Waitkey()
D = A - 8
E = E + A
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd "/"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Locate 1 , 8
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd ":"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lowerline
For B = 1 To D
A = Waitkey()
E = E + A
C = A And 15
Lcd C
Next B
A = Waitkey()
E = E + A
E = E Mod 256
If E <> 0 Then
Cls
Lcd "error"
End If
Wait 10
Cls
End If
Loop
End
دیدگاه