Anjar Syaefa

Rabu, 05 Desember 2012

Membuat Form Biodata, Kalkulator Luas: Segitiga, Kubus, Ligkaran (Visual Basic 6)

Assalammualaikum wr.wb 1. Form Biodata Hmmm... Mungkin Masih Ada yang Belum Mengetahui Cara membuat program ini, dan mungkin juga banyak yang menyepelekan program sesederhana ini, hehee.. ok.. ya langsung saja saya akan Menjelaskan Langkah-Langkah membuat Program Sederhana Ini(Maklum Berantakn, Masih Pemula) Pertama Kita Buat Form Baru Dan Isikan Label,Text,Commandbutton Seperti Contoh d Bawah ini
Dan Ini Syntax Untuk Print Dan Hapus Private Sub Command1_Click() Label5.Caption = ("" & Text1.Text & Chr(15) & "" & Text2.Text & Chr(15) & "" & Text3.Text) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" label5.text= "" End Sub Dan Jika Berhasil Akan Menampakkan
Latihan Pertama Selesai.. (Ini Hanya Sebagai Contoh Saja, Dan Sytax program Beserta Logical Tsb bisa di Desaign Sedemikian Rupa Oleh Siapapun. 2.Membuat Kalkulator Langkah pertama Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. dan kita Design seperti contoh ini:
Lalu Kita Beri Syntax Sebagai Berikut (Di Setiap Commandbutton [6 Buah]) Beserta Hapus Dan Keluar
Dan ini Syntax dari Screenshot di atas.. ^_^ Private Sub Command1_Click() Text3.Text = (Val(Text1.Text) + (Text2.Text)) End Sub Private Sub Command2_Click() Text3.Text = (Val(Text1.Text) - (Text2.Text)) End Sub Private Sub Command3_Click() Text3.Text = (Val(Text1.Text) / (Text2.Text)) End Sub Private Sub Command4_Click() Text3.Text = (Val(Text1.Text) * (Text2.Text)) End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command6_Click() End End Sub Ok.. Kita Lanjut ke Luas: Segitiga Langkah Selanjutnya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. lalu Buat Label,text,commadbutton seperti Screenshot ini
Lalu Kita Beri Syntax Di bawah Ini: Private Sub Command1_Click() Text3.Text = (Val(Text1.Text * Text2.Text)) / 2 End Sub Private Sub Command2_Click() Text1.Text = "" Text3.Text = "" Text2.Text = "" End Sub (Sengaja Saya TIdak Upload Gambarnya, jadi Hanya Syntaxnya Saja) Selanjutnya Luas Persegi Gogogogo..... Langkah Berikunya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form.
Ini Syntaxnya Private Sub Command1_Click() Text2.Text = Val(Text1.Text * Text1.Text) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() End End Sub Sybtax dan Logical Sudah Tersedia Di Atas, Agar Lebih Cepat, .. Tancap Luas Kubus Seperti Di Atas Kita Buat Form Baru dan Ini Logicalnya
Dan Ini Syntaxnya: Private Sub Command1_Click() Text2.Text = Val(Text1.Text) ^ 3 End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Selanjutnya Kita buat Luas Lingkaran Langkah Selanjutnya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. Dan Buat Form Seperti Gambar di bawah ini
Private Sub Command1_Click() phi 3.14 Text2.Text = phi * (Val(Text1.Text * Text1.Text)) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub #Phi Sebagai Pelantara pengganti nilai 3.14 OK.. Yang Terakhir Kita Buat Menu editor, langkahnya sama dengan membuat form sperti di atas, tetapi form ini untuk membuat Hyperlink terhadap form yang telah kita buat dalam 1 program/project.. Langkah Terakhir Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form Ok, pertama klik kanan pada bagian kosong form hingga muncul:
Lalu Isiskan Nama dan caption tersebut dengan form-form yang telah dibuat.. dan ini syntaxnya.. Samakan dengan Nama form yang ada pada Project Explorer Private Sub menubiodata_Click() Form1.Show End Sub Private Sub menukalkulator_Click() Form2.Show End Sub Private Sub menukubus_Click() Form4.Show End Sub Private Sub menulingkaran_Click() Form5.Show End Sub Private Sub menusegitiga_Click() Form3.Show End Sub Terimakasih Jika Telah Menyimak Postingan Saya, Sekian dan Assalammualaikum wr.wb ^_^