Latihan Visual Basic. Menggunakan Event dan property

Latihan Visual Basic. Menggunakan Event dan property

1. Kenali jenis-jenis komponen (control) yang ada di dalam bagian ToolBox :
Pada Jendela Form buatlah UI ( User Interface ) seperti ini :

Cara membuatnya :

Klik komponen Label di dalam ToolBox kemudian “gambar” object Label1 di dalam Form dengan cara drag-drop. Lakukan langkah yang sama untuk object Label2. Object Text1 di-“gambar” menggunakan komponen TextBox, sedangkan object Command1 dan Command2 menggunakan komponen Command Button.

2. Kenali bagian-bagian di dalam Jendela Properties :
Melalui Jendela Properties atur property setiap object sebagai berikut :
Sehingga UI-nya menjadi seperti ini :

3. Buka Jendela Code dan kenali bagian-bagian di dalamnya :

Program yang berbasis Windows bersifat event-driven, artinya program bekerja berdasarkan event yang terjadi pada object di dalam program tersebut. Misalnya, jika seorang user meng-klik sebuah tombol maka program akan memberikan “reaksi” terhadap event klik tersebut. Program akan memberikan “reaksi” sesuai dengan kode-kode program yang dibuat untuk suatu event pada object tertentu.

Pilih object Command1 pada bagian Object Selector. Secara otomatis pada bagian Code Editor akan muncul blok kode program berikut :

Event Click merupakan event default (standar) dari object Command1, Anda bisa melihat event lainnya pada bagian Event Selector.

Pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Simpan Project1 (nama file : Latihan.vbp) dan Form1 (nama file : Lat1.frm). VB 6 akan menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file project (*.vbp), file form (*.frm) dan file module (*.bas).

Coba jalankan Project1 dengan meng-klik tombol Start/Run pada bagian Toolbar atau tekan tombol F5 pada keyboard. Ketikkan “Salman” di dalam TextBox kemudian klik tombol OK. Maka akan tampil hasil sebagai berikut :

Bila ingin keluar klik tombol Selesai.

Penjelasan kode program :

Berikut diberikan penjelasan bagaimana cara kerja program sederhana di atas

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Ketika seorang user meng-klik tombol OK (object Command1) maka isi tulisan pada object Label2 akan sama dengan isi tulisan pada object Text1. Property Caption pada obyek Label2 digunakan untuk menampilkan text tertentu di obyek tersebut.

Selanjutnya untuk keluar dari program dituliskan kode berikut :

Private Sub Command2_Click()

End

End Sub

Ketika seorang user meng-klik tombol Selesai (object Command2) maka program akan berhenti. Perintah End digunakan untuk menutup program.

Menampilkan tulisan merupakan salah satu property yang dimiliki oleh komponen Label. Property isi tulisan pada komponen Label adalah Caption, sedangkan pada komponen Textbox adalah Text.

4. Ubah tampilan UI-nya menjadi seperti ini :

(Tambahkan komponen Frame, OptionButton dan CheckBox)
Atur property object-object tambahannya sebagai berikut :

Obyek Frame1 harus dibuat terlebih dahulu si form, dan selanjutnya obyek Option dan Check dibuat di dalam Frame1 tersebut. Tujuan pembuatan berbagai pilihan tersebut adalah memperkenalkan pada Anda fasilitas Option dan CheckBox yang digunakan untuk membuat pilihan dalam aplikasi.

Tambahkan kode programnya sebagai berikut :

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

Simpan kembali Form1, kemudian coba jalankan Project1 dan lihat hasilnya :

Jumat, November 27, 2009

menggunakan option button pada visual basic 6.0

Buat Objeck-0bjeck seperti gambar
masukkan kode berikut:

Private Sub Command1_Click()
Dim harga As Currency
harga = 0

If Option1.Value Then
harga = harga + 15000
ElseIf Option2.Value Then
harga = harga + 40000
ElseIf Option3.Value Then
harga = harga + 150000
ElseIf Option4.Value Then
harga = harga + 250000
ElseIf Option5.Value Then
harga = harga + 300000
End If

If Option6.Value Then
harga = harga + 2000
ElseIf Option7.Value Then
harga = harga + 3500
ElseIf Option8.Value Then
harga = harga + 4500
ElseIf Option9.Value Then
harga = harga + 6000
ElseIf Option10.Value Then
harga = harga + 8000
End If

MsgBox "harga total Rp" & harga
Dim bayar As Currency
Do
bayar = InputBox("uang anda")
Loop Until bayar >= harga

If bayar > harga Then
MsgBox "Kembaliannya" & bayar - harga
Else
MsgBox "terimakasih"
End If
End Sub

Terus Jalankan program!!!

Sabtu, September 12, 2009

Mendeteksi ganjil / genap suatu bilangan

Mendektesi bilangan ganjil/genap atau yang biasa disebut dengan odd even script pada visual basic 6.0

Begini cara buatnya:
1. buka VB6 pilih standard EXE

2. Buat objeck sebagai berikut:
a. Textbox, Name = text1
b. Label1, Name = label1
c. Label2, Name = label
d. Command Button, Name = command1; Caption = Mendeteksi ganjil/genap

3. Masukan coding berikut :
Private Sub Command1_Click()

Dim a

a = Text1.Text

Dim b

b = a / 2

Dim c

c = Int(b)

If b = c Then
Label1.Caption = "Odd: False"
Label2.Caption = "Even: True"
Text1.Text = a
Text1.SetFocus

Else
Label1.Caption = "Odd: True"
Label2.Caption = "Even: False"
Text1.Text = a
Text1.SetFocus

End If

End Sub

4. Jalankan program

Senin, Agustus 31, 2009

Operasi menampilkan data visual basic 6.0

Dim a As Integer
Dim b As Integer
Dim c As String
Dim d As String
a = 1.2 + 2.2 'berapa nilai a
b = 1.3 + 2.3 'berapa nilai b
c = "100" 'berapa nilai c
d = c + 200 'Berapa nilai di d
Print a
Print b
Print c
Print d

Senin, Agustus 24, 2009

Menghitung luas segitiga dengan Visual Basic 6.0

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:
a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas
d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close

3. Deklarasi data dengan coding sbb:
Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double
4. Membuat coding cmd_proses
Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub
5. Membuat coding cmd_close
Private Sub cmd_close_Click()
End
End Sub

6. Jalankan program.

Rabu, Agustus 19, 2009

Pemrogaman visual basic level bahasa

Level bahasa pemrogaman
-Level rendah :Level bahasa yang mendekati level bahasa mesin instruksi yang diberikan akan langsung dipahami oleh komputer,dilevle ini progam yang diinstruksikan berupa angka-angka koe hekson/biner
-level menengah:Level bahasa yang merupakan gabungan instruksi yang mulai mendekati bahasa manusia berkomunikasi
-Level tinggi :Bahasa pemrogaman yang diberikan mendekati intruksi manusia berkomunikasi


Perbandingan level bahasa
-Perbandingan level bahasa,dengan perintah menuliskan "A" dilayar komputer

Level Rendah	Level Menengah	Level Tinggi
OB38:0100 B402 OB38:0102 B066 OB38:0104 C021	Mov AH, 02h Mov AL. 'A' Int 21 h	Writte ('A');

Pengertian Program Komputer
Program komputer adalah susunan instruksi yang harus dikerjakan, sehingga program komputer dapat diartikan sebagai susunan instruksi yang harus dikerjakan oleh komputer.

Jumat, Agustus 14, 2009

Sejarah Visual Basic

Evolusi Visual Basic

 

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh "Alan Cooper" yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

:

 

Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

 

 

 

Perjalanan dari Visual Basic (VB1 to VB 10)

 

Proyek "Thunder" dirintis

Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia

Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System

 

Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4

Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x

Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic

Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.

Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft "fasa non Supported" dimulai pada maret 2008

Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.

Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :

Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan

Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y

Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft

Visual Basic "Orcas" (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :

- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF

- LINQ Support

- Ekspresi Lambda

- XML Literals

- Nullable types

- Type Inference

Visual Basic 'VBx' (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

Minggu, Agustus 02, 2009

VB6 pertemuan 2 "The Environments"

nama - nama icon yang ada di toolbar

Diposkan oleh yohan di 22.49 0 komentar