MODIFIKASI KASIR TUGAS 3 DAN PUZZLE


cpa ja boleh
   Kali ini saya akan memodifikasi program kasir pada tugas kedua, yang saat di jalankan akan tampil seperti berikut:




dan akan saya modifikasi menjadi seperti ini :
dengan ketentuan sebagai berikut : 






  1. Saat form dijalankan : semua isia tiadak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif
  2. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear dan tutup aktif, tombol isi data tidak aktif
  3. saat di tekan tombol clear sama dengan saat form dijalankan
       Oke langsung ke cara pembuatannya:
  1. tambahkan tombol baru yaitu tombol isi data pada form
  2. pada combo kode barang, textbox jumlah barang, radio tunai & kredit, dan tombol clear beri atribut tag "grup1" pada properties
  3. lalu pada textbox nama barang, harga barang, total harga, diskon, total bayar beri atribut tag "grup2" pada properties
  4. dan atribut tag "grup3" untuk tombol isi data
  5. dobel klik pada form untuk masuk ke sub form_load dan masukkan kode agar saat dijalankan form kontrol dengan atribut tag grup1 dan grup2 tidak aktif, berikut coding beserta penjelasannya: 
 
 
6. dobel klik tombol isi data untuk memasukkan kode agar saat di klik kontrol dengan atribut tag "grup1" yang terdiri dari kode barang, jumlah barang dan cara beli aktif. Berikut kode dan penjelasannya: 
 
 
7. kembali ke form desain lalu dobel klik tombol isi data dan masukkan kode agar saat di klik keadaan kembali seperti saat form pertama di jalankan, berikut coding dan penjelasan:




  1. Run Program
        Oke sekian penjelasan modifikasi program kasir yang saya buat, sekarang lanjut keprogram ke dua yaitu PUZZLE










                              PUZZLE

   Kali ini kita akan membuat puzzle angka dan sat program di jalankan akan tampil sebagai berikut :





Untuk model tampilannya saya sengaja meniru dosen saya yaitu menggunakan listBox untuk menampung angka yang akan di acak, selain itu menggunakan listbox juga akan mempersingkat coding yang akan kita tulis. puzzle tersebut memiliki beberapa ketentuan sebagai berikut :

  1. Saat Form di jalankan posisi Angka acak
  2. Saat di tekan tombol yang terletak di dekat tombol kosong, maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai angkanya tersusun dari 1-8
  3. Saat semu angka tersusun tampilkan pesan "Selamat Anda Berhasil"
       Di sini untuk ketentuan pertama saya abaikan karena saya memberi tombol acak untuk mengacak angka sebelum memulai permainan sehingga saat form di jalankan keadaan angka masih terurut, Berikut cara pembuatannya :

  1. Buat form dengan tampilan seperti di atas, dan beri nama tombol acak dengan btacak, tombol keluar dengan btkeluar dan tombol sisanya yaitu untuk 1 sampai 9 beri nama bt1- bt9
  2. beri atribut tag "1" pada semua tombol puzzle
  3. untuk mempersingkat coding kita buat modul, dengan cara klik kanan pada project - add - Module - OK
  4. pada module kita akan mengetikan method untuk menukar tombol yang memiliki isi dengan tombol kosong, berikut coding dan penjelasan :

 
5. kemudian kita juga akan membuat method untuk mengecek apakah semua tombol sudah pada tempatnya, jika sudah akan di tampilkan pesan " Selamat, Anda Berhasil", berikut coding dan penjelasannya :
6. kembali ke form1 design lalu doble klik pada form untuk masuk ke sub form_load. pada sub ini kita akan memberi perintah untuk mengisi listBox, dan buat juga variabel dengan tipe boolean pada class form1 yang akan kita gunakan untuk mengacak angka nanti. pada form load beri perintah sebagai berikut :



7. untuk tombol angka 1-8 & tombol kosong alias bt1-bt9 kita masukkan method tukar() dan menang() yang sudah kita buat pada module: seperti berikut :  



8 untuk mengacak angka kita memerlukan kotrol form berupa timer, pada form design doble klik timer pada toolbox maka akan muncul timer pada bagian bawah. Timer merupakan kontrol form yang tidak di tampilkan saat program di jalankan alias background
.
9. kita akan mengisi timer dengan perintah untuk mengacak isi ListBox lalu isi ListBox akan ditampilkan pada kotak puzzle, untuk setiap kotak puzzle berisi satu item yang ada pada listBox sesuai urutan dari atas. Berikut coding dan penjelasannya :




10.untuk mengacak angka kita beri perintah pada tombol acak unutk menjalankan timer seperti berikut :  



11.Dan terakhir untuk tombol keluar kita beri perintah untuk menampilkan kotak konfirmasi apakah ingin keluar atau tidak seperti ini :







  1. Jalankan Program
       Yup.. begitulah sekiranya cara pembuatan puzzle dengan vb, dan berhubung ane dah ngantuk dan tangan dah bentol2 semua di keroyok nyamuk, sekian dulu oke, kurang lebihnya mohon maaf xlo ada salah pengetikan..heheheh

Wassalammu'alaikum Wr.Wb.
0 komentar

TUGAS 2 VISUAL BASIC


cpa ja boleh
Jawaban Latihan 1
a. yang menyebabkah program error pd btAlamat1_Click  baris program alamat = “kuningan”, adalah karena sifat dari constanta sendiri yang nilainya tidak bisa di ubah-ubah/ bersifat tetap ( yang pd program ini pendeklarasian nilai konstantan alamat berada di bawah Public Class).
b. yang menyebabkan ketika menekan tombol Nama1 dan Nama2 mengeluarkan output yang berbeda di txtNama yakni “Nandang” dengan “Nandang Hermanto”
hal ini dikarenakan di dalam coding tombol Nama1 telah memesan variabel nama bertipe String yang sudah di beri nilai “Nandang”. Sedangkan di tombol Nama2 hanya tertulis perintah untuk menampilkan nilai dari variabel nama saja, sehingga program akan mengambil nilai yang sudah dideklarasikan di modul1 yakni “Nandan Hermanto”. Sehingga saat si User menekan tombol Nama1 program akan membaca variabel nama yang sudah diberi nilai akan muncul “Nandang” sedang tombol Nama2  program  membaca nilai variabel yang aberada di modul1 akan muncul “Nandang Hermanto”.
 
c. yang menyebabkan ketika menekan tombol Umur1 hasilnya tetap 1 sedang ketika menekan tombol Umur2 hasilnya selalu bertambah 1 secara berkala
hal ini dikarenakan pendeklarasian di tombol Umur1 berjenis Dim (sat pendeklarasian umur) yang mana data akan hilang setelang program tereksekusi sedang tombol Umur2 berjenis Static (saat pendeklarasian umur) yang nilainya tetap tersimpan walau telah tereksekusi.
d. analisa saya di form2 yakni form2 mengakses seluruh data data yang sudah dideklarasikan dari modul1. (data yang diakses berupa output nama, alamat dan umur)

Jawaban Latihan 2
Kelemahan dari program 2 menurut saya:
kata “TAS” dalam comboBox(daftar kode barang) belum ada nilainya sehingga tampak tak ada fungsinya, lebih baik di hapus atau kalau tidak ingin dihapus di beri nilai pada select case.
Properti bagian enable dari TextBox-TextBox yang digunakan untuk output seperti namaBarang, hargaBarang, totalHarga, diskon dan total bayar hendaknya di falsekan  agar user tidak bisa menginputkan data di bagian tsb, sehingga memperjelas dalam penginputkan data.
 
 
 gb. sebelum coding dirubah

Misal coding tetap sama hanya dengan menambahkan
Case "TAS"
                namaBarang = "tas"
                harga = 700000
di bagaian select case sebelum case else pada cmbKode
hasil program 2 setelah di perbaiki:
 
gb. output setelah di perbaiki
dengan coding sebagai berikut:
 
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(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-Sirt"
                harga = 1500000
            Case "TOP"
                namaBarang = "Topi"
                harga = 500000
            Case "TAS"
                namaBarang = "Tas"
                harga = 700000
            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 btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
        txtDiskon.Clear()
        txtHarga.Clear()
        txtJumlah.Clear()
        txtTotal.Clear()
        txtNama.Clear()
        cmbKode.Text = ""
        Me.radioTunai.Checked = False
        Me.radioKredit.Checked = False  End Sub

    Private Sub btTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTutup.Click
        Me.Close()
    End Sub
End Class

  
0 komentar

Aplikasi kasir sederhana


cpa ja boleh
Sebelumnya terima kasih sudah membaca blog ini, sekarang kita akan membahas cara membuat aplikasi kasir sederhana menggunakan Visual Studio 2010 ,,ini aplikasi yang saya buat menggunakan materi yang ada dari kuliah saya..
1*buatlah form sperti dibawah
 
2 * gantilah text dari setip label,button  yang ada menggunakan bahasa yang mudah diingat untuk membuat script pmanggilan dngan cara bisa lihat langsung pada “properties” yang trletak pada kanan bawah atau bisa juga klik kanan pada label/button tertentu lalu pilih properties
 
 

 3*disini kita akan mengisi ” combo box ” saya rasa semua sudah tau bagai mana  cara mengisi “combo box” bagi yang belum mengerti tentang  “combo box” adalah suatu item yang berguna untuk membuat suatu pilihan pada aplikasi yang akan kita buat,pilihan itu sendiri bisa kita masukan scra manual dngan cara klik kanan pada “combo box lalu pilih add item dan lalu akan muncul 

 
4*setelah kita memasukan item pada combo box , saatnya kita memasukan perintah (listing) pada Combo box sprti berikut 






 

 5*stelah memasukan listing pada cex box saatnya memasukan listing pada button BAYAR ,CLEAR dan TUTUP



 


6*Dan akhirnya selesai juga cara membuat kasir sederhana sekarang saatnya mencoba aplikasi tersebut jika berhasil maka akan muncul tampilan sbagai berikut




EMIKIAN APLIKASI YANG SAYA BUAT DAN JIKA ADA KESALAHAN HARAP MAKLUM,SOALNYA SAYA JUGA MASIH BELAJAR...HEHEHE :-)
SEKIAN, TERIMA KASIH DAN SEMOGA BERMANFAAT


6 komentar
Langganan: Postingan (Atom)

Tentang blog

Blog ini saya buat pertama karena iseng2 dan keingin tahuan.Lalu saya kembangkan untuk menjadi catatan pribadi tapi akhirnya saya tertarik untuk mempublikasikan blog ini,Dan ini lah hasilnya...!!