tugas VB yg ke3

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


1. Memodifikasi aplikasi penjualan barang
    
 Tampilan pertama saat di run

  



saat di run yg aktif cuma tombol tutup dan isi data












Tampilan saat ditekan tombol isi data

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















Tampilan saat ditekan combol clear

saat menekan tombol clear kembali seperti saat pertama di run










codingnya

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

2. Game puzzle
sebelum di run angka masih urut

Tampilan sebelum di run

Tampilan setelah di run

Sedang dimainkan

setelah di run angka acak
















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

Setelah selesai dan menang                                      

jika sudah tersusun akan ada kotak dialog










codingnya

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim control As Windows.Forms.Control For Each control In Me.Controls If control.GetType.Name = "Button" Then Dim rndnumber As Random Dim number As Integer rndnumber = New Random number = rndnumber.Next(1, 9) control.Text = number If Button2.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button2.Text = number Loop Until Button2.Text <> Button1.Text End If If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button3.Text = number Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button5.Text = number Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text End If If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button6.Text = number Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text End If If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button7.Text = number Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text End If If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button8.Text = number Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text End If End If Button9.Text = "" Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button2.Text = "" Then Button2.Text = Button1.Text Button1.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button1.Text Button1.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then MsgBox("Selamat Anda Menang") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Button1.Text = "" Then Button1.Text = Button2.Text Button2.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button2.Text Button2.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button2.Text Button2.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Button2.Text = "" Then Button2.Text = Button3.Text Button3.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button3.Text Button3.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Button1.Text = "" Then Button1.Text = Button4.Text Button4.Text = "" ElseIf Button7.Text = "" Then Button7.Text = Button4.Text Button4.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button4.Text Button4.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Button2.Text = "" Then Button2.Text = Button5.Text Button5.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button5.Text Button5.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button5.Text Button5.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button5.Text Button5.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If Button9.Text = "" Then Button9.Text = Button6.Text Button6.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button6.Text Button6.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button6.Text Button6.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If Button4.Text = "" Then Button4.Text = Button7.Text Button7.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button7.Text Button7.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If Button7.Text = "" Then Button7.Text = Button8.Text Button8.Text = "" ElseIf Button9.Text = "" Then Button9.Text = Button8.Text Button8.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button8.Text Button8.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If Button6.Text = "" Then Button6.Text = Button9.Text Button9.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button9.Text Button9.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub End Class

Tugas VB kedua

  Program 1

1. Pertanyaan yang menyebabkan program error pada saat di run di btalamat1_click  alamat=kuningan ?

Jawab

pada btalamat1 yang menggunakan variabel const alamat = “Cilacap” variabel ini adalah nilai yang tidak dapat di ganti dalam satu class, yang pastinya akan menggunakan nilai konstanta. 

saat di run maka akan muncul pesan “Constant Cannot Be The Target Of The Assignment” untuk mengatasi permasalahannya dapat menambahkan tanda (‘) petik pada variabel alamat=”Cilacap” menjadi  ‘alamat=”Cilacap” itu mengubahnya menjadi komentar.


2.Kenapa saat ditekan tombol nama1 dan nama2 yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 yang ditampilkan pada textbox alamat sama ?
Jawab
Nama 1 :Galih
Nama 2 : Galih Gamala G
Karena Nama1menggunakan dim yang ditempatkan di nama1 jadi hanya dikenali di variabel lokal sedang nama2 hanya memanggil nilai dari nama dan diteruskan dari module1
Alamat 1 : Cilacap
Alamat 2 :Cilacap
Karena kedua-duanya mengambil nilai yang terdekat, Jadi tidak usah ngambil nilai dari module1.

3.Kenapa saat ditekan tombol tambah umur 1 selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur 2 selalu bertambah satu dari umur sebelumnya ?
Jawab
Karena tombol tambah umur1 menggunakan variabel lokal dim

Dim umur as integer

Umur+=1

Txtumur.text=umur

jadi umur dideklarasikan dengan nilai awal 1 dan ia tidak akan menambahkan dirinya 

Karna tombol tambah 2 memakai static. Yang artinya ia akan selalu menambahkan dirinya.

Analisa form2
Form 2 bisa dipanggil dengan mengklik tombol show form 2 pada form 1. Pada form dua terdapat 3 textbox nama,alamat,umur serta  4 button Nama,Alamat,Umur dan Tutup yang semua model pemanggilannya menggunakan variabel yang telah di inisialisaikan di module1.

Program 2

kelemahan program dua:
-Jika kita klik tombol clear, semua kotak tidak langsung bersih
-Kalau kita mengklik tombol tutup maka langsung program akan langsung menutup tanpa ada dialog peringatan

coding yang sudah diperbaiki

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

Aplikasi penjualan gak pake database

aku mau posting tentang tugas pembuatan aplikasi dengan visual basic...aku pake aplikasi Microsoft Visual Studio 2010 tapi karena Harddiskku gak nyukup buat nginstal tu aplikasi ada beberapa fitur yg gak di instal.hehehehe
aplikasi yang aku buat ini sangat jauh dari sempurna,,jauh banget. gak pke database codingnya jg acak2an..hehehe maklumlah newbie :D

okeh langsung saja saya jelaskan :D
aku iseng2 bkin 2 form (padahal newbie) hehe

1.ini form yg pertama

aku akan menjelaskan form yang pertama dulu
form yg pertama cm buat iseng2 aja sih ada 2 button
button yg pertama tulisannya "klik di sini mau masuk aplikasi"
button yg kedua tulisannya "keluar"
Public Class Form1

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("mau keluar nih ?", vbYesNo + vbQuestion + vbDefaultButton3, "keluar aplikasi") = vbYes Then Me.Close()
    End Sub
End Class

yang button pertama cuma buat manggil form kedua
yang button kedua buat dialog keluar
 

2.ini form yg kedua

Untuk yang form kedua ada beberapa toolbox yg aku pake..
1.dari atas ada label “Penjualan alat tulis”
2.dibawahnya ada button “klik untuk keterangan”
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("A01 Pensil = 1500,A02 Pulpen = 2000, A03 Penghapus = 500, A04 Serutan= 1000, A05 buku = 2500")
    End Sub


3.ada label yg tulisannya “kode barang” trus disebelahnya ada combo box
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "A01" Then
            TextBox4.Text = "Pensil"
            TextBox3.Text = 1500
        ElseIf ComboBox1.Text = "A02" Then
            TextBox4.Text = "Pulpen"
            TextBox3.Text = 2000
        ElseIf ComboBox1.Text = "A03" Then
            TextBox4.Text = "Penghapus"
            TextBox3.Text = 500
        ElseIf ComboBox1.Text = "A04" Then
            TextBox4.Text = "Serutan"
            TextBox3.Text = 1000
        ElseIf ComboBox1.Text = "A05" Then
            TextBox4.Text = "buku"
            TextBox3.Text = 2500
        End If
        TextBox2.Focus()
    End Sub
 

Karena aku bikin textboxnya acak2an takut bingung nih aku kasih keterangannya
Nama barang Textbox4
Harga barang Textbox3
Jumlah barang Textbox2
Total harga Textbox1
Diskon Textbox5
Total bayar Textbox6
Maksudnya aku pake combobox biar gak ribet trus ntar setelah kita milih kode barang akan langsung otomatis nama barang dan harga barang terisi karena pake Then(liat codingnya)

4.untuk label yang jumlah barang itu biasa kalo yg textboxnya ada codingnya
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox1.Text = Val(TextBox3.Text) * Val(TextBox2.Text)
        If Val(TextBox2.Text) > 2 Then
            TextBox5.Text = 0.2 * Val(TextBox1.Text)
        Else
            TextBox5.Text = 0
        End If
        TextBox6.Text = Val(TextBox1.Text) - Val(TextBox5.Text)
    End Sub

Jadi maksudnya kalo beli lebih dari 2 barang akan dapet diskon 20% yang otomatis akan terisi langsung di total harga textbox1, diskon textbox5, total bayar textbox6

5.lanjut untuk button ulangi itu untuk mengulang..ntar ngulang dari pemilihan kode barang
  Private Sub btulangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btulangi.Click
        ComboBox1.Text = "pilih kode barang"
        TextBox1.Text = "0"
        TextBox2.Text = "0"
        TextBox3.Text = "0"
        TextBox4.Text = "nama barang"
        TextBox5.Text = "0"
        TextBox6.Text = "0"
        ComboBox1.Focus()

    End Sub
6.untuk yang button “balik ke menu utama” itu nanti kalo di klik akan kembali ke form1
  Private Sub btbalik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbalik.Click
        If MsgBox("bener nih mau udahan ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar") = vbYes Then Me.Close()
    End Sub

 

CUKUP SEKIAN DEH :D
MAAP BANGET YAH KALO BAHASANYA BELEPOTAN ;D