VB'de SERİ PORTTAN Pic16F84'le İLETİŞİM..

[ufuk0106]

Selam...
VB'de bir text'e yazdığım 8 bitlik karakteri Pic çıkışında görebilmek istiyorum(Ledlerde).VB kodları ve Pic yazılımı(PicBAsic) ve devre şemesı konusunda yardımcı olur musunuz?Olaya çok yeniyim..
Mail:ufukkizilkaya@hotmail.com
 Teşekkürler..

[axanc]

selam..

öncelikle pic16f84 yerine pic16f877 gibi seri iletişim özelliği olan entegre kullanmanı öneririm, bir de pic'i, PicBasicPro dili ile programlarsan olayın pic'e düşen kısmı inanılmaz kolaylaşır..

VB bilmiyorum ama seri iletişim olayları hepseinde aynı sayılır... kolay gelsin..

[444]

http://www.planetsourcecode.com/ 'da  seri port bilgi yollayan bi program bul...

sonra pic'de yazacagin program;
picc ile 877 icin ben yaptim....
soyle kullanabilirsin...

#include <16F877.h>
#fuses HS,NOWDT,NOPROTECT,NOPUT,NOBROWNOUT,NOWRT,NOLVP
#use delay(clock=20000000)
#use rs232(baud=9600, xmit=PIN_E0, rcv=PIN_E1)

void main() {

int value;

aaa:

value=getc(); //seri porttan gelen karakteri alio.

switch (value) {

    case 'a':output_high(PIN_D7); goto aaa; //rs232'den gelen a ise 7.ledi yak.
    case 'b':output_high(PIN_D6); goto aaa; 
    case 'c':output_high(PIN_D5); goto aaa;
    default:output_high(PIN_D0); goto aaa;
}


}

value degiskeni rs232den gelen karakteri alio, switch case dongusune girio, ordaki karakterlerinden birine eşitse , orn 'a' ise 7. ledi yak...

bunun gibi bişiler yapabilirsin....

[Digimensch]

#include <16F877.h> 
#fuses HS,NOWDT,NOPROTECT,NOPUT,NOBROWNOUT,NOWRT,NOLVP 
#use delay(clock=20000000) 
#use rs232(baud=9600, xmit=PIN_E0, rcv=PIN_E1) 

void main() { 

int value; 

aaa: 

value=getc(); //seri porttan gelen karakteri alio. 

switch (value) { 

    case 'a':output_high(PIN_D7); goto aaa; //rs232'den gelen a ise 7.ledi yak. 
    case 'b':output_high(PIN_D6); goto aaa; 
    case 'c':output_high(PIN_D5); goto aaa; 
    default:output_high(PIN_D0); goto aaa; 
} 


}

Bu Kodun Pic Assembler'de yazilisi nasil olur??
Yani Pic asm ile ayni bu kodu nasil yazabiliriz??
saygilar