rangine
چهارشنبه 17 خرداد 1391, 10:46 صبح
سلام و وقت بخیر.
لطفا اگر این کد وقتتون رو زیاد نمیگیره. برام تفسیرش کنید. من چیزی از vb بلد نیستم.
ممنون از همکاریتون.:لبخندساده:
$regfile = "M8def.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Dim A As Word , B As Byte , C As Byte , F As Byte
$baud = 9600
Start Adc
Cls
Cursor Off
Main:
A = Getadc(5)
B = A Mod 10
A = A \ 2
F = A
Print F
Wait 1
Waitms 10
Locate 1 , 1
Lcd "TEMP= " ; A ; "." ; B ; " C "
Goto Main
چند خروجی این قطعه کد رو هم براتون میگذارم که به صورت HEX گرفته شده
125|125|127|127|125|63
خروجی اول
63|127|127|63|127|63|125|127|125|63|127|127|63|127 |125|127|125|125|63|125|125|63|125
خروجی دوم
127|125|63|125|127|127|127|127|63|127
خروجی سوم
و الا آخر
لطفا اگر این کد وقتتون رو زیاد نمیگیره. برام تفسیرش کنید. من چیزی از vb بلد نیستم.
ممنون از همکاریتون.:لبخندساده:
$regfile = "M8def.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Dim A As Word , B As Byte , C As Byte , F As Byte
$baud = 9600
Start Adc
Cls
Cursor Off
Main:
A = Getadc(5)
B = A Mod 10
A = A \ 2
F = A
Print F
Wait 1
Waitms 10
Locate 1 , 1
Lcd "TEMP= " ; A ; "." ; B ; " C "
Goto Main
چند خروجی این قطعه کد رو هم براتون میگذارم که به صورت HEX گرفته شده
125|125|127|127|125|63
خروجی اول
63|127|127|63|127|63|125|127|125|63|127|127|63|127 |125|127|125|125|63|125|125|63|125
خروجی دوم
127|125|63|125|127|127|127|127|63|127
خروجی سوم
و الا آخر