vb (6.0) membuat program antar form

tahapan pertama tambahkan form1 di visual basic lu dulu kayak begini



tahapan kedua tambahkan form 2 kayak begini


tahapan ketiga masukin kode program di bawah ini di form1

Private Sub Command1_Click()
Form2.Show 'untuk menampilkan form2 nya
Form2.Label1.Caption = " berhasil horeeee!!!"
Unload Me ' bisa juga pake juga pake form1.hide
' buat menyembunyikan form1 nya

End Sub

tahapan keempat masukin kode program di bawah ini di form2

Private Sub Command1_Click()
tulis = Form2.Text1
Form1.Show ' buat nampilin form1 nya
Form1.Label1 = tulis
Unload Me 'buat menguload form2 / form yang sedang
'aktif atau bisa juga form2.hide
End Sub

ini hasil pada saat program di jalankan
form1 yang pertama aktif

ini pada saat selah command ke form2



dan ini pada saat ngeklick command balik lagi yuk


atau lu bisa download source programya di sini
visual basic vb 6.0 mengaktif form.rar

good luck selamat belajar vb dan memahaminya

read more - vb (6.0) membuat program antar form

vb (6.0) kode program memisahkan angka dan huruf

pertama bikin form kaya gini dulu di visual basic 6.0 nya kamu


abis itu masukin kode di bawah ini di view code

Dim data(1000) As Variant
Dim info As Boolean
Dim n As Integer
'bikin 3 variable dulu secara explicit
Private Sub Form_Load()
Text1.FontSize = 12
List1.FontSize = 12
List2.FontSize = 12
Command1.FontSize = 12
Command2.FontSize = 12
Label1.FontSize = 12
Label2.FontSize = 12
Label2.FontBold = True
info = False

End Sub
'command untuk inputan data
Private Sub Command1_Click()
x = 1

If Text1.Text = "" Then
MsgBox ("tidak ada jumlah yang di masukan mohon untuk si isi jumlah nya")
ElseIf IsNumeric(Text1) Then
n = Val(Text1)
Do While x <= Val(Text1)

data(x) = InputBox("masukan data " & x)
info = True
x = x + 1
Loop
Else
MsgBox ("jumlah harus numeric")
End If
End Sub
'command untuk proses memisah kan data di list1 dan list2
Private Sub Command2_Click()
List1.Clear
List2.Clear
Dim x As Integer
x = 1
If info = False Then
MsgBox ("data belum terisi")
Else
Do While x <= n
If IsNumeric(data(x)) Then
List1.AddItem data(x)
Else
List2.AddItem data(x)
End If
x = x + 1
Loop
End If

End Sub


dan hasil run nya kayak begini



atau kamu download saja project program yang udah jadinya
disini

read more - vb (6.0) kode program memisahkan angka dan huruf

vb kontrol logika if , for dan array

iseng- iseng balik dari kampus yang kebetulan abis uas praktek visual basic
dari pada gak ada kerjaan diem benggong, tersirat di pikiran saya untuk menyelesaikan program yang gagal waktu uas... ssttt pergi dah kedepan komputer lalu mengambil white board ,spidol lengakap sama penghapusnya terus mikir sama ngotret dan corat-coret tentang logika untuk menyelesakan program memisahkan numeric dan alpanumeric dan data pada index object dari command dan nilai passinggrade kelulusan akhirnya selang berapa menit kemudian
ketumu tuh dah pemecahanya dan setelah itu melakukan implementasi pada program nya abis berapa kali pengujian beserta erronya program pun sesuai denggan saya harapkan atau mungkin harapan si dosen juga .. abis tuh mikir lagi buat apa ini perogram nantinya ?? dan tersirat di pikiran saya untuk menulis di blog dan yang mana dari source program tersebut sang dosen hanya ingin mengetest sejauh mana pemahaman siswanya terhadap penggulangan,array dan kontrol logika if..........
oke dah dari pada berbicara muter - muter engak nyabung mendinggan download aja souce code nya di sini setelalah itu di telaah dan di pahami...... :)))
good luck

read more - vb kontrol logika if , for dan array

vb 6.0 array objeck dan variable

dalam visual basic selain kita bisa menngunakan data array denggan variable kita juga bisa mengunakan object mmm masgusd saya sepeti object command,text,shape dan lain
untuk mendeklarasikan array varibalbel
dim array(10) as integer
untuk object kita harus menyisipkan object nya terlebih dahulu.. misalkan
menyipkan object command pada form sebanyak n atau sebanyak kebutuhan
setekah itu kita bisa mengantinya melalui propertis -> name
dengan nama arr lalu kita pindah ke bagian index propertis untuk memberikan nilai indek nya
biasanya di mulai dari 0

lalu cara kedua kiat bisa meng kopi paste object tersebut("command atau text dll")
tetapi dengan cara peng copy-an sepertini default dari indexnya di mulai dari 0
untu cara menga hui hal ini kita bisa melihat nya pada propertis name

read more - vb 6.0 array objeck dan variable