Dear All;
Mau tanya penjelasan tentang program ini.
Dimana program ini sepertinya menerima data dari RS232/comport.
Dim var1$, i&, RS As String
If (MSComm1.PortOpen = False) Then
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 13
MSComm1.PortOpen = True
Else
End If
Do
DoEvents
RS = MSComm1.Input
var1 = var1 & RS
Loop Until InStr(RS, vbCr)
If Len(var1) >= 1 Then
var1 = Mid(var1, 2, Len(var1))
MSComm1.PortOpen = False
label1.Caption = Trim(Str(Val(var1)))
End If
Aku tidak ngerti arti instruksi ini
1. Loop Until InStr(RS, vbCr)
2. If Len(var1) >= 1 Then
3. label1.Caption = Trim(Str(Val(var1)))
Tq
