توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : نشان دادن ميزان متغير در ال سي دي
با سلام خدمت دوستان گل
من مي خوام بروي ال سي دي 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
با سلام شما مي توني با استفاده از ديتا شيت ال سي دي يا كتابخانه آماده مثل قبل اين كار رو بكني شما كتابخانشو پيدا كن من كدشو واست بنويسم :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 "
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.