Kejobong City

• Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak akti
• Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
• Saat ditekan combol clear sama dengan saat form dijalanka

- Langkah pertama adalah membuat tombol Isi data seperti berikut.




 -Langkah kedua adalah mengisi code program untuk tombol "Isi data" Seperti berikut.










-Langkah selanjutnya adalah kita meng RUN program yang kita buat. setelah diRun akan tampil sbb:






-Klik tombol isi data maka akan menjadi seperti ini. Dan kita pilih TAS seperti gambar dibawah.







-Kemudian kita bersihkan data dengan cara klik tombol clear, maka tampilan menjadi seperti ini.









Download program if dan case

1.  Hidupkan PC dan buka VB 2010





2.  Membuat Tampilan dengan cara mengambl button yang ada dimenu toolbox sebanyak 9 button, kumudian edit textnya menjadi urut 1 sampai 9, sesuai no button dan button no 9 silahkan nama text nya di kosongi.







3.  Kemudiankita mengatur tombol supaya saat ditekan dapat berpindah nomernya, aturlah seperti berikut, button1 diantara button 2 dan button 4 dan seterusnya, Lihat gambar!





4.  Kemudian lanjutan dari no 3, yaitu code program untuk masing2 code, untuk code program button1 seperti ini "CheckButton(Button1, Button2)  CheckButton(Button1, Button4)"
Karena terdapat kesaalahan pada lingkaran "error connection option" , maka kita membuat module untuk menghidupkan "ChekButton" supaya dapat dibaca oleh program, setelah kita add modele, kita isikan code program seperti digambar.
Sub CheckButton(ByRef Butt1 As Button, ByRef Butt2 As Button)
        If Butt2.Text = "" Then
            Butt2.Text = Butt1.Text
            Butt1.Text = ""
        End If






5. Setelah "CheckButton" sudah dihubungkan menggunakan module, sekarang menu "checkButton" dapat berfungsi. Dan berikut code program untuk button 1 sampai button 9. Lihat gambar!





6.  Kemudin kita coba program kita dengan cara RUN dan kita coba apakah angka yang kita clik berpindah seperti yang kita inginkanm seperti gambar berikut urutan clik nya tombol 8, 7, 4 yg kita click.






7.  Kembali lagi ke code program setelah percobaan selesai, kita masukan code "CheckSolved" seperti gambar berikut, karena "error connection options" kita kembali llagi ke module, kemudian kita tuliskan code program seperti gambar berikut yang dilingkari.





8.  Selanjutnya adalah kita membuat menu "PLAY" untuk memulai permainan dan untuk menacak angka juga, dan menu "EXIT" untuk keluar dari game tersebut. Buatlah menggunakan ToolStrip dan langkahnya seperti berikut dan berikan nama PLAY seperti memberi nama pada button.







9. Setelah membuat menu PLAY dan EXIT, kita isikan code program untuk EXIT supaya saat tombol exit ditekan maka kita keluar dari game puzzle tersebut. Double klik pada rancangan EXIT kemudian isikan code program berikut. Lihat gambar yang dilingkari.





10.  Ini juga sama seperti EXIT diatas, tapi ini EXIT untuk tombol Silang yang ada di pojok kanan atas supaya saat ditekan ada pertanyaan seerti saat kita menekan tombol EXIT. Berikut langkah dan codenya.





11. Selanjutnya kita aktifkan tombol PLAY supaya saat kita tekan tombol PLAY maka angka secara otomatis acak. Berikut kita tuliskan "Play()"  Terjadi "error connection options" Maka kita menuju ke module untuk memberikan code program.






12.  Berikut lanjutan dari no 11, isikon code program pada module untuk PLAY.





13.  Selesai... Kita coba untuk yang terakhir... seperti berikut...
Jika sudah di Run maka akan tampil game puzzlenya kemudian untuk mulai dan mengacak angkanya kita tekan tombol PLAY, setelah diacak kemudian kita menyusun angka sampai urut, maka akan tampil
"Selamat anda berhasil dan mendapatkan mobil berupa brosur hehe"





Download Game Puzzle Sederhana

1. Pertanyaan

•  Apa yang menyebabkan program error pad btalamat1_click baris program alamat = "kuningan"
• 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.
• Kenapa saat ditekan tombol tambah umur1 selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur2 umur selalu bertambah 1 dari umur sebelumnya.
• Berikan analisa anda untuk form dua

1. Lihatlah gambar dibawah ini. Kita lihat gambar yang sebelum diedit, yang dilingkari terdapat code (alamat = "kuningan" dan Txtalamat.Text = alamat) , Supaya program tidak error, berilah code tambahan (Dim alamat As String) seperti gambar SETELAH DIEDIT yang berada didalam lingkaran. Maka program dapat dijalankan tanpa tanda error.



























2. Lihatlah gambar dibawah ini. Karena pengaruh module1, yaitu form1 dihubungkan dengan module1 yang sudah berisi code program seperti dibawah ini.




















3. Ditekan tambah umur 1 selalu keluar angka 1 karena menggunakan "Dim" tentu kita sudah mengetahui kegunaan "Dim" yaitu untuk memanggil data, sedangkan tambah umur 2 selalu bertambah 1 umur dari umur sebelumnya karena menggunakan "Static" yang jika tombol tambah umur 2 ditekan maka akan selalu bertambah umur dari umur sebelumnya.
















4.Yang terakhir adalah menganalisa untuk Form dua, setelah saya mengikuti file panduan dari dosen saya, saya dapat membuat program ini dan saya mempunyai analisis untuk Form dua. Coba kita perhatikan gambar dibawah ini dibagian code programnya, disitu hanya terdapat code program untuk Tutup, Nama, Alamat dan Tambah. Kita perhatikan untuk code Tutup disitu hanya terdapat code (Me.Close()) yang jika ditekan maka output Form dua Akan langsung tertutup. Kemudian perhatikan code Nama Disitu terdapat code (Txtnama.Text = nama) yang memanggil nama dari Form1 dengan menggunakan bantuan module maka jika ditekan tombol Nama akan memanggil nama yang ada di code module. Kemudian perhatikan code Alamat dan code Tambah(umur) Disitu fungsinya sama seperti code program untuk code Nama.

























Download Program variabel constanta.

NAMA      : DION SIDAONO
NIM          : 11.11.2557
KELAS     : TI 11 D

 Pertemuan 1 
1. Materi

• Pertemuan1_Pengolahan Basis Data
• Pertemuan2_Basic Windows Controls
• Pertemuan5_Array Dan Control
  

2. Praktek

• Praktikum1_PB_Console 
• Praktikum1_ Pengolahan basis data pertemuan pertama

3.Tugas

• Tugas Pertemuan1_Membuat aplikasi Menghitung Biaya SKS Menggunakan VB 2010
• Tugas Pertemuan2 Variabel constanta type data
• Tugas Pertemuan2 Program If  Dan Case 
• Tugas Pertemuan3 Membuat Game Puzzle
• Tugas Pertemuan3 Perulangan If dan Case 
• Tugas Pertemuan4 CheckBox, RadioButton, ListBox  
• Tugas Pertemuan7 Menu,ToolBar dan MDI Parent 
• Tugas Pertemuan8 Sub Program Procedure(Sub) Dan Function
• Tugas Pertemuan9 Koneksi Tran Dengan Database Server