این مشکل چیه؟
تو بسکام ارورمیده؟
$regfile = "m16def.dat"
$crystal = 8000000
Dim A As Byte
Config Graphlcd = 128 * 64 , Dataport = Portb , Controlport = Portc , Ce = 1 , Cd = 2 , Wr = 3 , Rd = 5 , Reset = 0 , Fs = 4 , Mode = 8
Cursor Noblink
Deflcdchar 1 , 32 , 4 , 31 , 31 , 31 , 4 , 31 , 27 ' replace [x] with number (0-7)
Cls
Lcd Chr(1)
End 'end program
تو بسکام ارورمیده؟
$regfile = "m16def.dat"
$crystal = 8000000
Dim A As Byte
Config Graphlcd = 128 * 64 , Dataport = Portb , Controlport = Portc , Ce = 1 , Cd = 2 , Wr = 3 , Rd = 5 , Reset = 0 , Fs = 4 , Mode = 8
Cursor Noblink
Deflcdchar 1 , 32 , 4 , 31 , 31 , 31 , 4 , 31 , 27 ' replace [x] with number (0-7)
Cls
Lcd Chr(1)
End 'end program
دیدگاه