MICROCONTROLLER

          Microcontroller, sebagai suatu terobosan teknologi mikroprosesor dan mikrokomputer merupakan teknologi baru untuk memenuhi kebutuhan pasar. Microcontroller sebagai teknologi baru, yaitu teknologi semikonduktor dengan kandungan transistor yang lebih banyak namun hanya membutuhkan ruang yang kecil sehingga microcontroller dapat diproduksi secara masal (dalam jumlah banyak) membuat harganya menjadi lebih murah (dibandingkan mikroprosesor). Microcontroller sebagai kebutuhan pasar, mikrokontroler hadir untuk memenuhi selera industri dan para konsumen akan kebutuhan dan keinginan alat-alat bantu bahkan mainan yang lebih baik dan canggih. Tidak seperti sistem komputer, yang mampu menangani berbagai macam program aplikasi (misalnya pengolah kata, pengolah angka dan lain sebagainya), mikrokontroler hanya bisa digunakan untuk suatu aplikasi tertentu saja (hanya satu program saja yang bisa disimpan). Perbedaan lainnya terletak pada perbandingan RAM dan ROM. Pada sistem komputer perbandingan RAM dan ROM-nya besar, artinya program-program pengguna disimpan dalam ruang RAM yang relatif besar, sedangkan rutin-rutin antarmuka perangkat keras disimpan dalam ruang ROM yang kecil. 

              Sedangkan pada Mikrokontroler, perbandingan ROM dan RAM-nya yang besar, artinya program kontrol disimpan dalam ROM (bisa Masked ROM atau Flash PEROM) yang ukurannya relatif lebih besar, sedangkan RAM digunakan sebagai tempat penyimpan sementara, termasuk register-register yang digunakan pada mikrokontroler yang bersangkutan. Kelebihan Microcontroller Adapun kelebihan dari mikrokontroller adalah sebagai berikut : Penggerak pada mikrokontoler menggunakan bahasa pemograman assembly dengan berpatokan pada kaidah digital dasar sehingga pengoperasian sistem menjadi sangat mudah dikerjakan sesuai dengan logika sistem (bahasa assembly ini mudah dimengerti karena menggunakan bahasa assembly aplikasi dimana parameter input dan output langsung bisa diakses tanpa menggunakan banyak perintah). Desain bahasa assembly ini tidak menggunakan begitu banyak syarat penulisan bahasa pemrograman seperti huruf besar dan huruf kecil untuk bahasa assembly tetap diwajarkan. Mikrokontroler tersusun dalam satu chip dimana prosesor, memori, dan I/O terintegrasi menjadi satu kesatuan kontrol sistem sehingga mikrokontroler dapat dikatakan sebagai komputer mini yang dapat bekerja secara inovatif sesuai dengan kebutuhan sistem. 

               Sistem running microcontroller berdiri sendiri tanpa tergantung dengan komputer sedangkan parameter komputer hanya digunakan untuk download perintah instruksi atau program. Langkah-langkah untuk download komputer dengan mikrokontroler sangat mudah digunakan karena tidak menggunakan banyak perintah. Pada mikrokontroler tersedia fasilitas tambahan untuk pengembangan memori dan I/O yang disesuaikan dengan kebutuhan sistem. Harga microcontroller lebih murah dan mudah didapat. Unit Microcontroller Keluarga MCS-51 merupakan mikrokontroller 8 bit seperti terlihat pada table berikut ini : Device Internal memory program Internal memory data Timer/efen Counter Interupts 8052AH 8051AH 8051 8032AH 8031AH 8031 8751H 8751H-12 8751H-88 8K x 8ROM 4K x 8ROM 4K x 8ROM None None None 4K x 8ROM 4K x 8ROM 4K x 8ROM 256 x 8RAM 128 x 8RAM 128 x 8RAM 256 x 8RAM 128 x 8RAM 128 x 8RAM 128 x 8RAM 128 x 8RAM 128 x 8RAM 3 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 2 x 16 Bit 6 5 5 6 5 5 5 5 5 Terdapat beberapa anggota microcontroller MCS51 yang mempunyai internal memory, salah satunya adalah mikrokontroller AT89C51 yang merupakan versi EEPROM dari 80C51 dimana memory internal ini dapat diprogram dan dihapus secara elektrik dan diproduksi oleh ATMEL Corporation. AT89C51 dibuat compatible dengan sel instruksi dan pin keluaran standar industri MCS-51 yang memiliki 4Kbyte RAM internal dengan teknologi flash EEPROM yang dapat menyimpan data meskipun catu daya dimatikan.

Microcontroller memiliki semua peralatan pokoknya sebagai sebuah komputer dalam satuchip. Peralatan tersebut diantaranya adalah:
- pemroses (processor)
- Memori,
- Input dan output
Kadangkala pada microcontroller ini beberapa chip digabungkan dalam satu papan rangkaian. Perangkat ini sangat ideal untuk mengerjakan sesuatu yang bersifat khusus, sehingga aplikasi yang diisikan ke dalam komputer ini adalah aplikasi yang bersifatdedicated. Jika dilihat dari harga, microcontroller ini harga umumnya lebih murah dibandingkan dengan komputer lainnya, karena perangkatnya relatif sederhana. Contoh alat ini diantaranya adalah komputer yang digunakan pada mobil untuk mengatur kestabilan mesin, alat untuk pengatur lampu lalu lintas, dan lain-lain. Ada bnyak macam IC Microcontroler salah satunya sebagai berikut:

Micro 7.0 adalah sebuah graphical IDE (Integrated Development Environment) untuk mikrokontroler keluarga MCS-51 yang menggunakan compiler ASEMW.EXE. Dengan demikian, sintak yang digunakan dalam Micro 7.0 adalah sintak ASEMW jika ditulis menggunakan bahasa assembly.

Selain menggunakan bahasa assembly, Micro 7.0 juga bisa menggunakan bahasa c untuk menulis programnya, yaitu menggunakan SDCC.

Micro 7.0 mengintergrasikan editor yang dilengkapi dengan code explorer, code hint, dan auto completion sehingga penulisan program menjadi lebih mudah. Dan dengan adanya simulator, Anda akan dimudahkan dalam memahami jalannya program dan pada saat melacak kesalahan logika program.

Micro 7.0 memberikan fitur-fitur tambahan dari versi sebelumnya yang akan menambah kemudahan Anda membuat proyek mikrokontroler. Fitur-fitur baru tersebut antara lain:

·         Code Explorer

Jika kita membuat sebuah deklarasi variabel, maka secara otomatis variabel-variabel tersebut akan dibuat daftarnya dan akan muncul pada panel kiri dari setiap editor. Demikian juga dengan label yang telah kita buat, makro yang kita buat dan lain-lain.

Daftar yang dibuat di panel kiri diurutkan berdasarkan abjad, bukan posisi. Dengan klik ganda pada obyek yang dituju, kursor akan ditempatpan di posisi obyek tersebut dituliskan.

·         Auto Completion

Dengan adanya auto completion, saat kita menulis program, kita akan disuguhi pilihan dengan obyek-boyek yang telah kita buat. Dengan demikian, penulisan program bisa menjadi lebih cepat dan tidak mudah terjadi salah tulis.

Code completion muncul secara otomatis atau bisa dipanggil dengan tombol Ctrl+Spasi

Code completion ini akan secara otomatis muncul jika kita membuat spasi dan saat itu merupakan bagian yang tepat untuk menambahkan kode. Sebagai contoh, saat kita membuat spasi setelah menuliskan acall, maka yang akan dimunculkan adalah semua label yang telah dibuat. Demikian juga jika kita menulis mov, maka setelah menambahkan spasi akan segera dimunculkan semua variabel yang telah kita buat.

Kita juga bisa memanggil agar code completion ini muncul dengan cara menekan tombol Ctrl+Spasi. Jika kita menulis program dalam bahasa C, maka code completion ini tidak akan muncul secara otomatis, kita harus memanggilnya untuk muncul dengan menekan tombol Ctrl+Spasi.

·         Code Hint

Jika kita membuat makro atau fungsi pada penulisan program C, maka terkadang kita lupa akan parameter apa saja yang dimiliki oleh makro atau fungsi tersebut. Saat kita menulis sebuah pemanggilan makro atau fungsi, maka secara otomatis akan dimunculkan hint yang menunjukkan parameter yang dimiliki oleh makro atau fungsi tersebut.

Code Hint membantu menunjukkan parameter pada makro atau fungsi. Muncul secara otomatis atau bisa dipanggil dengan menekan tombol Ctrl+Shift+Spasi

Dan sama seperti code completion, jika code hint tidak muncul secara otomatis, maka kita bisa memanggilnya agar muncul dengan menekan tombolCtrl+Shift+Spasi.

Hal yang paling menarik dari Microcontroller Project adalah integrasi dengan simulator yang bisa dilink ke berbagai program/simulator lain. Kemampuan simulator yang bisa dilink ke simulator lain ini menjadikan Microcontroller Project sangat memudahkan kita dalam merancang sistem berbasis mikrokontroler.

Contoh bentuk hardware microcontroleer dan aplikasinya:

 

Berikut ini merupakan beberapa contoh aplikasi microcontroler pada robot robot:

Contoh Program Sederhana

1.      Program Menghidupkan Led Sederhana

      START           

                  MOV   P2,#01H

                  JMP     $

2.      Menghidupkan Led dengan Bit

      START

                  MOV   P2,#00H

                  SETB  P2.1

                  JMP     $

3.      Menghidupkan Led dengan Biner

                           ORG   0H

        MULAI:

                           MOV   P2,#00001111B

                           CALL TUNDA

                           SJMP   MULAI

       TUNDA:    

               DELAY:          MOV   R0,#50

               DELAY1:       MOV   R1,#100

               DELAY2:       MOV   R2,#100

                                       DJNZ  R2,$

                                       DJNZ  R1,DELAY2

                                       DJNZ  R0,DELAY1

                                       RET

4.      Lampu Flip-flop

                           ORG   0H

  

               MULAI :        

                           MOV   P1,#01010101B

                           CALL TUNDA

                           MOV   P1,#10101010B

                           CALL TUNDA

                           SJMP   MULAI

               ;subrutin delay

               TUNDA:

                           DELAY:          MOV   R0,#20

                           DELAY1:       MOV   R1,#50

                           DELAY2:       MOV   R2,#100

                           DJNZ  R2,$

            DJNZ  R1,DELAY2

            DJNZ  R0,DELAY1

            RET

TUGAS_5 - MEMBUAT MENU STRIP,TOOLBAR,MDI FORM VARIASI(Horizontal,Vertikal,Cascade)

             Pada Postingan kali ini saya akan membahas tentang bagaimana cara pengaturan pada menu strip, toolbar dan pada MDI form pada Microsoft Visual Basic 2010.
Terdapat 3 soal :

1. Mengatur menu toolbar yang berada di atas (top) menjadi  (bottom) di bawah

2. Pengaturan menu form menggunakan MDI Form,MDI child.

     -Horizontal

     -Vertikal

     -Cascade

3. Membuat Menu tambahan menggunakan Library pada VB 2010.

Penyelesaian :

          1.  Untuk menjawab soal no. 1 Pertama kita desain form terlebih dahulu dengan cara memasukan MenuStrip pada toolbox, seperti gambar dibawah ini :

Setelah selesai mendesain kita akan coba mengatur tata letak toolbar dari posisi atas (top) menjadi posisi di kiri (left), caranya klik toolbar yang akan dipindah lalu pilih pada opsi DOCK pada tabel properties da ganti posisi ke arah kiri (left). dan hasilnya sebagai berikut :

           2.   Membuat form menjadi MDI dan didalamnya terdapat MDI child...

caranya pertama kita buat beberapa form baru yang sudah di hubungkan dengan menu pada menu bar. sehingga apabila salah satu menu bar di pilih maka akan menampilkan form-form yang telah dibuat tadi, caranya : 

pertama kita rubah form menjadi form mdi dengan mengaktifkan form pada properties kita pilih IsMDIContainer dan rubah dari False ke True :

 

Selanjutnya kita masukan codingnya :

Public Class Form1

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

    End Sub

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

    End Sub

    Private Sub NIMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIMToolStripMenuItem.Click
        Form4.Show()
        Form4.MdiParent = Me

    End Sub

    Private Sub MapelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MapelToolStripMenuItem.Click
        Form5.Show()
        Form5.MdiParent = Me

    End Sub

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

    End Sub

   Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)
    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 CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class

hasilnya sebagai berikut :

Form menggunakan "Mode Pilihan" Cascade :

 Form menggunakan "Mode Pilihan" Horizontal dan Vertikal :

 

 

          3.    untuk membuat menu tambahan ribbon harus menggunakan library tambahan dengan nama dan ekstensi. caranya :

-  Download Librarynya.

-  kemudian arahkan kursor pada toolbox paling bawah .

-  drag and drop file "System.Windows.Forms.Ribbon.dll" pada menu yang telah di sediakan.

               Sumber :    http://www.gakbakalmati.blogspot.com

Mau Kerja Seperti Ini?

Kantor yang nyaman bukan semata-mata gaji yang tinggi. Melainkan juga lingkungan kerja yang nyaman, rekan kerja yang kooperatif, tak ada jarak dengan bos, waktu kerja yang tidak tergantung office hours, dan apa lagi?

Tambahkan sendiri ke dalam daftar impianmu, yang jelas beberapa perusahaan ini telah menempatkan arti "bekerja" pada koridor yang sesuai sehingga perusahaan dan karyawan sama-sama menikmati keuntungan.

Kantor apa saja yang ada dalam daftar?

Google

Bekerja di Google tampaknya jadi impian banyak orang. Tempat kerjanya benar-benar enak, banyak makanan gratis, bisa bersantai dan bermain. Pokoknya sisi kreatifitas pegawainya yang paling utama. Tak heran, bbc.co.uk menulis artikel kusus tentang kantor google. Dalam artikel tersebut, ditulis bahwa kantor google itu benar-benar "wacky office".

Foto-foto diambil dari kantor google di Zurich

Facebook

Sudah nonton film "Social Network", kan? Jadi tahu seperti apa isi otak Mark Zuckerberg. Nah, seperti itulah impian "kerja nyaman" si pendiri facebook.

Menurut hasil penelitian businessinsider, berikut daftar kenyamanan kerja di facebook:

1. Opsi saham.
2. Jam kerja fleksibel, bisa bekerja dari rumah.
3. Banyak makanan.
4. Tak ada bilik kerja, jadi bisa kerja dan sosialisasi dengan siapa saja.
5. Kesempatan besar untuk meraih apa yang kamu impikan.
6. Budaya yang terbuka terhadap berbagai ide.

Akhirnya, kesimpulan Alaska Miller dan Nicholas Carson, yang menulis artikel tersebut adalah, "Manfaat yang paling berharga untuk bekerja di facebook adalah kemampuan untuk mengatur jam kerja sendiri, kebebasan untuk bekerja dari rumah ketika Anda inginkan dan sebanyak yang Anda ingin, dan semua ini dengan sedikit atau tidak ada gangguan dari manajemen."

Yahoo

Yahoo memiliki banyak kantor cabang di berbagai negara. Untuk workspace environment yang paling asik, kita ambil contoh kantor yahoo di Barcelona.

Bukan apa-apa, kantor yahoo sebenarnya belum bisa dibilang "mampu bersaing" dengan milik google atau facebook. Kantor yahoo masih terlalu "clean". Namun, untuk yang di Barcelona ini sudah lumayan seru, sih.

Kaskus

Tanpa banyak komentar, ini jawara kantor masa depan di Indonesia. Mungkin, seharusnya kaum konvensional harus mulai berkaca pada kreatifitas anak-anak muda negeri ini.

Sepertinya kaskuser sekarang bisa bilang begini, "Bos, percaya deh, mau mencari keuntungan bukan berarti harus kerja rodi, kan? Jangan warisi terus sisi feodal para penjajah, dong."





Sumber:
http://news.bbc.co.uk/
http://www.officesnapshots.com/
http://1dak.com/
http://officeal.com/
http://www.businessinsider.com/

Tugas_4 : ListBox, CheckBox

 

1.    LISTBOX

      a.  Pertama kita desain dulu tampilannya.
           Buat : textbox 1 buah, checkbox 2 buah, button 9 buah.
           lalu atur dan ganti nama sesuai tampilan berikut :

      b.  Lalu kita masukan codingnya :
         
     Double klik pada button isi masukan coding ini :

    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 = ListBox2.Items.Add(TextBox1.Text)
    End Sub

       Double klik pada button 1-10 masukan coding ini :

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


       Double klik pada button satu > masukan coding ini :

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

       Double klik pada button Beberapa > masukan coding ini :

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

        Double klik pada button Semua > masukan coding ini :

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

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

         Double klik pada button Hapus Satu masukan coding ini :

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

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

         Double klik pada button Hapus Beberapa masukan coding ini :

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

          Double klik pada button Hapus Semua masukan coding ini :

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

          Double klik pada button Tutup masukan coding ini :

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

    End Sub
End Class

       c.  Lalu Kita Run Pogramnya. Maka Hasilnya sebagai berikut :
         
            bila kita klik tombol 1-10 maka akan muncul tampilan angka 1 sampai 10
            tombol satu kita klik maka akan menginputkan angka yang kita pilih saja..
            tombol beberapa berarti untuk menginputkan lebih dari satu pilihan...
            tombol semua berarti akan menginputkan semua yang terdaftar...
            begitu juga dengan tombol hapus satu, beberapa, dan semua akan menghapus sesuai perintah...

            kita juga bisa menginputkan huruf contoh "komputer" dengan cara ketikan di textbox 1 dan
            klik tombol isi maka tampilanya sebagai berikut :

2. CHECKBOX

    a.  Pertama Kita desain dahulu tampilannya dengan menambahkan :
         Textbox 1 buah, Check Box 6 buah, button 3 buah GroupBox 1 buah. pada GroupBox kita
         gabungkan ke enam checkbox tersebut ke dalam groupbox.  lalu desain dan ganti nama sesuai
         tampilan berikut :

 
    b.  Selanjutnya masukan coding berikut:

         Double klik pada button Tampilkan masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End Sub

          Double klik pada button GroupBox masukan coding ini :

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
    End Sub

           Double klik pada button Keluar masukan coding ini :

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

    End Sub

           Double klik pada button Hapus masukan coding ini :

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

    End Sub
End Class





     c.  Lalu jalankan programnya. maka tampilanya sebagai berikut :

            Sumber :    http://www.gakbakalmati.blogspot.com

           

MEMODIFIKASI PROGRAM PENJUALAN DAN MEMBUAT PUZZLE ANGKA ALAKADARNYA

Tambahkan kejadian berikut ini, gunakan perulangan :

a).    Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

b).  Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

b).    Saat ditekan tombol clear sama dengan saat form dijalankan

 Sebelumnya kita pernah membahas dan membuat program penjualan, sekarang kita modifikasi program tersebut agar memiliki fungsi seperti perintah diatas.

     Langkah-langkah :

    1.     Pada form kita tambahkan 1 Button lagi, dan ganti namanya menjadi Isi Data. Seperti tampilan berikut :

         

    2.      Selanjutnya double klik pada form 1 lalu masukan coding berikut ini :

 

              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

            btisi.Enabled = True

            bttutup.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

    3.      Lalu double klik pada button Clear dan masukan coding berikut ini :

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            btisi.Enabled = True

            bttutup.Enabled = True

        Next

        txtnama.Clear()

        txtbayar.Clear()

        txtjumlah.Clear()

        txtharga.Clear()

        txtdiskon.Clear()

        txttotal.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbkode.Text = ""

         End Sub

      4.      Terakhir kita double klik pada button Isi Data lalu masukan coding berikut ini :

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            btisi.Enabled = False

        Next

End Sub

End Class

      5.      Setelah semua selesai lalu kita jalankan program klik Debug – Start Debugging ( F5 ).

      Maka secara otomatis saat program dijalankan semua fungsi akan mati kecuali tombol Isi Data dan     

      Tutup, dan saat tombol Isi Data di klik maka semua fungsi akan aktif kembali, dan sebaliknya bila kita 

      mengklik tombol Clear makan semua fungsi akan mati kecuali tombol Isi Data dan Tutup. Sekian dan

      Selamat Mencoba...................... 

MEMBUAT PUZZLE ANGKA SEDERHANA

 Berikut langkah-langkah membuat Puzzle angka sederhana :

      1.      Jalankan Microsoft Visual Basic. Lalu buat projech baru.

      2.      Pertama kita inputkan Button sebanyak 9 buah, lalu ganti nama pada masing- masing button menjadi 

            berurutan seperti 1,2,3,4,5,6,7,8 dan yang terakhir kita ganti dengan ( ... ) . lalu atur posisi dan ukuran 

            masing-masing dengan rapih. Bila perlu ganti warna dan jenis fontnya sesuai selera. Seperti gambar 

            dibawah ini :

        

 

      3.      Selanjutnya kita masukan coding pada Formnya, dengan cara double klik pada Form1 lalu isikan :

         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

           4.      Selanjutnya kita msukan coding pada masing-masing Button.  Berikut codingnya:

           Button 1 :

                      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

          Button 2 :

 

                      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

          Button 3 :

                       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

           Button 4 :

                      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

         Button 5 :

                    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

         Button 6 :

                    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

         Button 7 :

                     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

                     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

         Button 8 :

                     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

         Button 9 :

                    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

 

       5.      Setelah semua selesai selanjutnya kita jalankan programnya dengan klik Debug – Start Debugging (F5). 

             Maka tampilannya otomatis akan diacak seperti gambar dibawah ini :

       6.      Selanjutnya kita coba mainkan Puzzlenya.. otomatis apabila kita berhasil mengurutkanya maka akan 

             muncul tampilan  ucapan : “ SELAMAT ANDA MENANG “ 

           

Sumber :    http://www.gakbakalmati.blogspot.com