Como usar un solo pin con mikropascal ?

[gaston260]

Como se hace para que se ponga solo un pin en un nivel logico 1 ? , el pic es el 16f84a ! .

[donald shimoda]

Con mikropaskal PRO :

Ejemplo para el pin 1 del port A

RA1_bit := 1;

Antes obviamente setear el pin como salida:

TRISA1_bit := 0;

Para versiones previas

TRISA.RA1 := 0;
PORTA.RA1 := 1;

Espero que te sirva.

Saludos

[gaston260]

Muchisimas gracias señor donald !! estoy seguro que me servira ! .

[gaston260]

me da los siguientes errores en mikropascal for pic !

4:1 E-3 Identifier 'TRISA1_bit' was not declared LED_Blinking_1_pin.ppas
5:1 E-3 Identifier 'RA1_bit' was not declared LED_Blinking_1_pin.ppas
10:8 E-4 Syntax error: Expected 'end' but '.' found LED_Blinking_1_pin.ppas
12:2 E-4 Syntax error: Expected '.' but 'end' found LED_Blinking_1_pin.ppas

este es el codigo

program LED_Blinking_1_pin;

begin
TRISA1_bit := 0; // configuro PORTA como salida (output)
RA1_bit := 0; // inicializa PORTA
//ANSEL := 0; // configuro un pin como entrada/salida digital
//ANSELH := 0;
WHILE TRUE DO
begin
RA1 := NOT PORTA; //toggle PORTA
Delay_ms(1000); // retardo de 1 segundo
end;
end.

[fenixariel]

Hola gaston, deberias fijarte en la version de tu MikroPascal. Si tu version es la 8.0.0 o inferior:


program LED_Blinking_1_pin;

begin

TRISA := %00000010;

PORTA.1 := 0; // solo para el pin A1
//PORTA := 0; // tordo el puerto A
ADCON1 := %-------------//ver datasheet del PIC

WHILE TRUE DO
begin
SetBit(PORTA, 1);
Delay_mS(1000);
ClearBit(PORTA, 1);
end;

end.


En la carpeta de instalacion puedes encontrar una multitud de ejemplos.........