TUGAS 3

Memodifikasi program penjualan & Membuat Game Puzzle

MODIFIKASI PROGRAM PENJUALAN

a)      Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak  aktif
b)      Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
c)      Saat ditekan combol clear sama dengan saat form dijalankan

•  Tambahkan satu Button untuk program yang kemarin,

         lalu edit button tadi menjadi isi data
         Seperti yang dibawah ini :

listing program :

Tambah coding pada form seperti dibawah ini;
Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next
        CmbKodbar.Items.Add("SPT")
        CmbKodbar.Items.Add("SND")
        CmbKodbar.Items.Add("TST")
        CmbKodbar.Items.Add("CLN")
        CmbKodbar.Items.Add("TAS")

•       Setelah itu edit pada button clear sehinga menjadi seperti dibawah ini;

                Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next

        TxtNambar.Clear()
        TxtHarbar.Clear()
        TxtJumbar.Clear()
        TxtTotHarg.Clear()
        TxtDiskon.Clear()
        TxtTotBayr.Clear()
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        CmbKodbar.Text = ""

•       terakhir isi button ‘’isi data”;

                Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = True
            Button3.Enabled = False

•         Next      Lalu di Run

         Dan akan muncul hasil seperti berikut ini:

 semua tidak aktif ,yang aktif hanya isi data & Tutup !

klik button isi data ! lalu akan muncul seperti gambar di bawah ini :

setelah di isi :

setelah di clear akkan kolom akan kosong kembali seperti semula & button yang aktif hanya isi data dan tutup !

seperti gambar di bawah ini :

LISTING PROGRAM PENJUALAN SETELAH DI MODIFIKASI !

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next
        CmbKodbar.Items.Add("SPT")
        CmbKodbar.Items.Add("SND")
        CmbKodbar.Items.Add("TST")
        CmbKodbar.Items.Add("CLN")
        CmbKodbar.Items.Add("TAS")

    End Sub

    Private Sub CmbKodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbKodbar.SelectedIndexChanged
        Dim Kodebarang, Namabarang As String
        Dim Harga As Single
        Kodebarang = CmbKodbar.Text

        Select Case Kodebarang
            Case "SPT"
                Namabarang = "Sepatu"
                Harga = 100000
            Case "SND"
                Namabarang = "Sendal"
                Harga = 25000
            Case "TST"
                Namabarang = "T-Shirt"
                Harga = 30000
            Case "CLN"
                Namabarang = "Celana"
                Harga = 150000
            Case "TAS"
                Namabarang = "TAS"
                Harga = 90000

            Case Else
                Namabarang = "-"
                Harga = 0

        End Select
        TxtNambar.Text = Namabarang
        TxtHarbar.Text = Harga

    End Sub

    Private Sub TxtJumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumbar.TextChanged
        TxtTotHarg.Text = Val(TxtHarbar.Text) * Val(TxtJumbar.Text)
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TxtDiskon.Text = Val(TxtTotHarg.Text) * 10 / 100
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TxtDiskon.Text = 0
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next

        TxtNambar.Clear()
        TxtHarbar.Clear()
        TxtJumbar.Clear()
        TxtTotHarg.Clear()
        TxtDiskon.Clear()
        TxtTotBayr.Clear()
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        CmbKodbar.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Apakah anda ingin keluar ?",
                  vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
        End If
        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = True
            Button3.Enabled = False
        Next
    End Sub

End Class

 

"TUGAS MEMBUAT GAME PUZLE" 

GAME PUZLE :

Desain game puzle di bawah ini dengan menggunakan 9 button :

 

 Pada propertis tiap-tiap button ganti seperti dibawah ini:
Ganti text button1 dengan 1 dan  name button1 dengan satu
Ganti text button1 dengan 2 dan  name button1 dengan dua
Ganti text button1 dengan 3 dan  name button1 dengan tiga
Ganti text button1 dengan 4 dan  name button1 dengan empat
Ganti text button1 dengan 5 dan  name button1 dengan lima
Ganti text button1 dengan 6 dan  name button1 dengan enam
Ganti text button1 dengan 7 dan  name button1 dengan tujuh
Ganti text button1 dengan 8 dan  name button1 dengan delapan
Ganti text button1 dengan 9 dan  name button1 dengan kosong
 

• Setelah itu masukan coding pada Form1 dengan cara Form1 di klik 2 kali

Adapun codingnya yaitu seperti dibawah ini:
       Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                Dim rndnumber As Random
                Dim number As Integer
                rndnumber = New Random
                number = rndnumber.Next(1, 9)
                control.Text = number

                If dua.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        dua.Text = number
                    Loop Until dua.Text <> satu.Text
                End If

                If tiga.Text = dua.Text Or tiga.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        tiga.Text = number
                    Loop Until tiga.Text <> dua.Text And tiga.Text <> satu.Text
                End If

                If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        empat.Text = number
                    Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text
                End If

                If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        empat.Text = number
                    Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text
                End If

                If lima.Text = empat.Text Or lima.Text = tiga.Text Or lima.Text = dua.Text Or lima.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        lima.Text = number
                    Loop Until lima.Text <> empat.Text And lima.Text <> tiga.Text And lima.Text <> dua.Text And lima.Text <> satu.Text
                End If

                If enam.Text = lima.Text Or enam.Text = empat.Text Or enam.Text = tiga.Text Or enam.Text = dua.Text Or enam.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        enam.Text = number
                    Loop Until enam.Text <> lima.Text And enam.Text <> tiga.Text And enam.Text <> dua.Text And enam.Text <> satu.Text
                End If

                If tujuh.Text = enam.Text Or tujuh.Text = lima.Text Or tujuh.Text = empat.Text Or tujuh.Text = tiga.Text Or tujuh.Text = dua.Text Or tujuh.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        tujuh.Text = number
                    Loop Until tujuh.Text <> enam.Text And tujuh.Text <> lima.Text And tujuh.Text <> empat.Text And tujuh.Text <> tiga.Text And tujuh.Text <> dua.Text And tujuh.Text <> satu.Text
                End If

                If delapan.Text = tujuh.Text Or delapan.Text = enam.Text Or delapan.Text = lima.Text Or delapan.Text = empat.Text Or delapan.Text = tiga.Text Or delapan.Text = dua.Text Or delapan.Text = satu.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        delapan.Text = number
                    Loop Until delapan.Text <> tujuh.Text And delapan.Text <> enam.Text And delapan.Text <> lima.Text And delapan.Text <> empat.Text And delapan.Text <> tiga.Text And delapan.Text <> dua.Text And delapan.Text <> satu.Text
                End If
            End If
            kosong.Text = ""

        Next

    End Sub

•  Kemudian masukan coding untuk tiap-tiap Button, kita mulai dari

BUTTON 1;
If dua.Text = "" Then
            dua.Text = satu.Text
            satu.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = satu.Text
            satu.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

    End Sub

BUTTON 2;
  If satu.Text = "" Then
            satu.Text = dua.Text
            dua.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = dua.Text
            dua.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = dua.Text
            dua.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 3;
If dua.Text = "" Then
            dua.Text = tiga.Text
            tiga.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = tiga.Text
            tiga.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 4;
If satu.Text = "" Then
            satu.Text = empat.Text
            empat.Text = ""
        ElseIf tujuh.Text = "" Then
            tujuh.Text = empat.Text
            empat.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = empat.Text
            empat.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 5;
If dua.Text = "" Then
            dua.Text = lima.Text
            lima.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = lima.Text
            lima.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = lima.Text
            lima.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = lima.Text
            lima.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 6;
If kosong.Text = "" Then
            kosong.Text = enam.Text
            enam.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = enam.Text
            enam.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = enam.Text
            enam.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 7;
If empat.Text = "" Then
            empat.Text = tujuh.Text
            tujuh.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = tujuh.Text
            tujuh.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON 8;
If tujuh.Text = "" Then
            tujuh.Text = delapan.Text
            delapan.Text = ""
        ElseIf kosong.Text = "" Then
            kosong.Text = delapan.Text
            delapan.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = delapan.Text
            delapan.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

BUTTON KOSONG;
If enam.Text = "" Then
            enam.Text = kosong.Text
            kosong.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = kosong.Text
            kosong.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And kosong.Text = "" Then
            MsgBox("Selamat Anda Berhasil")
        End If

 lalu kita RUN !

hasilnya seperti gambar di bawah ini : 

 dan siap di mainkan ,jika anda berhasil akan muncul tulisan seperti berikut :

 sekian :) selamat mencoba !

TUGAS 2

TUGAS MENGANALISA KEKELIRUAN PROGRAM VISUAL BASIC

Analisa Program :

                    I.            Karena pada btalamat1_click, belum ada pendeklarasian alamat ‘

Seharusnya > dim alamat as string

                  II.            Karena Pada tombol nama1 pendeklarasian nama sudah di masukan Dim nama As String

Nama = “Nandang” dan pada tombol nama2, nama belum di deklarasikan sehingga sehingga mengambil dari module

Pada Btalamat 1 dan tombol alamat

2 sudah di deklarasikan di form

1 dengan Conts alamat = “kuningan”

                III.            Karena pada tombol tambah umur1 menggunakan dim yaitu masukan selalu memulai kembali jika tombol di tekan sedangkan pada tombol tambah umur2 menggunakan static yaitu masukan yang tetap dan bertambah jika di tekan karna static dan umur +=1

                IV.            Analisis form 2

Analisa saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
Option Explicit Off
Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

. TUGAS2

Kelemahannya yaitu tidak ada pendeklarasian pada harga dan nama barang “TAS”, sehingga apabila di Run pada ComboBox pilih kode barang “Tas” nama barang dan harga tidak akan tercantum.

. Coding Sebelum di Edit

. Tampilan sebelum di Edit

 . Coding Setelah di Edit

Setalah pada coding saya tambah pendeklarasian nama barang dan harga, setelah di Run nama barang dan harga pun muncul.

setelah di RUN akan muncul tampilan seperti berikut . 

Program Nilai Pelajaran dengan Virtual Basic

“DAFTAR NILAI SISWA”

Ini merupakan program sederha yang saya buat yaitu “DAFTAR NILAI SISWA”

Langkah pertama buat lah Form program seperti di bawah ini:

Toolbox yang digunakan antara lain adalah:

1. Untuk Penamaan “judul” sampai “mata pelajaran & hasi;l nilai” mengunakan tool Label

2. Untuk kolom yang ada tanda panah kebawah menggunakan tool Combobox

3. Untuk kolom kosong menggunakan tool TextBox

4. Untuk Tampilan,Reset & Keluar  menggunakan tool RadioButton

 

·         Langkah pertama pillih New Project.

 

·         Pilih Windows Form application.

·         Buat nama : Program Penghitungan Nilai

·         Lalu tekan OK.

·         Setelah itu akan muncul lembar baru seperti di atas.

 

·         Pillih menu Toolbox disanna terdapat banyak pilihan lalu pillih label untuk membuat “judul,mata pelajaran & hasil nilai”.

·         Setelah itu pilih button pada menu toolbox untuk membuat “Tampilkan,Reset & Keluar.

 

BERIKUT CODINGAN DARI PROGRAM “DAFTAR NILAI SISWA” DI ATAS

Public Class Form1

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

    End Sub

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

        MsgBox("Jumlah Nilai :" & Txtjml.Text & vbNewLine &

                "Rata-Rata   :" & Txtrata.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TxtBhsind.Clear()

        TxtBingg.Clear()

        TxtMtk.Clear()

        Txtjml.Clear()

        Txtrata.Clear()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2,

                      "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Txtjml.Text = Val(TxtBhsind.Text) + Val(TxtBingg.Text) + Val(TxtMtk.Text)

        Txtrata.Text = Val(Txtjml.Text) / 3

    End Sub

    Private Sub TxtMtk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtMtk.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

End Class