shabali
عضو جدید
ببخشید دوستان من این برنامه رو برای ربات مسیریاب سه سنسوره با بسکام نوشتم و میکرو هم pic16F84
هست متاسفانه در خط پنج (Config Portb.5 = Output)ارور میده و من علتش رو نمیدونم لطفا راهنمایی کنید؟؟
regfile = "m16def.dat"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Pc.5 , Db5 = Pc.4 , Db6 = Pc.3 , Db7 = Pc.2 , E = Pc.0 , Rs = Pc.1
Config Lcd = 16 * 2
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.4 = Output
Config Portd.3 = Input
Config Portd.0 = Input
Config Portd.2 = Input
Dim L As Byte ‘byte Range From 0 - 255
Dim M As Byte ‘byte Range From 0 - 255
Dim R As Byte ‘byte Range From 0 - 255
L = Portd.3
M = Portd.0
R = Portd.2
Do
If M = 1 And L = 0 And R = 0 Then
Set Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 0 And L = 1 And M = 0 Then
Set Portd.5
Reset Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 0 And L = 1 And M = 1 Then
Set Portd.5
Reset Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 1 And L = 0 And M = 0 Then
Reset Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If 7
If L = 0 And R = 1 And M = 1 Then
Reset Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
Loop
End 'end program
هست متاسفانه در خط پنج (Config Portb.5 = Output)ارور میده و من علتش رو نمیدونم لطفا راهنمایی کنید؟؟
regfile = "m16def.dat"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Pc.5 , Db5 = Pc.4 , Db6 = Pc.3 , Db7 = Pc.2 , E = Pc.0 , Rs = Pc.1
Config Lcd = 16 * 2
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.4 = Output
Config Portd.3 = Input
Config Portd.0 = Input
Config Portd.2 = Input
Dim L As Byte ‘byte Range From 0 - 255
Dim M As Byte ‘byte Range From 0 - 255
Dim R As Byte ‘byte Range From 0 - 255
L = Portd.3
M = Portd.0
R = Portd.2
Do
If M = 1 And L = 0 And R = 0 Then
Set Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 0 And L = 1 And M = 0 Then
Set Portd.5
Reset Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 0 And L = 1 And M = 1 Then
Set Portd.5
Reset Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
If R = 1 And L = 0 And M = 0 Then
Reset Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If 7
If L = 0 And R = 1 And M = 1 Then
Reset Portd.5
Set Portd.6
Cls
Lcd "a1=" ; A1 ; "a2=" ; A2
End If
Loop
End 'end program