با سلام
من یه برنامه با بسکام نوشتم که نشان دهنده بنزین خودرور است همه چیز درست کار می کنه ولی من میخوام موقعی که به باک خودرو بنزین اضاف شد اخطار بده که کارت سوخت جا نمونه ومشکلم اینجاست
لطفا دوستانی که استادند کد این قسمت برام بنویسند یا حدقل راهنمایی کنند
اینم کد برنامم در بسکام
$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
Wait 1
Loop
Biz:
Sound Porta.5 , 300 , 100
Return
End
$include "font8x8.font"
Glcd1:
$bgf "BASCOM1.bgf "
من یه برنامه با بسکام نوشتم که نشان دهنده بنزین خودرور است همه چیز درست کار می کنه ولی من میخوام موقعی که به باک خودرو بنزین اضاف شد اخطار بده که کارت سوخت جا نمونه ومشکلم اینجاست
لطفا دوستانی که استادند کد این قسمت برام بنویسند یا حدقل راهنمایی کنند
اینم کد برنامم در بسکام
$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
Wait 1
Loop
Biz:
Sound Porta.5 , 300 , 100
Return
End
$include "font8x8.font"
Glcd1:
$bgf "BASCOM1.bgf "
دیدگاه