Tugas 6

Assalamualaikum Wr.Wb

Pada peretmuan ke-9 matakuliah visual basic kemarin telah dijelaskan pemanfaatan visual basic dengan sql 2005 yang saling terkoneksi.

Pada tugas ke-6 kali ini dalam program ini mahasiswa diharapkan untuk mampu membuat tampilan pertama,sebelumnya,berikutnya,terakhir,tambah,simpan,hapus,cari,filter,edit agar dapat dijalankan.

Berikut paparan tugas-6 yang saya buat .

Pertama-tama saya membuat data pada SQL 2005, dengan data sebagai berikut :

Buka SQL 2005 lalu klik kanan Database, kemudian new Database buat table dengan nama tbmahasiswa kemudian save pada folder D .

Buat table dengan inputan sebagai berikut :
Nim Char 10 not null primary key
Nama Varchar (20),
Alamat Varchar (50),
Tgllahir Datetime,
Jurusan Char (2),
Spptetap Decimal (18,0)

Kemudian untuk mengkoneksikannya pada Visual Basic kita buat New Projeck pada VB 2010
1. Klik Data pada menubox >> pilih Add New Data Sourche >> Pilih Database (Next)  >> Dataset (Next)>> Pada New Conection pilih Microsoft SQL Server (Continue) >>Server Name diisikan sesuai server name pada SQL >> Lalu pilih yes (Next) >> Centang semua table pada tbmahasiswa .
2 . Klik Data pada menubar >> pilih Show Data Sources.
Pada data Jurusan toolbox diganti Combobox .

* Gambar

*Tampilan perintah Pertama (First)

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

        TbmahasiswaBindingSource.MoveFirst()

        MsgBox(" Data Pertama")

    End Sub

*Tampilan perintah Sebelumnya (Previous)

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmahasiswaBindingSource.MovePrevious()
        MsgBox("Data Sebelumnya")
    End Sub

*Tampilan perintah Berikutnya (Next)

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

        TbmahasiswaBindingSource.MoveNext()

        MsgBox("Data Selanjutnya")

    End Sub

* Tampilan perintah Data Terakhir

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveLast()

        MsgBox("Data Terakhir")

    End Sub

*Tampilan perintah Save

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TbmahasiswaDataSet)

    End Sub

*Tampilan perintah Add

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

        Me.TbmahasiswaBindingSource.AddNew()

    End Sub

*Tampilan perintah Delete

 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

*Tampilan perintah Search

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

        Dim NIM As String = InputBox("Masukan NIM", "Pencarian")

        If (TbmahasiswaBindingSource.Find("nim", NIM) > -1) Then

            MsgBox("Ditemukan", vbOK, "cari")

            TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("nim", NIM)

        Else

            MsgBox("Tidak Ditemukan", vbOK, "cari")

        End If

    End Sub

*Tampilan perintah Filter

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

        If (ComboBox2.Text = "SI") Then

            Me.TbmahasiswaBindingSource.Filter = "jurusan="=' & ComboBox2() & '"

        ElseIf (ComboBox2.Text = "TI") Then

            Me.TbmahasiswaBindingSource.Filter = "jurusan "=' & ComboBox2() & '"

        End If

    End Sub

    

End Class

Demikian hasil dari tugas saya,sekian TERIMAKASIH ^_^

TUGAS 5

Assalamualaikum Wr.Wb


Pada pertemuan tugas kali ini saya akan memaparkan hasil Tugas 5 yang diberikan pada pertemuan ke-8 tentang penggunaan sub program PROCEDURE(SUB) dan FUNCTION .

Tugas kali ini mengenai
1 . Pemberian rata-rata pada Function dengan return value berupa array.
2 . Menjelaskan contoh Overloading Function.
3 . Macam-macam Function Bawaan

1 . FUNCTION ARRAY

Pada pertemuan kali ini kita membuat sub program dengan function dengan variabel fstat dengan parameter ByVal yang melewatkan parameter secara nilai dengan menggunakan tipe single yang bernilai bulat. Pada aplikasi ini kita dapat menentukan jumlah nilai total,terbesar,terkecil,dan rata-rata.

Pertama-tama kita membuat tampilan sebagaii berikut :

Kemudian kita tambahkan fariabel rata-rata sehingga menjadi seperti berikut :

Dari gambar diatas kita dapat menentukan jika TextBox1 berada pada label total, TextBox2 pada label terbesar ,TextBox3 pada label terkecil ,dan TextBox4 pada label rata-rata.

Source Coding

Pada aplikasi ini penggunaan array bernama "hasil()" ditujukan untuk mengganti nama variable total, nilai terbesar dan nilai terkecil .

hasil(0) ditujukan untuk mengganti variable total

hasil(1) ditujukan untuk mengganti variable nilai terbesar

hasil(2) ditujukan untuk mengganti variable nilai terkecil

lalu ketika kita tambahkan variable rata-rata maka array hasil ditujukan pada hasil(3)

Pada program ini saya mengganti nilai fungsi fstat untuk pemanggilan nilai terbesar dan terkecil yang keliru pada bagian 

Sebelum dirubah 

Jika syntax seperti ini maka tampilan nilai terbesar akan menjadi nilai 1 dan nilai terkecil akan menjadi nilai 10 .

Sesudah dirubah 

Sesudah dirubah maka tampilan nilai keluaran akan terurut sesuai nilai terbesar dan terkecilnya .

Seperti :

Kemudian untuk menampilkan variable rata - rata kita menempatkan array pada hasil(3) dengan rumus

* Length digunakan untuk mempercepat proses eksekusi berdasarkan banyaknya jumlah data yang dibagi secara otomatis.

Hasil Total diperoleh dari penjumlahan : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Terbesar dari                     : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Terkecil dari                      : 1,6,2,7,3,9,4,10,8,5

Hasil Nilai Rata - Rata dari                  : hasil (55) / Length (10) 

2 . OVERLOADING FUNCTION

Overloading Function adalah beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama .

Dari source coding yang diberikan maka akan terbentuk 1 Textbox dan 1 button seperti berikut 

Kemudian dari source code yang telah diberikan diatas lalu saya kembangkan menjadi  

Ketika  Button1 dijalankan akan muncul seperti berikut :

Lalu ketika kita mengeklik tombol OK akan muncul 

Dari pernyataan diatas kita ulas sedikit mengenai Overloading Function .

Overloading Function adalah Pembuatan fungsi atau method menggunakan nama yang sama namun memiliki parameter yang berbeda .

Jika kita melihat pada source code diatas , terdapat 2 fungsi dengan nama "hitung" namun jumlah parameter yang digunakan berbeda .
Pada Function pertama terdapat 2 parameter sedangkan pada Function kedua menggunakan 3 parameter. Ketika dijalankan program mengeksekusi Function kedua yang menggunakan 3 parameter karena pada Button1 fungsi yang dioverload adalah 3 parameter yaitu hitung("Wiwi ^_^",2,8).

3 . MACAM - MACAM FUNCTION BAWAAN

Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika ,dll.

1 . Fungsi-Fungsi Numerik. 

Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe numerik.

Fungsi-fungsi ini dikelompokan menjadi :

a . Fungsi-Fungsi Konversi ke Integer.

• CInt () : Pembuatan nilai desimal 0,5 dan lebih ke integer yang lebih dekat
• Fix ()   : Pemotongan ke bawah suatu nilai desimal
• Int ()   : Pembuatan ke bawah suatu nilai desimal

- Fungsi Fix() dan Int() memberikan perlakuan yang berbeda pada bilangan positive dan negative. 

Pada bilangan positive Fix() dan Int () mengembalikan nilai yang sama 

contoh : ans1 = Int (14.5) mengembalikan 14

              ans2 = Fix (14.5) mengembalikan 14

sedangkan

pada bilangan negative Fix() dan Int() memberikan pengembalian yang berbeda.

contoh :  ans1 = Int (-14.5) mengembalikan 15

              ans2 = Int (-14.5) mengembalikan 14

- Fungsi CInt() mengembalikan pembulatan angka yang terdekat.

contoh : ans1 = CInt(14.1) mengembalikan 14 

b. Fungsi 'f1'endash Fungsi konversi tipe data

• CCur () : Mengkonversi argumen menjadi tipe data currency
• CDbl () : Mengkonversi argumen menjadi tipe data double (presisi ganda)
• CLng () : Mengkonversi argumen menjadi tipe data long integer
• CSng () : Mengkonversi argumen menjadi tipe data single
• CStr ()  : Mengkonversi argumen menjadi tipe data string
• Ivar ()  : Mengkonversi argumen menjadi tipe data variant 

2 . Fungsi - Fungsi String 

• LCase$ () : Mengembalikan argumen string sebagai tipe data string huruf
• Ucase ()    : Mengembalikan argumen string sebagai tipe data variant huruf besar
• Ucase$ ()  : Mengembalikan argumen string sebagai tipe data string huruf besar
• Val ()       : Mengembalikan nilai number dari argumen string
• Len ()      : Mengembaliakn nilai sumber yang menunjukan panjang string

Substring merupakan bagian dari suatu string .Digunakan 3 fungsi untuk memperoleh substring yaitu :

1. Left$(StringVal, length)              : Mengembalikan nilai string dari sebelah kiri sebanyak length karakter.
2. Right$(StringVal, length)           : Mengembalikan nilai string dari sebelah kanan sebanyak length karakter
3. Mid$(StringVal, starVal, length) : Mengembalikan nilai string dari startVal sebanyak lengt karakter

3 . Fungsi - Fungsi Tanggal dan Waktu 

• Now () : Mengembalikan tanggal dan waktu sistem
• Date () : Mengembalikan tanggal dari sistem
• Time () : Mengembalikan waktu dari sistem
• Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]]) : Mengembalikan nilai variant atau string sesuai dengan format yang ditentukan .

4 . Fungsi Date and Time pada Visual Basic 

Time : Mencari tahu saat ini atau menentukan waktu , tergantung format pemakaiannya

Demikian hasil pemaparan tugas saya , SEKIAN TERIMAKASIH .

Tugas 4

Assalamualaikum Wr.Wb

Pada kesempatan ini saya ingin memaparkan hasil tugas pada pertemuan ke-7 mata kuliah visual basic senin  3 Desember 2012 .

Disini ada 3 tugas yang diberikan, yaitu :

1 . Buatlah posisi toolbar yang berada diatas menjadi dibawah .

2 . Mencari dan tambahkan menu library tambahan agar lebih interaktif .

3 . Buatlah menu dalam form menjadi tail vertical ,horizontal dan cascade .

Dibawah inilah ulasan tugas yang saya buat .

Sebelum menjawab ketiga tugas diatas , kita harus membuat form yang sudah disediakan .
Form tersebut berisikan Menu dan submenu beserta icon tambahan yang berada pada toolbox dan properties dengan tampilan sebagai berikut .

* Tampilan Awal .

Pada tampilan awal toolbar masih berada diatas , lalu mari kita jawab tugasnya .

* Berikut adalah SourceCodingnya secara keseluruhan .

Public Class Form1

    Private Sub LatihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanToolStripMenuItem.Click

    End Sub

    Private Sub LatihanSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanSatuToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub LatihanDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanDuaToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasSatuToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasDuaToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

* Jawaban Coy ... 

1 . Buatlah tampilan toolbar yang berada diatas menjadi dibawah .

Toolbar dapat dibawah karena ada pada peraturan pembuatannya ada pada toolbox menu ToolStrip ditempatkan dibawah menu strip .

* Tampilannya setelah dirubah .

2 . Menambahkan library agar lebih interaktif

Jawab : Belum pak.

3 . Membuat menu menjadi Vertical, Horizontal ,dan Cascsde .

* Tampilan Layout Vertical 

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara vertical .

Berikut codingnya adalah :

 Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

*Tampilan Layout Horizontal .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara horizontal .

Berikut codingnya adalah :

 Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

*Tampilan Layout Cascade .

Buka 2 form yang terdapat pada menu latihan ,kemudian pilih layout secara cascade .

Berikut codingnya adalah :

 Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Sekian hasil dari pekarjaan saya.TERIMA KASIH. ^_^

Kumpulan Tugas Pemrograman Visual

Nama : Dwi Wijayanti
NIM  : 11.11.2395
Kelas : TI 11 B

1. Tugas 1
2. Tugas 2
3. Tugas 3 part I & Tugas 3 part II
4. Tugas 4
5. Tugas 5
6. Tugas 6

TUGAS 3 PART II

 2 ) MEMBUAT PROGRAM PUZZLE .

1 . Buat button dengan tampilan berikut .

Buat 9 button dengan 1 button kosong pada button 9.
Button 1 : Dengan nama text satu .

Button 2 : Dengan nama text dua .

Button 3 : Dengan nama text tiga .

Button 4 : Dengan nama text empat .

Button 5 : Dengan nama text lima .

Button 6 : Dengan nama text enam .

Button 7 : Dengan nama text tujuh .

Button 8 : Dengan nama text delapan .

Pada program ini saya tidak memakai GroupBox pada 9 button yang dijadikan puzzle namun saya memakainya pada button restart dan exit untuk membedakan dari 9 button tersebut  .

-  <> 0 :  Memanggil semua angka kecuali 0 .
-  number = Rnd() * 8 : Mengacak nomer 1-8.
- And & Or : Memberikan syarat tambahan .
- Else if : Untuk pengecekan pertukaran angka .
- Loop Until : Kondisi dihentikan sampai dengan benar .

 *Tampilan sebelum dijalankan

2 . Syntax Program .


Public Class Form1

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click
        If dua.Text = "" Then
            dua.Text = tiga.Text
            tiga.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = tiga.Text
            tiga.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click
        If satu.Text = "" Then
            satu.Text = empat.Text
            empat.Text = ""
        ElseIf tujuh.Text = "" Then
            tujuh.Text = empat.Text
            empat.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = empat.Text
            empat.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click
        If dua.Text = "" Then
            dua.Text = lima.Text
            lima.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = lima.Text
            lima.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = lima.Text
            lima.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = lima.Text
            lima.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click
        If Button9.Text = "" Then
            Button9.Text = enam.Text
            enam.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = enam.Text
            enam.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = enam.Text
            enam.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click
        If empat.Text = "" Then
            empat.Text = tujuh.Text
            tujuh.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = tujuh.Text
            tujuh.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click
        If tujuh.Text = "" Then
            tujuh.Text = delapan.Text
            delapan.Text = ""
        ElseIf Button9.Text = "" Then
            Button9.Text = delapan.Text
            delapan.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = delapan.Text
            delapan.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If enam.Text = "" Then
            enam.Text = Button9.Text
            Button9.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = Button9.Text
            Button9.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If


    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        Dim number As Integer
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                control.Text = number
            End If


            If dua.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    dua.Text = number
                Loop Until dua.Text <> satu.Text And dua.Text <> "0"

            End If

            If tiga.Text = dua.Text Or tiga.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    tiga.Text = number
                Loop Until tiga.Text <> dua.Text And tiga.Text <> satu.Text And tiga.Text <> "0"

            End If

            If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    empat.Text = number
                Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And empat.Text <> "0"
            End If

            If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    empat.Text = number
                Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And lima.Text <> "0"
            End If

            If lima.Text = empat.Text Or lima.Text = tiga.Text Or lima.Text = dua.Text Or lima.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    lima.Text = number
                Loop Until lima.Text <> empat.Text And lima.Text <> tiga.Text And lima.Text <> dua.Text And lima.Text <> satu.Text And lima.Text <> "0"
            End If

            If enam.Text = lima.Text Or enam.Text = empat.Text Or enam.Text = tiga.Text Or enam.Text = dua.Text Or enam.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    enam.Text = number

                Loop Until enam.Text <> lima.Text And enam.Text <> tiga.Text And enam.Text <> dua.Text And enam.Text <> satu.Text And enam.Text <> "0"

            End If

            If tujuh.Text = enam.Text Or tujuh.Text = lima.Text Or tujuh.Text = empat.Text Or tujuh.Text = tiga.Text Or tujuh.Text = dua.Text Or tujuh.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    tujuh.Text = number

                Loop Until tujuh.Text <> enam.Text And tujuh.Text <> lima.Text And tujuh.Text <> empat.Text And tujuh.Text <> tiga.Text And tujuh.Text <> dua.Text And tujuh.Text <> satu.Text And tujuh.Text <> "0"

            End If

            If delapan.Text = tujuh.Text Or delapan.Text = enam.Text Or delapan.Text = lima.Text Or delapan.Text = empat.Text Or delapan.Text = tiga.Text Or delapan.Text = dua.Text Or delapan.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    delapan.Text = number

                Loop Until delapan.Text <> tujuh.Text And delapan.Text <> enam.Text And delapan.Text <> lima.Text And delapan.Text <> empat.Text And delapan.Text <> tiga.Text And delapan.Text <> dua.Text And delapan.Text <> satu.Text And delapan.Text <> "0"

            End If
            Button9.Text = ""
        Next
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        If MsgBox(" Do you want to exit? ", vbQuestion + vbYesNo + vbDefaultButton2, "Exit") = vbYes Then
            Me.Close()
        End If

    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click
        If dua.Text = "" Then
            dua.Text = satu.Text
            satu.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = satu.Text
            satu.Text = ""
        End If
    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click
        If satu.Text = "" Then
            satu.Text = dua.Text
            dua.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = dua.Text
            dua.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = dua.Text
            dua.Text = ""
        End If
    End Sub

    Private Sub btrestart_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btrestart.Click
        If MsgBox(" Do you want to restart? ", vbInformation + vbYesNo, " Restart Game Puzzle ") = vbYes Then
            Application.Restart()
        End If
    End Sub
End Class

* Tampilan setelah dijalankan .

* Tampilan saat akan puzzle terurut .

*Tampilan saat akan direstart .

*Tampilan saat akan diexit .

Selamat Mencoba
SEKIAN TERIMAKASIH ^_^

TUGAS 3

MODIFIKASI PROGRAM DAN MEMBUAT PROGRAM PUZZLE .

Pada blog saya kali ini, saya akan memaparkan hasil tugas yang diberikan pada pertemuan ke-4 minggu lalu , tentang memodifikasi program yang sudah dibuat pada pertemuan ke- 3 yaitu Latihan IF dan Case menggunakan perulangan .

Selain memodifikasi program ,dalam tugas 3 kali ini juga diberikan tugas untuk membuat puzzle menggunakan visual basic 2010.

Bagaimana ulasannya , mari kita pelajari dibawah ini :

1 ) MODIFIKASI LATIHAN IF DAN CASE .

Pada program modifikasi menggunakan perulangan ini saya menggunakan perintah FOR EACH.

For Each digunakan untuk melakukan iterasi berdasarkan collection tertentu.

* Tampilan Program.

* Syntax Program Menggunakan Perulangan .

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
    End Sub

    Private Sub cmbkode_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 = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 50000
            Case "TAS"
                namabarang = "Tas"
                harga = 250000
            Case Else
                namabarang = "-"
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtjumlah.Clear()
        txttotal.Clear()
        txtjumlah.Focus()
    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged


        If (txtjumlah.Text = "") Then
        Else
            Dim jumlah As Integer
            Try
                jumlah = Convert.ToInt32(txtjumlah.Text)
            Catch ex As Exception
                jumlah = 0
                MsgBox("Jumlah barang harus berupa angka", MsgBoxStyle.Critical, "Peringatan")
            End Try
                txttotal.Text = Val(txtharga.Text) * jumlah
                txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
            End If
    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 Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        cmbkode.Text = ""
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
        Btisidata.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
        If (MsgBox("Apa Anda yakin untuk menutup aplikasi ini?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
            Me.Close()
        End If

    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
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = True
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = True
            End If
        Next
        txtjumlah.Enabled = True
        Btclear.Enabled = True
        Btisidata.Enabled = False


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

* Ketentuan Modifikasi Program .

1 . Saat form dijalankan : semua isian tidak aktif , tombol isidata dan tutup aktif tombol clear tidak aktif.
Jawab :  Dim Control As Windows.Forms.Control ' Digunakan untuk mengendalikan perintah.
        For Each Control In Me.Controls ' Sistem perulangan.
            If Control.GetType.Name = "ComboBox" Then '
                Control.Enabled = False ' Perintah mematikan (False) .
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
    End Sub

 * Tampilan Program.

2 . Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli , tombol clear, aktif , tombol isi data tidak aktif .
Jawab :  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
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = True "Perintah mengaktifkan (True).
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = True
            End If
        Next
        txtjumlah.Enabled = True ' Perintah aktif
        Btclear.Enabled = True ' Perintah aktif
        Btisidata.Enabled = False' Perintah mematikan (False) .


    End Sub

* Tampilan Program .

Saat ditekan isi data tidak aktif

3 . Saat ditekan tombol clear sama dengan tombol dijalankan .
Jawab : Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        cmbkode.Text = ""
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False 'Perintah Mematikan
        Btisidata.Enabled = True 'Perintah Mengaktifkan

    End Sub
End Class

* Tampilan Program.

SEKIAN TERIMAKASIH ^_^

TUGAS 2

Hallo saudara - saudara....
Kali ini saya akan menganalisa program visual basic 2010 yang telah ditugaskan..
berikut penjabarannya ,,,

Latihan 1.

1. Apa yang menyebabkan error pada btalamat1_click baris program alamat = "Kuningan".
   Jawab :  Karena pada variabel alamat belum dideklarasikan perintahnya.Selain itu pada variabel alamat = "kuningan" telah dideklarasikan dengan perintah konstanta (Const) pada public class frmsatu.

Seharusnyya pada variabel tersebut terdapat syntax "Dim Alamat As String" sehingga dapat dijalankan.

Seperti tampilan syntax dibawah ini .

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 yang sama.
Jawab : - Karena pada btnama1_click codingnya sudah terdeklarasi berupa Dim
Sedangkan pada btnama2_click menggunakan listing nama txtnama,selain itu variabel tersebut juga diambil dari module 1.

            -  Pada btalamat tertampil alamat yang sama karena pada btalamat frmsatu menggunakan syntax Const yang berarti global tidak dapat diubah meskipun program dijalankan .

3 . Kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1,sedangkan saat ditekan tombol tambah umur 2 umur selalu bertambah 1 dari umur sebelumnya
Jawab : Karena pada btumur1 memakai deklarasi "Dim" yaitu pendeklarasian dengan angka tetap sehingga tidak akan bertambah meskipun diklik terus menerus.
Sedangkan pada btumur2 memakai "Static" yaitu pendeklarasian dengan angka bertambah 1 selama program dijalankan.

4 . Analisa form 2


LATIHAN 2

 IF DAN CASE

Pada program ini menurut saya terdapat kesalahan sebagai berikut :

1. Pada program ini kelemahan pada pilihan kode barang "TAS" listing programnya belum sempurna karena belum diinputkan,sehingga saat program dijalankan hasil tidak nampak atau = 0.

Seharusnya program diinputkan perbaikan seperti berikut .

 Private Sub cmbkode_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 = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 500000
            Case "TAS"
                namabarang = "Tas"
                harga = 325000
            Case Else
                namabarang = "-"
        End Select

  txtnama.Text = namabarang
        txtharga.Text = harga

    End Sub

 * Tampilan setelah dijalankan (Syntax yang dibenarkan).

 *Listing program cara beli tunai dan kredit yang benar adalah

2 . Kesalahan berikutnya terdapat pada program penutupan, dimana setelah user menekan tombol tutup program akan langsung tertutup tidak menggunakan syntak keluaran sesuai keinginan seperti akan melanjutkan atau tidak,maka dari itu saya menambahkan sedikit syntax pada program keluaran tutup.
* Listing program.

* Tampilan sesudah dijalankan.

Demikian hasil analisis saya 

SEKIAN TERIMAKASIH ^_^