سلام
من یه مداری با میکرو بستم که بطور خلاصه مثلا میاد اول یه پایه ایی را یک میکنه و رله ای را فعال میکنه و بعد از آن از پایه دیگه که بعنوان ورودی تعریف شده صفر یا یک بودن اون پایه را میخونه .برنامه اش هم در زیر اومده.ولی روی LCD اعداد نامفهوم و علامت سوال مینویسه.کلافه شدم.چیکار باید کرد
$regfile = "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.1
Config Lcd = 16 * 2
Config Portd = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input
Cursor Off
Dim A1 As Bit , A2 As Bit , A3 As Bit , A4 As Bit , A5 As Bit , A6 As Bit , A7 As Bit
Dim B1 As Bit , B2 As Bit , B3 As Bit , B4 As Bit , B5 As Bit , B6 As Bit , B7 As Bit
Dim Ct As Byte
Cls
A4 = 0
Set Portd.3
Set A4
Wait 1
B4 = Pinc.3
If A4 <> B4 Then
Lcd "check K8"
Wait 3
Else
End If
Reset Portd.3
Reset A4
Wait 1
B4 = Pinc.3
If A4 <> B4 Then
Lcd "check K8"
Wait 3
Else
End If
Cls
A5 = 0
Set Portd.4
Wait 1
B5 = Pinc.4
If A5 <> B5 Then
Lcd "check K7"
Wait 3
Else
End If
Cls
Reset Portd.4
Reset A5
Wait 1
B5 = Pinc.4
If A5 <> B5 Then
Lcd "check K7"
Wait 3
Else
End If
Cls
A6 = 0
Set Portd.5
Set A6
Wait 1
B6 = Pinc.5
If A6 <> B6 Then
Lcd "check K5"
Wait 3
Else
End If
Cls
Reset Portd.5
Reset A6
Wait 1
B6 = Pinc.5
If A6 <> B6 Then
Lcd "check K5"
Wait 3
Else
End If
Cls
If Ct = 0 Then
Cls
Home Lower
Lcd "OK"
Else
End If
End
من یه مداری با میکرو بستم که بطور خلاصه مثلا میاد اول یه پایه ایی را یک میکنه و رله ای را فعال میکنه و بعد از آن از پایه دیگه که بعنوان ورودی تعریف شده صفر یا یک بودن اون پایه را میخونه .برنامه اش هم در زیر اومده.ولی روی LCD اعداد نامفهوم و علامت سوال مینویسه.کلافه شدم.چیکار باید کرد
$regfile = "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.1
Config Lcd = 16 * 2
Config Portd = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input
Cursor Off
Dim A1 As Bit , A2 As Bit , A3 As Bit , A4 As Bit , A5 As Bit , A6 As Bit , A7 As Bit
Dim B1 As Bit , B2 As Bit , B3 As Bit , B4 As Bit , B5 As Bit , B6 As Bit , B7 As Bit
Dim Ct As Byte
Cls
A4 = 0
Set Portd.3
Set A4
Wait 1
B4 = Pinc.3
If A4 <> B4 Then
Lcd "check K8"
Wait 3
Else
End If
Reset Portd.3
Reset A4
Wait 1
B4 = Pinc.3
If A4 <> B4 Then
Lcd "check K8"
Wait 3
Else
End If
Cls
A5 = 0
Set Portd.4
Wait 1
B5 = Pinc.4
If A5 <> B5 Then
Lcd "check K7"
Wait 3
Else
End If
Cls
Reset Portd.4
Reset A5
Wait 1
B5 = Pinc.4
If A5 <> B5 Then
Lcd "check K7"
Wait 3
Else
End If
Cls
A6 = 0
Set Portd.5
Set A6
Wait 1
B6 = Pinc.5
If A6 <> B6 Then
Lcd "check K5"
Wait 3
Else
End If
Cls
Reset Portd.5
Reset A6
Wait 1
B6 = Pinc.5
If A6 <> B6 Then
Lcd "check K5"
Wait 3
Else
End If
Cls
If Ct = 0 Then
Cls
Home Lower
Lcd "OK"
Else
End If
End
دیدگاه