Send command with MScomm

[DavidS]

Good morning all,

Last week I gave my computer to a technician to repair a motherboard issue. They re stalled windows 7 on my computer, but now my 'Visual basics 6.0' software can't find anything. I am trying to remember how use MSComm1.

Private Sub Form_Load()

ComPort.Settings = "9600,N,8,1"
ComPort.Handshaking = comNone
ComPort.CommPort = 1
ComPort.InputLen = 0
ComPort.InputMode = comInputModeText
ComPort.RThreshold = 1
ComPort.RThreshold = 1
ComPort.SThreshold = 0
ComPort.InBufferCount = 0
ComPort.OutBufferCount = 0
ComPort.InBufferSize = 0
ComPort.OutBufferSize = 0

End Sub



Private Sub Send_Click(Index As Integer)
Dim DataStr As String
DataStr = SentOut.Text
  If ComPort.PortOpen = False Then
     ComPort.PortOpen = True
    End If
    
Select Case Index

       Case 0
       
  If ComPort.CommEvent Then
     DataStr = ComPort.Input
     Recieved.Text = Recieved.Text & DataStr
     
    End If
   
      Case 1
      
  MsgBox "Error Recieve Not Allowed"
  
    End Select
    
End Sub

[DataMiser]

I do not see any code there that outputs anything.
You do have a receive attempt under a button click which is not a good place for it.

To send using mscomm you have to use the output method
To receive you should have the code in the on_Comm event.

[DavidS]

Thank you,

I found a copy of my EXE file, but I can no longer open it in Visual Basics. Is there a way to view my original EXE code again?

[Arnoutdv]

An executable can not be opened with VB.
You do need the project including all the files (.vbp, .frm, .cls, .bas)

[rukmi]

Helo Dav,
I think same like this https://www.bukalapak.com/p/elektron...=normal_seller

Thanks,
Badjuri.