Giao tiếp RS232 trên PC

[than50ddt]

chao cac anh.gio em dang lam giao dien vb truyen du lieu tu 8051 len pc, ma ko biet lam sao ca.co ai co tai lieu ko cho em voi

[than50ddt]

giao dien viet bang vb nha

[manhcddt08b]

chương trình mô phỏng cổng COM ảo xài nhu thế nào nhỉ.....????ai bit chỉ cho mình zới ("-")

[manhcddt08b]

pac nao có chương trình giao tiếp PC với 16f877a cho em xin, để chạy thử tham khảo:-??

[stupid11]

Nguyên văn bởi manhcddt08b

pac nao có chương trình giao tiếp PC với 16f877a cho em xin, để chạy thử tham khảo:-??

http://www.picvietnam.com/forum/showthread.php?t=9276

Bạn vào luồng này nhé..mình có gửi file hướng dẫn lập trình giao tiếp máy tính với PIC dùng cổng com ảo...

[student_dtvt]

Mấy bác cho em hỏi cái này. Em truyền nhận dữ liệu giữa 16f877 và VB6 đã nhận đc nhưng chỉ với thạch anh 4000000Hz, khi thay đổi cái này thì lại không nhận được. Em làm với kit thạch anh 24Mhz ko thể nhận dữ liệu được. Mong các bác chỉ giáo giùm em với.

VB:

Private Sub Command1_Click()
On Error GoTo OpenFalse
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Exit Sub
OpenFalse:
MsgBox Err.Description & vbLf + vbCr + "Loi, khong the mo cong. Hay dong cac ung dung dang su dung cong COM"

End Sub

Private Sub Command2_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End
End Sub

Private Sub Command3_Click()
On Error GoTo sendfalse
MSComm1.Output = Text1.Text
Exit Sub
sendfalse:
MsgBox Err.Description & vbLf + vbCr + "Loi, Cong COM chua duoc mo, nhan Connect"
End Sub

Private Sub Form_Load()
With MSComm1
.Settings = cmbBaudRate.Text + "N,8,1"
.RThreshold = 1
.SThreshold = 0
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = Switch(cmbComPort.Text = "COM 1", 1, cmbComPort.Text = "COM 2", 2, cmbComPort.Text = "COM 3", 3, cmbComPort.Text = "COM 4", 4)
End With
End Sub

Private Sub MSComm1_OnComm()
Dim StringIn As String
If MSComm1.CommEvent = comEvReceive Then
StringIn = MSComm1.Input 'Nhan chuoi du lieu to VCOM
Text2.Text = StringIn
End If
End Sub




PIC:
#include <16f877a.h>
#FUSES NOWDT, HS, NOPUT,NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOCPD, NOWRT
#use delay(clock=4000000)
#use rs232(baud=9600, parity=N, xmit=pin_C6, rcv=pin_C7)
#include <stdlib.h>
#byte porta = 0x05
#byte portb = 0x06
#byte portc = 0x07
#byte porte = 0x09
int8 y,i,a,b,c,d,e;
int16 x;
char string[5];
BYTE CONST maled[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x9 0};

void nhan_rs232()
{

for(i=0;i<=4;i++)
{
string[i]=getc();
}
printf("%s",string);
y=0;
x=atol(string);
a=x/10000;
x=x%10000;
b=x/1000;
x=x%1000;
c=x/100;
x=x%100;
d=x/10;
x=x%10;
e=x;

a=maled[a];
b=maled[b];
c=maled[c];
d=maled[d];
e=maled[e];

for(i=0;i<=200;i++)
{
output_A(0b01111);
output_D(a);
delay_ms(1);
output_A(0b11111);

output_A(0b10111);
output_D(b);
delay_ms(1);
output_A(0b11111);

output_A(0b11011);
output_D(c);
delay_ms(1);
output_A(0b11111);

output_A(0b11101);
output_D(d);
delay_ms(1);
output_A(0b11111);

output_A(0b11110);
output_D(e);
delay_ms(1);
output_A(0b11111);
}


}
/*void xoa()
{
for(i=0;i<=4;i++)
{
string[i]=0;
}
}*/
void main()
{
set_tris_b(0);
set_tris_e(0);
while(true)
{
if(y==0)
{
nhan_rs232();
delay_ms(100);

}
}
}


Em làm nhận một số 5 chữ số hiển thị led 7 đoạn

đây là file mô phỏng: http://www.mediafire.com/?d4g26cwn4bx4g8y

[duong.dinh54]

a NgoHaiBac oi! cho e hỏi e đang phải làm bài tập lớn về " Xây dựng xây dựng moodul vào ra ghép nối với cổng rs232 với 8 đầu ra rơ le,dòng điện nhỏ hơn 500mA,8 đầu vào số cách li quang .xây dựng phần mềm giao điện đơn giản trên máy tính cho phép đọc 8 đầu vào và hiển thị kết quả dưới dạng đồ thị điều khiển bằng các nút ấn!!! phải làm ntn hả a?

[chithang00000]

#include <C:\Program Files (x86)\PICC\Devices\16F877A.h>
#use delay(clock=8000000)
#fuses HS, NOWDT, NOPROTECT, NOLVP
#include "D:\chuongtrinh\kt giaotiepmaytinh\sv-09-cd\tai-lieu-dua-sv\LCD\TRUYEN-RS232-LCD\code\LCD_LIB.c"
#use rs232(baud=9600, xmit=PIN_C6, rcv=PIN_C7, stream=MYPC)

int8 temp;
char buffRev[16];
int8 idx = 0, i = 0;
void displayOnLCD(void);

void main(void)
{
lcd_init();
while(1)
{
if(0 != kbhit())
{
temp = fgetc(MYPC);
if(temp=='$')
{
for(i=0; i<sizeof(buffRev); i++) buffRev[i]= ' ';
continue;
}
else if(temp=='#')
{
for(i=0; i<idx; i++)
{
putc(buffRev[i]);
}
idx = 0;
displayOnLCD();
continue;
}
if(idx<16)
{
buffRev[idx++] = temp;
}
}
}
}

void displayOnLCD()
{
lcd_init(); // Init LCD.
lcd_gotoxy(1,1);
printf(lcd_putc, "%s", buffRev);
lcd_init(); // Init LCD.
lcd_gotoxy(1,2);
printf(lcd_putc, "%s", buffRev);
}

Bài trên là code của màn hình LCD điều khiển qua cổng Com nhưng mới được 1 hàng 16 cột ah, Bác nào giúp e sữa đoạn chương trình trên thành 2 hàng 16!!!, E thanks 1000 cái trước. Gà con.

[chithang00000]

Dim RecvMsg As String
Option Explicit

Private Sub Form_Load()
With MSComm1
.CommPort = 2 ' Using Com2
.Settings = "9600,N,8,1"
.InBufferSize = 1024 'bo dem nhan 1024K
.OutBufferSize = 1024 'do dem xuat 1024K.
.SThreshold = 1 ' cho phep ngat khi nhan.
.RThreshold = 1 '
.InputLen = 0 ' doc toan bo bo dem...
.InputMode = comInputModeText
If .PortOpen = False Then
.PortOpen = True
End If
End With
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
RecvMsg = RecvMsg + MSComm1.Input ' doc ve du lieu nhan tu cong COM...
End Select
txtRecvMsg.Text = RecvMsg ' hien thi len textbox chuoi nhan..
End Sub

Private Sub CmdSendMsg_Click()
Dim SendMsg As String
RecvMsg = ""
SendMsg = "$" + txtSendMsg.Text + "#"
MSComm1.Output = SendMsg
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
Else
MSComm1.PortOpen = False
End If
End
End Sub



Trên đây là đoạn chương trình từ VB qua cổng Com điều khiển xuống pic, nhưng mới chỉ được có 1 hàng 16 cột ah! bác nào bik gửi 2 hàng 16 cột giúp e sữa đoạn chương trình trên cái. Cám ơn các huynh trước nhoa!!

[thuylien115]

bắc cho em hỏi sao em load về mà em không mở được vậy .lỗi tùm lum hết ,em là mem mới bắt đầu từ số o về c++ .em dùng vs2010 để mở

[thaihevip]

Hiện nay tôi đang mở lớp đào tạo khóa học vi điều khiển 8051,pic và avr
Khóa học bao gồm các nội dung sau.Nội dung khóa học bao gồm 4 phần như sau:
*Phần 1
-Làm quen với ngôn ngữ lập trình C
-Làm quen với vi điều khiển pic,8051 và avr
*Phần 2
-Lập trình điều khiển led đơn,mở rộng port cho chip để điều khiển hàng trăm led đơn với đầy đủ các hiệu ứng.
-Lập trình điều khiển led 7 đoạn
-Lập trình điều khiển led ma trận
-Lập trình điều khiển LCD
-Lập trình ngắt
-Lập trình giao tiếp I2C
-Lập trình giao tiếp SPI
-Lập trình giao tiếp UART
*Phần 3
-Lập trình mã hóa và giải mã tín hiệu điều khiển từ xa tivi sony
-Lập trình mã hóa giải mã tín hiệu hồng ngoại
-Lập trình mã hóa giải mã tín hiệu RF
-Lập trình đồng hồ hẹn giờ
-Lập trình đồng hồ vạn niên
-Lập trình đặt mật khẩu bảo vệ thiết bị
-Lập trình hiển thị giá trị thực
-Lập trình điều khiển hệ thống đèn giao thông có phím đặt thời gian
-Lập trình điều khiển led ma trận giao tiếp máy tính 8x32 và 16x64,…,
-Lập trình giao tiếp máy tính
-Lập trình đo điện áp ADC
-Lập trình đếm sản phẩm
-Lập trình bàn phím điện thoại
-Lập trình phần mềm tra mã led matrix
*Phần 4
-Hướng dẫn vẽ mạch mô phỏng trên protues
-Hướng dẫn vẽ mạch in trên protues và trên altium
-Hướng dẫn làm 1 số mạch ứng dụng
-Thiết kế mạch điều khiển từ xa chống nhiễu
*Đối tượng tham gia khóa học bao gồm
-Những người đam mê lĩnh vực điện-điện tử
-Những người muốn tìm hiểu để biết
-Sinh viên,kỹ sư,…
Tất cả mọi người đều có thể tham gia khóa học này
*Học phí:
Học phí áp dụng cho tất cả các học viên đều như nhau 2.000.000 đồng/khóa.
-Tôi cam kết sẽ dạy đầy đủ các nội dung nói trên chỉ trong 1 khóa học 2 triệu.
-Sau khi hoàn thành khóa học nếu các học viên vẫn được hỗ trợ nếu chưa hiểu rõ các nội dung mình đã học.
*Hình thức học
-Đối với các học viên tại nội thành Hà Nội có thể đến học tại nơi,học trực tiếp.
-Đối với các học viên ở xa có thể học trực tuyến thông qua teamview,yahoo,skype
-Học viên có thể chọn học pic,avr hoặc 8051
*Địa chỉ liên hệ
Mail: thaihetoday@zing.vn
Yahaoo: thaihe_vip
Điện thoại: 0166.495.1093

[knnhubi]

https://t.me/pump_upp - best crypto pumps on telegram
Make 1000% and more within 1 day, join channel @pump_upp !