Modifikasi Dan Tugas 3 Program Puzzle

Kali ini saya akan memodifikasi dari tugas sebelumnya yaitu tugas ke 2, tampilannya sebagai berikut :

Dan akan saya modifikasi menjadi seperti ini dengan ketentuan sebagai berikut :

1. Saat form dijalankan : semua isia tiadak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif
2. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear dan tutup aktif, tombol isi data tidak aktif
3. Saat di tekan tombol clear sama dengan saat form dijalankan

       Oke langsung ke cara pembuatannya:

1. Tambahkan tombol baru yaitu tombol isi data pada form
2. Pada combo kode barang, textbox jumlah barang, radio tunai & kredit, dan tombol clear beri atribut tag "grup1" pada properties
3. Lalu pada textbox nama barang, harga barang, total harga, diskon, total bayar beri atribut tag "grup2" pada properties
4. Dan atribut tag "grup3" untuk tombol isi data
5. Doubel klik pada form untuk masuk ke sub form_load dan masukkan kode agar saat dijalankan form kontrol dengan atribut tag grup1 dan grup2 tidak aktif, berikut coding beserta penjelasannya:

6. Doubel klik tombol isi data untuk memasukkan kode agar saat di klik kontrol dengan atribut tag "grup1" yang terdiri dari kode barang, jumlah barang dan cara beli aktif. Berikut kode dan penjelasannya: 

7. Kembali ke form desain lalu dobel klik tombol isi data dan masukkan kode agar saat di klik keadaan kembali seperti saat form pertama di jalankan, berikut coding dan penjelasan:

8. Run Program  

PUZZLE 

 Kali ini saya akan membuat sebuah program yang dapat mengasah otak teman - teman, salah satu dari program ini adalah Puzzle angka, berikut adalah tampilannya :

 Untuk model tampilannya saya sengaja meniru dosen saya yaitu menggunakan listBox untuk menampung angka yang akan di acak, selain itu menggunakan listbox juga akan mempersingkat coding yang akan kita tulis. puzzle tersebut memiliki beberapa ketentuan sebagai berikut :

1. Saat Form di jalankan posisi Angka acak
2. Saat di tekan tombol yang terletak di dekat tombol kosong, maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai angkanya tersusun dari 1-8
3. Saat semu angka tersusun tampilkan pesan "Selamat Anda Berhasil"

       Di sini untuk ketentuan pertama saya abaikan karena saya memberi tombol acak untuk mengacak angka sebelum memulai permainan sehingga saat form di jalankan keadaan angka masih terurut, Berikut cara pembuatannya :

1. Buat form dengan tampilan seperti di atas, dan beri nama tombol acak dengan btacak, tombol keluar dengan btkeluar dan tombol sisanya yaitu untuk 1 sampai 9 beri nama bt1- bt9
2. beri atribut tag "1" pada semua tombol puzzle
3. untuk mempersingkat coding kita buat modul, dengan cara klik kanan pada project - add - Module - OK
4. pada module kita akan mengetikan method untuk menukar tombol yang memiliki isi dengan tombol kosong, berikut coding dan penjelasan :

 

5. kemudian kita juga akan membuat method untuk mengecek apakah semua tombol sudah pada tempatnya, jika sudah akan di tampilkan pesan " Selamat, Anda Berhasil", berikut coding dan penjelasannya :

6. kembali ke form1 design lalu doble klik pada form untuk masuk ke sub form_load. pada sub ini kita akan memberi perintah untuk mengisi listBox, dan buat juga variabel dengan tipe boolean pada class form1 yang akan kita gunakan untuk mengacak angka nanti. pada form load beri perintah sebagai berikut :

7. untuk tombol angka 1-8 & tombol kosong alias bt1-bt9 kita masukkan method tukar() dan menang() yang sudah kita buat pada module: seperti berikut : 

8 untuk mengacak angka kita memerlukan kotrol form berupa timer, pada form design doble klik timer pada toolbox maka akan muncul timer pada bagian bawah. Timer merupakan kontrol form yang tidak di tampilkan saat program di jalankan alias background
.
9. kita akan mengisi timer dengan perintah untuk mengacak isi ListBox lalu isi ListBox akan ditampilkan pada kotak puzzle, untuk setiap kotak puzzle berisi satu item yang ada pada listBox sesuai urutan dari atas. Berikut coding dan penjelasannya :

 

10.untuk mengacak angka kita beri perintah pada tombol acak unutk menjalankan timer seperti berikut :  

11.Dan terakhir untuk tombol keluar kita beri perintah untuk menampilkan kotak konfirmasi apakah ingin keluar atau tidak seperti ini : 

 

 

 

 

  

Tugas Praktikum 2

1) Yang membuat program error yaitu alamat tidak menemukan tujuan yang jelas, tujuan yang terdekat adalah pada const alamat = “Kuningan”, sedangkan di module adalah  Purwokerto”. Seharusnya pada program btalmtt1_Click baris alamat = “Kuningan” di beri tanda ‘ untuk mentidak aktifkannya, dikarenakan sebelumnya tidak ada pendeklarasian alamat ( seharusnya Dim di ubah menjadi String )

2) Karena Pada tombol nama1 pendeklarasian nama sudah di masukan Dim nama As String. Nama = “Nandang” sedangkan pada tombol nama2, nama belum di deklarasikan sehingga sehingga mengambil dari module. Pada Btalamat 1 dan tombol alamat2 sudah di deklarasikan di form1 dengan Conts alamat = “kuningan”

3)   Pada program bttambahumur1_Click baris Dim umur As Integer, seharusnya Dim diganti dengan Static agar saat ditekan tombol tambah umur 1, umur bertambah 1 dari sebelumnya.

4)  Pada form2 button – button seperti btnama, btalamat, dan btumur sudah menemukan target yang jelas pada module, pada btnama baris txtnama.Text = nama ada target di module yaitu Public const nama As String = “Nandang Hermanto” Pada btalamat juga ada target di module yaitu Public const alamat As String = “Purwokerto” Pada btumur juga ada target di module yaitu Public const umur As Integer = 17

If dan Case.

Kelemahan:

Programnya ada pada nama barang dan harga barang, dimana tertuliskan nama barang = - dan harga barang = 0, itulah yang menyebabkan program menjadi salah.

Design Program

Listing program sebelum di benarkan

Listing program setelah di benarkan

Program siap di jalankan ( F5 )

Kalkulator Sederhana

 Ini adalah salah satu program yang saya buat (kalkulator sederhana ), yang di tujukan untuk memenuhi tugas visual basic, saya menyadari bahwa ini jauh dari sempurna.
Berikut ini adalah tampilan programnya:

 Listing Programnya :