LAPORAN PRAKTIKUM PEMROGRAMAN VISUAL 2

LAPORAN PRAKTIKUM PEMROGRAMAN VISUAL

MODUL 2

FUNGSI NUMERIK

Untuk memenuhi tugas matakuliah Praktikum Pemrograman Visual

yang dibimbing oleh Bapak Wahyu Sakti Gunawan Irianto

Oleh :

ARIF NURNANTO

(120533430966)

FAKULTAS TEKNIK

JURUSAN TEKNIK ELEKTRO

PRODI S1 PENDIDIKAN TEKNIK INFORMATIKA

UNIVERSITAS NEGERI MALANG

Februari 2013

A. TUJUAN
- Memahami mengenai penggunaan numerik
- Membuat program numerik sederhana menggunakan VB
B. LATIHAN
1. Membuat Konversi Implisit
Source Code :

Module Module1 Sub Main() Dim intValue As Integer = 123 Dim longValue As Long = intValue Console.WriteLine(intValue & "=" & longValue) Console.ReadLine() End Sub End Module

Tampilan :

2. Membuat konversi Explisit
Source Code :

Module Module1 Sub Main() Dim intValue As Integer = CInt(intValue) Console.WriteLine(intValue & "=" & intValue) Console.ReadKey(CInt(intValue)) End Sub End Module

Tampilan :

3. Latihan 3
- Sintaks Program

Public Class Form1 Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbl3.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Lbl3.Text = Math.Cos(15.5) End Sub End Class

- Tampilan Program

4. Latihan 4
Sintaks

Public 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 End Class

Tampilan

C. PRAKTIKUM
1. Buatlah sebuah message Box hasil perkalian, pembagian, pengurangan dan penambahan 2 angka yang diinputkan melalui toolbox dalam 1 form !
Sintaks program

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a = (CStr(CDbl(TextBox1.Text) * CDbl(TextBox2.Text))) b = (CStr(CDbl(TextBox1.Text) / CDbl(TextBox2.Text))) c = (CStr(CDbl(TextBox1.Text) - CDbl(TextBox2.Text))) d = (CStr(CDbl(TextBox1.Text) + CDbl(TextBox2.Text))) MessageBox.Show(("Perkalian = ") & a & vbLf & ("Perkalian = ") & b & vbLf & ("Perkalian = ") & c & vbLf & ("Perkalian = ") & d) End Sub End Class

Tampilan Program :

- Keterangan :
Pada program di atas menggunakan deklarasi variabel yang nantinya akan dijadikan nilai dari beberapa operasi aritmetika ke dalam bentuk textbox.Konversi dari inputan di konversi ke double kemudian dioperasikan lalu di konversi lagi ke string dan hasilnya masuk ke variabel yang bertipe integer. MessageBox.Show adalah untuk menampilkan object dalam bentuk Message Box. Terdapat sintaks vblf yaitu untuk mengganti objek selanjutnya ke baris baru atau bisa juga disebut sebagai Center, karena objek selanjutnya akan berada di bawah.
2. Buatlah sebuah message Box hasil dari perkalian, pembagian, pengurangan dan penambahan 2 angka yang diinputkan melalui kode program dalam 1 form !
- Sintaks program

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a = (CStr(CDbl(9) * CDbl(4))) b = (CStr(CDbl(8) / CDbl(2))) c = (CStr(CDbl(8) - CDbl(2))) d = (CStr(CDbl(5) + CDbl(5))) MessageBox.Show(("Perkalian = ") & a & vbLf & ("Perkalian = ") & b & vbLf & ("Perkalian = ") & c & vbLf & ("Perkalian = ") & d) End End Sub End Class

Tampilan Program :

- Keterangan
Pada program di atas hampir sama dengan program sebelumnya. Hanya saja Nilai yang akan dioperasikan tidak lagi berupa inputan dari usir melainkan sudah ditulis di sintaks dan langsung ditampilkam ke dalam bentuk message Box.
3. Buatlah fungsi cor, hem, ain dan dan dalam 1 form. Mulai dari angka 1-10 !
Sintaks :

Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeOfDay End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label2.Text = Date.Today End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'nomor TextBox1.Text = 1 TextBox2.Text = 2 TextBox3.Text = 3 TextBox4.Text = 4 TextBox5.Text = 5 TextBox6.Text = 6 TextBox7.Text = 7 TextBox8.Text = 8 TextBox9.Text = 9 TextBox10.Text = 10 'Oct TextBox11.Text = Oct(1) TextBox12.Text = Oct(2) TextBox13.Text = Oct(3) TextBox14.Text = Oct(4) TextBox15.Text = Oct(5) TextBox16.Text = Oct(6) TextBox17.Text = Oct(7) TextBox18.Text = Oct(8) TextBox19.Text = Oct(9) TextBox20.Text = Oct(10) 'Hex TextBox21.Text = Hex(1) TextBox22.Text = Hex(2) TextBox23.Text = Hex(3) TextBox24.Text = Hex(4) TextBox25.Text = Hex(5) TextBox26.Text = Hex(6) TextBox27.Text = Hex(7) TextBox28.Text = Hex(8) TextBox29.Text = Hex(9) TextBox30.Text = Hex(10) 'sin TextBox31.Text = Math.Sin(1 * (3.14 / 180)) TextBox32.Text = Math.Sin(2 * (3.14 / 180)) TextBox33.Text = Math.Sin(3 * (3.14 / 180)) TextBox34.Text = Math.Sin(4 * (3.14 / 180)) TextBox35.Text = Math.Sin(5 * (3.14 / 180)) TextBox36.Text = Math.Sin(6 * (3.14 / 180)) TextBox37.Text = Math.Sin(7 * (3.14 / 180)) TextBox38.Text = Math.Sin(8 * (3.14 / 180)) TextBox39.Text = Math.Sin(9 * (3.14 / 180)) TextBox40.Text = Math.Sin(10 * (3.14 / 180)) 'tan TextBox41.Text = Math.Tan(1) TextBox42.Text = Math.Tan(2) TextBox43.Text = Math.Tan(3) TextBox44.Text = Math.Tan(4) TextBox45.Text = Math.Tan(5) TextBox46.Text = Math.Tan(6) TextBox47.Text = Math.Tan(7) TextBox48.Text = Math.Tan(8) TextBox49.Text = Math.Tan(9) TextBox50.Text = Math.Tan(10) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click End End Sub End Class

Tampilan Form Design (sebelum dijalankan) :

Tampilan Program setelah dijalankan :



Keterangan :
Dengan menambahkan dua buah Timer maka bisa dilakukan pembuatan jam dan tanggal untuk pembuatan tanggal pada Timer pertama berisikan sintaks Label1.Text = TimeOfDay, yang berartikan label 1 akan bertuliskan jam atau waktu pada saat ini, dan waktu tersebut mengikuti waktu pada sistem operasi. Sedangkan untuk tanggal maka dituliskan sintaks berupa Label2.Text = Date.Today, tanggal juga mengikuti tanggal yang digunakan pada sistem operasi.
Kedua Timer tersebut dijalankan pada saat form di Load atau pada saat membuka program akan secara otomatis muncul jam dan tanggal. Jika kita ingin menggeser program maka kita klik Show border, untuk keluar maka kita tekan Close.
Pada saat tombol Tampilkan di tekan maka konversi dari oct, hex, sin, dan tan akan dimunculkan untuk konversi oct digunakan sintaks TextBox11.Text = Oct(n) , untuk konversi hexadecimal digunakan sintaks TextBox21.Text = Hex(1) , untuk konversi sin digunakan sintaks TextBox31.Text = Math.Sin(1) , untuk konversi tan digunakan sintaks TextBox41.Text = Math.Tan(1) . pada konversi sin dan tan ditambahkan sintaks math karena fungsi sin dan tan merupakan fungsi aritmetika sehingga dibutuhkan fungsi atau sintaks math sebelum fungsi sin dan tan.
D. KESIMPULAN
Visual basic adalah bahasa pemrograman yang dikeluarkan oleh Microsoft. Pada Visual Basic juga dapat dilakukan operasi konversi bilangan dan untuk melakukan konversi bilangan memiliki sintaks yang berbeda. Salah satu contoh untuk konversi oct digunakan sintaks TextBox11.Text = Oct(n) , untuk konversi hexadecimal digunakan sintaks TextBox21.Text = Hex(1) , untuk konversi sin digunakan sintaks TextBox31.Text = Math.Sin(1) , untuk konversi tan digunakan sintaks TextBox41.Text = Math.Tan(1) . pada konversi sin dan tan ditambahkan sintaks math karena fungsi sin dan tan merupakan fungsi aritmetika sehingga dibutuhkan fungsi atau sintaks math sebelum fungsi sin dan tan. Metode dalam konversi juga ada yang berbeda misalnya untuk program implisit dan eksplisit.
E. DAFTAR PUSTAKA
o Modul Praktikum
o Nantslight.blogspot.com

Posted in: Pemrograman Visual