Giao tiếp máy tính PIC16F877A CCS (Part 2)

Chào các bạn trong bài đăng này mình sẽ hướng dẫn các bạn gaio tiếp với máy tính bằng phần mềm VB 6.0 sử dụng PIC16F877A.

Ảnh mô phỏng protues.

đếm từ 0 - 99 sử dụng vb6.0 pic16f877a ccs

Đây là code cho Vi Điều Khiển.

#include <16f877a.h>
#include <def_877a.h>
#fuses NOLVP,NOWDT,PUT,XT
#use delay(clock=4000000)
#use rs232(baud=9600,parity=N,xmit= PIN_C6,rcv=PIN_C7)
#bit led4 =porta.1
#bit led3 =porta.2
int maled[10]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F};
int16 giatri;
int16 giatri1,giatri2,tram,nghin;
char a[10];
void hienthi(int16 giatri)
{
nghin = giatri/10;
tram = (giatri - nghin*10);
portb=maled[nghin];
led4=0;
delay_ms(50);
led4=1;
portb=maled[tram];
led3=0;
delay_ms(50);
led3=1;
}
void main()
{
a[0] = getc();
a[1] = getc();
giatri1 = a[0];
giatri1 = (giatri1 - 48);
giatri2 = a[1];
giatri2 = (giatri2 - 48);
giatri = giatri1*10 + giatri2;
trisc=0x80;
trisb=0x00;
trisa=0x00;
while(true)
{
hienthi(giatri);
giatri++;
if(giatri==100)
{
giatri = 0;
}
}
}

Đây là giao diện VB.

Để hiểu rõ hơn về nó các bạn download project về xem nha có file mô phỏng protues và VB luôn nha.

Link download project.
http://adf.ly/11512871/7seg-vb60

Giao tiếp máy tính PIC16F877A CCS (Part 2)

Share this

Author : Unknown

Related Posts