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