پاسخ : راه اندازی LCD گرافیکی 128x64 "لطفا کمک"
DI همون RSآ هست .
DI همون RSآ هست .
$prog &HFF , &HE1 , &HD9 , &H00 $regfile = "m32def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 10 $framesize = 40 $lib "glcdKS108.lib" $lib "glcdKS108.LBX" '------------------------------------------------------------------------------- Declare Sub Showchart Declare Sub Adc1tolcd Declare Sub Adc23tolcd Declare Sub Showbar(byval Yy As Integer , Byval F As Integer) '------------------------------------------------------------------------------- Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5 Setfont Font8x8 Config Adc = Single , Prescaler = Auto '------------------------------------------------------------------------------- Dim F1 As Integer Dim F2 As Integer Dim F3 As Integer '------------------------------------------------------------------------------- Cls '------------------------------------------------------------------------------- F1 = 0 F2 = 0 F3 = 0 Main: Config Portd = Input Config Portb = Input Showchart 'Call Adc1tolcd 'Call Adc23tolcd 'Call Showbar(32 , F1) 'Call Showbar(64 , F2) 'Call Showbar(96 , F3) Waitms 100 Goto Main End '=== Subroutines=== $include "font8x8.font" '------------------------------------------------------------------------------- Sub Showchart Lcdat 1 , 17 , "#" Lcdat 2 , 1 , Chr(235) ; Chr(230) ; "!" Lcdat 3 , 1 , Chr(234) ; Chr(230) ; "!" Lcdat 4 , 1 , Chr(233) ; Chr(230) ; "!" Lcdat 5 , 1 , Chr(232) ; Chr(230) ; "!" Lcdat 6 , 1 , Chr(231) ; Chr(230) ; "!" Lcdat 7 , 9 , Chr(230) ; "%" Lcdat 7 , 24 , "-$---$---$-->" End Sub '-------------------------------------------------------------------------------
دیدگاه