LAPORAN PRAKTIKUM

BAHASA PEMROGRAMAN VISUAL

FUNGSI NUMERIK

ANIS EKO SETIOWATI

109533423243
OFF B PTI 09

UNIVERSITAS NEGERI MALANG

FAKULTAS TEKNIK
JURUSAN TEKNIK ELEKTRO
PROGRAM STUDI TEKNIK INFORMATIKA
 FUNGSI NUMERIK

A. TUJUAN
1. Memahami penggunaa fungsi numerik
2. Membuat program sederhana menggunakan fungsi numerik
3. Mampu menerapkan dan mengaplikasikan penggunaan fungsi numerik

B. TUGAS PRAKTIKUM
a. Membuat seluruj fungsi matematika dalam fungsi numerik ke dalam satu
form
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) - CDbl(TextBox2.Text))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button3.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) / CDbl(TextBox2.Text))
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button4.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button5.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) Mod
CDbl(TextBox2.Text))
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button6.Click
TextBox3.Text = CStr(CDbl(TextBox1.Text) ^ CDbl(TextBox2.Text))
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button7.Click
TextBox3.Text = CStr(Math.Sin(CDbl(TextBox1.Text) * 3.14 / 180))
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button8.Click
TextBox3.Text = CStr(Math.Cos(CDbl(TextBox1.Text) * 3.14 / 180))
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button9.Click
TextBox3.Text = CStr(Math.Tan(CDbl(TextBox1.Text) * 3.14 / 180))
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button19.Click
TextBox3.Text = CStr(Math.Asin(CDbl(TextBox1.Text)* 3.14 / 180))
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button20.Click
TextBox3.Text = CStr(Math.Acos(CDbl(TextBox1.Text)* 3.14 / 180))
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button21.Click
TextBox3.Text = CStr(Math.Atan(CDbl(TextBox1.Text) * 3.14 /180))
End Sub
Private Sub Button10_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button10.Click
TextBox3.Text = CStr(Math.Log(CDbl(TextBox1.Text)))
End Sub
Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button11.Click
TextBox3.Text = CStr(Math.Log10(CDbl(TextBox1.Text)))
End Sub
Private Sub Button12_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button12.Click
TextBox3.Text = CStr(Math.Sqrt(CDbl(TextBox1.Text)))
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button13.Click
TextBox4.Text = CStr(Math.Abs(CDbl(TextBox3.Text)))
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button14.Click
TextBox4.Text = CStr(Math.Ceiling(CDbl(TextBox3.Text)))
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button15.Click
TextBox4.Text = CStr(Math.Floor(CDbl(TextBox3.Text)))
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button17.Click
TextBox4.Text = CStr(Oct(CDbl(TextBox3.Text)))
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button16.Click
TextBox4.Text = CStr(Int(CDbl(TextBox3.Text)))
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button18.Click
TextBox4.Text = CStr(Math.Round(CDbl(TextBox3.Text), 3))
End Sub
End Class
b. Membuat sebuah message box penjumlahan 2 angka yang diinputkan
melalui kode program

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Label2.Text & " + " & Label3.Text & " =
" & CStr(CDbl(Label2.Text) + CDbl(Label3.Text)))
End Sub

End Class

c. Membuat message box perkalian yang diinputkan melalui toolbox.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(TextBox1.Text & " * " & TextBox2.Text & " =
" & CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text)))
End Sub

End Class
C. TUGAS RUMAH
a. Membuat message box hasil perkalian , pembagian, penjumlahan dan
pengurangan 2 angka yang diinputkan melalui toolbox dalam satu form.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(TextBox1.Text & " + " & TextBox2.Text &
" = " & CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text)))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show(TextBox1.Text & " - " & TextBox2.Text &
" = " & CStr(CDbl(TextBox1.Text) - CDbl(TextBox2.Text)))
End Sub

Private Sub Button3_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show(TextBox1.Text & " * " & TextBox2.Text &
" = " & CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text)))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button4.Click
MessageBox.Show(TextBox1.Text & " / " & TextBox2.Text &
" = " & CStr(CDbl(TextBox1.Text) / CDbl(TextBox2.Text)))
End Sub

Private Sub Button5_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button5.Click
MessageBox.Show(TextBox1.Text & " Mod " & TextBox2.Text
& " = " & CStr(CDbl(TextBox1.Text) Mod
CDbl(TextBox2.Text)))
End Sub

Private Sub Button6_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button6.Click
MessageBox.Show(TextBox1.Text & " ^ " & TextBox2.Text &
" = " & CStr(CDbl(TextBox1.Text) ^ CDbl(TextBox2.Text)))
End Sub
End Class
b. Membuat message box hasil perkalian, pembagian, penjumlahan dan
pengurangan dengan input melalui kode program.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Label2.Text & " + " & Label3.Text & " =
" & CStr(CDbl(Label2.Text) + CDbl(Label3.Text)))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show(Label2.Text & " - " & Label3.Text & "
= " & CStr(CDbl(Label2.Text) - CDbl(Label3.Text)))
End Sub

rivate Sub Button3_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show(Label2.Text & " * " & Label3.Text &
" = " & CStr(CDbl(Label2.Text) * CDbl(Label3.Text)))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button4.Click
MessageBox.Show(Label2.Text & " / " & Label3.Text & "
= " & CStr(CDbl(Label2.Text) / CDbl(Label3.Text)))
End Sub
End Class
c. Membuat fungsi oct, hex, sin, dan tan dalam 1 form mulai dari angka 1-10

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = CStr(Oct(CDbl(Label2.Text)))
TextBox2.Text = CStr(Hex(CDbl(Label2.Text)))
TextBox3.Text =CStr(Math.Sin(CDbl(Label2.Text)*3.14/180))
TextBox4.Text =CStr(Math.Tan(CDbl(Label2.Text)*3.14/180))
TextBox8.Text = CStr(Oct(CDbl(Label3.Text)))
TextBox7.Text = CStr(Hex(CDbl(Label3.Text)))
TextBox6.Text =CStr(Math.Sin(CDbl(Label3.Text)*3.14/180))
TextBox5.Text =CStr(Math.Tan(CDbl(Label3.Text)*3.14/180))
TextBox12.Text = CStr(Oct(CDbl(Label4.Text)))
TextBox11.Text = CStr(Hex(CDbl(Label4.Text)))
TextBox10.Text =CStr(Math.Sin(CDbl(Label4.Text)*3.14/180))
TextBox9.Text = CStr(Math.Tan(CDbl(Label4.Text)*3.14/180))
TextBox16.Text = CStr(Oct(CDbl(Label5.Text)))
TextBox15.Text = CStr(Hex(CDbl(Label5.Text)))
TextBox14.Text =CStr(Math.Sin(CDbl(Label5.Text)*3.14/180))
TextBox13.Text =CStr(Math.Tan(CDbl(Label5.Text)*3.14/180))
TextBox20.Text = CStr(Oct(CDbl(Label6.Text)))
TextBox19.Text = CStr(Hex(CDbl(Label6.Text)))
TextBox18.Text =CStr(Math.Sin(CDbl(Label6.Text)*3.14/180))
TextBox17.Text =CStr(Math.Tan(CDbl(Label6.Text)*3.14/180))
TextBox24.Text = CStr(Oct(CDbl(Label7.Text)))
TextBox23.Text = CStr(Hex(CDbl(Label7.Text)))
TextBox22.Text =CStr(Math.Sin(CDbl(Label7.Text)*3.14/180))
TextBox21.Text =CStr(Math.Tan(CDbl(Label7.Text)*3.14/180))
TextBox28.Text = CStr(Oct(CDbl(Label8.Text)))
TextBox27.Text = CStr(Hex(CDbl(Label8.Text)))
TextBox26.Text =CStr(Math.Sin(CDbl(Label8.Text)*3.14/180))
TextBox25.Text =CStr(Math.Tan(CDbl(Label8.Text)*3.14/180))
TextBox32.Text = CStr(Oct(CDbl(Label9.Text)))
TextBox31.Text = CStr(Hex(CDbl(Label9.Text)))
TextBox30.Text =CStr(Math.Sin(CDbl(Label9.Text)*3.14/180))
TextBox29.Text =CStr(Math.Tan(CDbl(Label9.Text)*3.14/180))
TextBox36.Text = CStr(Oct(CDbl(Label10.Text)))
TextBox35.Text = CStr(Hex(CDbl(Label10.Text)))
TextBox34.Text=CStr(Math.Sin(CDbl(Label10.Text)*3.14/180))
TextBox33.Text=CStr(Math.Tan(CDbl(Label10.Text)*3.14/180))
TextBox40.Text = CStr(Oct(CDbl(Label11.Text)))
TextBox39.Text = CStr(Hex(CDbl(Label11.Text)))
TextBox38.Text=CStr(Math.Sin(CDbl(Label11.Text)*3.14/180))
TextBox37.Text=CStr(Math.Tan(CDbl(Label11.Text)*3.14/180))
End Sub

End Class
D. TINJAUAN REFERENSI
Anonim.Visual Basic.NET. 2010, (Online), (http://id.wikipedia.org/wiki/
Visual Basic .NET., diakses 7 Februari 2011 )
Modul 1 praktikum Mengenal Visual Basic.NET