glcd_test.bas

来自「该应用软件可以实现大多数单片机的仿真实验」· BAS 代码 · 共 28 行

' Display text and graphics on a graphic LCD

		Include "PROTON_G4.INT" 
        
' Set up some Variables
        
        Dim Xpos		as	Byte
        Dim	Ypos		as	Byte

        Cls
        Print at 0 , 2 , "Graphic LCD Test"
        
Again:        
        For Xpos = 0 to 63
        	Ypos = SIN Xpos
        	Plot Xpos , Ypos
        	Delayms 10
        Next
        For Xpos = 0 to 63
        	Ypos = SIN Xpos
        	UnPlot Xpos , Ypos
        	Delayms 10
        Next                
		Goto Again
        
		Include "FONT.INC"