Variabel public : Variabel yang bisa digunakan kesemua program/ form (dalam satu project)
Variabel General : Variabel dimana variabel bisa digunakan/ dipanggil dalam satu class
Variabel Lokal : Variabel yang bisa dibaca/ dipanggil pada satu private/ satu sub/ satu procedure saja.
Setiap objek dalam pembuatan coding pasti diikuti dengan properties
contoh :
TextBox1.Text (Text dibelakang merupakan properties)
public class form1
Dim Jurusan as string (variabel general)
Dim Kelas, Jenjang as string, Waktu as string (variabel general)
Dim d as string (variabel konstanta)
private sub Button Click....
Dim lo as sring (variabel lokal)
lo=6
If TextBox1.Text="TI" Then
TextBox2.Text="Tehnik Informatika" + Trim(lo)
else
If TextBox1.Text="SI" Then
TextBox2.Text="Sistem Informatika"
end if
end if
end sub
untuk lebih mudah kita dapat menggunakan "call" karena perintah ini dapat dipakai pada beberapa sub.
sub perintah()
Dim lo as sring
private sub Button Click....
call perintah (perintah call)
end sub
call perintah (perintah call)
end sub
sub perintah()
Dim lo as sring
lo=6
If TextBox1.Text="TI" Then
TextBox2.Text="Tehnik Informatika" + Trim(lo)
else
If TextBox1.Text="SI" Then
TextBox2.Text="Sistem Informatika"
end if
end if
end sub
Membuat cursor berpindah aktif ke text berikutnya dengan tombol enter.
if e.key char = chr (13) Then
TextBox1.focus() (perintah focus untuk cursor aktif ke text berikutnya)
ListBox
Listbox1.Items.add(nilai yang dimasukkan)
contoh:
Listbox1.Items.add(TextBox1.text+""+Textbox2.text)
Combobox
Combobox.Items.add(Textbox1.text)
u=4
y=7
for j=4 To Val(Textbox2.text)
If j Mod u=0 Then
Listbox1.Items.add(j)
u=j
else
If j mod y=0 Then
Listbox1.Items.add(j)
y=j
end if
end if
hasilnya=4 7 8 14 16 28 32
end sub
Membuat cursor berpindah aktif ke text berikutnya dengan tombol enter.
if e.key char = chr (13) Then
TextBox1.focus() (perintah focus untuk cursor aktif ke text berikutnya)
ListBox
Listbox1.Items.add(nilai yang dimasukkan)
contoh:
Listbox1.Items.add(TextBox1.text+""+Textbox2.text)
Combobox
Combobox.Items.add(Textbox1.text)
Looping
Contoh:
Dim j,u,y as integeru=4
y=7
for j=4 To Val(Textbox2.text)
If j Mod u=0 Then
Listbox1.Items.add(j)
u=j
else
If j mod y=0 Then
Listbox1.Items.add(j)
y=j
end if
end if
hasilnya=4 7 8 14 16 28 32
Tidak ada komentar:
Posting Komentar