Memodifikasi Program If dan case dan Membuat Game Puzzle

Memodifikasi Program If Dan Case

Program ini merupakan modifikasi dari tugas membuat program if case pada pertemuan sebelumnya.

1.Saat form dijalankan : semua isian tidak aktif , tombol isi data dan tutup aktif , tombol clear dengan saat form dijalankan

Listing Programnya :

2.Saat ditekan tombol isi data : kode barang,jumlah barang,cara beli ,tombol clear aktif , tombol isi data tidak aktif

Listing Programnya :

3.Saat ditekan tombol clear sama dengan saat form di jalankan

Listing Programnya :

Membuat Game Puzzle



Berikut tampilan awal dari Game Puzzle dan Angka Sudah teracak :

dan setelah angka teracak otomatis maka untuk menghentikan acak tersebut kita harus menekan tombol HENTIKAN

Setelah itu game kita mainkan agar dapat memenangkan game Puzzle tersebut , dan jika memenangkan game tersebut akan ada kotak dialog "You Win !"

Dan jika kita akan keluar dari Game Puzzle tersebut kita tinggal menekan tombol KELUAR DARI GAME dan Tekan Tombol YES.

Berikut Listing Game Puzzle tersebut :

Sekian Dan Terima Kasih.

TUGAS PEMOGRAMAN VISUAL 2

 TUGAS PEMOGRAMAN VISUAL 2

Jawaban Untuk Soal Nomor 1

a. Yang menyebabkan error pada button btalamat1 adalah karena belum ada variable yang ‘memanggil’/ mendeklarasikan alamat kuningan tsb.
yang sebelumnya : alamat = "Kuningan"
                              Txtalamat.Text = alamat

Diubah menjadi    : Dim alamat As String
                                alamat = "Kuningan"
                                Txtalamat.Text = alamat

b. Karena pada textbox nama 1 akan mendeklarasikan String nama yang sudah ada di private subnya,

Dan textbox nama 2 akan mendeklarasikan String nama yang terdapat pada Module karena pada private subnya belum ada string yang dideklarasikan

jadi textnama 2 akan mendeklarasikan string nama pada module.

 

   c. Pada bttambahumur1 bersifat tetap (Variable Pendeklarasinya “DIM”) jadi dengan Listing itu ketika bttambahhumur1 hasilnya akan tetap meskipun rumusnya sudah benar.

Sedangkan pada bttambahumur2 bersifat statis (Variabel Pendeklarasinya “STATIC”) dengan Listing itu sehingga ketika di tekan bttambahumur2  akan selalu bertambah 1.

d d. Analisa Untuk Form 2

form 2 akan mendeklarasikan/memanggil variable dari module ketika button yang terdapat pada form 2 di tekan, karena pada form 2 tidak memilki variable tetap dan di form 2 terdapat Option Explicit Off yang mendeklarasikan variable pada module untuk form 2.

Jawaban Untuk Soal Nomor 2

Menurut saya kelemahan dari program if else yang dicontohkan soal tersebut adalah tidak terdapat harga untuk TAS dan Kurang Menariknya program tersebut.

jadi saya tambahkan harga untuk TAS tersebut.

Ini adalah tampilan pertama program tersebut :

dan saya beri sedikit 'sentuhan' untuk membuat program tsb menarik dengan memberikan BACKGROUND IMAGE , dan ini hasilnya :

dan untuk button tutup yang tadinya program itu langsung keluar diganti dengan button tutup yang terdapat pilihan Yes atau No , berikut screenshotnya :

berikut listing programnya :

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 String
        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 Else
                namabarang = " Tas "
                harga = 25000
        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
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = " "
        cmbkode.Focus()
    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()

        End If

    End Sub
End Class

Sekian Penjelasan Dari Saya , Postingan ini di buat untuk memenuhi Tugas Pemograman Visual.

Terima Kasih.

Tugas Pemograman Visual Menghitung Luas

Program yang saya buat adalah Program Sederhana Untuk Menghitung Luas Segitiga Dan Persegi Panjang   

.

Cara Menggunakannya adalah :

Cara Menggunakan Program untuk Menghitung Luas SEGITIGA pada Program tersebut .

• ·         Kita tinggal mengisi Nilai Alas Dan Tinggi Pada TextBox yang Sudah Di Siapkan

• ·         Setelah itu kita tinggal mengklik Button HASIL pada Samping Rumus Segitiga Tersebut dan anda akan mengetahui hasil dari perhitungan luas Segitiga

 Contoh :

Cara Menggunakan Program menghitung Luas Persegi Panjang pada Program tersebut .

• ·         Sama halnya dengan menghitung luas segitiga , kita tinggal memasukkan nilai Alas dan tinggi Pada Text Box Yang sudah disediakan

• ·         Setelah itu kita tinggal meng-klik button HASIL Pada Samping perhitungan persegi panjang dan kita akan mengetahui hasilnya

 Contoh : 

Berikut Listing Program tersebut.

  Listing Program :

Public Class Form1
    Dim a, b, c, d As Double
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = txtalas.Text()
        b = txttinggi.Text()
        c = (a * b) / 2
        MsgBox("Luas Segitiga = " & c)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        a = txtpanjang.Text()
        b = txtlebar.Text()
        c = a * b
        MsgBox("luas Persegi Panjang = " & c)
    End Sub

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

        txttinggi().Clear()
        txtpanjang.ResetText()
        txtlebar.Text = ""
        txtalas.Clear()
        txtalas.Focus()
    End Sub

  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()

        End If

    End Sub
End Class

Program ini di buat untuk memenuhi Tugas Pemograman Visual .