TUGAS PEMGROGRAMAN VISUAL PRAKTIKUM 3

Tugas 1 (Memodifikasi Program)

Jadi nantinya kita akan memodifikasi program dengan ketentuan :

1. Saat program dijalankan : semua isian data tidak aktif(kode barang, nama barang, sampai total bayar.) dan tombol clear juga tidak aktif, saat program dijalankan hanya tombol Isi data dan tombol tutup yang aktif.

2. Saat ditekan tombol Isi data maka : kodebarang, jumlahbarang, carabeli,dan tombol clear aktif(bisa diisi/ditekan) akan tetapi giliran tombol isi data yang tidak aktif.

3. Saat ditekan tombol Clear, maka ketentuanya sama seperti pada no.1

Pertama ketikan kode dibawah ini dibagian form nya:

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

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

        btclear.Enabled = False

        cmbkode.Enabled = False

        txtnama.Enabled = False

        txtharga.Enabled = False

        txtjumlah.Enabled = False

        txttotal.Enabled = False

        txtdiskon.Enabled = False

        txtbayar.Enabled = False

        radiotunai.Enabled = False

        radiokredit.Enabled = False

    End Sub

hanya tombol "isi data" dan "tutup" yang aktif

Tujuan dari Kode program diatas adalah untuk membuat isian dari kodebarang sampai totalbayar dan tombo clear tidak aktif saat program dijalankan, seperti gambar diatas.

Kedua adalah, tambah satu tombol/button untuk Tombol Isi data dengan text = Isi Data dan name=btisi , dan isi kode programnya seperti seperti dibawah :

Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click 

        btclear.Enabled = True

        cmbkode.Enabled = True

        txtjumlah.Enabled = True

        radiotunai.Enabled = True

        radiokredit.Enabled = True

        btisi.Enabled = False

    End Sub

Maka dengan kode program diatas, tombol tersebut mempunyai fungsi mengaktifkan form kodebarang, jumlahbarang, carabeli,dan mengaktifkan tombol clear, dan juga membuat tombol Isi Data itu sendiri tidak aktif, seperti gambar dibawah.

Dan ini Kode Program dari tombol Clear :

Fungsinya mengosongkan isi dari isian data dan mengembalikan keadaan seperti saat program pertama kali di jalankan

Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtdiskon.Clear()

        txtbayar.Clear()

        txtharga.Clear()

        txtnama.Clear()

        txtjumlah.Clear()

        txttotal.Clear()

        cmbkode.Text = ""

        Me.radiokredit.Checked = False

        Me.radiotunai.Checked = False

        btclear.Enabled = False

        cmbkode.Enabled = False

        txtnama.Enabled = False

        txtharga.Enabled = False

        txtjumlah.Enabled = False

        txttotal.Enabled = False

        txtdiskon.Enabled = False

        txtbayar.Enabled = False

        radiotunai.Enabled = False

        radiokredit.Enabled = False

        btisi.Enabled = True

End Sub

Tugas 2 (Membuat Game Puzzle)

Program puzzle

Tampilan program puzzle

Pertama buat tampilan program seperti gambar diatas, kotak angka 1, 2 sampai 8 dan kotak warna hitam diatas dibuat menggunakan Button.

button1  = 1

button2  = 2

button3  = 3 

button4  = 4

button5 = 5 

button6  = 6

button7  =7 

button8  = 8

button9  = "" (kosonk)

button10  = acak angka

button11  = stop acak

button12  = keluar

Ketikan Kode Program dibawah ini di form :

Public Class Form1

    Dim penampung As String

    Dim warna As Color

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

        Button11.Enabled = False

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = False

        Button7.Enabled = False

        Button8.Enabled = False

        Button9.Enabled = False

    End Sub

-Pertama kita pesan Variabel penampung as string.

-kedua kita pesan Variabel warna as color, yang fungsinya sebagai pemberi variabel untuk warna pada button.

-Button1.enabled=false bertujuan untuk menonaktifkan tombol/kotak saat program dijalankan (jadi sebelum ditekan tombol acak maka kotak-kotak angka dan tombol stop acak tidak dapat ditekan)

dan inilah kode programnya dari button1 sampai button 9 :

variabel penampung dan warna sudah dideklarasikan di form

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

        If Button4.Text = "" Then

            penampung = Button1.Text

            Button1.Text = Button4.Text

            Button4.Text = penampung

            warna = Button1.BackColor

            Button1.BackColor = Button4.BackColor

            Button4.BackColor = warna

        ElseIf Button2.Text = "" Then

            penampung = Button1.Text

            Button1.Text = Button2.Text

            Button2.Text = penampung

            warna = Button1.BackColor

            Button1.BackColor = Button2.BackColor

            Button2.BackColor = warna

        End If

    End Sub

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

        If Button1.Text = "" Then

            penampung = Button2.Text

            Button2.Text = Button1.Text

            Button1.Text = penampung

            warna = Button2.BackColor

            Button2.BackColor = Button1.BackColor

            Button1.BackColor = warna

        ElseIf Button5.Text = "" Then

            penampung = Button2.Text

            Button2.Text = Button5.Text

            Button5.Text = penampung

            warna = Button2.BackColor

            Button2.BackColor = Button5.BackColor

            Button5.BackColor = warna

        ElseIf Button3.Text = "" Then

            penampung = Button2.Text

            Button2.Text = Button3.Text

            Button3.Text = penampung

            warna = Button2.BackColor

            Button2.BackColor = Button3.BackColor

            Button3.BackColor = warna

        End If

    End Sub

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

        If Button2.Text = "" Then

            penampung = Button3.Text

            Button3.Text = Button2.Text

            Button2.Text = penampung

            warna = Button3.BackColor

            Button3.BackColor = Button2.BackColor

            Button2.BackColor = warna

        ElseIf Button6.Text = "" Then

            penampung = Button3.Text

            Button3.Text = Button6.Text

            Button6.Text = penampung

            warna = Button3.BackColor

            Button3.BackColor = Button6.BackColor

            Button6.BackColor = warna

        End If

    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button7.Text = "" Then

            penampung = Button4.Text

            Button4.Text = Button7.Text

            Button7.Text = penampung

            warna = Button4.BackColor

            Button4.BackColor = Button7.BackColor

            Button7.BackColor = warna

        ElseIf Button5.Text = "" Then

            penampung = Button4.Text

            Button4.Text = Button5.Text

            Button5.Text = penampung

            warna = Button4.BackColor

            Button4.BackColor = Button5.BackColor

            Button5.BackColor = warna

        ElseIf Button1.Text = "" Then

            penampung = Button4.Text

            Button4.Text = Button1.Text

            Button1.Text = penampung

            warna = Button4.BackColor

            Button4.BackColor = Button1.BackColor

            Button1.BackColor = warna

        End If

    End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If Button8.Text = "" Then

            penampung = Button5.Text

            Button5.Text = Button8.Text

            Button8.Text = penampung

            warna = Button5.BackColor

            Button5.BackColor = Button8.BackColor

            Button8.BackColor = warna

        ElseIf Button6.Text = "" Then

            penampung = Button5.Text

            Button5.Text = Button6.Text

            Button6.Text = penampung

            warna = Button5.BackColor

            Button5.BackColor = Button6.BackColor

            Button6.BackColor = warna

        ElseIf Button4.Text = "" Then

            penampung = Button5.Text

            Button5.Text = Button4.Text

            Button4.Text = penampung

            warna = Button5.BackColor

            Button5.BackColor = Button4.BackColor

            Button4.BackColor = warna

        ElseIf Button2.Text = "" Then

            penampung = Button5.Text

            Button5.Text = Button2.Text

            Button2.Text = penampung

            warna = Button5.BackColor

            Button5.BackColor = Button2.BackColor

            Button2.BackColor = warna

        End If

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If Button9.Text = "" Then

            penampung = Button6.Text

            Button6.Text = Button9.Text

            Button9.Text = penampung

            warna = Button6.BackColor

            Button6.BackColor = Button9.BackColor

            Button9.BackColor = warna

        ElseIf Button5.Text = "" Then

            penampung = Button6.Text

            Button6.Text = Button5.Text

            Button5.Text = penampung

            warna = Button6.BackColor

            Button6.BackColor = Button5.BackColor

            Button5.BackColor = warna

        ElseIf Button3.Text = "" Then

            penampung = Button6.Text

            Button6.Text = Button3.Text

            Button3.Text = penampung

            warna = Button6.BackColor

            Button6.BackColor = Button3.BackColor

            Button3.BackColor = warna

        End If

    End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If Button8.Text = "" Then

            penampung = Button7.Text

            Button7.Text = Button8.Text

            Button8.Text = penampung

            warna = Button7.BackColor

            Button7.BackColor = Button8.BackColor

            Button8.BackColor = warna

        ElseIf Button4.Text = "" Then

            penampung = Button7.Text

            Button7.Text = Button4.Text

            Button4.Text = penampung

            warna = Button7.BackColor

            Button7.BackColor = Button4.BackColor

            Button4.BackColor = warna

        End If

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If Button9.Text = "" Then

            penampung = Button8.Text

            Button8.Text = Button9.Text

            Button9.Text = penampung

            warna = Button8.BackColor

            Button8.BackColor = Button9.BackColor

            Button9.BackColor = warna

        ElseIf Button7.Text = "" Then

            penampung = Button8.Text

            Button8.Text = Button7.Text

            Button7.Text = penampung

            warna = Button8.BackColor

            Button8.BackColor = Button7.BackColor

            Button7.BackColor = warna

        ElseIf Button5.Text = "" Then

            penampung = Button8.Text

            Button8.Text = Button5.Text

            Button5.Text = penampung

            warna = Button8.BackColor

            Button8.BackColor = Button5.BackColor

            Button5.BackColor = warna

        End If

    End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If Button8.Text = "" Then

            penampung = Button9.Text

            Button9.Text = Button8.Text

            Button8.Text = penampung

            warna = Button9.BackColor

            Button9.BackColor = Button8.BackColor

            Button8.BackColor = warna

        ElseIf Button6.Text = "" Then

            penampung = Button9.Text

            Button9.Text = Button6.Text

            Button6.Text = penampung

            warna = Button9.BackColor

            Button9.BackColor = Button6.BackColor

            Button6.BackColor = warna

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Berhasil Mengurutkan Puzzle ini")

        End If

    End Sub

Apabila Kode program diatas sudah dimasukan disetiap tombol sesuai ketentuanya maka kotak-kotak pada game puzzle ini sudah bisa digerakan sesuai denganketentuan(Saat ditekan tombol yang terletak di dekat tombol kosong/warna hitam maka tombol tersebut akan menempati tombol/kotak kosong/kotak berwarna hitam, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.)

Membuat Acak Angka :

untuk tombol ini kita butuh satu komponen lagi yaitu toolbox Timer, yang fungsinya untuk mengajak angka-angka secara otomatis dan berkelanjutan dan tidak akan berhenti sampai ditekanya tombol stop.

Setelah timer di pilih, akan muncul gambar jam/timer kecil dibawah, setelah itu klik gambar jam kecil itu dan masuka kode program dibawah ini(kode program untuk mengacak angka-angka)

langsung saja kita lihat kode programnya :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim pindah As String

        'satu

        pindah = Button9.Text

        Button9.Text = Button6.Text

        Button6.Text = Button3.Text

        Button3.Text = pindah

        warna = Button9.BackColor

        Button9.BackColor = Button6.BackColor

        Button6.BackColor = Button3.BackColor

        Button3.BackColor = warna

        'dua

        pindah = Button8.Text

        Button8.Text = Button5.Text

        Button5.Text = Button2.Text

        Button2.Text = pindah

        warna = Button8.BackColor

        Button8.BackColor = Button5.BackColor

        Button5.BackColor = Button2.BackColor

        Button2.BackColor = warna

        'tiga

        pindah = Button7.Text

        Button7.Text = Button8.Text

        Button8.Text = Button9.Text

        Button9.Text = pindah

        warna = Button7.BackColor

        Button7.BackColor = Button8.BackColor

        Button8.BackColor = Button9.BackColor

        Button9.BackColor = warna

       

        'empat

        pindah = Button4.Text

        Button4.Text = Button5.Text

        Button5.Text = Button6.Text

        Button6.Text = pindah

        warna = Button4.BackColor

        Button4.BackColor = Button5.BackColor

        Button5.BackColor = Button6.BackColor

        Button6.BackColor = warna

       

        'lima

        pindah = Button7.Text

        Button7.Text = Button4.Text

        Button4.Text = Button1.Text

        Button1.Text = pindah

        warna = Button7.BackColor

        Button7.BackColor = Button4.BackColor

        Button4.BackColor = Button1.BackColor

        Button1.BackColor = warna

    End Sub

     Setelah Kode diatas dimasukan di Timer, sekarang tinggal memasukan kode program untuk mengaktifkan pengacakan angka-angka tersebut melalui tombol Acak Angka.

Masukan kode program dibawah ini di Button10 / tombol acak angka. :

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Timer1.Enabled = True 

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = True

        Button7.Enabled = True

        Button8.Enabled = True

        Button9.Enabled = True

        Button10.Enabled = False

        Button11.Enabled = True   

End Sub

Kode Program diatas berfungsi selain untuk mengaktifkan acak Angka(yang kode programnya ada di Timer) juga untuk mengaktifkan tombol / kotak puzzle yang sebelumnya emang dinon aktifkan dan juga berfungsi untuk non aktifkan tombol Acak angka ini sendiri.

Membuat Tombol Stop Acak

Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Button11.Enabled = False

        Timer1.Enabled = False

        Button10.Enabled = True

    End Sub

Finish!!

Progam siap untuk di jalankan..

Semoga bermanfaat bagi semua..amin

TETAP BERJUANG!!!

Go..go…SEMANGAT!!!

Tugas 2 Pemograman Visual

Tugas 2 Analisa Program Visual Studio

Analisa Program Pertama

3a. Apa yang menyemabkan program eror pada Btalamat1_Click baris program alamat =  “KUNINGAN”

Menurut saya yang menyebabkan program error pada  btalamat1_click baris program alamat = “Kuningan” yaitu pada btalamat1_click tidak ada pendeklarasiannya yaitu kurang “Dim alamat As String”/ type const tidak dapat mewakili untuk alamat.

3b. Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama yang berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox alamat sama

Untuk perbedaan output antara tombol nama1 dan nama2 karena variabelnya. Untuk tombol nama1 menggunakan variable local “Dim....”

Sedangkan untuk nama2 menggunakan variable Global (module) , “Public Const.....” sehingga dikenal disemua program

Sedangkan pada alamat dalam form1 sudah menggunakan “Const...” dan pada module “ Public Const....” digunakan kembali sehingga untuk alamat itu tidak berpengaruh.

3c. Karena pada tombol umur 1 hanya menggunakan;

Dim umur As Integer

 Sehingga hanya angka 1 yang muncul,

Sedangakan, pada tombol umur 2 menggunakan;

Static umur As Integer

Sehingga angka tersebut akan bertambah secara urut sampai tak terhingga dan tak hilang selama program dijalankan.

3d. Karena terdapat Coding Option Explicit Off yang 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.

IF/CASE

Kelemahannya yaitu tidak ada coding pada harga dan nama barang “TAS”, sehingga apabila di Run pada ComboBox pilih kode barang “Tas” nama barang dan harga tidak tercantum. Saya tambah coding nama barang dan harga, setelah di Run nama barang dan harga pun muncul

Hasil Sebelum di edit:

Hasil Setelah di edit:

Tidak ada pilihan YES/NO pada tombol keluar, sehingga saya tambahkan kode berikut

Ini hasil progam setelah di run

Demikian beberapa analisa yang saya bias ketahui dari kedua aplikasi di atas

Semoga berguna bagi semua..amin

tetap SEMANGAT!!!go..go...!!!