![]() |
Em chào các bác, em thấy mọi người thảo luận xôn xao về giao tiếp cổng COM, cÓ rất nhìu bài hay luôn, nhưng em chưa thấy bác nào nói về tập lệnh AT.
Chẳng dấu là : em đang tìm hiểu tập lệnh AT, sau khi thiết lập giao tiếp với cổng COM, em muốn gửi, nhận tin nhắn bằng tập lệnh AT qua GSM modem G2403R . Bác nào đã từng nghiên cứu về tập lệnh AT, cũng như là gửi nhận tin nhắn dùng tập lệnh AT xuất ra cổng COM -> GSM modem G2403R thì giúp em với. Hiện tại em chưa biết viết câu lệnh như thế nào để xuất những câu lệnh AT ra cổng COM........................ |
Nếu viết bằng VB thì mình có xử lý được hiển thị giá trị thực không. đầu vời ccomms là int còn hiển thị ra giá trị cstring
|
bài tập truyền nhận cơ bản đầu tiên
các bác giúp em với, nghĩ mãi mà chưa làm được , chương trình của em nó chỉ nhận thôi, nhưng khi nhận xong thì PIC lại không thấy hiển thị, còn truyển ngược lại thì chưa đươc
code trong Pic: #include <16F877a.h> #include <DEFS_16F877A.h> #fuses HS,NOWDT,NOPROTECT,NOLVP #use delay(clock=20000000) #use rs232(baud=9600,parity=n, xmit=PIN_C6, rcv=PIN_C7) unsigned char dulieu; #INT_RDA void data_receive(void) { dulieu = getc(); putc(dulieu); } void main() { set_tris_a(0); ENABLE_INTERRUPTS(GLOBAL); ENABLE_INTERRUPTS(INT_RDA); while(true) { output_a(dulieu); delay_ms(2000); } } code trong VB: Private Sub cmdClear_Click() Text1.Text = "" End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdSend_Click() MSComm1.Output = Text2.Text End Sub Private Sub Form_Load() cmdSend.Caption = "&Send" Text1.Text = "" Text2.Text = "" Text1.Enabled = False cmdExit.Caption = "&Exit" With MSComm1 .Settings = "9600,N,8,1" .CommPort = 4 .RThreshold = 1 .SThreshold = 0 .InputMode = comInputModeText .InputLen = 0 .Handshaking = comNone .InBufferSize = 1024 .OutBufferSize = 1024 If .PortOpen = False Then .PortOpen = True End If End With End Sub Private Sub MSComm1_OnComm() If MSComm1.CommEvent = comEvReceive Then Text1.Text = Text1.Text + Asc(MSComm1.Input) End If End Sub (em tìm mãi mà không thấy chỗ nào để viết code.) |
Pak hải ơi !cho em hỏi về rs232 cái:em muốn bít về nó mà em thì chưa bít j cả.pak có thể giúp em hỉu đôi chút về nó ko.có tài liệu nào bằng tiếng việt nói về nó ko pak.cám ơn pak nhìu
|
pak nao co tài liệu tiếng việt về cổng com ko.em đang rất cần.thanks các pak nhìu,
|
Em đang tìm hiểu cách giao tiếp cổng COM bằng VC++ bằng cách sử dụng thư viện inpout32 qua win 32.Bác nào biết về cái này thì hướng dẫn e với.
|
Xin chào! Mình thử giao tiếp mãi mà ko dc không biết sai sót ở đâu. mình dùng cachs bật các led ở Port b để báo là có truyền thông
#include <16f877a.h> #include <def_877a.h> //#device *=16 ADC=8 #FUSES NOWDT, HS, NOPUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOWRT #use delay(clock=20000000) #use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bi ts=9) char buf; int a; // Ngat Truyen thong #INT_RDA Receive_isr() { buf=getc(); putc(buf); PORTB=0x00; Các cao thủ KT hộ với. tôi nghi là sai phần khai báo(đánh dấu), nhưng mục này thường copy nên ko rõ bản chất |
Mình cũng đang làm RS232, đang gặp khó khăn về buffer của RS232. Khi chương trình PIC gởi lên một chuổi nào đó, trình ứng dụng đọc chuỗi này chưa hết thì nó vẫn còn trog bộ đệm làm ảnh hưởng đến lệnh sau đó. Có ai đó chỉ mình xóa bộ đệm của RS232 giúp mình với.
|
anh Hải ơi, em làm theo cái TUT của anh nhưng đến đoạn thêm điều khiển AxtiveX Microsoft Communications 6 thì bị lỗi "don't send". Em dùng bản Visual Studio 6 Enterprise Edition.
|
Bạn cài lại VS :D
|
Trích:
|
Nếu khôg được thì cài lại win đi haha hoặc có thể thử kiếm cái đĩa cài VS khác xem sao
|
sau bước 1 của TUT, xóa 2 nút OK, CANCEL và dòng văn bản tĩnh TODO thì VC báo lỗi don't send và thoát ra ngoài, vậy là lỗi gì vậy các anh?
|
Mình đang làm cái VB để làm giao diện với VXL.
Mình đã thiết kế như các bạn nói ở trên nhưng không hiểu sao khi VXL của mình gửi ra một giá trị kiểu INT (là số 15 chẳng hạn) thì trên giao diện không hiển thị đúng số 15 mà nó hiển thị một kiểu khác. Làm thế nào để hiển thị giá trị thực từ VXL gửi ra. Mong các bạn giúp đỡ . đây là code VB của mình 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 |
dữ liệu mà VB nhận ở dạng internal number , để hiển thị ra màn hình bạn phải chuyển về dạng text string :
bạn thử thay Text2.Text = Cstr(StringIn) hoặc Text2.Text = Asc(StringIn) xem |
Mình đã xử lý được rồi. thanks các bạn đã giúp đỡ
Chỉ cần tách các kí tự nhận được ra rồi hiển thị lên là OK. |
1 Attachment(s)
Vẫn là vấn đề giao tiếp qua RS 232. Hôm trước đệ có làm giao tiếp PC - RS 232 -PIC theo một chiều từ PC - PIC, phần giao tiếp với cổng COM trên máy tình thì dùng C# và đã gửi được tín hiệu qua PIC rồi, tuy nhiên đoạn chương trình ở PIC đệ viết bằng CCS và nó chạy không theo ý đồ của đệ 'ý của đệ là sau khi check được LED nào thì LED đó sẽ sáng cho đến khi nào không check nữa' Vậy nhờ các huynh chỉ giáo!
Đây là đạn code: Code:
#include <16f877a.h> và kèm theo C# and protues: |
Trích:
Thân, |
Em mô phỏng bởi Protues với cổng COMPIM, trên PC em tạo giao diện viết bởi C#, chương trình đã chạy và truyền tín hiệu qua PIC, nhưng khi check các boxcheck trên giao diện thì không theo ý muốn. Ví dụ: khi em check box 1 thì tương ứng với LED1 sáng sau đó chuyển sang check Box2 thì LED2 sáng [nhưng] LED1 lại tắt mất tương tự với các LED khác cũng vậy. Em đã nghiên cứu rất nhiều rồi!!!???
|
Trích:
Bạn nên dùng một thanh ghi đệm, khởi tạo giá trị của nó bởi giá trị của PORTD, sau đó cập nhật các bit của thanh ghi đệm này và ghi vào PORTD, mỗi khi bạn muốn cập nhật 1 bit nào đó của PORTD. Thân, |
chương trinh dùng ngắt RDA rồi còn dùng kbhit() chi nữa... cái này dùng VB6 thấy dễ lắm mà.
|
1 Attachment(s)
Đây là code trong C# của đệ:
Code:
using System; |
Sao không thấy huynh nào giúp mình vậy??!
|
Đến bây giờ đệ vẫn chưa tìm ra C# báo lỗi là do đâu? Khi đệ gửi chuỗi ký tự từ PIC lên nó cũng báo lỗi tương tự? Mong các huynh chỉ giáo!
|
Hi bạn TANDEM!
Mình đã xem Form truyền nhận dữ liệu viết bằng C# của bạn. Mình có một vài góp ý nhỏ như sau: - Để có một Form truyền nhận dữ liệu tối ưu hơn thì bạn nên viết thêm phần cho phép người dùng lựa chọn cổng COM. Ở đây có thể máy tính của bạn là COM4 nên mình thấy bạn chỉ để là COM4. - Hàm truyền bạn dùng là Writeline, vậy thì hàm nhận cũng nên dùng là Readline. Ở đây có lẽ mục đích truyền nhận chắc cũng không quá phức tạp (chưa cần đến chuyển đổi cơ số) nên dùng hai lớp này là cũng OK rồi. Mình Test thử với Serial Port Monitor của CCS thì phần mềm của bạn vẫn ko thấy truyền nhận được. Bạn xem lại nhé! Có j ta trao đổi tiếp |
1 Attachment(s)
Cám ơn bạn Delfy_Coltech! Hiện mình vẫn đang vật lộn với việc truyền nhận đó.
- Cho phép lựa chọn nhiều cổng COM cũng như các thông số khác thì mình đã viết được rồi. - Khi giao tiếp với Serial Port Monitor của CCS thì việc truyền nhận diễn ra hoàn toàn suôn sẻ, hai bên đều truyền và nhận đúng các số và ký tự. Khi truyền từ PIC đến thì cả Serial Port Monitor của CCS và C# đều hiện các ký tự lạ. Mình không hiểu lý do tại sao?? |
có lẽ bạn xem lại khai báo baurate
mình cũng đang gặp vấn đề khi dung hspll để nhân xung thạch anh (10M*4) thì truyền nhận bị sai, có ký tự lạ ( nếu khai báo 10M thì truyền nhận chính xác) , có lẽ là sai baurate( ko biết có cần phải tính lại baurate ko nhỉ, ví dụ :nhân 4, hoặc chia 4 chăng hạn??) |
Mình chưa hiểu hết ý bạn thienkien. Mình đã thay đổi tần số bằng 10M rồi nhưng vẫn không đạt được kết quả truyền chính xác.
|
1 Attachment(s)
hi TanDem! hôm qua mình chưa xem kỹ câu hỏi của bạn,bạn dùng thạch anh thực bao nhiêu thì khai báo bấy nhiêu thôi!! theo mình bạn nên thêm 1 ký tự để nhận biết kết thúc chuỗi :ví dụ ký tự '\13' chăng hạn: Com4.WriteLine(tBox_trans.Text+(char)13);
ban thử đoạn code dưới PIC này xem: #include<16f877a.h> #fuses HS,NOWDT,NOPROTECT #use delay(clock=20M) #use rs232(baud=9600,xmit=pin_c6,rcv=pin_c7,bits=8,pari ty=N) #use fast_io(b) int8 dodai,dem=0; int input_ready; char mang[50]; #int_rda void nhan() { //disable_interrupts(int_timer0); //if(kbhit()) mang[dem]=getc(); putc(mang[dem]); if(mang[dem]==0x0d) { dodai=dem; mang[dem]='\0'; input_ready=1; dem=0; } dem++; // enable_interrupts(int_timer0); } void main() { int16 i,j; input_ready=0; set_tris_b(0); enable_interrupts(global); enable_interrupts(int_rda); output_b(0); while(1) { if(input_ready==1) { printf("CHUOI=%s",mang); input_ready=0; dem=0; } //co the xuat ra portB de kiem tra bang led ne for(j=0;j<dodai-1;j++) { output_b(mang[j]); delay_ms(500); } } } nếu ko được bạn tải cái rs232tester về kiểm tra nhé |
Hi thienkien, dù sao cũng cám ơn bạn. Nhưng hình như tôi thì ở trái đất còn bạn thì ở sao hỏa rồi cả hai đều ngồi trên chiếc cân.... Sau đó thì thế nào nhỉ?
|
1 Attachment(s)
Trích:
Đầu tiên bạn cứ thử truyền các mã hex xem nó nhận thế nào đã! Rồi mới truyền số hoặc string. Thử với cái Terminal C# này xem sao. Good luck! |
3 Attachment(s)
các bạn xem thư chương trình này giúp mình nha:chỉ cần truyền 1 ký tự từ pc xuống pic và phản hồi lại ký tự đó.nhưng có chút vấn đề ko biet phần cứng hay mềm nữa:
Code:
#include <16f877a.h> |
xin chào hoangnguyen_qn
mình nghĩ đoạn code của bạn không có vấn đề,ban nên kiểm tra lại mạch con MAX232 dùng đồng hồ đo chân 2 và 6 nếu được khoảng +-7v trở lên la ok |
chào mọi người
mình muốn dùng Matlab truyền dãy số xuống Pic 16f877a nhưng mình chỉ truyền được dãy số 2 bytes ,từ 3 bytes trở lên PIc chỉ nhận được số đầu tiên.Theo mình hiểu trong PIC6f877a thanh ghi đệm RCREG chỉ có 2 bytes,vậy có cách nào tạo ra một bộ đệm lớn hơn (khoảng 4 bytes) bằng phần mềm không? |
kính gửi anh ngohaibac
em đang viết chương trình giao tiếp cổng com giửa máy tính và đầu cân DIOMAT S bằng vb. nhưng do ko biết khung truyền như thế nào. Có 1 phần mềm củ của nhà cung cấp nhưng do ko thích nghi với thời điểm hiện tại, phần mềm này chủ yếu nhận dử liệu cân về máy tính. Em đã dùng phương pháp nối hai máy tính với nhau qua cổng com rs232 và dùng phần mềm terminal để text xem phầm mềm củ của nhà cung cấp gửi dử liệu gì qua đầu cân. Lúc này em nhận được dử liệu HEX trên terminal như thế này:02 30 31 23 54 47 23 03 11 02 30 31 23 54 47 23 03 11 02 30 31 23 54 47 23 03 11 02 30 31 23 54 47 23 03 11 02 30 31 23 54 47 23 03 11 và vòng lặp cứ tiếp tục như vậy.Em ko hiểu họ dùng ký tự nào để gửi qua đầu cân . Mong anh giúp em cảm ơn |
Trích:
Ở đây theo mình nghĩ thì họ gửi theo kiểu binary, mỗi lần gửi 1 byte có giá trị tương ứng với các byte mà bạn đã xem đó. Bạn viết lại chương trình bằng VB hoặc là dùng chính Terminal để gửi các byte này xem (save các giá trị vào text file rồi gửi 1 phát). Chúc bạn thành công. |
cảm ơn anh đã hồi âm cho em.
Để truyền dử liệu qua đầu cân DISOMAT S em đã viết code như sau: Private Sub Form_Load() MSComm1.CommPort = 3 MSComm1.Settings = "9600,n,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen = 500 'MSComm1.Handshaking = False MSComm1.InputMode = comInputModeText MSComm1.RTSEnable = True MSComm1.DTREnable = True MSComm1.PortOpen = True MSComm1.ParityReplace = "" MSComm1.NullDiscard = True End Sub Sub delay(ByVal giay As Double) Dim star As Double star = Timer While (Timer < star + giay / 1000) DoEvents Wend End Sub Private Sub Timer3_Timer() Dim BytesToSend(0 To 17) As Byte ' khai báo m?t m?ng 2 ph?n t? Dim Buffer As Variant ' l?u tr? d? li?u vào m?ng ki?u byte ? trên BytesToSend(0) = &H2 BytesToSend(1) = &H30 BytesToSend(2) = &H31 BytesToSend(3) = &H23 BytesToSend(4) = &H54 BytesToSend(5) = &H47 BytesToSend(6) = &H23 BytesToSend(7) = &H3 BytesToSend(8) = &H11 BytesToSend(9) = &H2 BytesToSend(10) = &H30 BytesToSend(11) = &H31 BytesToSend(12) = &H23 BytesToSend(13) = &H54 BytesToSend(14) = &H47 BytesToSend(15) = &H23 BytesToSend(16) = &H3 BytesToSend(17) = &H11 ' cho vào m?t bi?n Variant Buffer = BytesToSend() 'ghi vào c?ng n?i ti?p MSComm1.Output = Buffer delay 600 End Sub em đã truyền được rồi và dử liệu đầu từ đầu cân cũng đã gửi lại máy tính. nhưng em thấy cách viết code như trên của em chưa tốt lắm mong anh nào có cách hay hơn chỉ giúp. |
chào các bác em định làm bài tập là LCD giao tiếp máy tính, tức là mình xuất 1 ký tự trên máy tính xuống LCD nhưng lại không có tài liệu
ai có thì cho em xin với Cám ơn trước |
Trích:
|
Trích:
|
Múi giờ GMT. Hiện tại là 09:21 AM. |
Tên diễn đàn: vBulletin Version 3.8.11
Được sáng lập bởi Đoàn Hiệp.
Copyright © PIC Vietnam