VB6 Data logger example program RS232 serial communication

Introduction of VB6 Data Logger Program:-

This is the second of data logger project using PIC18f452. In the previous post we have discussed the hardware of data acquisition system and now in this post we will learn how we can develop a simple data logger to log the process inputs using visual basic VB6.pic datalogger 18f

Following components are used in this project:-
1. Text box
2. Command buttons
3. Com control for serial communication.

Steps to develop a simple program in VB6 for serial communication:-
1. Open a new project and using standard exe in vb6.
2. select text box and drag and drop it on form, re-size it and change with following properties of text box in properties section. (a) enable the multi-line , (b) in text property delete the text1.
3. drag and drop two commands button and change their caption in property section by "Connect" and "Disconnect"
4. Go toll bar, click on project, open component addition menu, find Ms-comm Control 6, and add this to left component section.
5. Drag and drop the MsComm on the form any where.
6. Copy and paste the following code in the code section of the project, compile and enjoy.

Photograph of the Data logger:-

Code (program) in VB6:-

The VB6 code for the data logger is as under:-
Private Sub Command1_Click()
If (MSComm1.PortOpen = False) Then
MSComm1.PortOpen = True
End If
Command1.Enabled = False
Command2.Enabled = True
End Sub

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

Private Sub Form_Load()
With MSComm1
.CommPort = 5
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,N,8,1"
.InputLen = 127
.SThreshold = 1
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
If (MSComm1.PortOpen = True) Then
MSComm1.PortOpen = False
End If
End Sub
Private Sub MSComm1_OnComm()
Dim Buffer As String

Select Case MSComm1.CommEvent
Case comEvReceive
'Text1.Text = " "
Buffer = MSComm1.Input
Text1.Text = Text1.Text & Buffer
End Select
End Sub

temperature data logger using lm35, microcontroller and lcd purpose of c5 and c6 of pic18f4550 pic programming with max485 pic based data logger lcd pic18f452 free pic based timer program in mikroc free how to interface alphanumeric keypad in mikroc 18f4520 datalogger