Terima Kasih Pak Yan info nya .
satu lagi pertanyaan ku
var1 = Mid(var1, 2, Len(var1))
Apa arti instruksi di atas?
Tq
Salam
Paulus W
--- On Sun, 6/15/08, Yandri Hidaya <[EMAIL PROTECTED]> wrote:
From: Yandri Hidaya <[EMAIL PROTECTED]>
Subject: Re: [Programmer-VB] Mau tanya tentang MSComm
To: Programmer-VB@yahoogroups.com
Date: Sunday, June 15, 2008, 9:46 PM
1. Loop Until InStr(RS, vbCr)
artinya looping terus hingga didalam string RS ditemukan karakter
Enter atau Chr(13)
vbCr = Chr(13) atau Ascii Enter pd keyboard
2. If Len(var1) >= 1 Then
Len = nama fungsi Panjang suatu karakter/string
jadi If Len(var1) >= 1 -> Jika Panjang String 'Var1'
lebih besar dari 1 .....
3. label1.Caption = Trim(Str(Val( var1)))
label1 akan mengambil nilai integer (value) 'Var1', lalu
dirubah menjadi bentuk string
dan akhirnya di potong/trim kiri-kanan string2 tsb karakter
spasi trim(' a ') = 'a'
val('10')=10
val('10x')=10
str(10) = '10'
begitu.. kurang lebihnya mohon maaf
--- On Sun, 6/15/08, HERTZ ELECTONICS INSTITUTE <[EMAIL PROTECTED] com>
wrote:
From: HERTZ ELECTONICS INSTITUTE <[EMAIL PROTECTED] com>
Subject: [Programmer- VB] Mau tanya tentang MSComm
To: Programmer-VB@ yahoogroups. com
Date: Sunday, June 15, 2008, 3:52 AM
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
