سوال از اساتید vb

[rangine]

سلام و وقت بخیر.
لطفا اگر این کد وقتتون رو زیاد نمیگیره. برام تفسیرش کنید. من چیزی از 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
خروجی سوم
و الا آخر

[arenaw]

سلام،
فک نمیکنم کدها واسه vb 6 باشن، اگرم باشه احتمالا تعدادی function و const و ... داره که شما ننوشتی

[rangine]

مرسی از توجهت arenaw
این کد برای میکروکنترلر نوشته شده. و توسط vb. حالا با ورژن 6 یا چندشو نمی دونم.
ولی کد خطوط برنامه همینه که براتون نوشتم. بدون کم و زیاد

[just4froum]

این کد برای میکروکنترلر نوشته شده. و توسط vb. حالا با ورژن 6 یا چندشو نمی دونم.
ولی کد خطوط برنامه همینه که براتون نوشتم. بدون کم و زیاد

با سلام :

نه عزیزم تا اونجایی که من اطلاع دارم این برای vb6 نیست.

این با زبان bascom نوشته شده است که خیلی شبیه vb6 است.

[rangine]

میتونید برام تفسیرش کنید؟

[just4froum]

بفرمایید این هم یک راهنمای کامل برنامه نویسی با bascom

هرکاری کردم توی سایت آپلود نشود لینکشو از اینترنت پیدا کردم.

دانلود (http://hrvahed.persiangig.com/document/avr-1nafar.rar)

[rangine]

just4froum ممنون از وقتی که برام میگذاری.
حتما مطالعه میکنم. و جوابشو همینجا میگذارم. شاید به درد کسای دیگه هم بخوره