Laporan Praktikum II
-
Upload
ristania-fitri-w -
Category
Documents
-
view
12 -
download
1
Transcript of Laporan Praktikum II
Laporan Praktikum IIFUNGSI NUMERIK
Disusun untuk Memenuhi Matakuliah Praktikum Pemrograman Visual yang Dibimbing oleh Bapak Wahyu Sakti Gunawan Irianto.
Oleh:RISTANIA FITRI WULANDARI(120533430917)S1 PTI 2012 Offering E
UNIVERSITAS NEGERI MALANGFAKULTAS TEKNIKJURUSAN TEKNIK ELEKTROS1 PENDIDIKAN TEKNIK INFORMATIKAFEBRUARI, 2014
Laporan II
A. TUJUAN Memahami mengenai penggunaan numerik. Membuat program numerik sederhana menggunakan VB.B. LATIHAN1. Konversi Implisit Source CodeModule Module1
Sub Main() Dim intValue As Integer = 123 'konversi implisit (konversi windening)' 'dari interger ke long' Dim longValue As Long = intValue
Console.WriteLine(intValue & ".." & longValue) Console.ReadLine() 'output : 123 End Sub
End Module
Hasil
2. Konversi Eksplisit Source CodeModule Module2
Sub Main() Dim intValue As Integer = CInt(intValue) Console.WriteLine(intValue & " = " & intValue) Console.ReadKey(CBool(CInt(intValue))) End Sub
End Module
Hasil
3. Latihan 3 Source CodePublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Lbl3.Text = CStr(Math.Cos(15.5)) End SubEnd Class
Hasil
4. Latihan 4 Source CodePublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label4.Text = CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text))
End SubEnd Class
Hasil
C. TUGAS PRAKTIKUM1. Dari seluruh fungsi matematika yang ada di atas tadi, buatlah ke dalam satu form! Source CodePublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label4.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 Lbl3.Text = CStr(Math.Cos(15.5)) End SubEnd Class
Hasil :
2. Buatlah sebuah message box hasil penjumlahan 2 angka yang diinputkan melalui kode program! Source CodePublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label4.Text = CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text)) MessageBox.Show("Hasil = " & (Label4.Text)) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Lbl3.Text = CStr(Math.Cos(15.5)) End SubEnd Class
Hasil
3. Buatlah sebuah message box hasil perkalian 2 angka yang diinputkan melalui Toolbox! Source CodePublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox("Hasil Perkalian Bil 1 dan Bil 2 adalah" & CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text)))
End SubEnd Class Hasil
D. TUGAS RUMAH1. Buatlah sebuah message box hasil perkalian, pembagian, pengurangan dan penambahan 2 angka yang diinputkan melalui Toolbox dalam 1 form! Source CodePublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Penjumlahan" & CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text) & "Pengurangan" & CStr(CDbl(TextBox1.Text) - CDbl(TextBox2.Text)) & "Perkalian" & CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text) & "Pembagian" & CStr(CDbl(TextBox1.Text) / CDbl(TextBox2.Text)))))
End SubEnd Class
Hasil
2. Buatlah sebuah message box hasil perkalian, pembagian, pengurangan dan penambahan 2 angka yang diinputkan melalui kode program dalam 1 form! Source CodePublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = CStr(CDbl(15) + CDbl(5)) Label2.Text = CStr(CDbl(15) - CDbl(5)) Label3.Text = CStr(CDbl(15) * CDbl(5)) Label4.Text = CStr(CDbl(15) / CDbl(5))
MessageBox.Show("hasil " & (Label1.Text)) MessageBox.Show("hasil " & (Label2.Text)) MessageBox.Show("hasil " & (Label3.Text)) MessageBox.Show("hasil " & (Label4.Text)) End SubEnd Class
Hasil Penambahan :
Pengurangan :
Perkalian
Pembagian
3. Buatlah fungsi oct, hex, sin, dan tan dalam 1 form, mulai dari angka 1-10! Source CodeOption Strict OffImports System.MathPublic Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Label24.Text = "sin 1 = " & Math.Sin(1 * (3.14 / 180)) Label3.Text = "sin 2 = " & Math.Sin(2 * (3.14 / 180)) Label16.Text = "sin 3 = " & Math.Sin(3 * (3.14 / 180)) Label17.Text = "sin 4 = " & Math.Sin(4 * (3.14 / 180)) Label18.Text = "sin 5 = " & Math.Sin(5 * (3.14 / 180)) Label19.Text = "sin 6 = " & Math.Sin(6 * (3.14 / 180)) Label20.Text = "sin 7 = " & Math.Sin(7 * (3.14 / 180)) Label21.Text = "sin 8 = " & Math.Sin(8 * (3.14 / 180)) Label22.Text = "sin 9 = " & Math.Sin(9 * (3.14 / 180)) Label23.Text = "sin 10 = " & Math.Sin(10 * (3.14 / 180)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label2.Text = "oct 1 = " & Oct(1) Label15.Text = "oct 2 = " & Oct(2) Label14.Text = "oct 3 = " & Oct(3) Label13.Text = "oct 4 = " & Oct(4) Label12.Text = "oct 5 = " & Oct(5) Label11.Text = "oct 6 = " & Oct(6) Label10.Text = "oct 7 = " & Oct(7) Label9.Text = "oct 8 = " & Oct(8) Label8.Text = "oct 9 = " & Oct(9) Label7.Text = "oct 10 = " & Oct(10) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label33.Text = "tan 1 = " & Math.Tan(1 * (Math.PI / 180)) Label6.Text = "tan 2 = " & Math.Tan(2 * (Math.PI / 180)) Label25.Text = "tan 3 = " & Math.Tan(3 * (Math.PI / 180)) Label26.Text = "tan 4 = " & Math.Tan(4 * (Math.PI / 180)) Label27.Text = "tan 5 = " & Math.Tan(5 * (Math.PI / 180)) Label28.Text = "tan 6 = " & Math.Tan(6 * (Math.PI / 180)) Label29.Text = "tan 7 = " & Math.Tan(7 * (Math.PI / 180)) Label30.Text = "tan 8 = " & Math.Tan(8 * (Math.PI / 180)) Label31.Text = "tan 9 = " & Math.Tan(9 * (Math.PI / 180)) Label32.Text = "tan 10 = " & Math.Tan(10 * (Math.PI / 180))
End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Label41.Text = "hex 1 = " & Hex(1) Label34.Text = "hex 2 = " & Hex(2) Label1.Text = "hex 3 = " & Hex(3) Label4.Text = "hex 4 = " & Hex(4) Label5.Text = "hex 5 = " & Hex(5) Label35.Text = "hex 6 = " & Hex(6) Label36.Text = "hex 7 = " & Hex(7) Label37.Text = "hex 8 = " & Hex(8) Label38.Text = "hex 9 = " & Hex(9) Label39.Text = "hex 10 = " & Hex(10) End SubEnd Class
Hasil
E. KESIMPULANFungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik.Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
Fungsi-fungsi konversi ke integer.Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada tabel .Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama
Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda.
Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :
Fungsi fungsi konversi tipe dataTabel 10.2 merupakan fungsi fungsi yang melakukan konversi ke tipe data. Tabel 10.2 Fungsi-fungsi Konversi ke Tipe Data
Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .
Fungsi-fungsi Matematika