3699ph.gif (399.25 KB, 下載次數: 79)
下載附件
2020-11-28 22:30 上傳
演示程序：
rem Main.bas file generated by New Project wizard
rem
rem Created: 周五 11月 27 2020
rem Processor: ATmega8
rem Compiler: BASCOM-AVR
rem Write your code here
'-----------------------------------------------------------
' EADOGM128.BAS
' (c) 1995-2020 MCS Electronics
' micro : mega168
' demo : SPI graphical display EADOGM128
' IMPORTANT : SPI only allows the WRITE mode. THis mean that setting pixels is not possible.
' for this reason commands as PSET, LINE and CIRCLE are not supported.
' best option would be to display pictures
' fonts and images are compatible to KS108
'-----------------------------------------------------------
$regfile = "m8def.dat" ' ATmega8
$crystal = 8000000
$baud = 19200
$lib "glcdeadogm128x6.lbx" ' specify the used lib
$hwstack = 40
$swstack = 40
$framesize = 40
'the display was connected with these pins
Config Graphlcd = 128x64eadogm , Cs1 = Portd.4 , A0 = Portd.7 , Si = Portb.3 , Sclk = Portb.5 , Rst = Portd.5
'the best option is to control the reset line of the LCD with the micro so you can reset it controlled at startup
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim B As Byte , J As Byte
Dim K As Byte , X As Word , Y As Word
Print "cls"
Cls
'specify the font we want to use
Setfont Font8x8tt
'You can use locate but the columns have a range from 1-128
'When you want to show somthing on the LCD, use the LDAT command
'LCDAT Y , COL, value
Lcdat 1 , 1 , "111ABCDE"
Lcdat 2 , 1 , "88888888"
Lcdat 3 , 1 , "MCS Electronics" , 1
Waitms 3000
Dim I As Word
For I = 110 To 113
Lcdat 1 , 1 , I
Waitms 500
Cls 1 , 1 , 24 , 255 'clear inverse
Waitms 500
Next
Waitms 3000
Setfont Font12x16
Cls
Lcdat 4 , 1 , "HDG12864F-1" 'a bigger font
Wait 2
CLS
Lcdat 1, 32 ,chr(146); chr(147); chr(148); chr(149); chr(150),1
Wait 2
Lcdat 3, 32, chr(151); chr(152); chr(153); chr(154); chr(155),1
Wait 2
Lcdat 5 , 32, chr(156); chr(157); chr(158);chr(159); chr(160),1
Wait 2
Lcdat 7 , 32, chr(161); chr(162); chr(163); chr(164); chr(165),1
Wait 5
cls
'Setfont Font8x8tt
Showpic 0 , 0 , Plaatje
Waitms 3000
Do
' Gosub Touch 'optional touch screen
Loop
End
'portc.0-portc.3 pin 1-4
Touch: '幫幫忙這一段不知如何仿真
Start Adc
Waitms 200
Config Portc.0 = Output 'Bottom
Config Portc.2 = Output 'Top
Set Portc.0 'High
Reset Portc.2 'Low
Config Pinc.1 = Input 'left as input
Config Pinc.3 = Input 'right as input
Waitms 80
Y = Getadc(3)
Y = Y - 365
print y
If Y > 640 Then Y = 0
Config Portc.1 = Output 'Left
Config Portc.3 = Output 'Right
Set Portc.3
Reset Portc.1
Config Pinc.0 = Input
Config Pinc.2 = Input
Waitms 80
X = Getadc(0)
X = X - 196
print x
If X > 800 Then X = 0
Lcdat 1 , 1 , "X : " ; X
Lcdat 1 , 74 , "Y : " ; Y
Return
Plaatje:
'include the picture data
$bgf "../mty1.BGF"
'include used fonts
$include "../font8x8TT.font"
$include "../Font12x16.font"
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
