ببين دوست عزيز اول اينكه شما تو برنامه از تاخير استفاده نكردي پس سرعت اونقدر بالائه كه باعث ميشه شما چيزي نبينيد
دوم اينكه ميتوني از حلقه do loop استفاده كني كه برنامه مدام تكرار بشه و با يك بار تكرار به پايان نرسه
عكست هم خيلي واضح نيست ولي فكر كنم ارور به خاطر اينه كه پورت بي رو خروجي تعريف كردي كه اصلا نيازي به اين كار نيست يا سعي كن تعريف پايه هاي السيدي رو تو يه خط بنويسي
حالا ميتوني از اين برنامه هم استفاده كني ولي يادت باشه شماره پايه هاش رو خودت تغير بده
کد:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , Rs = Porta.0 , E = Porta.1
Dim A As Byte , B As Byte , C As Byte
Cursor Off
Do
For A = 0 To 16
Cls
Locate 1 , A
Lcd "123456789"
Locate 2 , A
Lcd "IN KARAJ"
Waitms 100
If A = 4 Then
Wait 1
End If
Next
For C = 0 To 10
For B = 1 To 2
Cls
Waitms 50
Locate B , 4
Lcd "please"
Waitms 50
Next
Next
Loop
End