Pertemuan 3, 23 Februari 2015 : Membuat Aplikasi Penanggalan Sederhana Menggunakan Visual Basic 2010

Terdapat 2 Project Yaitu :

1. Program menghitung jarak yang bisa dicapai / Tankinya

2. Program menghitung penghasilan ticket

Program menghitung jarak yang bisa dicapai / Tankinya

 

Form1 terdiri dari 9 toolbox antara lain :

1.      Label 1 = Full Tank(Liter)

2.      Label 2=Jarak yang bias dicapai(km)

3.      Label 3 = Km/Liter

4.      TextBox1 =  txtBensin

5.      TextBox2 = txtJarak

6.      TextBox3 = txtHasil

7.      Button1 = Hasil ( untuk Namenya btnHasil )

8.      Button2 = Clear ( untuk Namenya btnClear )

9.      Button3= Exit ( untuk Namenya btnExit )

Keterangan : TextBox3 kenapa bisa seperti itu bentuknya, cari tulisan ReadOnly di tab properties ganti menjadi “ TRUE “.

NB : Untuk mengedit  seperti gambar di bawah ini terdapat di tab properties terdapat di pojok kanan bawa

Source Codenya :

Public Class Form1

    Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click

        txtHasil.Text = txtBensin.Text / txtJarak.Text

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtBensin.Text = ""

        txtJarak.Text = ""

        txtHasil.Text = ""

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        End

    End Sub

End Class

Program Menghitung Penghasilan Ticket

Form2 terdiri dari 25 ToolBox :

1. GroupBox1 = Ticket
2. GroupBox2 = Penghasilan
3. Button1 = Textnya Hasil dan Namenya btnHasil
4. Button2 = Textnya Clear dan Namenya btnClear
5. Button3 = Textnya Exit dan Namenya btnExit

Didalam GroupBox1 terdiri 10 ToolBox:

1. Label 1 =  Class A(Ubah Textnya)
2. Label 2 = Class B(Ubah Textnya)
3. Label 3 = Class C(Ubah Textnya)
4. Label 4 = Class D(Ubah Textnya)
5. Label 5 = Total Kursi( Ubah Textnya)
6. TextBox 1 = txt1(Ubah Namenya)
7. TextBox 2 = txt2(Ubah Namenya)
8. TextBox 3 = txt3(Ubah Namenya)
9. TextBox 4 = txt4(Ubah Namenya)
10. TextBox 5 = txtTotal(Ubah Namenya)

Didalam GroupBox2 Terdiri 10 ToolBox :

1. Label 6 =  Class A(Ubah Textnya)
2. Label 7 = Class B(Ubah Textnya)
3. Label 8 = Class C(Ubah Textnya)
4. Label 9 = Class D( Ubah Textnya)
5. Label 10 = Total Penghasilan(Ubah Textnya)
6. TextBox 6 = txt6(Ubah Namenya)
7. TextBox 7 = txt7(Ubah Namenya)
8. TextBox 8 = txt8(Ubah Namenya)
9. TextBox 9 = txt9(Ubah Namenya)
10. TextBox 10 = txtPenghasilan(Ubah Namenya)

Source Codenya :

Public Class Form2

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        txt6.Text = Val(txt1.Text) * 500

        txt7.Text = Val(txt2.Text) * 250

        txt8.Text = Val(txt3.Text) * 150

        txt9.Text = Val(txt4.Text) * 100

        txtTotal.Text = Val(txt1.Text) + Val(txt2.Text) + Val(txt3.Text) + Val(txt4.Text)

        txtPenghasilan.Text = Val(txt6.Text) + Val(txt7.Text) + Val(txt8.Text) + Val(txt9.Text)

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txt1.Text = ""

        txt2.Text = ""

        txt3.Text = ""

        txt4.Text = ""

        txt6.Text = ""

        txt7.Text = ""

        txt8.Text = ""

        txt9.Text = ""

        txtPenghasilan.Text = ""

        txtTotal.Text = ""

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class

Read More

Pertemuan 2, 16 Februari 2015 MEMBUAT KALKULATOR PINTAR SEDERHANA DENGAN VISUAL BASIC 2010

Berikut langkah-langkahnya :

Klik Start pada windows anda

Klik All Programs

Klik Microsoft Visual Studio 2010 (Seperti gambar dibawah) 

Dan berikut tampilan awal VB 2010

Untuk memulainya

Klik File

New Project

Pilih Windows Forms Application

Anda bisa merubah Name : Aplikasi Pintar VB

 Klik OK

Pada Properties Form1 ubah :

Text                 : Kalkulator Pintar VB

StartPosition  : CenterScreen

Tambahkan TextBox pada Form1

Klik TextBox1, Kemudian Ubah pada Properties:

Name                          : LAYAR

RightToLeft                 : Yes

ReadOnly                    : True

BackColor                   : ButtonHighlight

Kemudian Tambahkan Button pada Form :

 

Pad Properties Button1 Ubah :

Text     : 1

Name : N1

Kemudian Copy N1 (Untuk Cara Copy Cepat, anda bisa lihat BAB 2010.3) hingga menjadi :

Ubah Name dan Text Pada masing-masing Button hingga menjadi :

Button1			Button2			Button3
Name	N1		Name	N2		Name	N3
Text	1		Text	2		Text	3
Button4			Button5			Button6
Name	N4		Name	N5		Name	N6
Text	4		Text	5		Text	6
Button7			Button8			Button9
Name	N7		Name	N8		Name	N9
Text	7		Text	8		Text	9
Button10			Button11			Button12
Name	Nhasil		Name	N0		Name	NC
Text	=		Text	0		Text	C

Membuat Koding Pada Form1

Dengan Koding diatas, jika anda klik Tombol N1 maka pada Layar akan Muncul angka 1 

Masukan juga Koding diatas pada Tombol N2, N3 dan seterusnya :

Contoh :

Logika Koding diatas adalah ketika anda Klik Angka pada Tombol maka tampilkan pada LAYAR. Kemudian anda Tambahkan lagi Button pada Form1, sehingga menjadi seperti gambar dibawah :

Ubah Penambahan Button diatas pada Properties menjadi :

Button13			Button14			Button14			Button15
Name	Ttambah		Name	Tkurang		Name	Tkali		Name	Tbagi
Text	+		Text	-		Text	x		Text	/

Kemudian jalannya aplikasi :

Ketika Aplikasi di Run atau dijalankan maka LAYAR = 0

Ketika Tombol Angka di Klik maka muncul pada Layar, Ketika Tombol Tambah di Klik Maka Layar akan muncul angka 0 dan pengguna memasukan Angka ke 2. Ketika di Klik tombol = maka akan memberikan Hasilnya pada LAYAR.

Ketika Klik Tombol C, maka LAYAR akan memunculkan angka 0 kembali.

 Berikut full codingnya :

Public Class Form1


Dim AngkaPertama As Long

Dim Kalkulasi As String


Private Sub N1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N1.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "1"


Else


LAYAR.Text = LAYAR.Text & "1" End If


End Sub


Private Sub N2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N2.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "2"

Else


LAYAR.Text = LAYAR.Text & "2" End If

End Sub


Private Sub N3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N3.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "3"

Else


LAYAR.Text = LAYAR.Text & "3" End If


End Sub


Private Sub N4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N4.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "4"


Else

LAYAR.Text = LAYAR.Text & "4"


End If


End Sub


Private Sub N5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N5.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "5"


Else


LAYAR.Text = LAYAR.Text & "5" End If


End Sub


Private Sub N6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N6.Click


If LAYAR.Text = "0" Then

LAYAR.Text = "6"


Else


LAYAR.Text = LAYAR.Text & "6" End If


End Sub


Private Sub N7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N7.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "7"

Else


LAYAR.Text = LAYAR.Text & "7" End If

End Sub


Private Sub N8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N8.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "8"


Else


LAYAR.Text = LAYAR.Text & "8" End If


End Sub


Private Sub N9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N9.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "9"


Else


LAYAR.Text = LAYAR.Text & "9" End If


End Sub


Private Sub N0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N0.Click


If LAYAR.Text = "0" Then

LAYAR.Text = "0"


Else


LAYAR.Text = LAYAR.Text & "0" End If

End Sub


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


LAYAR.Text = "0"


End Sub


Private Sub NC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NC.Click


LAYAR.Text = "0" End Sub


Private Sub TTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTambah.Click


AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "+"

End Sub


Private Sub TKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKurang.Click


AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "-"

End Sub


Private Sub TKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKali.Click

AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "*"


End Sub


Private Sub TBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBagi.Click

AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "/"

End Sub


Private Sub NHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NHasil.Click

Dim AngkaKeDua As Long Dim Hasil As Long AngkaKeDua = LAYAR.Text If Kalkulasi = "+" Then

Hasil = AngkaPertama + AngkaKeDua ElseIf Kalkulasi = "-" Then

Hasil = AngkaPertama - AngkaKeDua ElseIf Kalkulasi = "*" Then

Hasil = AngkaPertama * AngkaKeDua ElseIf Kalkulasi = "/" Then

Hasil = AngkaPertama / AngkaKeDua End If

AngkaPertama = Hasil LAYAR.Text = Hasil

End Sub End Class

Read More