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
