TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: endSly en 13 de Mayo de 2007, 16:24:31

Título: MKB, GLCD y Proteus
Publicado por: endSly en 13 de Mayo de 2007, 16:24:31
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:

(http://img115.imageshack.us/img115/9421/protoe2.png)

Gracias
Título: Re: MKB, GLCD y Proteus
Publicado por: endSly en 16 de Mayo de 2007, 12:08:53
Nadie sabe de que puede ser??
Título: Re: MKB, GLCD y Proteus
Publicado por: LordLafebre en 16 de Mayo de 2007, 12:48:08
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.
(http://img459.imageshack.us/img459/1484/mkbglcdvy6.jpg)
Título: Re: MKB, GLCD y Proteus
Publicado por: endSly en 17 de Mayo de 2007, 04:06:41
Gracias por contestar, lo probare


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