MEMODIFIKASI PROGRAM DAN MEMBUAT GAME PUZZLE

MEMODIFIKASI PROGRAM IF CASE

Program ini adalah Program pada pertemuan sebelumnya yang sudah di modifikasi dan apabila program di jalankan semua tombol akan mati kecuali isi data dan keluar

berikut gambar printscrennya :

Pada saat button isi data di klik maka semua tombol akan aktif kecuali button isi data

berikut gambar printscrennya :

Kemudian ketika button clear di tekan maka tampilan akan seperti semula

Berikut koding2 program tersebut :

MEMBUAT GAME PUZZLE

Untuk membuat game puzzle kita membutuhkan, 11 button dan 1 timmer.

Seperti ini gambar puzzlenya :

Dan berikut ketika gambar pada saat game puzzle di tekan tombol keluar :

Dan inilah tampilan kodingnya :

Terimakasih , sampai beretmau kembali di tugas selanjutnya. WaaAAAAaaoooooWWWw......!!!

TUGAS 2

TUGAS PEMROGRAMAN VISUAL 2

PEMROGRAMAN VISUAL

Latihan 1

 

    1.Apa yang menyebabkan program eror pada btalamat_Click baris program alamat = “Kuningan”

Jawab :

Variabel tersebut belum di deklarasikan dengan “Dim” sehingga, variable tersebut tidak bisa dijadikan sebagai target operasi.

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

Jawab :

Alamat 1 & Alamat 2 :

Const merupakan suatu fungsi yang digunakan untuk mendeklarasikan suatu variabel yang ruang lingkupnya umum namun masih dalam satu form.

 

3.  kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur 2 umur akan selalu bertambah 1 dari umur sebelumnya?

 

     4. Berikan analisa Form 2 ?

Form 2 bekerja bila mana user menekan tombol Tambah Form 2 dari form 1, nama “Nandang hermanto” di text box 1 didapat dari Module1 :

 

 

 

Latihan 2

 Menurut saya kekurangan pada program ini adalah pada combobox terdapat kode "TAS" yang belum ada listing programnya, maka jika program ini dijalankan akan menghasilkan gambar seperti di bawah ini.

gambar di atas menunjukan kode "TAS" tidak perlu ada pada combobox tapi bisa juga ditambaih listing program agar kode "TAS" dapat dijialankan.
inilah listing program yang saya gunakan untuk memperbaiki kode "TAS" :

case "TAS"
namabarang = "Tas"
harga = 100000

dan hasilnya akan menjadi seperti gambar dibawah ini:

Tugas Kuliah

Di post pertama saya , saya akan menjelaskan sedikit cara Membuat Aplikasi Sparepart MOTOR Menggunakan Visual Basic dan dibuat menggunakan program Microsoft Visual Studio 2010 .

Langkah – Langkah Membuat Aplikasi Sparepart Motor

1. Buka Microsoft Visual Studio 2010

2. Buka File –> New Project –> pilih windows form application

3. Buatlah design form sesukamu .

dan inilah design yang saya sudah buat

untuk memasukkan Label, Button , serta Textbox kedalam form adalah dengan cara drag salah satu tool tersebut di dalam toolbox ke form tersebut .

4. Setelah itu beri nama masing-masing Label, Textbox, dan Buttonnya supaya memudahkan dalam menulis script .

5. Beri Script pada ke tiga button tersebut dengan cara double click pada button tersebut .

A. Button Hitung :

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

        Dim harga, jumlah, disc, beli, totdisc, bayar As Integer

        harga = Val(txtharga.Text)

        jumlah = Val(txtjumlah.Text)

        disc = Val(txtdiscount.Text)

        beli = (harga * jumlah)

        totdisc = (beli * disc) / 100

        bayar = (beli - totdisc)

        MsgBox("Rincian Biaya Pembelian" & vbNewLine & vbNewLine & _

        "Kode : " & txtkode.Text & vbNewLine & _

        "Nama barang : " & txtbarang.Text & vbNewLine & _

        "Merk : " & txtmerk.Text & vbNewLine & _

        "Harga : " & txtharga.Text & vbNewLine & _

        "Jumlah : " & txtjumlah.Text & vbNewLine & _

        "Discount : " & txtdiscount.Text & " %" & vbNewLine & _

        "Harga discount : Rp. " & totdisc & vbNewLine & vbNewLine & _

        "Total Bayar : Rp. " & bayar & vbNewLine)

        

    End Sub

B. Button Hapus

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

        txtkode.Clear()

        txtbarang.Clear()

        txtmerk.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtdiscount.Clear()

        txtkode.Focus()

    End Sub

C. Button Keluar

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

        If MsgBox("Sumpah LU mau KELUAR ??? ", 4 + 32 + 256, "cIYUUUSSS") = 6 Then

            Me.Close()

        End If

    End Sub

6. Lalu jalankan program tersebut dengan cara klik tombol icon play ( segitiga miring warna hijau )

7. ScreenShoot Program yang telah dijalankan :

Setelah di klik button hitung :

Setelah di klik button keluar :