amri's blog

Sabtu, 02 April 2011

TUGAS VISUAL BASIC 2

PENJELASAN

Pada tugas Visual Basic yang ke-2 ini,saya membuat sebuah program sederhana mengenai cara memilih tempat bermain futsal di wilayah Universitas Indonesia beserta harga lapangannya per jam. Terdiri dari 4 tempat futsal yang sering dikunjungi oleh mahasiswa, buka mulai dari hari Senin-Minggu ( setiap hari ) pukul 08.00 - 20.00 WIB. Jika bermain futsal dari pukul 08.00 - 13.00 WIB, maka semua tempat futsal akan memberikan diskon 10 % kepada setiap pengunjungnya.

DESIGN FORM 1 SEBELUM DEBUG

CODING FORM 1

Jika kita memilih salah satu tempat futsalnya dan mengklik Hitung,maka akan muncul harga lapangan per jamnya,lalu harga+diskon 10 % dan total harga setelah dikurangi diskon tersebut. Jika mengklik Hapus,maka semua data akan terhapus,dan bila mengklik Keluar,maka program akan berakhir/keluar dengan MsgBox. Semua lapangan buka setiap hari,dari pukul 08.00 - 20.00 WIB,namun dari pukul 08.00-13.00 WIB,semua lapangan futsal akan memberikan diskon 10 % kepada pengunjung.

DESIGN FORM 1 SETELAH DEBUG ( KLIK HITUNG )

DESIGN FORM 1 SETELAH DEBUG ( KLIK HAPUS )

DESIGN FORM 1 SETELAH DEBUG ( KLIK KELUAR )

SOURCE CODE FORM 1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = True Then
            TextBox1.Text = 150000
            TextBox2.Text = 150000 * 0.1
            TextBox3.Text = 150000 - (150000 * 0.1)
        End If
        If RadioButton2.Checked = True Then
            TextBox1.Text = 100000
            TextBox2.Text = 100000 * 0.1
            TextBox3.Text = 100000 - (100000 * 0.1)
        End If
        If RadioButton3.Checked = True Then
            TextBox1.Text = 125000
            TextBox2.Text = 125000 * 0.1
            TextBox3.Text = 125000 - (125000 * 0.1)
        End If
        If RadioButton4.Checked = True Then
            TextBox1.Text = 80000
            TextBox2.Text = 80000 * 0.1
            TextBox3.Text = 80000 - (80000 * 0.1)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As String
        x = MsgBox(" Anda Yakin Keluar ? ", MsgBoxStyle.YesNo, "Konfirmasi")
        If x = vbYes Then
            End
        End If
    End Sub
End Class

Data Mahasiswa

Nama : Amri Shadiqin

NPM : 1006724280

UNIVERSITAS INDONESIA

Sabtu, 05 Maret 2011

TUGAS VISUAL BASIC : KALKULATOR

PENJELASAN

Pada Tugas Visual Basic kali ini,saya membuat project sebuah kalkulator sederhana yang mana kalkulator ini dapat digunakan untuk menghitung angka.Form 1 menggambarkan bagaimana kalkulator dapat digunakan,ada +,-,X,:,^, dan %. Juga terdapat message box untuk keluar dari program. Penjelasan program :

+ = untuk menjumlahkan angka

- = untuk mengurangi angka

x = untuk mengalikan angka

: = untuk membagi angka

^ = untuk memangkatkan angka

% = untuk mencari persen angka

Clear I,II,III = untuk menghapus angka dalam salah satu text box

AC = untuk mengapus semua angka dalam text box

EXIT = untuk keluar dari program

SCREENSHOOT

TAMPILAN FORM 1 SEBELUM DEBUG PROGRAM

TAMPILAN FORM 1 SETELAH DEBUG PROGRAM

TAMPILAN FORM 1 CODING

TAMPILAN CODING FORM 1

Public Class Form1

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a + +b
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a - b
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a / b
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a * b
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a ^ b
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        Dim a, b As String
        a = txt1.Text
        b = txt2.Text
        txt3.Text = a * (b / 100)
    End Sub

    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        txt1.Clear()
        txt2.Clear()
        txt3.Clear()
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        Dim x As String
        x = MsgBox("Are You Sure Exit?", MsgBoxStyle.YesNo, "konfirmasi")
        If x = vbYes Then
            End
        End If
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        txt1.Clear()
    End Sub

    Private Sub btn10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10.Click
        txt2.Clear()
    End Sub

    Private Sub btn11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn11.Click
        txt3.Clear()
    End Sub

End Class

SEKIAN DAN TERIMA KASIH

Data Mahasiswa :