Hola para todos...
Tengo una semana que compre proton
y me he puesto a probar cosas...
Toda me hiba bien, hasta que llegué a la graficación con glcd. No sé que pasa o que esta mal.
El gráfico de la formula senoidal no me sale. La formula la tomé de un programa en QBasic.
Aqui les dejo el código a ver si alguien me puede lanzar una mano.
'''Display text and graphics on a graphic LCD
Include "PROTON_G4.INT"
'''Set up some Variables
Dim temp As Byte
Dim sine As Byte
Dim i As Byte
Dim Xmax As Byte
Dim Ymax As Byte
Dim XPOS_START As Byte
Dim XPOS_END As Byte
Dim YPOS_START As Byte
Dim YPOS_END As Byte
Dim SET_CLR As Byte
DelayMS 200 '''Wait for PICmicro to stabilise
Cls
XPOS_START = 0 '''Esquina Superior Izq va de 0 a 127 desplaza horizontalmente.
YPOS_START = 20 '''Esquina superior Izq va de 0 a 63 deciende verticalmente.
XPOS_END = 120
YPOS_END = 34
Xmax = 127 : Ymax = 53 '63
Print At 0 , 4 , "SINE LCD Test"
Again: 'sine = sin(10000*0.031*0.1)
For i = 0 To Xmax Step 1
temp = Sin(i*1000)
sine = Ymax/2 - temp *Ymax /2
'SET_CLR = Ymax '1
'LINEto SET_CLR , i, Ymax+sine ', i
Plot Ymax+sine, i
Next
' FOR i = 0 TO Xmax STEP 1
' temp = SIN(i*1000)
' sine = Ymax/2 - temp *Ymax /2
' LINE SET_CLR , XPOS_START , YPOS_START , XPOS_END , YPOS_END
' UNPLOT Ymax+sine, i+1
' DELAYMS 10
' NEXT
GoTo Again
Include "FONT.INC"
Se ve la forma de la onda senoidal, pero muy extraña. Probe con el comando LINETO pero se ve peor,
como si le hubiera puesto un diodo, media onda....
Bueno si me pueden ayudar gracias, sino gracias igual......
Saludos....