NAMA            : JIMMY HARIS SITOMPUL
PANGKAT      : SERDA
NIM                : 20190426-E

PRAKTIK JARKOM
MEMBUAT KALKULATOR TRIGOMETRI

1.    PENGERTIAN VISUAL BASIC

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM). Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tetapi membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

2.    LANGKAH – LANGKAH PERCOBAAN

1. Buka VB pilih new project kemudian pilih standar exe

2. Buat button dan label seperti gambar dibawah

3. Komponen yang di gunakan adalah sebagai berikut :

Penjelasan program :
-        Kontrol yang digunakan : command button dan text
-     Gunakan Variable bertipe double / float untuk menampung angka yang akan dioperasikan
-        Untuk akar gunakan sqr(….)
-        Untuk sin, cos, tan,  gunakan Math.sin(cdbl(…*(phi/180)))

4. Untuk codding sebagai berikut :

Dim a, b, hasil As Double
Dim ulang As Integer
Private Sub Command1_Click()
'kuadrat
a = Me.Text1.Text
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "0"
Else
    hasil = a * a
End If

Me.Text1.Text = Str(hasil)

End Sub

Private Sub Command11_Click()
a = 0
Me.Text1.Text = "0"
End Sub

Private Sub Command12_Click()
Me.Text2.Text = Me.Text1.Text & " mod "
b = Me.Text1.Text

Me.Label1.Caption = "4"
Me.Text1.Text = "0"
End Sub

Private Sub Command13_Click()
Me.Text1.Text = "0"
Me.Text2.Text = ""
Me.Label1.Caption = ""
a = 0
b = 0
hasil = 0
End Sub

Private Sub Command16_Click()
Me.Text1.Text = 3.14
a = Val(Me.Text1.Text)
End Sub

Private Sub Command17_Click()
'7
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "7"
Else
    Me.Text1.Text = Me.Text1.Text & "7"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command18_Click()
'8
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "8"
Else
    Me.Text1.Text = Me.Text1.Text & "8"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command19_Click()
'9
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "9"
Else
    Me.Text1.Text = Me.Text1.Text & "9"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command2_Click()
'pemangkatan
a = Me.Text1.Text
Me.Text2.Text = Me.Text1.Text & " ^ "
Me.Text1.Text = "0"
Me.Label1.Caption = "5"
MsgBox a
End Sub


Private Sub Command20_Click()
'kali
If Me.Text2.Text = "" Then
    Me.Text2.Text = Me.Text1.Text & " x "
Else
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text
End If

If b = 0 Then
    b = a
Else
    b = b * a
End If

Me.Label1.Caption = "3"
Me.Text1.Text = "0"
End Sub

Private Sub Command22_Click()
'4
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "4"
Else
    Me.Text1.Text = Me.Text1.Text & "4"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command23_Click()

If Me.Text1.Text = "0" Then
    Me.Text1.Text = "5"
Else
    Me.Text1.Text = Me.Text1.Text & "5"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command24_Click()
'6
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "6"
Else
    Me.Text1.Text = Me.Text1.Text & "6"
End If

a = Val(Me.Text1.Text)
End Sub

Private Sub Command25_Click()
'kurang
If Me.Text2.Text = "" Then
    Me.Text2.Text = Me.Text1.Text & " - "
Else
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text
End If

If b = 0 Then
    b = a
Else
    b = b - a
End If

Me.Label1.Caption = "2"
Me.Text1.Text = "0"
End Sub

Private Sub Command27_Click()
'1
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "1"
Else
    Me.Text1.Text = Me.Text1.Text & "1"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command28_Click()
'2
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "2"
Else
    Me.Text1.Text = Me.Text1.Text & "2"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command29_Click()
'3
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "3"
Else
    Me.Text1.Text = Me.Text1.Text & "3"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command3_Click()
a = Int(Me.Text1.Text)

If Me.Text1.Text = "0" Then
   Me.Text1.Text = "0"
Else
    Me.Text2.Text = " Sin " & Me.Text1.Text
    hasil = Math.Sin(CDbl(a * ((22 / 7) / 180)))
End If

Me.Text1.Text = hasil
End Sub

Private Sub Command30_Click()

If Me.Text2.Text = "" Then
    Me.Text2.Text = Me.Text1.Text & " + "
Else
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text
End If

b = b + a

Me.Label1.Caption = "1"
Me.Text1.Text = "0"
End Sub

Private Sub Command33_Click()
'3
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "0"
Else
    Me.Text1.Text = Me.Text1.Text & "0"
End If

a = Val(Me.Text1.Text)

End Sub

Private Sub Command35_Click()
'samadengan
If Me.Label1.Caption = "1" Then
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text & " = "
    hasil = Val(Me.Text1.Text) + b
ElseIf Me.Label1.Caption = "2" Then
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text & " = "
    hasil = b - Val(Me.Text1.Text)
ElseIf Me.Label1.Caption = "3" Then
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text & " = "
    hasil = b * Val(Me.Text1.Text)
ElseIf Me.Label1.Caption = "4" Then
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text & " = "
    hasil = b Mod a
ElseIf Me.Label1.Caption = "5" Then
    Me.Text2.Text = Me.Text2.Text & Me.Text1.Text & " = "
    b = Me.Text1.Text
    hasil = 1
    For ulang = 1 To b
        hasil = hasil * a
    Next
End If

Me.Text1.Text = Str(hasil)

End Sub

Private Sub Command4_Click()
a = Int(Me.Text1.Text)

If Me.Text1.Text = "0" Then
   Me.Text1.Text = "0"
Else
    If a = 90 Then
        Me.Text1.Text = "0"
    Else
        Me.Text2.Text = " cos " & Me.Text1.Text
        hasil = Cos(CDbl(a * ((22 / 7) / 180)))
    End If
End If

Me.Text1.Text = hasil
End Sub

Private Sub Command5_Click()
a = Int(Me.Text1.Text)

If a = 90 Then
    Text1.Text = "invalid"
Else
    hasil = Tan(a * ((22 / 7) / 180))
    Me.Text2.Text = " Tan " & Me.Text1.Text
End If
Me.Text1.Text = hasil
End Sub

Private Sub Command6_Click()
a = Int(Me.Text1.Text)

Me.Text1.Text = Sqr(a)
End Sub

Private Sub Command7_Click()
If Me.Text1.Text = "0" Then
    Me.Text1.Text = "0"
Else
    hasil = 1
    For ulang = 1 To Val(Me.Text1.Text)
        hasil = hasil * 10
    Next
Me.Text1.Text = Str(hasil)
End If
End Sub

Private Sub Image1_Click()

End Sub

9. Setelah selesai coba run atau jalankan proggramnya.

Contoh Program Visual Basic (VB) Kalkultor adalah sebagai berikut :