• State Not Answered
  • Locked Locked
  • Replies 25 replies
  • Subscribers 21 subscribers
  • Views 4757 views
  • Users 0 members are here
2025 survey

We are running a survey to help us improve the experience for all of our members. If you see the survey appear, please take the time to tell us about your experience if you can.

Options
Related
How was your experience today?
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

How to communicate between RS232 VB6.0 & 8051 keil C

Fong Kwong

I want to have some leds in P2.0~2.3 and show off the "ON" lamp in VB6.0 program though RS232 during the sensors are +5V output to P1.0~1.3 89S52 MCU. But it appears many errors and doesn't work in PC. Please advise me the comments for the following code. Thanks a lot!!

Parents
  • 0 in reply to Fong Kwong 

    By the VB6.0 for the following codes:

Private Sub Command5_Click()
tex1.Text = "connectiong"
MSComm1.Output = "0"
delayms 100
buf = MSComm1.Input
If buf = "2" Then
   LOAD1.FillColor = RGB(0, 255, 0)
   LOAD2.FillColor = RGB(0, 255, 0)
   LOAD3.FillColor = RGB(0, 255, 0)
   LOAD4.FillColor = RGB(0, 255, 0)
Else
   tex1.Text = "fail"
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
   msg = "are u close?"
   code = 65
   Title = "closed"
   return_value = MsgBox(msg, code, Title)
If return_value = 1 Then
   Command5_Click
   MSComm1.PortOpen = False
   End
End If
End Sub
Private Sub Command7_Click()

On Error GoTo OUTPUTERR
Dim i As Integer, iFile As String

iFile = "d:\test.txt"
Do While Dir(iFile) <> ""
    i = i + 1
    iFile = "d:\test-" & i & ".txt"
Loop
Open iFile For Output As #1
Print #1, Text0(0).Text
Directory.Text = iFile

Close #1
Exit Sub
OUTPUTERR:
MsgBox Err.Description, vbCritical, "file failed"

End Sub

Private Sub Command8_Click()
Text0(0).Text = Empty
End Sub
Private Sub Form_Load()
On Error Resume Next
LOAD1.FillColor = RGB(0, 255, 0)
LOAD2.FillColor = RGB(0, 255, 0)
LOAD3.FillColor = RGB(0, 255, 0)
LOAD4.FillColor = RGB(0, 255, 0)
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
   MSComm1.PortOpen = False
   MSComm1.CommPort = 1
   MSComm1.Settings = "1200,n,8,1"
   MSComm1.PortOpen = True
   tex1.Text = "set COM1"
Else
    MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.PortOpen = True
  If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.Settings = "1200,n,8,1"
    MSComm1.PortOpen = True
    tex1.Text = "set COM2"
  Else
    MSComm1.PortOpen = False
    tex1.Text = "no COM"
  End If
End If
End Sub

Private Sub MSComm1_OnComm(Index As Integer)
tex1.Text = "connecting"
MSComm1.Output = "P1.0"
delayms 100
buf = MSComm1.Input
If buf = "0" Then
   LOAD1.FillColor = RGB(0, 255, 0)

ElseIf buf = "1" Then
   LOAD1.FillColor = RGB(255, 0, 0)
   Text0(0).Text = Text0(0).Text + "GasSensor-" + Format(Now, "DD.MMM.YYYY.HH:MM:SS") + vbNewLine
Else
   tex1.Text = "fail"
End If
End Sub

Reply
  • 0 in reply to Fong Kwong 

    By the VB6.0 for the following codes:

Private Sub Command5_Click()
tex1.Text = "connectiong"
MSComm1.Output = "0"
delayms 100
buf = MSComm1.Input
If buf = "2" Then
   LOAD1.FillColor = RGB(0, 255, 0)
   LOAD2.FillColor = RGB(0, 255, 0)
   LOAD3.FillColor = RGB(0, 255, 0)
   LOAD4.FillColor = RGB(0, 255, 0)
Else
   tex1.Text = "fail"
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
   msg = "are u close?"
   code = 65
   Title = "closed"
   return_value = MsgBox(msg, code, Title)
If return_value = 1 Then
   Command5_Click
   MSComm1.PortOpen = False
   End
End If
End Sub
Private Sub Command7_Click()

On Error GoTo OUTPUTERR
Dim i As Integer, iFile As String

iFile = "d:\test.txt"
Do While Dir(iFile) <> ""
    i = i + 1
    iFile = "d:\test-" & i & ".txt"
Loop
Open iFile For Output As #1
Print #1, Text0(0).Text
Directory.Text = iFile

Close #1
Exit Sub
OUTPUTERR:
MsgBox Err.Description, vbCritical, "file failed"

End Sub

Private Sub Command8_Click()
Text0(0).Text = Empty
End Sub
Private Sub Form_Load()
On Error Resume Next
LOAD1.FillColor = RGB(0, 255, 0)
LOAD2.FillColor = RGB(0, 255, 0)
LOAD3.FillColor = RGB(0, 255, 0)
LOAD4.FillColor = RGB(0, 255, 0)
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
   MSComm1.PortOpen = False
   MSComm1.CommPort = 1
   MSComm1.Settings = "1200,n,8,1"
   MSComm1.PortOpen = True
   tex1.Text = "set COM1"
Else
    MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.PortOpen = True
  If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.Settings = "1200,n,8,1"
    MSComm1.PortOpen = True
    tex1.Text = "set COM2"
  Else
    MSComm1.PortOpen = False
    tex1.Text = "no COM"
  End If
End If
End Sub

Private Sub MSComm1_OnComm(Index As Integer)
tex1.Text = "connecting"
MSComm1.Output = "P1.0"
delayms 100
buf = MSComm1.Input
If buf = "0" Then
   LOAD1.FillColor = RGB(0, 255, 0)

ElseIf buf = "1" Then
   LOAD1.FillColor = RGB(255, 0, 0)
   Text0(0).Text = Text0(0).Text + "GasSensor-" + Format(Now, "DD.MMM.YYYY.HH:MM:SS") + vbNewLine
Else
   tex1.Text = "fail"
End If
End Sub

Children
No data