primer proyecto con Mikro pascal no compila

[gaston260]

Haaaaaaaaaaaaaaaaaaa !!!!! muchas gracias amigo ! esto de intentar ser autodidacta es dificil jajaja por suerte hay gente con ganas de enseñar !

Gracias !!!!

[[rretamar]]

Suerte con el aprendizaje y a no desanimarse.

Con respecto al PIC16F84, a esta altura me parece totalmente obsoleto. Si vas a usar un compilador de alto nivel como Mikropascal (que por más optimizado que sea el código generado, nunca se acercará al ensamblador "puro"), te recomiendo usar algo más moderno, como el PIC16F648A, que no es mucho más costoso pero tiene más prestaciones (incluyendo más memoria), lo que lo hace ideal como "entry level". ¿ Programar en ensamblador ? Hoy en día trato de evitarlo en la medida de lo posible, y más teniendo excelentes compiladores como el citado Mikropascal.

Aquí está la hoja de datos del PIC16F648A:

http://ww1.microchip.com/downloads/e...Doc/40044G.pdf

Como se puede apreciar, a pesar de ser un microcontrolador pequeño, tiene prestaciones que están disponibles normalmente en modelos más grandes. Tiene USART, tres temporizadores, PWM, dos comparadores, 16 pines de E/S.

Saludos de parte de otro autodidacta !!!

[gaston260]

Gracias por tomarte el tiempo de editar la respuesta ! , y voy a tomar tus consejos aunque solo soy un jobista jajaja tal vez un dia aga algo interesante porque me apasiona y mas conociendo a delphi !

[gaston260]

tengo un problema ahora ! mikropascal me dice 1:1 E-0 Linker error: 13: bad bit number el error se produce si saco

while true  do
  Begin *** End;

donde antes era

while true  do
Begin
  while TestBit(PORTA,3) = 1 Do  // pregunto si la pata 2 esta en nivel alto
                                 // si lo esta entonces
  Begin *** End;

la verdad me quede sin preguntas ni respuestas !! no entiendo nada de nada !

[[rretamar]]

¿ Podrías postear el código fuente completo ?.

Saludos !

[gaston260]

perdon lo borre pero intento generar de nuevo el error con mikropascal pro 2009 y no lo hace !! voy a volver a instalar mikropascal 8.0.0.1 para ver si de nuevo me genera el error !

era algo asi el codigo

program probar1;

{ Declarations section }

begin

SetBit(TRISA, 3);
SetBit(TRISA, 2);

begin
while true do
      begin
           while TestBit(PORTB,3) = 1 Do
                 begin
                        PORTA := PORTA Or %00010010;
                 end;
      end;
end;

begin
while true do
      begin
           while TestBit(PORTB,2) = 1 do
                 begin
                        PORTA := PORTA Or %11101101;
                 end;
      end;
end;

end.

se que estoy abusando de los Begins pero era el codigo sin optimizar !

gracias !

[gaston260]

Bue resulta que ni el mikropascal 8.0.0.1 me genera errores ni el pro tampoco !

el codigo es este

program probar1;

{ Declarations section }

begin

SetBit(TRISA, 3);
SetBit(TRISA, 2);

{ClearBit(TRISB, 7);
ClearBit(TRISB, 8);
ClearBit(TRISB, 9);
ClearBit(TRISB, 10);
ClearBit(TRISB, 11);
ClearBit(TRISB, 12);
//ClearBit(TRISB, 13);
}

TRISB := %00001111;

begin
while true do
begin
while TestBit(PORTA,3) = 0 Do
begin
PORTB := PORTB Or %10010010;
end;
//end;
//end;

//begin
//while true do
//begin
while TestBit(PORTA,2) = 0 do
begin
PORTB := PORTB Or %11101101;
end;
end;
end;

end.