Latihan Membuat Aplikasi Hotel dengan VB 6.0

kode programnnya:

Sub nonaktif()
txtnama.Enabled = False
txtjenis.Enabled = False
txtharga.Enabled = False
txtlama.Enabled = False
txtbayar.Enabled = False
txtdiskon.Enabled = False
txttobay.Enabled = False
txtubay.Enabled = False
txtukem.Enabled = False
cmbkode.Enabled = False
End Sub

Sub aktif()
txtnama.Enabled = True
txtjenis.Enabled = True
txtharga.Enabled = True
txtlama.Enabled = True
txtbayar.Enabled = True
txtdiskon.Enabled = True
txttobay.Enabled = True
txtubay.Enabled = True
txtukem.Enabled = True
cmbkode.Enabled = True
End Sub

Sub bersih()
txtnama.Text = ""
txtjenis.Text = ""
txtharga.Text = ""
txtlama.Text = ""
txtbayar.Text = ""
txtdiskon.Text = ""
txttobay.Text = ""
txtubay.Text = ""
txtukem.Text = ""
cmbkode.Text = ""
End Sub

BLACKBOX TESTING

Metode ujicoba blackbox memfokuskan pada keperluan fungsional dari software. Karna itu ujicoba
blackbox memungkinkan pengembang software untuk membuat himpunan kondisi input yang akan melatih
seluruh syarat-syarat fungsional suatu program. Ujicoba blackbox bukan merupakan alternatif dari ujicoba
whitebox, tetapi merupakan pendekatan yang melengkapi untuk menemukan kesalahan lainnya, selain
menggunakan metode whitebox.
Ujicoba blackbox berusaha untuk menemukan kesalahan dalam beberapa kategori, diantaranya :
1. Fungsi-fungsi yang salah atau hilang
2. Kesalahan interface
3. Kesalahan dalam struktur data atau akses database eksternal
4. Kesalahan performa
5. kesalahan inisialisasi dan terminasi
Tidak seperti metode whitebox yang dilaksanakan diawal proses, ujicoba blackbox diaplikasikan
dibeberapa tahapan berikutnya. Karena ujicoba blackbox dengan sengaja mengabaikan struktur kontrol,
sehingga perhatiannya difokuskan pada informasi domain. Ujicoba didesain untuk dapat menjawab pertanyaanpertanyaan
berikut :
1. Bagaimana validitas fungsionalnya diuji?
2. Jenis input seperti apa yang akan menghasilkan kasus uji yang baik ?
3. Apakah sistem secara khusus sensitif terhadap nilai input tertentu ?
4. Bagaimana batasan-batasan kelas data diisolasi?
5. Berapa rasio data dan jumlah data yang dapat ditoleransi oleh sistem?
6. Apa akibat yang akan timbul dari kombinasi spesifik data pada operasi sistem?

Penggunaan CheckBox dan ListBox

kode programnya adalah:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pil1 As String
Dim pil2 As String

pil1 = ""
pil2 = ""

If CheckBox1.Checked = True Then
pil1 = "Komputer"
End If

If CheckBox2.Checked = True Then
pil2 = "Printer"
End If

Label2.Text = "Anda sudah membeli : " + pil1 + "," + pil2
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
dafPilihan.Items.Add("Matematika")
dafPilihan.Items.Add("Fisika")
dafPilihan.Items.Add("Kimia")
dafPilihan.Items.Add("Biologi")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label4.Text = "Anda memilih : " + dafPilihan.SelectedItem
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = ""
Label4.Text = ""
End Sub

End Class

Komponen yang digunakan adalah:
1. Label
Label1(Name)-> Pilih yang akan dibeli: (Caption)
Label2(Name)-> (Caption)
Label3(Name)-> Pelajaran yang anda sukai: (Caption)
Label4(Name)-> (Caption)
2. CheckBox
pil1(Name)->Komputer(Caption)
pil2(Name)->Printer(Caption)
3. ListBox
dafPilihan(Name)
4. Button
Button1(Name)->OK(Caption)
Button2(Name)->OK(Caption)
Button3(Name)->Clear(Caption)

Selamat Mencoba,

Ridon-Na70

Pengunaan Textbox dan radiobutton

ini adalah kode programnya:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = "Nama Anda adalah: " + TextBox1.Text
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label4.Text = "Anda berjenis kelamin : " + RadioButton1.Text
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label4.Text = "Anda berjenis kelamin : " + RadioButton2.Text
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

keterangan:

Label1(Name)-> Masukkan Nama Anda:(Caption)
TextBox1(Name)
Label2(Name)-> (Caption)
Label3(Name)-> Jenis Kelamin:(Caption)
Label4(Name)-> (Caption)
RadioButton1(Name)-> Laki-laki(Caption)
RadioButton2(Name)-> Laki-laki(Caption)
Button1(Name)-> OK(Caption)

Selamat mencoba,

Ridon-Na70

Mencari Kata Dengan VB

ini adalah kode program dari "Mencari Kata dengan VB"

Private Sub cmd_clear_Click()
txt_cari.Text = ""
End Sub

Private Sub cmd_hasil_Click()
Dim hasil As Long
If txt_cari.Text <> "" Then
hasil = InStr(1, txt_kalimat.Text, txt_cari.Text, 1)
If hasil >= 1 Then
lbl_hasil.Caption = "Kata " + txt_cari.Text + _
"mulai ditemukan pertama kali pada karakter ke " _
+ Str(hasil)
Else
lbl_hasil.Caption = "Maaf, Kata yang anda cari tidak ditemukan"
End If
Else
txt_cari.SetFocus
End If
End Sub

Private Sub Form_Activate()
txt_kalimat.Text = txt_kalimat.Text + _
"Buku Seri Pemrograman Komputer: Visual Basic 6.0," + _
"adalah buku yang lebih dikhususkan bagi pemula," + _
"atau orang yang baru belajar pemrograman, Buku ini" + _
"adalah buku yang bagus sekali." + _
"Di dalam buku ini disertai ilustrasi gambar untuk" + _
"mempermudah pemahaman. Selain itu, disediakan," + _
"pula beberapa contoh dan soal latihan," + _
"agar pembaca lebih cepat menguasai materi " + _
"yang disajikan"
txt_kalimat.Locked = True
End Sub

NB
1. txt_kalimat = textbox buat untuk menulis kalimat atau yang kita inginkan
2. txt_cari = textbox untuk mencari kata
3. cmd_hasil = commandbutton untuk mencari kata
4. cmd_clear = commandbutton untuk "Clear" atau menghapus kata

Selamat Mencoba,

Ridon-Na70

Panjang kalimat dan Membalik Kalimat tersebut

Ini adalah kode programnya:

Private Sub cmd_BK_Click()
txt_hasil.Text = StrReverse(txt_kalimat.Text)
End Sub

Private Sub cmd_hapus_Click()
txt_kalimat.Text = ""
txt_hasil.Text = ""
End Sub

Private Sub cmd_PK_Click()
Dim panjang As Integer
panjang = Len(txt_kalimat.Text)
MsgBox "Panjang Kalimat anda adalah " & Str(panjang), vbOKOnly, "Panjang Kalimat"
End Sub

NB:
1. cmd_PK = commandbutton panjang kalimat
2. cmd_BK = commandbutton balik kalimat

Selamat Mencoba,
Ridon-Na70

Menghitung Faktorial

ini adalah kode programnya

Private Sub cmd_hitung_Click()
Dim i As Integer
Dim Faktor As Integer

Faktor = 1

Angka = Val(txt_angka.Text)

If Angka <= 0 Then MsgBox "Maaf, tidak ada faktorial yang bernilai negatif" ElseIf Angka = 1 Then: MsgBox "Hasil Faktorial I = 1" ElseIf Angka > 0 Then:
For i = 1 To Angka
Faktor = Faktor * i
Next
MsgBox "Hasil Faktorial" + "=" + CStr(Faktor)
End If
End Sub

NB:
1. label1(name) = Masukkan Angka(Caption)
2. txt_angka(name)= textbox buat masukkan angka
3. cmd_hitung = commandbutton buat hitung

Selamat Mencoba,
Ridon-Na70

Cara Menghitung Pangkat Bilangan

ini adalah kode program dari Menghitung Pangkat Bilangan

Private Sub cmd_hitung_Click()
Dim i As Integer
Dim B As Integer

B = 1

Angka = Val(txt_angka.Text)
Pangkat = Val(txt_pangkat.Text)

If Pangkat = 0 Then
txt_hsl.Text = 1
ElseIf Pangkat = 1 Then:
txt_hsl.Text = Angka
ElseIf Pangkat > 0 Then:
For i = 1 To Abs(Pangkat)
B = B * Angka
Next
txt_hsl.Text = Str(B)
Else
For i = 1 To Abs(Pangkat)
B = B * Angka
Next
txt_hsl.Text = Str(1 / B)
End If
End Sub


NB:
1. label1(name) = angka (Caption)
2. label2(name) = pangkat(Caption)
3. label3(name) = hasil (Caption)
4. txt_angka(name) = textbox buat label angka
5. txt_pangkat(name) = textbox buat label pangkat
6. txt_hasil(name)= textbox buat label hasil
7. cmd_hitung(name)= commandbutton buat Hitung

Selamat Mencoba,
Ridon-Na70

Latihan Membuat Gambar Bentuk dengan VB

di bawah ini adalah kode program di atas

Private Sub cmd_hps_Click()
Dim i As Integer
For i = 0 To lst_garis.ListCount - 1
garis(i).Visible = False
lst_garis.Selected(i) = False
Next i
End Sub
'Private Sub cmd_next_Click()
'Form2.Show
'Form1.Hide
'End Sub

Private Sub cmd_OK_Click()
Dim i As Integer
For i = 0 To lst_garis.ListCount - 1
If lst_garis.Selected(i) Then
garis(i).Visible = True
Else
garis(i).Visible = False
End If
Next i
End Sub
Private Sub opt_BS_Click()
Shape1.Shape = 1
End Sub
Private Sub opt_BS1_Click()
Shape1.Shape = 5
End Sub
Private Sub opt_elips_Click()
Shape1.Shape = 2
End Sub
Private Sub opt_lingkaran_Click()
Shape1.Shape = 3
End Sub
Private Sub opt_PP_Click()
Shape1.Shape = 0
End Sub
Private Sub opt_PP1_Click()
Shape1.Shape = 4
End Sub


NB:

1. opt_BS = Optional Bujur Sangkar
2. opt_BS1 = Optional Bujur Sangkar dengan sudut tumpul
3. opt_PP = Optional Persegi Panjang
4. opt_PP1 = Optional Persegi Panjang dengan sudut tumpul
5. opt_lingkaran = Optional Lingkaran
6. opt_lips = Optional Elips
7. Shape1 = shape
8. lst_garis = list dari garis

perlu diingat tombol "next" akan berfungsi jika jika membuat 2 form project atau lebih.

Selamat Mencoba,
Ridon-Na70