TUGAS KETIGA PEMOGRAMAN VISUAL

TUGAS KETIGA PEMOGRAMAN VISUAL

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

Berikut ini coding dari form1_Load:

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

Berikut Codingnya

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

Berikut Coding dari btClear:

Soal 2

Buatlah permainan puzzle sederhana dengan rancangan seperti gambar di bawah ini:

1.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.

PuZZle Game
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 angka sudah tersusun game akan menampilkan 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

LINK TUGAS VB

LINK TUGAS PEMOGRAMAN VISUAL BASIC

NIM/KELAS: 10.11.1706/TI 11 S
NAMA: TITIN NUR P

1. http://titinnur05.blogspot.com/2012/10/tugas-pertama-pemograman-visual.html
2. http://titinnur05.blogspot.com/2012/10/tugas-kedua-pemograman-visual_7646.html
3. http://titinnur05.blogspot.com/2012/10/tugas-ketiga-pemograman-visual.html
4. http://titinnur05.blogspot.com/2012/11/latihan-tugas-pemrograman-visual.html
5. http://titinnur05.blogspot.com/2012/12/tugas-tujuh-pemograman-visual.html
6. http://titinnur05.blogspot.com/2012/12/tugas-delapan-function.html
7. http://titinnur05.blogspot.com/2013/01/tugas-pemograman-visual-tombol-navigasi.html

Tugas kedua Pemograman visual

TUGAS KEDUA PEMOGRAMAN VISUAL

1.Latihan 1 Variabel Constanta type data

a.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

b.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 Yang 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.

c.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".

d.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.

2.Latihan 2 IF and Case

Analisa untuk program kedua saya menambahkan kode program pada Cmbkode_SelectedIndexChanged agar pada saat kita mengganti pilihan barang maka hasil dari jumlah barang, total harga, cara beli, diskon dan total bayar hilang/ terhapus. Tambahan kode programnya sebagai berikut:

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cbokode.Items.Add("SPT")
Cbokode.Items.Add("SND")
Cbokode.Items.Add("TST")
Cbokode.Items.Add("TAS")
Cbokode.Items.Add("TOP")
End Sub

Private Sub Cbokode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbokode.SelectedIndexChanged
Dim kdbarang, namabarang As String
Dim harga As Single
kdbarang = Cbokode.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 = "-"
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)
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Txtdiskon.Text = Val(Txttotal.Text) * 10 / 100
Txtbayar.Text = Val(Txttotal.Text) - Val(Txtdiskon.Text)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Txtdiskon.Text = 0
Txtbayar.Text = Val(Txttotal.Text) - Val(Txtdiskon.Text)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
Txtdiskon.Clear()
Txtharga.Clear()
Txtjumlah.Clear()
Txtnama.Clear()
Txttotal.Clear()
Txtbayar.Clear()
Cbokode.Focus()
End Sub

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

Tampilan seharusnya,

Demikian tugas kedua semoga lebih baik dari yang pertama.Amin

Tugas Pertama Pemograman Visual

Dari pada gak bikin sama sekali, lebih baik mencoba sebisanya..Bissmillahirrohmanirrohim
(Saya sudah mencoba berkali2 Pak, sebisa saya..tp programnya eror terus.)

Pertama buatlah form seperti dibawah ini,

Menghitung penjualan brg di Butik

Penjelasan Singkat

Buka Aplikasi Visual Studio 10, klik File New Project dan save di Folder yang diiinginkan
Buat Form terdiri dari 4 Label dan 4 text box,serta 3 button klik dari toolbox.
Label pertama memuat kode barang. label kedua Nama barang, ketiga harga, keempat  jumlah,sedangkan cekbox berisi Total harga, diskon dan tutup

output

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.) Handles MyBase.Load
        cmbkode.Items.Add("Tas")
        cmbkode.Items.Add("Bju")
        cmbkode.Items.Add("SPT)

        Form2.Show()

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

    End Sub
End Class

Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles cmbkode.SelectedIndexChanged
    Dim kdbrg, namabrg As String
    Dim harga As Single
    kdbrg = cmbkd.Text

    Select Case kdbrg
        Case " Tas"
            namabarang = "Tas"
            harga = 550000
        Case " Bju"
            namabarang = "baju"
            harga = 350000
        Case "Spt"
            harga = 100000
        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)

Dont Worry Be Happy,

Dont Worry Be Happy,

Nothing bring you peace but yourself,

Siapakah yang sanggup meraih kebahagiaan??

Orang lain dan keadaan memang bisa menjadi sumber kebahagiaan kita tetapi keduanya tak secara otomatis

bisa membuat kita bahagia.. Tak mempunyai uang memang akan membuat kebahagiaan kita terancam tapi,

setelah uang kita miliki, uang belum tentu bisa membuat kita bahagia.

Kita adalah hukum bagi diri kita,

Kalau kita sudah sanggup menciptakan kebahagiaan dari diri kita

maka kita akan bahagia dengan apa yang kita miliki

bahagia dengan apa yang kita lakukan

bahagia dengan orang yang kita kenal dan bahagia dengan keadaan di sekitar kita

--Bukan keSUKSESan yang menjadi syarat keBAHAGIAan, tapi keBAHAGIAanlah yang menjadi syarat keSUKSESan--

kehidupan sejatinya menciptakan tanya sepanjang masa,

thanks for someOne who always trying to make me HAPPY and HAPPIER^____^

Lets Find Our Own Happiness,