Tugas Pemrograman Visual Basic 2

>>  Jawaban latihan 1 nomer 3 :

A.  Karena variable nama belum di deklarasikan pada method di dalam class tersebut,  di dalam listing btalamat1_Click  di tuliskan sbb :

alamat  = “Kuningan”

Txt.alamat.Text = alamat

Seharusnya  menggunakan sbb:

Dim alamat As String

alamat  = “Kuningan”

Txt.alamat.Text = alamat

B. Karena pada program btnama2_click tidak di deklarasikan nama keduanya karena cuma ada pendeklarasian Txtnama.Text sehingga program akan mengambil langsung ke modul. Kemudian mengapa ketika kita menekan tombol alamat1 dan alamat2 pada textbox akan muncul alamat yang sama itu dikarenakan pada program frmssatu sudah ada pendeklarasian const alamat = “kuningan” sehingga program akan mengambil dari pendeklarasian tersebut,kecuali apabila pendeklarasian const alamat = “kuningan” kita hilangkan maka yang muncul adalah purwokerto,karena program akan mengambil dari modul.

C. Pada tombol tambah umur1 pendeklarasiannya menggunakan Dim yang artinya nilainya telah di tetapkan yaitu 1 sehingga yang keluar ialah angka 1,sedangkan pada tombol tambah umur2 menggunakan pendeklarasian static yang artinya nilainya tidak hilang pada saat dieksekusi,dan nilai yang ditentukan ialah +1 sehingga pada tombol tambah umur2 nilainya akan terus bertambah 1.

D. Form 2 bisa dipanggil dengan mengklik tombol show form 2 pada form 1 dengan mengisi codenya yaitu FrmDua.ShowDialog(). Pada saat form 2 kebuka, form 1 masih tetap ada dan jika kita pilih tombol tutup maka hanya form 2 saja yang di tutup.

>> Analisa kelemahan program pada latihan 2 If dan Case

Kelemahan dari program pada latihan 2 If dan Case yaitu belum ada coding untuk KODE  “SEPATU”. Sehingga saya akan menambahkan kodingnya, langsung saja kodingnya dibawah ini :

PublicClassForm1

PrivateSub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

Dim kdbarang, namabarang AsString

Dim harga AsSingle

kdbarang = cmbkode.Text

SelectCase 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 = 50000

Case Else

namabarang = “TAS”

harga = 300000

EndSelect

txtnamabarang.Text = namabarang

txthargabarang.Text = harga

EndSub

Lalu saya merubah codingnya menjadi sbb :

PublicClassForm1

PrivateSub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

Dim kdbarang, namabarang AsString

Dim harga AsSingle

kdbarang = cmbkode.Text

SelectCase 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 = 50000

Case Else

namabarang = “TAS”

harga = 300000

EndSelect

txtnamabarang.Text = namabarang

txthargabarang.Text = harga

EndSub

PrivateSub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

txttotalharga.Text = Val(txthargabarang.Text) * Val(txtjumlah.Text)

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text) * Val(txtjumlah.Text)

EndSub

PrivateSub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged

txtdiskon.Text = Val(txthargabarang.Text) * 10 / 100

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text)

EndSub

PrivateSub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged

txtdiskon.Text = 0

txttotalbayar.Text = Val(txttotalharga.Text) – Val(txtdiskon.Text)

EndSub

PrivateSub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

txttotalbayar.Clear()

txtdiskon.Clear()

txthargabarang.Clear()

txtjumlah.Clear()

txtnamabarang.Clear()

txttotalharga.Clear()

Me.Radiotunai.Checked = False

Me.Radiokredit.Checked = False

cmbkode.Text = “”

EndSub

PrivateSub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

Me.Close()

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

cmbkode.Items.Clear()

cmbkode.Items.Add(“SPT”)

cmbkode.Items.Add(“SND”)

cmbkode.Items.Add(“TST”)

cmbkode.Items.Add(“TOP”)

cmbkode.Items.Add(“TAS”)

EndSub

PrivateSub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

EndSub

EndClass

Setelah pengisian coding telah selesai lalu kita run listing programnya, akan tampil program di bawah ini,, akan tetapi progam itu sudah saya isikan sbb :

Lalu setelah itu kita rubah jumlah barang menjadi 5, kita pilih kredit maka akan muncul program di bawah ini :

Demikian tugas yang saya buat,, TERIMA KASIH

PROGRAM KALKULATOR VISUAL BASIC 2010

Buka Aplikasi Visual Studio 2010 Kemudian Klik File, New Project, pilih project type nya Visual Basic, Windows Form Aplications.

Kemudian buat nama project tentukan sendiri, setelah itu pilih tempat penyimpanan. Klik OK!
Buat desain program seperti gambar dibawah ini :

1. Buat Button Angka 0 hingga 9 tentukan sendiri name layer button tersebut.

 –    Klik 2x pada button angka tersebut  kemudian ketik coding dibawah ini.

  Koding Angka 0-9

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles Button7.ClicLabel2.Text = Label2.Text & “0”

Label2.Text = Label2.Text & “1”

Label2.Text = Label2.Text & “2”

Label2.Text = Label2.Text & “3”

Label2.Text = Label2.Text & “4”

Label2.Text = Label2.Text & “5”

Label2.Text = Label2.Text & “6”

Label2.Text = Label2.Text & “7”

Label2.Text = Label2.Text & “8”

Label2.Text = Label2.Text & “9”

2.     Kemudian Buat Button Operator Seperti:  (+)(-)(/)(*)(^)  (Tambah, kurang, bagi, kali, dan pangkat). Tentukan sendiri name layer button tersebut diproperties.

Koding Operator

Public Class Form1

Dim nilai As Double

Dim aksi As String

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

nilai = Val(Label2.Text)

Label1.Text = Label2.Text & “” & ” + ”

Label2.Text = “”

aksi = “+”

nilai = Val(Label2.Text)

Label1.Text = Label2.Text & “” & ” – ”

Label2.Text = “”

aksi = “-”

nilai = Val(Label2.Text)

Label1.Text = Label2.Text & “” & ” : ”

Label2.Text = “”

aksi = “:”

nilai = Val(Label2.Text)

Label1.Text = Label2.Text & “” & ” x ”

Label2.Text = “”

aksi = “x”

nilai = Val(Label2.Text)

Label1.Text = Label2.Text & “” & ” ^ ”

Label2.Text = “”

aksi = “^”

3. Buat Button Sama Dengan. Tentukan sendiri name layer button tersebut diproperties.

Koding sama dengan (=)

Public Class Form1

Dim aksi As String

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click

If aksi = “+” Then

Label2.Text = nilai + Label2.Text

End If

If aksi = “-” Then

Label2.Text = nilai – Label2.Text

End If

If aksi = “:” Then

Label2.Text = nilai / Label2.Text

End If

If aksi = “x” Then

Label2.Text = nilai * Label2.Text

End If

If aksi = “^” Then

Label2.Text = nilai ^ Label2.Text

End If

4. Buat Button Clear Entry (CE). Tentukan sendiri name layer button tersebut diproperties.

Koding Clear Entry (CE)

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button19.Click

TextBox1.Text = “”

Label1.Text = “”

Label2.Text = “”

5. Button Delete (DEL)  Tentukan sendiri name layer button tersebut diproperties.

Koding DELETE(DEL)

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button21.Click

If Label2.Text <> “” Then

Label2.Text = “”

End If

6. Button Delete (DEL)  Tentukan sendiri name layer button tersebut diproperties.

Koding PLUS MINUS(+/-)
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button20.Click

Label2.Text = “- ” & Label2.Text

7.  Buat Button EXIT.  Tentukan sendiri name layer button tersebut diproperties.

Koding EXIT “MESSAGES BOX”

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button5.Click

pesan = MsgBox(” Apakah Anda yakin ingin keluar dari Aplikasi ini? “, MsgBoxStyle.Question + MsgBoxStyle.YesNo, ” Calculator “)

If pesan = vbYes Then

Me.Close()

End If

8.    Buat sebuah LABEL tetapi kosongkan nama text LABEL tersebut.  Dan Tambahkan Timer di Toolbox. Tentukan sendiri name layer label tersebut diproperties.

Koding RUNNING TEKS

(“Selamat Berhitung”)

Public Class Kalkulator

Dim tulisan(2) As String

Dim i, j As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

If i.Equals(tulisan(j).Length) Then

Me.LBLucapan.Text = ” ”

If j < tulisan.Length – 1 Then

j = j + 1

Me.LBLucapan.Text = tulisan(j)

Else

j =0

End If

i = 0

End If

LBLucapan.Text = tulisan(j).Substring(0, i)

i = i + 1

End Sub

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

tulisan(0) = ” Selamat Berhitung ! ”

tulisan(1) = ” Selamat Berhitung ! ”

tulisan(2) = ” Selamat Berhitung ! ”

Timer1.Start(