Terima kasih pak Re: [Programmer-VB] Mau tanya tentang MSComm

[ariefwt4milis]

Salam kenal sblmnya, dan maaf bila saya bukan orang yang dituju untuk
menjawab. Sekedar sharing saja..

Fungsi Mid seperti itu artinya mengambil string dari karakter ke-2
sampai terakhir dari var1.

Contohnya kalau var1 = "abcdef"
var1 = Mid(var1, 2, Len(var1))
var1 = Mid("abcdef", 2, 6)
var1 = "bcdef"

Sebagai tambahan, untuk mengambil string dari karakter ke-sekian
sampai terakhir, parameter terakhir bisa dihilangkan, dengan perkataan
lain tidak memerlukan Len(var1).

Best Regards,
ariefwt
Systems Engineer

--- In Programmer-VB@yahoogroups.com, HERTZ ELECTONICS INSTITUTE
<[EMAIL PROTECTED]> wrote:
>
> 
> 
> Terima Kasih Pak Yan info nya .
> &nbsp;
> satu lagi pertanyaan ku 
> var1 = Mid(var1, 2, Len(var1))
> &nbsp;Apa arti instruksi di atas?
> &nbsp;
> Tq
> &nbsp;
> 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)
> &nbsp;&nbsp; artinya looping terus hingga didalam string RS
ditemukan karakter Enter atau Chr(13) 
> 
> &nbsp;&nbsp; vbCr = Chr(13) atau Ascii Enter pd keyboard
> 
> 
> &nbsp;2. If Len(var1) &gt;= 1 Then
> &nbsp;&nbsp;&nbsp; Len = nama fungsi Panjang suatu karakter/string
> &nbsp;&nbsp; jadi&nbsp; If Len(var1) &gt;= 1 -&gt; Jika Panjang
String 'Var1' lebih besar dari 1 .....
> 
> &nbsp;
> 3. label1.Caption = Trim(Str(Val( var1)))
> &nbsp;&nbsp;&nbsp; label1 akan mengambil nilai integer (value)
'Var1', lalu dirubah menjadi bentuk string
> &nbsp;&nbsp;&nbsp; dan akhirnya di potong/trim kiri-kanan string2
tsb karakter spasi&nbsp;&nbsp;&nbsp; trim(' a ') = 'a'
> &nbsp;&nbsp;&nbsp; val('10')=10
> &nbsp;&nbsp;&nbsp; val('10x')=10
> &nbsp;&nbsp;&nbsp; str(10) = '10'
> 
> begitu.. kurang lebihnya mohon maaf
> 
> 
> 
> &nbsp;&nbsp; 
> 
> 
> 
> 
> 
> 
> --- On Sun, 6/15/08, HERTZ ELECTONICS INSTITUTE [EMAIL PROTECTED]
com&gt; wrote:
> 
> From: HERTZ ELECTONICS INSTITUTE [EMAIL PROTECTED] com&gt;
> 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.
> &nbsp;
> Dim var1$, i&amp;, RS As String
> If (MSComm1.PortOpen = False) Then
> &nbsp;&nbsp; MSComm1.CommPort = 2
> &nbsp;&nbsp; MSComm1.Settings = "9600,N,8,1"
> &nbsp;&nbsp; MSComm1.InputLen = 13
> &nbsp;&nbsp; MSComm1.PortOpen = True
> &nbsp; Else
> End If
> Do
> DoEvents
> RS = MSComm1.Input
> var1 = var1 &amp; RS
> Loop Until InStr(RS, vbCr)
> If Len(var1) &gt;= 1 Then
> var1 = Mid(var1, 2, Len(var1))
> MSComm1.PortOpen = False
> label1.Caption = Trim(Str(Val( var1)))
> End If
> &nbsp;
> &nbsp;
> Aku tidak ngerti arti instruksi ini 
> 1. Loop Until InStr(RS, vbCr)
> &nbsp;
> &nbsp;2. If Len(var1) &gt;= 1 Then
> &nbsp;
> 3. label1.Caption = Trim(Str(Val( var1)))
> &nbsp;
> &nbsp;
> Tq
>