سلام.
لطفا اگه چندتا پروژه کامل شده LCD64*128 تاچ اسکرین دارید بذارید.
ممنون.
لطفا اگه چندتا پروژه کامل شده LCD64*128 تاچ اسکرین دارید بذارید.
ممنون.
$regfile = "m32def.dat" $crystal = 10000000 $baud = 9600 '-------------------------------------------------------- Dim C As Byte Dim B As Byte Dim A(200) As Word Dim Mina As Long Dim Omid As Word Dim Omid2 As Single Dim Mega As Byte Dim Datatransmiter As Long Dim Datareadtimer As Long Dim Limitbit As Byte Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1 Config Lcd = 20 * 4 Cursor Off ' used crystal frequency $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space Config Pinb.0 = Output Config Porta = Input Config Adc = Single , Prescaler = Auto , Reference = Internal Dim I As Byte , I2 As Byte Dim X1 As Word Dim Y1 As Word Stop Adc Start Adc X1 = 0 Y1 = 0 lcd"omia adiban" Do Config Porta.4 = Output Config Porta.5 = Input Config Porta.6 = Output Config Porta.7 = Input Set Porta.4 Reset Porta.5 Reset Porta.6 Reset Porta.7 X1 = Getadc(5) X1 = X1 / 4 Config Porta.4 = Input Config Porta.5 = Output Config Porta.6 = Input Config Porta.7 = Output Reset Porta.4 Set Porta.5 Reset Porta.6 Reset Porta.7 Y1 = Getadc(6) Y1 = Y1 / 8 Cls Locate 1 , 1 Lcd X1 Locate 2 , 1 Lcd Y1 Waitms 5 Loop
دیدگاه