PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : نشان دادن ميزان متغير در ال سي دي



0098
22-02-2008, 00:41
با سلام خدمت دوستان گل
من مي خوام بروي ال سي دي 64*128 SEDيك متغير رو نشان بدم
مانند ال سي دي 16*2 كاراكتري كه دستور زير را مي نوشتيم وبعد ميزان متغير بر روي ال سي دي كاركتري نشان داده ميشد

DIM A AS WORD
A=0
DO
INCR A
CLS
LCD A
LOOP

يا يه دستوري تو مايه هاي همين بخوايم تو ال سي دي گرافيكي ميزان يك متغير رو نشان بديم بايد از چه دستوري استفاده بكنم

از دوستان مهندس ومتخصص خواهشمندم يك نمونه از دستورات كه بشه روي السيدي گرافيكي از نوع اس اي دي بشه يه متغير رو نشون داد قرار بدند البته در بيسكام باشه
ممنون از لطف شما

saeed_niknami
26-02-2008, 18:15
با سلام شما مي توني با استفاده از ديتا شيت ال سي دي يا كتابخانه آماده مثل قبل اين كار رو بكني شما كتابخانشو پيدا كن من كدشو واست بنويسم :D

0098
08-03-2008, 01:07
با سلام شما مي توني با استفاده از ديتا شيت ال سي دي يا كتابخانه آماده مثل قبل اين كار رو بكني شما كتابخانشو پيدا كن من كدشو واست بنويسم :D


با سلام
ممنون از لطف شما دوست عزيز بالاخره با سعي خطا موفق شدم
حالا يه مشکل ديگه دارم ومشکلم اينه که ميخوام وقتي ميزان ADC رو تو يه متغير مي ريزم موقعي که مقدار جديد از مقدار قبلي بيشتر بود بره يه کار ي رو انجام بده ميخوام اين تو يه حلقه باشه
البته کد برنامه هم ميگذارم اين پروژه نشان دهنده بنزين واخطار دهنده براي اينکه کارت سوخت جا نمونه
واين مشکلم هم اينجاست که وقتي بنزين اضاف شد ميزان متغير بيشتر ميشه وبايد اعلام بکنه که کارت سوخت جا نمونه
ممنون ميشم اگه کد را بنويسيد البته تو بسکام




$regfile = "M16DEF.DAT"
$crystal = 4000000

$lib "glcdKS108.lbx"

Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 3 _
, Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 2 , Enable = 5




Setfont Font8x8

Showpic 0 , 0 , Glcd1

Cls

Dim A As Word



Config Adc = Single , Prescaler = Auto , Reference = Off


Start Adc
Do

A = Getadc(0)
A = A / 10
If A = 101 Then A = 100
If A = 102 Then A = 100

A = 100 - A

If A < 5 Then Gosub Biz


Lcdat 3 , 2 , "BENZIN=" ; A ; "%"

Select Case A
Case 0 : Lcdat 2 , 2 , "KHLII MI BASHAD"
Case 1 To 10 : Lcdat 2 , 2 , "> "
Case 11 To 20 : Lcdat 2 , 2 , ">> "
Case 21 To 30 : Lcdat 2 , 2 , ">>> "
Case 31 To 40 : Lcdat 2 , 2 , ">>>> "
Case 41 To 50 : Lcdat 2 , 2 , ">>>>> "
Case 51 To 60 : Lcdat 2 , 2 , ">>>>>> "
Case 61 To 70 : Lcdat 2 , 2 , ">>>>>>> "
Case 71 To 80 : Lcdat 2 , 2 , ">>>>>>>> "
Case 81 To 90 : Lcdat 2 , 2 , ">>>>>>>>> "
Case 91 To 95 : Lcdat 2 , 2 , ">>>>>>>>>> "


Case 96 To 100 : Lcdat 2 , 2 , "FUOLL "

End Select

Waitms 100
Loop






Biz:
Sound Porta.5 , 300 , 100
Return
End

$include "font8x8.font"


Glcd1:
$bgf "BASCOM1.bgf "