|
Tài trợ cho PIC Vietnam |
Giao tiếp cổng COM và LPT RS232, RS485 và LPT là những giao tiếp cơ bản và kinh điển khi mới học về vi điều khiển... |
|
Ðiều Chỉnh | Xếp Bài |
30-03-2012, 09:55 AM | #1 |
Nhập môn đệ tử
Tham gia ngày: Feb 2012
Bài gửi: 4
: |
Cần giúp đỡ về Đồ thị teechart 7.0
Mình đang làm 1 bài tập về truyền nhận, xuất tín hiệu ADC lên VB. Mình làm được rồi nhưng còn phần đồ thị thì mình vẽ gặp sự cố
Code VB của mình: Dim KETNOI As Integer Dim adc As String Dim Timer As Long Private Sub cmdclear_Click() txtadc.Text = "" txtdien_ap.Text = "" TChart1.Series(0).Clear End Sub Private Sub cmdConnect_Click() Dim comport As Integer Dim baudrate As String '=========================== If cmbcom.Text = "" Then MsgBox " BAN CHUA CHON CONG COM.", vbExclamation + vbOKOnly Else comport = cmbcom.ListIndex + 1 End If If cmbbaud.Text = "" Then MsgBox " BAN CHUA CHON TOC DO BAUD.", vbExclamation + vbOKOnly End If If MSComm1.PortOpen = False Then With MSComm1 .CommPort = cmbcom.ListIndex + 1 .Settings = cmbbaud.Text .RThreshold = 1 .InputMode = comInputModeText .InBufferCount = 0 .PortOpen = True End With End If '======================= Label4.BackColor = vbRed Label3.Caption = "ON" & "" Label3.BackColor = vbRed Label3.ForeColor = vbBlack KETNOI = 1 'End If End Sub Private Sub cmdexit_Click() End End Sub Private Sub cmdInconnect_Click() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '============================== Label4.BackColor = &H404040 Label3.BackColor = &H404040 Label3.Caption = " " & "OFF" Label3.ForeColor = vbRed KETNOI = 0 End If End Sub Private Sub cmdstart_Click() Timer = 1 If KETNOI = 1 Then If MSComm1.PortOpen = True Then MSComm1.Output = "1" Else MsgBox "KIEM TRA LAI KET NOI", vbQuestion + vbOKOnly End If Timer1.Enabled = True With TChart1.Series(0) .AddXY Timer * 10, Val(txtdien_ap), "", vbRed End With End Sub Private Sub cmdstop_Click() MSComm1.Output = "0" End Sub Private Sub Form_Load() txtadc.Text = "" txtdien_ap.Text = "" TChart1.Series(0).Clear End Sub Private Sub MSComm1_OnComm() Dim giatri As String Dim STRINGIN As String Dim buffer As String If MSComm1.CommEvent = comEvReceive Then STRINGIN = MSComm1.Input giatri = Asc(STRINGIN) txtadc.Text = giatri buffer = Val(txtadc) * 5 / 256 txtdien_ap.Text = buffer With TChart1.Series(0) .AddXY Timer1 * 10, Val(txtdien_ap), "", vbRed End With End If End Sub Private Sub Timer1_Timer() Timer = Timer1 + 1 'Timer.Enabled = True End Sub P/s:Và cho mình hỏi thêm giờ mình muốn truyền 5byte thì phải làm sao . Cái đó là điểm + trong bài tập của mình |
11-04-2012, 04:37 PM | #2 |
Nhập môn đệ tử
Tham gia ngày: Feb 2012
Bài gửi: 5
: |
em đang làm điều khiển động cơ và cũng muốn vẽ đồ thị như anh.cho em hỏi nếu mà mình muốn truyền bản tin từ pic lên bao gồm các thông số ví dụ như vận tốc đăt, vận tốc thực tế, chế độ... thì tạo bản tin gửi như thế nào. Em chỉ biết là trong ccs có hàm ví dụ như printrf. em muốn truyền bản tin lên như sau printf("%u_%u_%u",vantocdat,chedo,vantoctt) báo lỗi. hàm này chỉ cho truyền lên một biến thì phải. Mong các anh giúp với. Thân
thay đổi nội dung bởi: duytung125, 11-04-2012 lúc 06:17 PM. |
|
|