کد:
$regfile = "m16def.dat" 'specify the used micro
$crystal = 11059200 'Work Only With this Crystall
$baud = 115200
'First we define that we use a graphic LCD
$lib "glcdks108.lbx"
Dim I As Byte
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Do
Cls
Showpic 0 , 0 , Anim1
Waitms 300
Showpic 0 , 0 , Anim2
Waitms 300
Showpic 0 , 0 , Anim3
Waitms 300
Showpic 0 , 0 , Anim4
Waitms 300
Showpic 0 , 0 , Anim5
Waitms 300
Showpic 0 , 0 , Anim6
Waitms 300
Showpic 0 , 0 , Anim7
Waitms 300
Showpic 0 , 0 , Anim8
Waitms 300
Showpic 0 , 0 , Anim9
Waitms 300
Showpic 0 , 0 , Anim10
Waitms 300
Showpic 0 , 0 , Anim11
Waitms 300
Showpic 0 , 0 , Anim12
Waitms 300
Showpic 0 , 0 , Anim13
Waitms 300
Showpic 0 , 0 , Anim14
Waitms 300
Showpic 0 , 0 , Anim15
Waitms 300
Wait 1
Showpic 0 , 0 , Img1
Waitms 2
For I = 1 To 64
Line(0 , I) -(128 , I) , 255
Waitms 10
Next
Showpic 0 , 0 , Img2
Waitms 1
For I = 1 To 64
Line(0 , I) -(128 , I) , 255
Waitms 10
Next
Showpic 0 , 0 , Img3
Waitms 1
For I = 1 To 128
Line(i , 0) -(i , 64) , 255
Waitms 10
Next
Showpic 0 , 0 , Img8
Waitms 800
Showpic 0 , 0 , Img4
Waitms 800
Showpic 0 , 0 , Img5
Waitms 800
Showpic 0 , 0 , Img6
Waitms 800
Showpic 0 , 0 , Img7
Waitms 800
Showpic 0 , 0 , Img8
Wait 3
Loop
End
Img1:
$bgf "m1.bgf"
Img2:
$bgf "m2.bgf"
Img3:
$bgf "m3.bgf"
Img4:
$bgf "i1.bgf"
Img5:
$bgf "i2.bgf"
Img6:
$bgf "i3.bgf"
Img7:
$bgf "i4.bgf"
Img8:
$bgf "i5.bgf"
Img9:
$bgf "adamak.bgf"
Anim1:
$bgf "anim1.bgf"
Anim2:
$bgf "anim2.bgf"
Anim3:
$bgf "anim3.bgf"
Anim4:
$bgf "anim4.bgf"
Anim5:
$bgf "anim5.bgf"
Anim6:
$bgf "anim6.bgf"
Anim7:
$bgf "anim7.bgf"
Anim8:
$bgf "anim8.bgf"
Anim9:
$bgf "anim9.bgf"
Anim10:
$bgf "anim10.bgf"
Anim11:
$bgf "anim11.bgf"
Anim12:
$bgf "anim12.bgf"
Anim13:
$bgf "anim13.bgf"
Anim14:
$bgf "anim14.bgf"
Anim15:
$bgf "anim15.bgf"