MKB, GLCD y Proteus

[endSly]

Buenas, he creado un pequeño programita en MKB para controlar una pantalla grafica de 240x128, lo compilo sin que me de errores pero al simularlo en el Proteus 7 (Es para un PIC24) no hace nada, ni si quiera parpadean los cuadraditos de las patas. El programa es este:

Código: vb.net

1. program T6963C
2.  
3. include "__lib_t6963c"
4. include "__lib_images"
5.  
6.    sub procedure NewWindow(dim x as integer, dim y as integer,
7.                           dim sx as integer, dim sy as integer,
8.                           dim byref title as string[16], dim byref msg as string[64],
9.                           dim byref pic24x24 as byte[72], dim okBtn as byte)
10.  
11.       T6963C_box(x, y , x + sx, y + sy, T6963C_White)
12.  
13.       T6963C_rectangle(x, y ,x + sx ,y + sy ,T6963C_BLACK)
14.      
15.       T6963C_box(x + 2, y + 2, x + sx - 2, y + 12, T6963C_BLACK)
16.      
17.       T6963C_write_text(title, x + 10, y + 10, T6963C_ROM_MODE_XOR)
18.      
19.       T6963C_write_text(msg, x + 40, y + 32, T6963C_ROM_MODE_XOR)
20.      
21.       'T6963C_sprite(x+8, y+24, pic24x24, 24, 24)
22.    end sub
23.  
24. main:
25.   ADPCFG = 0xFFFF
26.   TRISB  = 0xFFFF
27.   TRISF  = 0
28.   PORTD  = %00000000            
29.  
30.   T6963C_init(240, 128, 8, PORTF, PORTD, 2, 1, 0, 4)
31.   T6963C_graphics(1)
32.   T6963C_text(1)
33.   T6963C_cursor(0)
34.  
35.   while TRUE
36.     NewWindow(16,64,48,160,"WindowsTest","Windows works!!!","",1)
37.   wend
38.  
39. end .

y en el Proteus hago esto:



Gracias

[endSly]

Nadie sabe de que puede ser??

[LordLafebre]

Hola:

Antes que nada, con impaciencia no ganas nada, cuando alguien tenga tiempo, como yo ahora en este moménto, responderán a tu pregunta, es peor si exiges o pones presión, ahora, este es un ejemplo pero para pic 18F, mira si te sirve algo, dibuja una onda senoidal en el GLCD, esto es tomado del codigo de Pedro que habla sobre gráficas en VB:

Código: [Seleccionar]

program GLCDMICRO
include "__Lib_T6963c"
include "UCC"
include "Texto"

dim x, y, i, j as integer
dim dato as float

main:
  TRISC  = 0xFFFF
  TRISB  = 0x0000
  PORTD  = 0
  TRISD  = 0
  T6963C_init(240, 128, 8, PORTD, PORTB, 3, 2, 1, 5)
  T6963C_graphics(1)
  T6963C_text(0)

delay_ms(100)

label:
      x = 0
      y = 64
      dato = 0
      i = 0
      j = 0
      for i=0 to 240
          dato=ceil(128*sin(6*i*(3.14159265358979/180)))
          If i <> 240 Then  ' pregunta si i no ha llegado a cx
          j = (128 / 2) - (dato / 2) 'senoidal
          T6963C_line(x, y, i, j, T6963C_WHITE)
          x = i
          y = j
          end if
      next i
end.

[endSly]

Gracias por contestar, lo probare


Edito: Lo consegui, gracias. Faltaba de poner el Potenciometro