السلام عليكم اخواني
لقد وجدت في احد المواقع التحكم في البيك بدون قطعة الانترنت
سوى ربط البيك بالحاسوب بواسطة القطعة max232
كود:
////////////////////////////////////////////////////////
// //
// PROYECTO CONTROL DE UN PIC VIA INTERNET //
// //
// Control de 4 diodos led por las salidas B0 a B3 //
// Lectura del estado de las entradas B4 a B7 //
// //
////////////////////////////////////////////////////////
#include <16f876a.h>
#fuses XT
#use delay(clock=4000000)
#use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=8)
#use standard_io(C)
#use standard_io(B)
#define LED_AZUL PIN_B0
#define LED_VERDE PIN_B1
#define LED_ROJO PIN_B2
#define LED_AMARILLO PIN_B3
#define ENTRADA1 PIN_B4
#define ENTRADA2 PIN_B5
#define ENTRADA3 PIN_B6
#define ENTRADA4 PIN_B7
int opcion;
void mostrar_menu(){
puts(" Comando Control");
puts("");
puts(" 0 Estado ENTRADAS");
puts(" 1 Control LED-AZUL");
puts(" 2 Control LED-VERDE");
puts(" 3 Control LED-ROJO");
puts(" 4 Control LED-AMARILLO");
puts(" Espacio Menu");
}
void funcion_led_azul(){
output_toggle(LED_AZUL);
if (input_state(LED_AZUL))
puts("Led azul encendido");
else
puts("Led azul apagado");
}
void funcion_led_verde(){
output_toggle(LED_VERDE);
if (input_state(LED_VERDE))
puts("Led verde encendido");
else
puts("Led verde apagado");
}
void funcion_led_rojo(){
output_toggle(LED_ROJO);
if (input_state(LED_ROJO))
puts("Led rojo encendido");
else
puts("Led rojo apagado");
}
void funcion_led_amarillo(){
output_toggle(LED_AMARILLO);
if (input_state(LED_AMARILLO))
puts("Led amarillo encendido");
else
puts("Led amarillo apagado");
}
void funcion_lectura_entradas(){
printf("Estado de la entrada 1 = %u", input(ENTRADA1));puts("");
printf("Estado de la entrada 2 = %u", input(ENTRADA2));puts("");
printf("Estado de la entrada 3 = %u", input(ENTRADA3));puts("");
printf("Estado de la entrada 4 = %u", input(ENTRADA4));puts("");
}
void main() {
output_low(LED_AZUL),(LED_VERDE),(LED_ROJO),(LED_AMARILLO);
puts("");
puts("Conexion con Pic establecida");
puts("");
puts("Pulsa barra espaciadora para abrir menu");
for(;;){
opcion = getc();
switch(opcion){
case ' ': mostrar_menu();
break;
case '0': funcion_lectura_entradas();
break;
case '1': funcion_led_azul();
break;
case '2': funcion_led_verde();
break;
case '3': funcion_led_rojo();
break;
case '4': funcion_led_amarillo();
break;
}
}
}
الملفات مع الفيديو
http://depositfiles.com/files/un8kh9cek
المرجع
http://robotypic.blogspot.com.es/201...r-pic-por.html
تحكم في البيك من خلال الانترنت
