Mengakifkan dan Menonaktifkan Control-Control pada Program dengan Perulangan + Puzle Sederhana


Program dibawah ini adalah modifikasi dari tugas sebelumnya. Saat program dijalakan, semua isian tidak aktif, tombol isi data dan tutup aktif sedangkan tombol clear tidak aktif.

Saat Program Dijalankan

Berikut ini coding dari Form1_Load :

Coding Dari Form1_Load

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

Setelah Tombol “Isi Data” Ditekan

Berikut ini coding dari btisi :

Coding Dari btisi

Saat tombol clear ditekan, tampilannya sama dengan ketika program dijalankan.

Setelah Tombol Clear Ditekan

Berikut ini coding dari btclear :

Coding dari btclear

Game Puzle Sederhana
Buat sebuah form dengan 9 tombol yaitu Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, dan Button9.
Ubah semua textnya menjadi sesuai dengan urutannya, cotoh 1 untuk Button1, 2 untuk Button2 dan seterusnya.
Ubah Visible dari Button9 menjadi False.

Saat form dijalankan posisi angka acak.

Saat Form Dijalankan Posisi Angka Acak

Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombok kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.

Saat Salah Satu Tombol Dekat Area Kosong Ditekan

Saat angka sudah tersusun game akan menampilkan pesan “Selamat Anda Berhasil.

Muncul Pesan “Selamat Anda Berhasil”

Listing Program :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button4.Visible = False Then
Button1.Visible = False
Button4.Visible = True
Button4.Text = Button1.Text
ElseIf Button2.Visible = False Then
Button1.Visible = False
Button2.Visible = True
Button2.Text = Button1.Text
End If
pesan()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button2.Visible = False
Button1.Visible = True
Button1.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button2.Visible = False
Button5.Visible = True
Button5.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button2.Visible = False
Button3.Visible = True
Button3.Text = Button2.Text
End If
pesan()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button6.Visible = False Then
Button3.Visible = False
Button6.Visible = True
Button6.Text = Button3.Text
ElseIf Button2.Visible = False Then
Button3.Visible = False
Button2.Visible = True
Button2.Text = Button3.Text
End If
pesan()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button4.Visible = False
Button1.Visible = True
Button1.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button4.Visible = False
Button7.Visible = True
Button7.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button4.Visible = False
Button5.Visible = True
Button5.Text = Button4.Text
End If
pesan()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button5.Visible = False
Button2.Visible = True
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button5.Visible = False
Button4.Visible = True
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button5.Visible = False
Button6.Visible = True
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button5.Visible = False
Button8.Visible = True
Button8.Text = Button5.Text
End If
pesan()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button6.Visible = False
Button3.Visible = True
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button6.Visible = False
Button9.Visible = True
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button6.Visible = False
Button5.Visible = True
Button5.Text = Button6.Text
End If
pesan()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button4.Visible = False Then
Button7.Visible = False
Button4.Visible = True
Button4.Text = Button7.Text
ElseIf Button8.Visible = False Then
Button7.Visible = False
Button8.Visible = True
Button8.Text = Button7.Text
End If
pesan()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button9.Visible = False Then
Button8.Visible = False
Button9.Visible = True
Button9.Text = Button8.Text
ElseIf Button7.Visible = False Then
Button8.Visible = False
Button7.Visible = True
Button7.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button8.Visible = False
Button5.Visible = True
Button5.Text = Button8.Text
End If
pesan()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button9.Visible = False
Button6.Visible = True
Button6.Text = Button9.Text
ElseIf Button8.Visible = False Then
Button9.Visible = False
Button8.Visible = True
Button8.Text = Button9.Text
End If
pesan()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim acak As Integer
acak = Rnd() * 10
Button1.Text = acak
Button2.Text = acak – 2
Button3.Text = acak – 5
Button4.Text = acak – 3
Button5.Text = acak + 1
Button6.Text = acak – 1
Button7.Text = acak – 6
Button8.Text = acak – 4
End Sub

Private Sub pesan()
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” Then
MsgBox(“Selamat Anda Berhasil”)
End If
End Sub
End Class

Tugas Praktikum Ke-2 – Tugas Pemrograman Visual


Jawaban Latihan 1 Nomor 3 :

  1. Yang menyebabkan error pada btalama1_Click baris program alamat = “Kuningan” adalah karena varabel nama belum di deklarasikan pada method di dalam class tersebut, di btalamat1_Click hanya tertulis :
    alamat = “Kuningan”
    Txtalamat.Text = alamat

    seharusnya adalah :
    Dim alamat As String
    alamat = “Kuningan”
    Txtalamat.Text = alamat
  2. Yang menyebabkan munculnya nama yang berbeda pada textbox saat tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut sehingga secara otomatis variabel nama diambil dari Public Const nama yang didefiniskan pada Module1.
    Sedangkan yang menebabkan munculnya alamat yang sama pada textbox saat tombol alamat1 dan alamat2 ditekan adalah karena terdapat Const alamat = “Kuningan” pada Public Class FrmSatu, ketika Const alamat = “Kuningan” pada Public Class FrmSatu kita hilangkan maka tombol alamat2 akan memunculkan hasil “Purwokerto” karena diambil dari “Public Const alamat” pada Module1.
  3. Yang menyebabkan saat tombol “tambah umur 1” ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, dimana kita tahu bahwa Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan. Sehingga pada saat tombol “tambah umur 1” kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu, karena nilai dari variabel “umur” akan selalu “umur += 1”.
    Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 “umur +=1”.
  4. Analisa saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
    Option Explicit Off
    Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

Analisa Kelemahan Program pada Latihan 2 If dan Case
Kelemahan yang saya temukan pada program ini adalah ketika kita memilih kode “TAS” pada ComboBox Kode Barang, listing program masih kurang untuk kode “TAS”. Dan menurut saya, untuk harga T-Shirt dan Topi mungkin ada kesalahan karena terlalu mahal, mungkin harga yang tepat adalah 150.000 untuk T-Shirt dan 50.000 untuk TOPI dan TAS.

hghg

Program Saat Pertama Dijalankan.

Sehingga listing yang tepat pada ComboBox kode barang adalah :
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 “SPT”
namabarang = “Sepatu”
harga = 200000
Case “TST”
namabarang = “T-Shirt”
harga = 150000
Case “TOP”
namabarang = “Topi”
harga = 50000
Case “TAS”
namabarang = “Tas”
harga = 50000
Case Else
namabarang = “-”
harga = 0
End Select
txtnama.Text = namabarang
txtharga.Text = harga

Tampilan program yang seharusnya :

Tampilan Seharusnya

Tampilan Seharusnya

Itulah analisa saya untuk program diatas. Terimakasih.
Thanks to : Mr. Nandang Hermanto http://nandanghermanto.wordpress.com/

Kalkulator Sederhana Dengan Visual Basic 2010


Dapet tugas dari Dosen?

Chalenge Accepted

Challenge Accepted!

Posting saya kali ini adalah mengenai pemrograman. Program yang saya buat kali ini adalah kalkulator sederhana yang saya buat dengan menggunakan program besutan Microsoft yaitu Microsoft Visual Studio 2010, tepatnya dengan menggunakan bahasa Visual Basic.
Lansung saja inilah programnya :

Kalkulator Sederhana

Kalkulator Sederhana

Saat kita menjalankan program, akan muncul menu utama yang di dalamnya terdapat dua buah textbox masukan yaitu :

  1. Angka Pertama (txtangkapertama)
  2. Angka Kedua (txtangkakedua)

Beberapa tombol antara lain :

  1. Tambah [+] (bttambah)
  2. Kurang [-] (btkurang)
  3. Kali [*] (btkali)
  4. Bagi [/] (btbagi)
  5. Pangkat [^] (btpangkat)
  6. Bersihkan (btbersih)
  7. Keluar (btkeluar)

Anda hanya tinggal memasukan nilai kedalam masing-masing textbox yang sudah tersedia yaitu “Angka Pertama” dan “Angka Kedua”, kemudian menekan tombol yang anda inginkan, apakah “Tambah”, “Kurang”, “Kali”, “Bagi” ataupun “Pangkat”, kemudian program akan menampilkan hasilnya dalam bentuk MessegeBox.
Contoh :

Hasil Keluar Dalam Bentuk Messege Box

Hasil Keluar Dalam Bentuk Messege Box

Tombol “Bersihkan” berfungsi untuk membersihkan kotak isian yang telah terisi dan tombol “Keluar” berfungsi untuk keluar dari program. Saat ingin keluar, anda akan diberi konfirmasi terlebih dahulu, “Anda yakin ingin keluar?” Jika anda menjawab “No”, maka program akan tetap berjalan, jika anda menjawab “Yes” maka program akan ditutup.

Listing Method :

  1. Method pada tombol “Tambah” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a + b
    MsgBox(“Hasil dari ” & a & ” + ” & b & ” adalah ” & c)
  2. Method pada tombol “Kurang” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a – b
    MsgBox(“Hasil dari ” & a & ” – ” & b & ” adalah ” & c)
  3. Method pada tombol “Kali” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a * b
    MsgBox(“Hasil dari ” & a & ” * ” & b & ” adalah ” & c)
  4. Method pada tombol “Bagi” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a / b
    MsgBox(“Hasil dari ” & a & ” / ” & b & ” adalah ” & c)
  5. Method pada tombol “Pangkat” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a ^ b
    MsgBox(“Hasil dari ” & a & ” ^ ” & b & ” adalah ” & c)
  6. Method pada tombol “Bersihkan” :
    txtangkapertama.Clear()
    txtangkakedua.Clear()
    txtangkapertama.Focus()
  7. Method pada tombol “Keluar” :
    If MsgBox(“Anda yakin ingin keluar?”, vbYesNo + vbQuestion + vbDefaultButton2, “Keluar”) = vbYes Then
    Me.Close()
    End If

Keterangan :
a adalah variabel dari data yang dimasukan pada textbox “Angka Pertama”.
b adalah variabel dari data yang dimasukan pada textbox “Angka Kedua”.
c adalah variabel dari data yang muncul sebagi hasil operasi perhitungan.
Ketiga variabel diatas bertipe Double.

Listing Full Program :
Public Class Form1
Dim a, b, c As Double
Private Sub bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a + b
MsgBox(“Hasil dari ” & a & ” + ” & b & ” adalah ” & c)
End Sub

Private Sub btkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkurang.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a – b
MsgBox(“Hasil dari ” & a & ” – ” & b & ” adalah ” & c)
End Sub

Private Sub btkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkali.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a * b
MsgBox(“Hasil dari ” & a & ” * ” & b & ” adalah ” & c)
End Sub

Private Sub btbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbagi.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a / b
MsgBox(“Hasil dari ” & a & ” / ” & b & ” adalah ” & c)
End Sub

Private Sub btpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpangkat.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a ^ b
MsgBox(“Hasil dari ” & a & ” ^ ” & b & ” adalah ” & c)
End Sub

Private Sub btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbersih.Click
txtangkapertama.Clear()
txtangkakedua.Clear()
txtangkapertama.Focus()
End Sub

Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
If MsgBox(“Anda yakin ingin keluar?”, vbYesNo + vbQuestion + vbDefaultButton2, “Keluar”) = vbYes Then
Me.Close()
End If
End Sub
End Class

mis

Mission Accomplished!

Sudah jelas? Kalo belum jelas silahkan PM saya, sekian posting saya kali ini, semoga dapat bermanfaat. Arigato 😀
Special Thanks to Mr. Nandang Hermanto http://nandanghermanto.wordpress.com/