Tugas Pemrograman Visual 3

Tugas Pemrograman Visual 3

Modifikasi dari Tugas 2 :

1).  Saat program dijalakan, semua isian tidak aktif, tombol isi data dan tutup aktif sedangkan tombol clear tidak aktif.

berikut adalah method nya :

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

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

        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

    End Sub

Printscreen 1

2).  Saat tombol isi data ditekan, kodebarang, jumlah barang, cara beli dan tombol clear aktif, sedangkan tombol isidata tidak aktif.

berikut adalah method nya :
 Private Sub btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisidata.Click
        Dim b As Windows.Forms.Control
        For Each b In Me.Controls
            If b.GetType.Name = "ComboBox" Then
                b.Enabled = True
            ElseIf b.GetType.Name = "RadioButton" Then
                b.Enabled = True
            End If
            btclear.Enabled = True
            bttutup.Enabled = False
            txtjumlah.Enabled = True
            btisidata.Enabled = False

        Next
    End Sub 

Printscreen 2

3).  Lalu saat tombol clear di jalankan ....

berikut adalah method nya :
  Private Sub btclear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        Dim c As Windows.Forms.Control
        For Each c In Me.Controls
            If c.GetType.Name = "TextBox" Then
                c.Enabled = False
            ElseIf c.GetType.Name = "ComboBox" Then
                c.Enabled = False
            ElseIf c.GetType.Name = "RadioButton" Then
                c.Enabled = False
            End If
            btclear.Enabled = False
            btisidata.Enabled = True
            bttutup.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

Printscreen 3

  

Berikut adalah tugas ke-2 nya :

Membuat Puzzle

Berikut method koding nya :

Public Class Form1
    Public tampung As String
    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
                bt1.Text = "6"
                bt2.Text = "1"
                bt3.Text = "8"
                bt4.Text = "7"
                bt5.Text = "5"
                bt6.Text = "2"
                bt7.Text = "4"
                bt8.Text = "3"
                bt9.Text = " "
            End If
        Next

    End Sub
    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click

        If bt2.Text = " " Then
            tampung = bt1.Text
            bt1.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt4.Text = " " Then
            tampung = bt1.Text
            bt1.Text = bt4.Text
            bt4.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click

        If bt1.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt1.Text
            bt1.Text = tampung
        ElseIf bt3.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt3.Text
            bt3.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt2.Text
            bt2.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click

        If bt2.Text = " " Then
            tampung = bt3.Text
            bt3.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt6.Text = " " Then
            tampung = bt3.Text
            bt3.Text = bt6.Text
            bt6.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click

        If bt1.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt1.Text
            bt1.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt5.Text
            bt5.Text = tampung
        ElseIf bt7.Text = " " Then
            tampung = bt4.Text
            bt4.Text = bt7.Text
            bt7.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click

        If bt2.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt2.Text
            bt2.Text = tampung
        ElseIf bt4.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt4.Text
            bt4.Text = tampung
        ElseIf bt6.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt6.Text
            bt6.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt5.Text
            bt5.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click

        If bt9.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt9.Text
            bt9.Text = tampung
        ElseIf bt3.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt3.Text
            bt3.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt6.Text
            bt6.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click

        If bt4.Text = " " Then
            tampung = bt7.Text
            bt7.Text = bt4.Text
            bt4.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt7.Text
            bt7.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click

        If bt9.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt9.Text
            bt9.Text = tampung
        ElseIf bt7.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt7.Text
            bt7.Text = tampung
        ElseIf bt5.Text = " " Then
            tampung = bt8.Text
            bt8.Text = bt5.Text
            bt5.Text = tampung
        End If
        berhasil()
    End Sub

    Private Sub bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt9.Click

        If bt6.Text = " " Then
            tampung = bt9.Text
            bt9.Text = bt6.Text
            bt6.Text = tampung
        ElseIf bt8.Text = " " Then
            tampung = bt9.Text
            bt9.Text = bt8.Text
            bt8.Text = tampung
        End If
        berhasil()
    End Sub
    Private Sub berhasil()
        If bt1.Text = "1" And bt2.Text = "2" And bt3.Text = "3" And bt4.Text = "4" And bt5.Text = "5" And bt6.Text = "6" And bt7.Text = "7" And bt8.Text = "8" Then
            MessageBox.Show("SELAMAT ANDA BERHASIL")
        End If

    End Sub

    Private Sub btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btacak.Click
        Dim jalan As Integer
        If btacak.Text = "&ACAK" Then
            btacak.Text = "&STOP"
        ElseIf btacak.Text = "&STOP" Then
            btacak.Text = "&ACAK"
        End If
        Timer1.Enabled = jalan
        jalan = Not jalan

        Dim a As Windows.Forms.Control
        For Each a In Me.Controls
            If a.Tag = "1" Then
                a.Enabled = True
            End If
        Next


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim jalan As Integer
        jalan = Rnd() * 10
        bt1.Text = jalan
        Timer1.Enabled = False
    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                 "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Printscreen Puzzle

Saya mohon maaf atas keterlambatannya, karena banyak halangan saat akan mengerjakan tugas ini.

saya sadar akan hal tersebut, saya harap ketersediaannya.

atas segala kekurangannya saya mohon maaf.

Terimakasih atas perhatiannya Bapak Nandang Hermanto.

:-) 

by Anton Nugroho

Tugas Pemrograman visual 2

Tugas Pemrograman Visual 2

Analisa Program pada Latihan Praktikum Pertemuan ke-2

 

NAMA  : Anton Nugroho

NIM      : 11.11.2352

KELAS : Ti11A

Jawaban untuk soal no. 3 pada Latihan 1 :

a).  Error pada bombol btAlamat1 disebabkan karena belum adanya pendeklarasian Dim alamat As String pada method :

alamat = "Kuningan"
Txtalamat.Text = alamat

dan yang benar adalah :

Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat

atau bisa juga menggunakan Public karena digunakan untuk seluruh alamat, sedangkan tadinya menggunakan const.

b).  Yang menyebabkan adanya perbedaan nama pada btNama1 dan btNama2 adalah adanya tampungan pendeklarasian nama ( Dim ) pada btNama1, sehingga membuat fungsi variabel global (Public Const nama) yang telah di tuliskan dalam module1 tidak berpengaruh karena btnama1 telah memiliki dim variabel nama sendiri.

Dan yang menyebabkan munculnya alamat yang sama pada btalamat1 dan btalamat2 adalah karena terdapat method Const alamat = "Kuningan" pada Public Class frmsatu, lalu jika pada Const alamat = "Kuningan" Public Class frmsatu dihilangkan maka pada btalamat2 akan muncul "Purwokerto" karena diambil dari variabel "Public Const alamat" yang terdapat pada module1.

c).   Karena pada btTambahumur1 dan btTambahumur2 menggunakan pendeklarasian variabel yang berbeda, pada btTambahumur1 menggunakan Dim, yang menyebabkan nilainya ditetapkan pada angka 1, dan tidak memiliki nilai dasar yang dapat ditambahkan karena menggunakan dim,

walaupun dengan rumus yang sama yaitu umur += 1, jika diklik terus menerus tombol tambahumur1 maka hasilnya akan tetap menampilkan 1.

Berbeda dengan btTambahumur2 yang menggunakan pendeklarasiannya dengan Static, jika dalam nilai static maka telah ditetapkan bahwa nilai dasarnya adalah 1, dan tidak akan berubah.

maka jika menggunakan rumus yang sama, dan tombol tambahumur2 maka akan menghasilkan angka yang berbeda, berurutan dan akan terus bertambah menjadi 2 , 3 , 4 , ... sesuai rumus, dengan angka dasarnya 1.

d).  Menurut saya pada form 2 ini tidak terdapat isi variabelnya dalam setiap tombol maupun textboxnya, dan juga terdapat method "Option Explicit Off" yang berarti tidak perlu ada pemberian variabel dalam form2 ini karena secara otomatis program ini menggunakan variabel public yang ada di module ataupun dalam form lain yang bersifat public atau universal.

Jawaban Analisa Kelemahan pada Latihan 2 :

Printscreen nya

Menurut saya pada latihan yang ke-2 ini ada kelemahannya, yaitu Case pada pilihan "TAS" pada combobox belum ada, hal tersebut yang menyebabkan error.
lalu pada cmbkodenya beri method  Case "TAS"               
                                                           namabarang = "Tas"
                                                           harga = 40000
dan juga adanya sedikit perubahan harga barang pada methodnya.

Berikut adalah beberapa printscreennya :

Barang Sepatu dengan cara Tunai

Barang T-shirt dengan cara Tunai

Barang Sandal dengan cara Kredit

Barang Topi dengan cara Tunai

Barang Tas dengan cara Kredit

Apabila akan Keluar dari aplikasi

Berikut Listing method nya :

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")
    End Sub
    Private Sub cmbkode_SelectedIndexChanged_1(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 = 40000
            Case Else
                namabarang = " "
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
    End Sub
    Private Sub txtjumlah_TextChanged_1(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_1(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_1(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_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        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 bttutup_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Apakah Anda ingin keluar ? ", 4 + 32 + 256, _
                  "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Seperti biasa, saya ucapkan Terimakasih kepada Bapak Nandang Hermanto yang telah memberi latihan-latihan kepada saya untuk dipelajari.

Tugas Pemrograman Visual 1

Program Penjualan DVD Game menggunakan Visual Basic 2010

Berikut adalah sedikit penjelasan sederhana mengenai aplikasi penjualan dvd game dengan menggunakan visual basic di Microsoft Visual Studio 2010 :

    
  Berikut adalah hasil printscreen dari aplikasi penjualannya.

printscreen

1. Pertama buat form nya terlebih dahulu.
2. Lalu masukkan 8 Label,  6 textbox, dan 4 button (jumlah disesuaikan menurut kebutuhan masing-masing).
3. Label digunakan untuk memberi nama / judul dari setiap textbox yang akan digunakan.
4. Buttonnya juga diberi nama sesuai dengan kegunaan tombol tersebut.
5. Dalam setiap textbox, name dari textbox tersebut diubah agar nantinya dapat memudahkan dalam penulisan listing method nya. (name berada dalam properties)
6. Lalu masukkan method dalam setiap button, agar button tersebut dapat berfungsi sesuai dengan namanya.

• Tombol pertama (Tampilkan) berfungsi untuk menampilkan hasil dari inputan yang telah dimasukkan.

• Tombol kedua (Hapus) berfungsi untuk menghapus data inputan di layar agar kembali kosong, dan dapat diisi lagi.
• Tombol ketiga (Keluar) berfungsi untuk keluar dari aplikasi, dan akan ditanyakan kembali apakah akan benar-benar ingin keluar.
• Tombol keempat (Hitung) berfungsi untuk memproses hasil dari inputan.

     7.  Anda tinggal memasukkan data ke dalam inputan yang ada, dan hasilnya akan di tampilkan dengan mengklik tampilkan.

Berikut adalah Printscreen Listing Methodnya :

Terimakasih kepada Bapak Nandang Hermanto
By Anton Nugroho