FURQON (11.11.2531)

Program A 

Variabel constanta type data.

1. Yang mebuat program error yaitu alamat tidak menemukan tujuan yang jelas, tujuan yang terdekat adalah pada const alamat = “Kuningan”, seedangkan di module adalah “Purwokerto”. Seharusnya pada program btalmtt1_Click baris alamat = “Kuningan” di beri tanda ‘ untuk mentidak aktifkannya.
   
   
2. Karena tujuan yang dituju alamat pada program btalmt1_Click dan btalmt2_Click adalah pada program yang terdekat yaitu pada baris const alamat = “Kuningan”, jika ingin berbeda dilakukan program seperti pada btnama yaitu salah satu diantara btalmt1 dan btalmt2 diberi alamat jelas, dan pada baris const alamat = “Kuningan” dihapus.
   
   
3. Pada program bttambahumur1_Click baris Dim umur As Integer, seharusnya Dim diganti dengan Static agar saat ditekan tombol tambah umur 1, umur bertambah 1 dari sebelumnya.
   
   
4. Pada form2 button – button seperti btnama, btalamat, dan btumur sudah menemukan target yang jelas pada module, pada btnama baris txtnama.Text = nama ada target di module yaitu public Public const nama As String = “Nandang Hermanto” Pada btalamat juga ada target di module yaitu Public const alamat As String = “Purwokerto” Pada btumur juga ada target di module yaitu Public const umur As Integer = 17
   
   

   Hasil dari program di atas.

    

    
   
   

   Program B

   If dan Case.

   Kelemahan programnya ada pada nama barang dan harga barang, dimana tertuliskan nama barang = - dan harga barang = 0 
   
   
   
   
   
   
   
    Sebelum listing di benarkan.
   
   
   
   
   
   Sesudah listing di perbaiki.
   
   
   
   
   
   Hasil dari program B setelah di jalankan.
   
   
   
   
   
   
   
   
   

    

 

KALCULATOR SEDERHANA

               Di sini saya akan menjelaskan cara membuat kalculator sederhana, pertama kita buat form, label, teksbox, dan button, setelah itu kita susun button tersebut sesuai gamar nomor  1, kemudian  rubah nama propertis dan desain lah sesuai keingnan anda seperti pada nomor 2,3, dan 4. Kemudian masukan listing program kedalam propertis yang ada pada form tersebut seperti button seperti pada gambar 5, textbox. Stelah itu coba jalan kan program yang telah di buat.

1.    Pembuatan form, label, teksbox, dan button


2.    Merubah propertis


3.    Mendesain bagian – bagian yang berada dalam form





 4.    Hasil desain dan output dari program yang telah dibuat
 

5.    Listing program yang berada dalam Form, Textbox, dan Button

LISTING PROGRAM

Public Class Form1
    Dim nilai1, nilai2, hasil As Decimal

    Dim sharedoperator As String

    Dim phi As Decimal = 3.1415926535897944

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 1

        Else : Txtangka.Text = Txtangka.Text & 1

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 2

        Else : Txtangka.Text = Txtangka.Text & 2

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 3

        Else : Txtangka.Text = Txtangka.Text & 3

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 4

        Else : Txtangka.Text = Txtangka.Text & 4

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 5

        Else : Txtangka.Text = Txtangka.Text & 5

        End If

        Txtangka.Text = Int(Txtangka.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 6

        Else : Txtangka.Text = Txtangka.Text & 6

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 7

        Else : Txtangka.Text = Txtangka.Text & 7

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 8

        Else : Txtangka.Text = Txtangka.Text & 8

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 9

        Else : Txtangka.Text = Txtangka.Text & 9

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Txtangka.Text = "" Then

            Txtangka.Text = 0

        Else : Txtangka.Text = Txtangka.Text & 0

        End If

        Txtangka.Text = Int(Txtangka.Text)

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If nilai1 = 0 Then

            nilai1 = Val(Txtangka.Text)

        Else

            nilai1 = nilai1 + Val(Txtangka.Text)

        End If

        sharedoperator = "+"

        Txtangka.Text = 0

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If nilai1 = 0 Then

            nilai1 = Val(Txtangka.Text)

        Else

            nilai1 = nilai1 - Val(Txtangka.Text)

        End If

        sharedoperator = "-"

        Txtangka.Text = 0

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If nilai1 = 0 Then

            nilai1 = Val(Txtangka.Text)

        Else

            nilai1 = nilai1 * Val(Txtangka.Text)

        End If

        sharedoperator = "*"

        Txtangka.Text = 0

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If nilai1 = 0 Then

            nilai1 = Val(Txtangka.Text)

        Else

            nilai1 = nilai1 / Val(Txtangka.Text)

        End If

        sharedoperator = "/"

        Txtangka.Text = 0

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If sharedoperator = "+" Then

            hasil = nilai1 + Val(Txtangka.Text)

            Txtangka.Text = hasil

        ElseIf sharedoperator = "-" Then

            hasil = nilai1 - Val(Txtangka.Text)

            Txtangka.Text = hasil

        ElseIf sharedoperator = "*" Then

            hasil = nilai1 * Val(Txtangka.Text)

            Txtangka.Text = hasil

        ElseIf sharedoperator = "/" Then

            hasil = nilai1 / Val(Txtangka.Text)

            Txtangka.Text = hasil
        End If

        nilai1 = 0

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Me.Close()

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Txtangka.Clear()
    End Sub
End Class