Ir ao conteúdo
  • Cadastre-se

Videwo composto PAL-M com PIC


Posts recomendados

Ola amigos, criei esse programinha em BASIC para gerar sinais de video composto BEM SIMPLES mas Funcionando 100%
estou usando um PIC12F683  com cristal de 20MHz
 
faz qualquer desenho na tela trocando as letras  I   e   O
 
mas o problema e o  seguinte:
 
Programa compila super bem em Mikrobasic antigo 7.0.0.2
porém no Mikrobasic Pro  nao Compila!!!   apresenta o seguinte erro    25 342 There is not enough ROM space 
sendo que ainda tem espaço no PIC
 
 
 
Programa
 
 

program VIDEO23DIM CONT,CONT2 AS BYTEsub procedure Sync   'Horizontal sync'GPIO.2=1 GPIO.2=1 Delay_us(1)    'Front Porch Timing'GPIO.2=0 GPIO.2=0 GPIO.2=0 GPIO.2=0 Delay_us(4)    'Horizontal Sync Timing'GPIO.2=1 GPIO.2=1 GPIO.2=1 Delay_us(5)    'Back Porch Timing'end sub sub procedure SyncV    'Vertical sync'FOR cont = 1 TO 7    'equalizing'GPIO.2=0 Delay_us(4)GPIO.2=1 Delay_us(26)NEXT CONTFOR cont = 1 TO 7    'Sincronismo V'GPIO.2=0 Delay_us(26)GPIO.2=1 Delay_us(4)NEXT contFOR cont = 1 TO 7    'equalizing'GPIO.2=0 Delay_us(4)GPIO.2=1 Delay_us(26)NEXT CONTend subsub procedure I 'linha horizontal 1'GPIO.1=1end subsub procedure O 'linha horizontal 0'GPIO.1=0end subsub PROCEDURE TXTFOR CONT2 = 1 TO 61      ' 262 linhas x2 campos em 60 quadros por segundo 'SYNCVFOR CONT = 1 TO 9 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTFOR CONT = 1 TO 9 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O O I O I I I I I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I I O O I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O I O I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O I I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O O I O I I I I I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I I I I O I O O O I O I I I I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I O O O O I O I O O O O I I O O I O I O O I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I O I I O I O I O I O I I I I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O I O I O I O O I O I O O I I O I O O I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I I I I O I O O O I O I O O I O I I I I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I I I I O I O O I O O O O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I O O I O O O O I I O O I I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I I I I O I I O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I O O I O O O O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I I I I O I O O I O O O O I I I O I I I O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 7 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTNEXT CONT2END SUBMAIN:ANSEL=%00000000trisio.2=0trisio.1=0trisio.3=1WHILE (TestBit(gpio,3)=1)   ' testa bit na porta 3 do pic, se estiver em nivel logico 1 executa a imagem'TXTWENDgoto mainEND.
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!