PANDUAN DASAR MIKROKONTROLER dengan TOP VIEW SIMULATOR

Bagi yang baru belajar mikrokontroler mungkin akan sedikit kesulitan jika harus mencoba membuat program dan menjalankannya menggunakan rangkaian mikrokontroler (hardware). Namun kali ini kita akan mencoba menggunakan simulator untuk menjalankan / debugging program mikrokontroler keluarga MCS51. Dengan simulator akan lebih mudah menjalankan program dan tanpa biaya untuk membuat rangkaiannya.

Pertama kita install dulu Top View Simulator nya. Bagi yang belum punya silakan unduh di sini.

1.Jalankan setup.exe dan akan tampil seperti ini.

Gambar 1.

2.Tekan Next, dan pilih directory tempat menyimpan file sistemnya. Untuk standard nya pada C:\Program file\

3.Tekan Next, Next, dan tunggu hingga proses selesai.

Gambar 2.

Nah, kita sudah punya simulatornya. Sekarang bagaimana menggunakannya?

Sebelumnya kita harus punya program assembly. Biasanya program assembly ditulis menggunakan notepad dan disimpan dengan extensi *.asm dan di-compilemenggunakan compiler. Untuk compilernya dapat diunduh di sini.

1.Jalankan TopViewSimulator dan akan muncul seperti gambar 3. Pada menudropdown Select Device pilih Atmel 89C51. Tekan OK.

Gambar 3.

2.Buka program notepad dan ketik listing programnya, kemudian simpan pada folderASM51 dengan extensi *.asm. Misal Coba.asm. Dapat diunduh di sini.

Gambar 4.

3.Untuk meng-compile nya sebenarnya dapat dilakukan dengan menggunakan programTopViewSimulator. Karena pada program tersebut sudah ada menu compile file asm.

4.Pindah ke program TopViewSimulator dan pilih menu File → Load Text File dan pilih pada coba.asm

Gambar 5.

5.Tekan tombol menu Run ASM

Gambar 6.

6.Jika tidak ada kesalahan maka pada coba.lst terdapat tulisan ASSEMBLY COMPLETE, 0 ERRORS FOUND dan tampil.

Gambar 7.

7.Pilih menu File → External Modules Setting → Led dan akan muncul form seperti pada gambar 8. pilih port yang akan disambungkan dengan LED misal port 1, centanglah masing-masing bit pada port 1. selnjutnya tekan OK.

Gambar 8.

8.Selanjutnya adalah menampilkan LED modul tersebut, dengan cara pilih menu View → External Module → Led

Gambar 9.

9.Nah, langkah terakhir yaitu menjalankannya dengan memilih menu Run → Go To dan akan tampil.

Gambar 10.

Isi dengan 00 karena program yang kita buat berawal dari alamat 00H, selanjutnya tekanExecute

Gambar 11.

Mengkoneksikan sql server 2005 dengan vb 2010

1.Pertama buka sql server dulu terus di connect

2.Bikin Database baru...klik kanan di daabase terus new database
   beri nama lalu ok

 

3.bikin tabel baru pada database

 
4.Isi nama colom tabel dan tipe datanya

5.Isi data pada tabel

jika sudah lalu save all

6.buka visual basic 2010 bikin windows form baru lalu tambahkan data source baru

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali.

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue

Kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok

 

 kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish. 

8.Drag atau tarik colom yg berada di table tbmahasiswa dengan tabelnya ke from, ganti jurusan dengan combobox.ganti tgllahir dengan date time picker,ganti visible tbmahasiswaBindingSource menjadi false,tambah button awal sebelumnya selanjutnya akhir tambah cari hapus simpan keluar.

codingnya...

"Awal"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub

 "Sebelumnya"
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub

"Selanjutnya"
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub

"Akhir"
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub

"Tambah"
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub

 "Simpan"
   Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

"Hapus"
   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub

"Cari"
   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim cari As String
        Dim posisi As Integer = 1

        cari = InputBox("Masukkan Nama", "Cari Nama")

        If (TbmahasiswaBindingSource.Find("Nama", cari)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", cari)
            posisi = TbmahasiswaBindingSource.Find("Nama", cari) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub

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

menganalisa program

Program Function dengan Return Value berupa Array

bikin form

codingnya\

Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
        Next i
        Return hasil
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(167, 134, 145, 90, 67, 56, 136, 43, 35, 89)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub


penjelasan
button 1 memanggil variable statistik yang sudah di pesan (167, 134, 145, 90, 67, 56, 136, 43, 35, 89)
Textbox1 menampilkan jumlah keseluruhan dari array yang telah di pesan
Textbox2 menampilkan nilai dari array tersebut
Textbox3 menampilkan nilai dari array tersebut
jadi pada textbox1 muncul 962 yaitu jumlah keseluruhan
pada textbox2 muncul 167 yaitu nilai terbesar
pada textbox3 muncul 35 yaitu nilai terkecil

 Dim statistik As Single() = fstat(167, 134, 145, 90, 67, 56, 136, 43, 35, 89)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)

 

Private Function fstat(ByVal ParamArray args() As Object) As Single()
     Dim hasil(3) As Single

untuk memesan variabel hasil berjumlah 3 yaitu hasil(0),hasil(1),hasil(3)

Dim i As Integer
     For i = 0 To UBound(args)

untuk menjelaskan variabel i menggunakan tipe variabel integer dan perulangan i sebanyak array yang di pesan (To UBound(args))

hasil(0) = hasil(0) + args(i)
      If i = 0 Then
           hasil(1) = args(i)
           hasil(2) = args(i)
      End If
      If hasil(1) < args(i) Then hasil(1) = args(i)
      If hasil(2) > args(i) Then hasil(2) = args(i)
      Next i
      Return hasil

jika i= 0 maka hasil(1) = args jumlah indexnya 

                       hasil(2)= args jumlah indexnya
Jika hasil (1) kurang dari args(i) maka hasil (1) sama dengan hasil args(i)

         hasil(2) lebih besar dari args (i) maka hasil(2) sama dengan args (i) dan terus mengulang sampai jumlah index.

Overloading Function

bikin form

codingnya

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
End Function
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
End Sub

penjelasan

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
End Function 

 Fungsi Penjumlahan antara bil1 dan bil2,

angkanya dipesan di button1ya

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
End Function
Fungsi Penjumlahan antara bil1, bil2 dan bil3

angkanya dipesan di button1 yaitu penjumlahan 1+2+3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
End Sub
Tempat pesan angka 1,2,3

angka 1 adalah bil1,2 adalah bil2, dan 3 adalah bil3
 jika pada button1 dipesan lebih dari 3 angka maka error karena functionnya cuma ada 3 

 jika dipesan 2angka maka hasilnya adalah penjumlahan antara bil1 dan bil2

begitu juga jika dipesan 3angka maka hasilnya penjumlahan antara bil1, bil2, dan bil3

Macam-macam Function Bawaan

Dalam Visual Basic.NET,  terdapat  fungsi-fungsi bawaan  yang  dapat  digunakan  secara  langsung  sehingga  dapat menyingkat waktu pembuatan sebuah program.
Fungsi-fungsi ini berguna  untuk  memanipulasi  numerik,  string,  matematika, serta mengubah tipe data tertentu.
Adapun syntax penulisan function procedure :

[Private/Public]  Function  namafungsi(argumen-argumen) [As type]
Baris perintah
End Function

Dari sytax diatas, namafungsi bisa diisi sesuai kebutuhan , argument-argumen bisa diisi dengan parameter,optional dan argumen lain, As type adalah tipe data yang digunakan
Sebuah Function  dapat dipanggil dengan menggabungkan  pernyataan lain, seperti contoh berikut ini
Variabel = nama Function Procedure
Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau  memanggil sub prosedur yaitu :
Call NamaFunctionProcedure [Parameter]
Atau
NamaFunctionProcedure (Parameter)
~ Fungsi String
Left→mengambil karakter dari sebelah kiri
Right → mengambil karakter dari sebelah kanan
Mid → mengambil karakter dari tengah
LTrim → membuang semua semua awal spasi yang ada disebelah kiri
RTrim → membuang semua semua awal spasi yang ada disebelah kanan
Trim → membuang semua spasi yang ada disebelah kiri dan kanan
Len → memberikan nilai balik integer sebagai panjang string
LCase → mengubah string menjadi huruf kecil semua
UCase → mengubah string menjadi huruf besar semua
Str (int) → mengubah bilangan menjadi string (konversi)
Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

~ Fungsi Matematika
Val (Str) → konversi string menjadi integer
Asc(Char) → konversi karakter menghasilkan nilai ascii
Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif
Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal
Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai
Tan() → mengembalikan nilai tangen dari argument dalam radian
Cos() → mengembalikan nilai cosinus dari argument dalam radian
Atn() → mengembalikan nilai arc tangen dari argument dalam bentuk radian
Long() → mengembalikan nilai logaritma dari argument
CInt() → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
Fix() → pemotongan suatu nilai decimal menjadi integer
Int()→ pembulatan ke bawah suatu nilai decimal

~ Fungsi Tanggal dan Waktu
Date() → mengambil tanggal system komputer
IsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
DateValue → konversi string menjadi date
D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
Time() → mengambil waktu dari system komputer
H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik
TimeValue(str) → konversi string ke variable date

menu mengatur mdichild,posisi menu,menu ribbon

1.Mengatur mdi

  -pertama bikin form1 ditambah menu untuk masuk ke form2,form3,membuat tampilan vertikal,horizontal,dan cascade

   -bikin form2

-bikin form3

-form1 di run panggil form2 dan form3 lalu tekan menu horizontal yg sudah dibuat

-kalo horizontal sudah di coba sekarang coba yg vertikal

-yang terakhir coba cascade

ini codingnya

Public Class Form1

       Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class


2.Mengatur posisi menu

-bikin form1 ditambah menustrip dan toolstrip

-untuk mengatur agar toolstrip menjadi diatas klik kanan pada toolstrip yg ada diform1 lalu pilih send to back

-untuk mengatur toolstrip dan menustrip berada di kanan kiri atas atau bawah silahkan atur pada properties masing-masing dengan mengganti dock

3.Membuat menu ribbon

-download System.Windows.Forms.Ribbon.dll (cari di google)
-bikin windows form baru tapi pake .net framework 3.5

- untuk memasukkan library klik kanan di reference lalu add reference trus browse cari System.Windows.Forms.Ribbon.dll yg sudah di download

-klik kanan open form1.designer.vb

-tambahkan kode berikut

-sekarang coba lihat kembali form1

 

Tugas 4 vb

1.RadioButton
saat pertama di run

saat dipilih












codingnya



Public Class Form1

    Private Sub BtTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTutup.Click
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Enabled = False
    End Sub

    Private Sub RdKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdKawin.CheckedChanged
        If RdPria.Checked = True Then
            If RdKawin.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf RdWanita.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
            End If
        End If
    End Sub



    Private Sub RdTidakKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdTidakKawin.CheckedChanged
        If RdPria.Checked = True Then
            If RdTidakKawin.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Istri"
            End If
        ElseIf RdWanita.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Suami"
            End If
        End If
    End Sub


    Private Sub RdPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdPria.CheckedChanged
        If RdKawin.Checked = True Then
            If RdPria.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf RdTidakKawin.Checked = True Then
            If RdPria.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Istri"
            End If
        End If

    End Sub

    Private Sub RdWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdWanita.CheckedChanged
        If RdKawin.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
            End If
        ElseIf RdTidakKawin.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Suami"
            End If
        End If

    End Sub
End Class

2.Listbox
saat pertama di run

saat uda di isi

codingnya


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox1.Items.Add(bil)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox1.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox1.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

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

        Dim Jumlah As Integer = ListBox1.Items.Count
        For i = 0 To Jumlah - 1
            ListBox2.Items.Add(ListBox1.Items(i))
        Next
    End Sub

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

        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

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

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

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

Daftar tugas visual basic

Nama : Galih Gamala Grantaka

Kelas : TI 11 D

NIM : 11.11.2527


DAFTANYA :

1. Tugas pertama


2. Tugas kedua


3. Tugas ketiga


4. Tugas empat


5. Tugas tujuh


6. Tugas delapan


7. Tugas sembilan

tugas VB yg ke3

tugas menyerangku kembali...pusing banget bikinnya...
nih ada tampilan dan codingnya silahkan di liat


1. Memodifikasi aplikasi penjualan barang
    
 Tampilan pertama saat di run

  



saat di run yg aktif cuma tombol tutup dan isi data












Tampilan saat ditekan tombol isi data

saat di tekan tombol isi data..tombol isi data mati yg lain aktif















Tampilan saat ditekan combol clear

saat menekan tombol clear kembali seperti saat pertama di run










codingnya

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 Btisidata.Enabled = True btntutup.Enabled = True Next Cmbkode.Items.Add("SPT") cmbkode.items.Add("SND") cmbkode.items.Add("TST") cmbkode.items.Add("TOP") Cmbkode.Items.Add("TAS") End Sub Private Sub Cbxkb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbkode.SelectedIndexChanged Dim kdbarang, namabarang As String Dim harga As Single kdbarang = cmbkode.text Select Case kdbarang Case "SPT" namabarang = "SEPATU" harga = 20000 Case "SND" namabarang = "SANDAL" harga = 10000 Case "TST" namabarang = "T-SHIRT" harga = 15000 Case "TOP" namabarang = "TOPI" harga = 50000 Case Else namabarang = "-" harga = 0 End Select txtnama.Text = namabarang txtharga.Text = harga End Sub Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged txtdiskon.Text = Val(txttotal.Text) * 10 / 100 txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged txtdiskon.Text = 0 txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = False Btisidata.Enabled = True btntutup.Enabled = True Next txtbayar.Clear() txtdiskon.Clear() txtharga.Clear() txtjumlah.Clear() txtnama.Clear() txttotal.Clear() Me.Radiotunai.Checked = False Me.Radiokredit.Checked = False Cmbkode.Text = "" End Sub Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click If MsgBox("mau keluar nih ?", vbYesNo + vbQuestion + vbDefaultButton3, "keluar aplikasi") = vbYes Then Me.Close() End Sub Private Sub Btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisidata.Click Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = True Btisidata.Enabled = False Next End Sub End Class

2. Game puzzle
sebelum di run angka masih urut

Tampilan sebelum di run

Tampilan setelah di run

Sedang dimainkan

setelah di run angka acak
















saat dimainkan jika kita menekan angka..angka tersebut akan pindah

Setelah selesai dan menang                                      

jika sudah tersusun akan ada kotak dialog










codingnya

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 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 Button2.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button2.Text = number Loop Until Button2.Text <> Button1.Text End If If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button3.Text = number Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button5.Text = number Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text End If If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button6.Text = number Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text End If If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button7.Text = number Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text End If If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button8.Text = number Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text End If End If Button9.Text = "" Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button2.Text = "" Then Button2.Text = Button1.Text Button1.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button1.Text Button1.Text = "" 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 Menang") 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 Button1.Text = Button2.Text Button2.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button2.Text Button2.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button2.Text Button2.Text = "" 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 Menang") 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 Button2.Text = Button3.Text Button3.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button3.Text Button3.Text = "" 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 Menang") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Button1.Text = "" Then Button1.Text = Button4.Text Button4.Text = "" ElseIf Button7.Text = "" Then Button7.Text = Button4.Text Button4.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button4.Text Button4.Text = "" 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 Menang") End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Button2.Text = "" Then Button2.Text = Button5.Text Button5.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button5.Text Button5.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button5.Text Button5.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button5.Text Button5.Text = "" 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 Menang") 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 Button9.Text = Button6.Text Button6.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button6.Text Button6.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button6.Text Button6.Text = "" 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 Menang") End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If Button4.Text = "" Then Button4.Text = Button7.Text Button7.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button7.Text Button7.Text = "" 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 Menang") End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If Button7.Text = "" Then Button7.Text = Button8.Text Button8.Text = "" ElseIf Button9.Text = "" Then Button9.Text = Button8.Text Button8.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button8.Text Button8.Text = "" 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 Menang") End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If Button6.Text = "" Then Button6.Text = Button9.Text Button9.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button9.Text Button9.Text = "" 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 Menang") End If End Sub End Class