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 :