Visual basic merupakan suatu program yangg mempermudah seseorang programer dalam membuat suatu aplikasi atau program dalam komputer. Setiap programer memiliki logikanya sendiri dalam pembuatan programnya, sehingga akan didapatkan listing yang unik dalam setiap program. Dalam pembuatan program ini, analisa listing yang digunakan adalah sebagai berikut :
- Interface awal dari program database siswa
- Dalam pembuatan interface ini toolbox yang digunakan adalah sebagai berikut
| Komponen | Properties | Keterangan |
| form1 | Name | Form1 |
| text | ||
| label1 | Name | label1 |
| text | Nim | |
| label2 | Name | label2 |
| text | Nama | |
| label3 | Name | label3 |
| text | Kelas | |
| label4 | Name | label4 |
| text | Alamat | |
| label5 | Name | label5 |
| text | Telepon | |
| label6 | Name | label6 |
| text | Golongan Darah | |
| textbox1 | Name | textbox1 |
| text | ||
| textbox2 | Name | textbox2 |
| text | ||
| textbox3 | Name | textbox3 |
| text | ||
| textbox4 | Name | textbox4 |
| text | ||
| textbox5 | Name | textbox5 |
| text | ||
| textbox6 | Name | textbox6 |
| text | ||
| button1 | Name | button1 |
| text | Refresh | |
| button2 | Name | button2 |
| text | Find | |
| button3 | Name | button3 |
| text | Tambah | |
| button4 | Name | button4 |
| text | Hapus | |
| button5 | Name | button5 |
| text | Simpan | |
| bindingsource | Name | bindingsource |
| text | ||
| Bindingnavigator | Name | Bindingnavigator |
| text | ||
| DatagridView | Name | DatagridView |
| text |
- Listing yang digunakan dalam program ini adalah sebagai berikut:
Public Class Form1
Private Sub BARUBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARUBindingNavigatorSaveItem.Click
Me.Validate()
Me.BARUBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Basu_bikinmdbDataSet)
End Sub
- Listing ini digunakan untuk button save pada program ini. Listing “me.” digunakan untuk menambahkan data, “validate” diguakan untuk mencocokan data masukan apakah sudah sesuai dengan database yang digunakan atau belum. Ketika kita telah melakukan pengeditan pada VB kita, setelah kita menekan tombol/icon save maka secara otomatis data accses kita juga akan teredit dan tersimpan.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘Basu_bikinmdbDataSet.BARU’ table. You can move, or remove it, as needed.
Me.BARUTableAdapter.Fill(Me.Basu_bikinmdbDataSet.BARU)
End Sub
- Listing ini berarti bahwa form kita pada visual basic terhubung dengan Acess. Tulisan yang berwarna hijau adalah komentar bahwa data tersebut dapat kita olah di VB.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BARUBindingSource.AddNew()
Me.BARUDataGridView.Enabled = True
End Sub
- Listing ini bertujuan agar kita dapat menambah data pada database yang kita hubungkan pada Visual basic. Me.BARUDataGridView.Enabled = True memiliki tujuan agar tabel yang terlihat pada program Visual Basic kita dapat diedit.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.BARUBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Basu_bikinmdbDataSet)
End Sub
- Listing button5 ini sama fungsinya pada BindingNavigatorSaveItem yaitu untuk menyimpan hasil editan kita pada database kita.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BARUBindingSource.RemoveCurrent()
End Sub
- Listing ini berarti inputan kita pada database di visual basic adalah hapus.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim indeks As Integer = Nothing
If TextBox1.Text.Length <> 0 Then
Dim z As Integer
Dim ketemu As Boolean = False
For z = 0 To BARUDataGridView.RowCount – 1
If ketemu = False And BARUDataGridView.Item(0, z).Value = TextBox1.Text Then
ketemu = True
indeks = z
Exit For
End If
Next
If ketemu Then
TextBox2.Text = BARUDataGridView.Item(1, indeks).Value
TextBox3.Text = BARUDataGridView.Item(2, indeks).Value
TextBox4.Text = BARUDataGridView.Item(3, indeks).Value
TextBox5.Text = BARUDataGridView.Item(4, indeks).Value
TextBox6.Text = BARUDataGridView.Item(5, indeks).Value
Else
MessageBox.Show(“Data Salah !”, “Message”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Focus()
End If
Else
MessageBox.Show(“Data belum diisi !”)
End If
End Sub
- Dim ketemu As Boolean = False sebagai penentu keadaan apabila kondisi tersebut terpenuhi maka variabel ketemu akan terjadi. Listing ini bertujuan ketika button2 di tekan maka akan dilakukan permisalan, ketika textbox1 diisi dengan jumlah lebih dari 0, maka ketika button2 diklik dan input pada textbox1 sesuai dengan database, maka secara otomatis hasil dari setiap kolom akan keluar pada textbox2-textbox5. Perintah message box bertujuan agar ketika VB tidak menemukan data pada Database kita, maka secara otomatis aka keluar message box data salah, dan ketika kita tidak memasukan tulisan maka, akan keluar data belum diisi.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Nothing
TextBox2.Text = Nothing
TextBox3.Text = Nothing
TextBox4.Text = Nothing
TextBox5.Text = Nothing
TextBox6.Text = Nothing
End Sub
End Class
- Listing ini bertujuan ketika button1(refresh) maka pada textbox1-textbox6 akan kembali ke kondisi semula sebelum dilakukan perintah.
FLOW CHART
- Buat form seperti gambar dibawah ini dengan memasukan toolbox label yang berisi nama dari kalkulator tersebut, textbox sebagai tempat melihat hasil yang diperoleh dari perhitungan kemudian sebanyak 24 toolbox button yang digunakan sebagai tombol seperti angka yang akan dimasukan, cosinus, sinus, serta penjumlah atau penggunaan prinsip aritmatika lainnya sehingga setelah di tekan hasil akan terlihat pada textbox yang telah dibuat sebelumnya.
Komponen toolbox yang digunakan:
- Tulislah pada listing variabel seperti yang dibawah ini agar setiap variabel yang berkaitan atau yang membutuhkan listing deklarasi ini pada algoritma dapat dijalankan.Listing ini dapat ditulis terakhir setelah setiap variabel yang dibutuhkan pada listing algoritma telah diketahui.
Public Class Form1
Dim nilai, hasil As Double
Dim aksi As String
Const pi As Double = 3.14159265358979
3. Tulis pada listing algoritma seperti yang dibawah ini,hal ini bertujuan agar setiap angka atau pun titik pada toolbox button dapat ditampilkan pada textbox dan dapat berjalan seperti kalkulator yang semestinya.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & “1”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & “2”
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & “4”
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & “5”
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
TextBox1.Text = ” ”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & “3”
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & “0”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & “6”
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & “7”
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & “8”
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & “9”
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & “.”
End Sub
4. Untuk mendeklarsikan dan menjalankan perintah algoritma penjumlahan, perkalian, pengurangan dan perkalian dapat dilakukan perintah seperti yang berikut ini
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “x”
TextBox1.Text = “”
aksi = “*”
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “+”
TextBox1.Text = “”
aksi = “+”
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “-”
TextBox1.Text = “”
aksi = “-”
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “/”
TextBox1.Text = “”
aksi = “/”
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If aksi = “+” Then
TextBox1.Text = nilai + TextBox1.Text
ElseIf aksi = “-” Then
TextBox1.Text = nilai – TextBox1.Text
ElseIf aksi = “*” Then
TextBox1.Text = nilai * TextBox1.Text
ElseIf aksi = “/” Then
TextBox1.Text = nilai / TextBox1.Text
End If
End Sub
5. Perintah listing berikut untuk mengetahui algoritama sudut cosinus, sinus, tangen, pengakaran, menghidupkan dan mematikan operasi kalkulator
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
TextBox1.Text = TextBox1.Text * -1
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = Math.Sin(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
TextBox1.Text = Math.Tan(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = Math.Cos(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
TextBox1.Text = Math.Sqrt(TextBox1.Text)
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
TextBox1.Text = ” ”
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Analisis Visual Basic
Dalam penulisan listing dalam visual basic, pasti memiliki fungsi dan tujuan masing-masing. Oleh sebab itu maka perlu adanya analisa agar lebih mudah mengerti isi listing berikut.
Public Class Form1
Dim nilai, hasil As Double
Dim aksi As String
Const pi As Double = 3.14159265358979
Pertama adalah penulisan pada Public Class Form1. Pada bagian ini dideklarasikan dari variabel-variabel yang akan digunakan dalam pemrograman. Penggunaan “Dim” digunakan untuk mendeklarasikan variabel yang akan digunakan.
- Dim nilai, hasil As Double
Dalam deklarasi ini bertujuan agar pada saat nilai
- Dim aksi As String
Dalam deklarasi ini memiliki tujuan agar variabel aksi menggunakan type data string yang lebih bersifat karakter.
- Const pi As Double = 3.14159265358979
- Dalam deklarasi ini memiliki tujuan agar variabel pi menggunakan type data double dengan nilai pi=3.14159265358979.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & “1”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & “2”
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & “4”
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & “5”
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
TextBox1.Text = ” ”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & “3”
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & “0”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & “6”
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & “7”
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & “8”
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & “9”
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & “.”
End Sub
Dalam listing ini bertujuan agar pada saat kita menekan button “1-9” dan “.” maka pada textbox1 atau tampilan kalkulator akan menunjukan angka atau tampilan sebelumnya dan masukan angka baru atau titik pada saat kita menekan tombol button.
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “x”
TextBox1.Text = “”
aksi = “*”
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “+”
TextBox1.Text = “”
aksi = “+”
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “-”
TextBox1.Text = “”
aksi = “-”
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
nilai = TextBox1.Text
hasil = TextBox1.Text
TextBox1.Text = TextBox1.Text & ” ” & “/”
TextBox1.Text = “”
aksi = “/”
End Sub
Dalam listing yang digunakan pada button ini bertujuan agar:
- nilai = TextBox1.Text
Listing ini bertujuan untuk mendefinisikan nilai yang sebelumnya telah di deklarasikan pada Public Class Form1 yang berarti bahwa nilai akan dimunculkan pada textbox1.
- hasil = TextBox1.Text
Listing ini bertujuan untuk mendefinisikan hasil yang sebelumnya telah di deklarasikan pada Public Class Form1 yang berarti bahwa hasil akan dimunculkan pada textbox1.
- TextBox1.Text = TextBox1.Text & ” ” & “x”
TextBox1.Text = “”
aksi = “*”
Dalam listing ini bertujuan agar pada saat tombol ” x” ditekan maka pada textbox1, tampilan sebelumnya akan hilang dan berisikan masukan baru
Dengan perintah pada visual basic adalah kali.
- TextBox1.Text = TextBox1.Text & ” ” & “+”
TextBox1.Text = “”
aksi = “+”
Dalam listing ini bertujuan agar pada saat tombol ” +” ditekan maka pada textbox1, tampilan sebelumnya akan hilang dan berisikan masukan baru dengan perintah pada visual basic adalah tambah.
.
- TextBox1.Text = TextBox1.Text & ” ” & “-“
TextBox1.Text = “”
aksi = “-”
Dalam listing ini bertujuan agar pada saat tombol ” -” ditekan maka pada textbox1, tampilan sebelumnya akan hilang dan berisikan masukan baru dengan perintah pada visual basic adalah kurang.
- TextBox1.Text = TextBox1.Text & ” ” & “/”
TextBox1.Text = “”
aksi = “/”
Dalam listing ini bertujuan agar pada saat tombol ” /” ditekan maka pada textbox1, tampilan sebelumnya akan hilang dan berisikan masukan baru dengan perintah pada visual basic adalah bagi.
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If aksi = “+” Then
TextBox1.Text = nilai + TextBox1.Text
ElseIf aksi = “-” Then
TextBox1.Text = nilai – TextBox1.Text
ElseIf aksi = “*” Then
TextBox1.Text = nilai * TextBox1.Text
ElseIf aksi = “/” Then
TextBox1.Text = nilai / TextBox1.Text
End If
End Sub
Dalam listing ini ketika kita menekan button17 atau “=” maka visual basic akan memberikan perintah sebagai berikut:
If aksi = “+” Then
TextBox1.Text = nilai + TextBox1.Text
Yaitu sebelumnya ketika kita menekan tombol + ,maka pada visual basic akan membaca nilai (angka inputan yang sebelumnya dimasukan) + textbox1.text(angka yang kita masukan setelah kita menekan tombol “+” pada visual basic. Hasil dari proses aritmatika tersebut akan langsung muncul pada textbox1.
ElseIf aksi = “-” Then
TextBox1.Text = nilai – TextBox1.Text
Elseif berarti visual basic akan membaca bahwa ketika kita tidak menekan tombol “+” maka perintah selanjutnya akan dilakukan. Yaitu sebelumnya ketika kita menekan tombol – ,maka pada visual basic akan membaca nilai (angka inputan yang sebelumnya dimasukan) – textbox1.text(angka yang kita masukan setelah kita menekan tombol “-” pada visual basic. Hasil dari proses aritmatika tersebut akan langsung muncul pada textbox1.
ElseIf aksi = “*” Then
TextBox1.Text = nilai * TextBox1.Text
Elseif berarti visual basic akan membaca bahwa ketika kita tidak menekan tombol “+” atau “-“ maka perintah selanjutnya akan dilakukan. Yaitu sebelumnya ketika kita menekan tombol – ,maka pada visual basic akan membaca nilai (angka inputan yang sebelumnya dimasukan) * textbox1.text(angka yang kita masukan setelah kita menekan tombol “x” pada visual basic. Hasil dari proses aritmatika tersebut akan langsung muncul pada textbox1 berupa hasil perkalian.
ElseIf aksi = “/” Then
TextBox1.Text = nilai / TextBox1.Text
Elseif berarti visual basic akan membaca bahwa ketika kita tidak menekan tombol “+” atau “-“ atau “x” maka perintah selanjutnya akan dilakukan. Yaitu sebelumnya ketika kita menekan tombol / ,maka pada visual basic akan membaca nilai (angka inputan yang sebelumnya dimasukan) / textbox1.text(angka yang kita masukan setelah kita menekan tombol “/” pada visual basic. Hasil dari proses aritmatika tersebut akan langsung muncul pada textbox1 berupa hasil pembagian.
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
TextBox1.Text = TextBox1.Text * -1
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = Math.Sin(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
TextBox1.Text = Math.Tan(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = Math.Cos(TextBox1.Text * (pi / 180))
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
TextBox1.Text = Math.Sqrt(TextBox1.Text)
End Sub
Pada visual basic sudah disediakan fungsi matematika, sehingga ketika kita ingin menggunakan fungsi tersebut hanya tinggal menuliskan perintah saja. Seperti pada button 18-19 yang menggunakan fungsi sin, tan, dan cos. Masing masing perintah berisikan TextBox1.Text = Math.Cos atau Math.sin atau Math.tan (TextBox1.Text * (pi / 180)). Hal ini bertujuan agar fungsi cos, sin, atau tan merupakan fungsi math dengan proses tampilan pada textbox1 dikali pi(sudah dideklarasikan diawal sebagai 3.14159265358979 dibagi 180. Hasil dari proses ini akan ditampilkan pada textbox1.
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
TextBox1.Text = TextBox1.Text * -1
End Sub
Pada listing ini maka ketika kita menekan tombol ”±” maka pada visual basic akan memproses tampilan pada textbox1 dikali dengan -1.
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
TextBox1.Text = Math.Sqrt(TextBox1.Text)
End Sub
Pada listing ini bertujuan ketika kita menekanÖ , maka pada visual basic akan memproses angka pada textbox 1 dengan fungsi Math.Sqrt (akar).
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
TextBox1.Text = ” ”
End Sub
Pada listing ini bertujuan bahwa ketika kita menekan tombol “del” pada program, maka visual basic akan mengosongkan tampilan pada textbox1.
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Close()
End Sub
Pada listing ini bertujuan bahwa ketika kita menekan tombol “off” pada program, maka visual basic akan menutup program buatan visual basic tersebut.
- Buatlah form seperti yang gambar di bawah ini dengan menggunakan label yang berisi teks penulisan, textbox sebagai tempat memasukan banyaknya angka yang akan diulang, listbox sebagai tempat keluarnya hasil dari perulangan, 2 buah button yang berisi teks tombol perulangan dan keluar.
Toolbox yang digunakan:
- Buatlah listing seperti yang dibawah ini sebagai deklarasi sehingga setiap variabel yang membutuhkan variabel yang ada pada deklarasi ini dapat berjalan Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Byte = 1DoCall ulang_cetak(x)x = x + 1Loop Until x >= 1 + Int(TextBox1.Text)End Sub
- Buatlah listing seperti yang dibawah ini. Dengan pengertian bahwa jika angka yang dimasukan pada textbox kecil dari 3 maka hasil yang akan tampil Oktaf 1 Alto,Oktaf 2 Alto, Angka keluar antara Oktaf dan messo jika berada besar dari 3 dan kecil dari 6 dan Oktaf dan Sopran bila angka yang dimasukan kecil dari 12
Sub ulang_cetak(ByVal angka As Integer)
If angka < 3 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Alto”)
ElseIf angka > 3 And angka < 6 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Messo”)
ElseIf angka < 12 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Sopran”)
End If
End Sub
Hasil yang akan tampil jika angka yang dimasukan kecil dari 12 yaitu 11
4. Untuk proses keluar dari proses perulangan langkah yang dapat dilakukan dengan mengklik tombol button keluar maka akan mucul pada listing seperti yang berikut ini kemudian ditambahkan pada listing tersebut “close ()”
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
ANALISIS VISUAL BASIC:
Agar lebih mudah memahami pembuatan program maka diperlukan analisa. Analisa dari program visual basic “Prosedur Suara” adalah sebagai berikut:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Byte = 1
Do
Call ulang_cetak(x)
x = x + 1
Loop Until x >= 1 + Int(TextBox1.Text)
End Sub
Listing ini dibuat dengan tujuan sebagai berikut:
Dim x As Byte = 1
Do
- Listing diatas digunakan untuk mendeklarasikan “x” sebagai byte yaitu type data yang berukuran 1 byte dengan jangkauan dar 0-225. Listing tersebut diikuti dengan “=1” agar pada keluaran program, angka yang dikeluarkan mulai dari 1.
Call ulang_cetak(x)
x = x + 1
Loop Until x >= 1 + Int(TextBox1.Text)
- Listing di atas bertujuan untuk memanggil ulang variabel x yang telah dideklarasikan sebelumnya. “x=x+1” digunakan agar pada pemanggilan ulang data yang dikeluarkan selalu bertambah 1 setiap diulang. “Loop Until x >= 1 + Int(TextBox1.Text)” digunakan untuk membatasi pemanggilan ulang hingga x≥jumlah inputan yang dimasukan.
Sub ulang_cetak(ByVal angka As Integer)
If angka < 3 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Alto”)
ElseIf angka > 3 And angka < 6 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Messo”)
ElseIf angka < 12 Then
ListBox1.Items.Add(“Oktaf ” & angka & ” Sopran”)
End If
End Sub
- Listing diatas digunakan saat pemanggilan ulang, ketika angka < 3 maka pada listbox1 akan mengeluarkan keluaran berupa “oktaf <angka> messo”. Pada saat angka masukan >3 dan<6 maka keluaran pada listbox1 akan menunjukan keluaran “oktaf <angka> alto” dan pada saat masukan angka >6 dan <12 maka keluaran akan “oktaf <angka> sopran.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
- Listing diatas digunakan untuk keluar dari program yang telah dibuat tadi.
contoh programnya dapat diunduh http://www.mediafire.com/?xh7zp7f80239kb6
Visual basic merupakan suatu program komputer yang dikeluarkan oleh microsoft yang digunakan untuk membuat suatu program atau aplikasi dengan menggunakan bahasa pemrograman.
Dalam tutorial ini yang akan dibuat adalah progam kasir atau perhitungan keuangan yang digunakan dalam toko alat tulis. Fungsi yang akan diisikan dalam program ini adalah perhitungan keuangan dari biaya total hingga pengembalian dari uang yang dibayar serta perhitungan yang terdiri dari potongan/ diskon.
Pembuatan program aplikasi menggunakan Visual Basic dilakukan dengan membuat tampilan aplikasi pada form, kemudian diberi script program di dalam komponen-komponen yang diperlukan. Form disusun oleh komponen-komponen yang berada di [Toolbox], dan setiap komponen yang dipakai harus diatur propertinya lewat jendela [Property].
1. Langkah pertama yang perlu dilakukan adalah membuka microsoft visual basic 2010 dengan double klik pada menu yang telah ada maupun dari start menu.
2. Setelah jendela microsoft visual basic terbuka, pilih icon new project untuk membuat file baru.
3. Lalu pada jendela new project pilih Windows Forms Application
Maka akan muncul jendela form designer, pada jendela ini kita dapat membuat interface yang diinginkan.
4. Buatlah interface pada visual basic dengan toolbox, interface yang dibuat tergantung dengan kreatifitas dan keinginan anda.
Dalam membuat interface ini yang digunakan adalah
a. Label
Yang digunakan terdiri dari 5 tabel yang digunakan sebai nama dari kotak pengisian yang kita buat, nama label dapat diganti pada propertis>text.
b. Combo Box
Yang digunakan untuk menuliskan nama barang, penulisan list nama barang dapat menggunakan penulisan listing pada code editor atau dengan mengganti items pada properties>items
c. Textbox
Textbox yang digunakan terdiri dari 5 buah, pilih textbox pada toolbox
d. Radiobutton
Radiobutton yang digunakan adalah 3 buah
e. Button
Dalam aplikasi ini digunakan 3 button yang digunakan untuk tombol pembelian, keluar dan refresh.
Masing masing komponen tersebut dapat diambil dari toolbox dengan cara drag and drop atau double klik pada komponen toolbox yang diinginkan.
5. Dalam membuat program ini, yang pertama dilakukan adalah mendeklarasikan variabel Harga_kotor, Harga_Bersih dan General. Tulislah listingnya sebagai berikut:
Public Class Form1
Dim Harga_kotor, Harga_Bersih As Integer
Dim potongan As Integer = 0
6. Kemudian kita dapat mulai memasukan listing yang diinginkan. Listing yang dibuat ditulis berdasarkan komponen yang ingin kita berikan perintah dengan cara double klik pada komponen. Kemudian setelah penulisan listing kita dapat memeriksa apakah penulisan yang kita masukan benar atau salah dengan cara menekan tombol F5 atau dengan menekan tombol start debugging.
7. Yang pertama adalah combobox, misal kita menginginkan pada saat combobox dipilih suatu barang, maka pada texbox1(harga) langsung keluar harga barang.
Maka listing yang dibuat adalah sebagai berikut :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesComboBox1.SelectedIndexChanged
If ComboBox1.Text = (“Buku Tulis”) Then
TextBox1.Text = (“2000”)
ElseIf ComboBox1.Text = (“Buku Gambar”) Then
TextBox1.Text = (“3000”)
ElseIf ComboBox1.Text = (“Pulpen Boxy”) Then
TextBox1.Text = (“2500”)
ElseIf ComboBox1.Text = (“Pensil Mekanik”) Then
TextBox1.Text = (“2000”)
ElseIf ComboBox1.Text = (“penggaris Rotring”) Then
TextBox1.Text = (“2000”)
ElseIf ComboBox1.Text = (“Rautan Pensil”) Then
TextBox1.Text = (“15000”)
End If
End Sub
8. Yang kedua adalah button pertama yang diberi nama pembelian, misal kita menginginkan pada textbox 3 yaitu total harga akan muncul harga total sesuai dengan jumlah barang kita.\ dan potongan yang digunakan.
Maka listing dari button1(pembelian) adalah sebagai berikut
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim diskon As Single
Dim total As Single
If TextBox2.Text = Int(TextBox2.Text) Then
diskon = (TextBox1.Text * TextBox2.Text * potongan / 100)
total = (TextBox1.Text * TextBox2.Text – diskon)
TextBox3.Text = total
Else : MsgBox(“Maaf, transaksi tidak dapat dilakukan”)
End If
End Sub
9. Yang ketiga adalah button3(pengembalian) misal kita menginginkan jumlah pengembalian dicantumkan pada textbox5 setelah kita menuliskan jumlah uang pada textbox4
Maka listing yang perlu kita masukkan adalah sebagai berikut
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pengembalian As Integer
If TextBox4.Text >= TextBox3.Text Then
pengembalian = (TextBox4.Text – TextBox3.Text)
TextBox5.Text = pengembalian
End If
End Sub
Jika kita menginginkan terdapat pesan ketika uang kurang atau belum dimasukkan
Maka listing yang perlu dimasukkan adalah
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim pengembalian As Integer
If TextBox4.Text = (“”) Then
MsgBox(“Masukkan jumlah pembayaran”)
ElseIf TextBox4.Text – TextBox3.Text TextBox5.Text = (“”)
MsgBox(“Maaf uang anda tidak cukup”)
ElseIf TextBox4.Text = Int(TextBox4.Text) Then
pengembalian = (TextBox4.Text – TextBox3.Text)
TextBox5.Text = pengembalian
ElseIf TextBox4.Text < TextBox3.Text Then
MsgBox(“Maaf uang anda tidak cukup”)
End If
End Sub
10. Yang keempat adalah button4(refresh), misal kita menginginkan ketika kita mengeklik tombol refresh maka aplikasi yang kita buat akan kembali kosong seperti pada tampilan awal, maka listing yang kita buat adalah
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ComboBox1.Text = (“”)
TextBox1.Text = (“”)
TextBox2.Text = (“”)
TextBox3.Text = (“”)
TextBox4.Text = (“”)
TextBox5.Text = (“”)
RadioButton1.Checked = (“false”)
RadioButton2.Checked = (“false”)
RadioButton3.Checked = (“false”)
End Sub
11. Yang kelima adalah button2(keluar), misal kita ingin meninggalkan aplikasi dengan mengeklik tombol keluar, maka listing yang perlu dibuat pada tombol keluar adalah sebagai berikut
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
12. Setelah semua berhasil dibuat, maka kita dapat mencobanya dengan klik tombol start debugging, dan jika terjadi error maka akan muncul peringatan pada jendela error list dan dengan otomatis visual basic akan menyorot kesalahan kita.
- FLOW CHART PROGRAM
TUGAS INDIVIDU
Agus Indra W
21070110141011
- Keunggulan mySQLO dalam pembuatan database
- mySQL dapat digunakan dengan banyak operating system yang berbeda-beda.
- Murah karena bersifat free dan open source.
- Dengan mySQL kita dapat menggabungkan table dari berbagai database yang berbeda dalam suatu query yang sama.
- Memiliki kecepatan yang cukup tinggi dalam pengolahan query sederhana.
- mySQL dapat digunakkan untuk mengolah database dalam skala yang cukup besar.
- Didukung oleh tipe kolom yang kompleks.
- Struktur tabel yang digunakan pada mySQL fleksibel dan baik dibandingkan dengan database yang lain.
http://yanazmi.blogspot.com/2009/05/kelebihan-mysql.html
http://f4bregaz.blogspot.com/2009/02/tentan-mysql.html
http://amaronly.blogsome.com/2008/02/28/database-mysql/
2. Jenis-jenis relasi dalam microsoft access
- One to many
Dalam microsoft access berarti setiap baris dari tabel pertama dihubungkan dengan satu atau banyak baris data pada tabel kedua.
Contoh: hubungan antara siswa dengan makanan yang disukainya
- One to one
Dalam microsoft access berarti setiap baris memiliki hubungan dengan 1 baris data dari tabel kedua.
Contoh: hubungan antara siswa dengan sekolahnya
- Many to many
Dalam microsoft access berarti satu atau banyak baris dalam tabel pertama dihubungkan dengan satu atau banyak tabel data pada tabel kedua.
Contoh: hubungan antara
3. Mengkoneksikan database ke VB.net
Database mengunakan microsoft SQL 2005
- Buka SQL server management Studio Express pada start menu, pilih all program, pilih microsoft SQL server 2005 , pilih SQL management Studio Express
- Akan muncul kotak dialog yang berisikan server type, name dan authentication, pastikan bahwa server yang telah diisikan benar, kemudian klik kanan pada database lalu pilih new database
- Setelah selesai, buka visual basic 2005. Tambahkan sebuah objek button didalam di form dengan nama “Connect to database” dengan cara mengganti properti text pada button.
Setelah itu kita masuk pada tahap coding, lakukan double click pada button yang telah ditambahkan tadi. - Masukan code dibawah ini ke dalam form coding tersebut :
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlconn As New SqlClient.SqlConnection
‘membuat koneksi dengan database
‘RAIN-57C3A9A4CD\SQLEXPRESS adalah nama server di komputer, ini bisa diganti
sqlconn.ConnectionString = “server = RAIN-57C3A9A4CD\SQLEXPRESS;Database = Ihsan;integrated security=true”
Try
sqlconn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, “Connection Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If sqlconn.State = 1 Then
Me.Text = “Koneksi Berhasil”
Me.BackColor = Color.Aqua
End If
End Sub
End Class
http://Cokecode.blogspot.com/2010_03_21_archive.html
4. Pengertian dari
- Table adapter
Merupakan kelas yang digunakan untuk menghubungkan aplikasi dengan database yang disediakan oleh .NET framework
- Primary key
Primary key adalah suatu baris yang unik dalam tabel yang digunakan untuk mengidentifikasi suatu baris dalam sebuah tabel
- Foreign key
Foreign key adalah sekumpulan field dari suatu relasi yang digunakan untuk menunjuk atau mengarah ke baris pada suatu relasi yang lain.
http://ijongblue.blogspot.com/2009/10/pengertian-primary-key-dan-foreign-key.html
- Database
Database adalah sekumpulkan informasi yang disusun dengan sistematik yang digunakan untuk mempermudah, mencari, atau memperoleh data dari informasi tersebut.
- DBMS
DBMS merupakan suatu program pada komputer yang digunakan untuk mengelola (menghapus, mengubah , memanipulasi dan mengambil data) dengan mudah dan lebih efisien yang digunakan oleh banyak pengguna.
http://margono.staff.uns.ac.id/2008/10/14/database-management-system-dbms/
- RDBMS
RDBMS merupakan suatu program yang didesain untuk mengatur sekumpulan data yang disimpan dengan sistematik dan terstrukstur, selain itu digunakan juga untuk mengelola data sesuai dengan keinginan penggunanya.
http://id.wikipedia.org/wiki/Sistem_manajemen_basis_data_relasional
5. Macam macam DBMS
- mySQL
merupakan suatu progaram gratis yang berbasis SQL
- oracle
merupakan relational database management system yang paling mahal didunia yang digunakan untuk mengelola informasi dengan terbuka dan dirancang khusus untuk organisasi yang berukuran besar.
- Firebird
Merupakan suatu RDBMS yang menggunakan fitur yang dapat berjalan baik di linux, windows maupun beberapa OS lain.
- Microsoft SQL server 2000
Merupakan RDBMS yang digunakan untuk pengolahan data dengan database yang berukuran besar.
- Visual foxpro 6.0
Merupakan RDBMS yang memiliki kemampuan pemrograman prosural dan pemrograman dengan orientasi objek.
- Database dekistop paradox
http://fazarate.blogspot.com/2011/03/macam-macam-dbms.html
TUGAS KELOMPOK
REVIEW JURNAL
PENDEKATAN MODEL REA DALAM
PERANCANGAN DATABASE SISTEM INFORMASI
AKUNTANSI SIKLUS PENDAPATAN
Kemajuan teknologi informasi berdampak pada pencatatan akuntansi tradisional menjadi current replacement cost and market value dengan adanya komputer. SIA komputerisasi dapat menyajikan data dengan mudah dari informasi keuangan sampai non keuangan dengan bantuan database.
Logical view menunjukan bagaimana seorang programer mengatur dan memahami konsep data, sedangkan physical view dimana data tersusun dan di simpan pada suatu disk tape. Pemisahan logical view dan physical view dapat memberikan keuntungan misalnya seorang user dapat mengubah konsep relationship diantara suatu item tanpa mengubah data tersebut, selain itu dapat membantu pengembangan aplikasi.
Schema , yaitu gambaran struktur database secara logis. Memiliki 3 bagian yaitu conceptual-level schema, external schema dan internal schema, masing masing bagian memiliki isi yang berbeda.
Kroenke berpendapat untuk merancang suatu database dengan logis maka digunakkan model E-R, model yang salah dapat menyebabkan terperangkapnya data dan program sulit dibuka.
Model REA merupakan suatu alat pemodelan yang secara konsep dirancang untuk melengkapi perancangan database SIA. Tipe entity dalam REA dibedakan dalam tiga kategori yaitu : Resource, Events, dan Agents dimana resource adalah sesuatu yang menghasilkan nilai ekonomis bagi organisasi tersebut dan events adalah aktivitas bisnis yang dilakukan, serta agents sebagai orang-orang yang ada dalam organisasi tersebut. Dalam menyusun REA diperlukan berbagai data yang diambil dari wawancara pihak manajemen. Dengan Diagram REA maka dapat digunakkan untuk merancang database relational yang baik.
Diagram REA bermanfaat sebagai sebuah dokumentasi pelengkap yang digunakan untuk pembentukan dokumen SIA. Informasi yang disajikan oleh diagram REA adalah relationship antardata dan praktek bisnis perusahaan. Diagram REA juga berguna untuk menggambarkan prinsip dan kebijaksanaan dari perusahaan yang dimodelkan.
Model REA merupakan salah satu data yang digunakkan untuk menggambarkan data data dalam perusahaan. Dengan adanya database, data dapat terolah dan disajikan dengan mudah dan membantu dalam bidang akutansi.
Modul : 3
Asisten : Dina Tauhida
TUGAS INDIVIDU
Naurah Witriannisa
21070110110015
- Operator merupakan suatu proses perhitungan ataupun proses perbandingan pada satu aplikasi. Operator adalah proses yang sedang dilakukan oleh program, dan adapula yang berkaitan dengan operator yaitu operand yang merupakan nilai atau value yang telah diproses. Biasanya penggunaan satu buah operator akan diapit oleh dua buah operand,misalnya [operand] <operaor> [operand].
Macam-macam operator dalam Visual Basic 2010:
Operator Aritmatika
Operator aritmatika ini digunakan untuk melakukan operasi perhitungan, seperti penjumlahan, perkalian, mencari sisa hasil bagi (modulus) dan lain sebagainya. Hasil perhitungan dari suatu operasi aritmatika biasanya disimpan dalam suatu variable yang menggunakan sintaks sebagai berikut [Nama_Variabel]=[operand] <operator> [operand]. Contoh: Nilai_x= hasil – 10
Operator Perbandingan
Operator perbandingan digunakan untuk mengetahui hasil perbandingan dua atau lebih bilangan, misalkan mencari bilangan terbesar dan lain sebagainya, untuk membandingkan bilangan, kedua bilangan harus memiliki tipe data yang sama.
Operator Percabangan
Dalam pemrograman sering digunakan suatu percabangan untuk pengambilan keputusan dari sejumlah pilihan yang mungkin. Dalam visual basic terdapat pernyataan If…. Then dan kata kunci lainnya,
Operator Pengulangan
Operator pengulangan adalah pernyataan yang akan menjalankan sejumlah pernyataan selama kondisi tertentu yang terpenuhi. Statement For….Next adalah bentuk pengulangan yang paling banyak digunakan, bentuknya adalah
For [variable] = <nilai_awal> to <nilai_akhir>
Statement
Next [variable]
Operator Prosedur
Operator prosedur merupakan beberapa statement yang terpisah dari program utama dengan tujuan saat program utama membutuhkan kelompok statement secara berulang, maka program utama cukup melakukan pemanggilan nama prosedur untuk mengeksekusi seluruh kelompok statement yang dipisah.
2.Looping merupakan algoritma perulangan. Ada tiga perintah dasar yang termasuk ke dalam looping:
Repeat….. Until
Repeat-Until digunakan untuk mengulang pernyataan-pernyataan atau blok statement sampai (until) kondisi yang diseleksi di Until tidak terpenuhi.
While…… Do
Penyeleksian kondisi digunakan supaya program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi. Perulangan While-Do tidak dilakukan jika kondisi tidak terpenuhi.
For….. Do
Pengulangan dengan statement For-Do digunakan untuk mengulang statement atau suatu blok statement berulang kali.
http://materi-praktek.blogspot.com/2007/03/bab-3-bentuk-perulangan-penyeleksian.html
3. Dalam Source code tersebut terdapat 3 textbox yang data nya berupa integer
Jika combobox tanda lebih kecil maka textbox 3 lebih kecil dari textbox 2
Jika combobox tandanya tidak sama dengan,maka textbox tidak sama dengan textbox 2
selasai
4. a. Looping adalah beberapa instruksi yang diulang untuk suatu jumlah pengulangan tertentu. Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam proses pemrograman. Struktur looping sangat efektif karena dapat menyingkat puluhan bahkan ratusan hingga ribuan baris kode menjadi beberapa baris perintah saja.
b. Exception adalah saat dimana terjadinya suatu program menemui kesalahan pada saat instruksi program dijalankan. Hal yang dapat menimbulkan exception antara lain crash, hardisk rusak dengan tiba-tiba, dan sebagainya.
c. Dim pada source kode VB net adalah statement dari visual basic untuk mendeklarasikan variable. Mendeklarasikan variable maksudnya menentukan anama variable beserta tipe dari variable tersebut agar visual basic dapat mengenalinya di dalam aplikasi.
http://id.shvoong.com/internet-and-technologies/software/2114457-looping-dalam-bahasa/
TUGAS KELOMPOK
- Program_nilai_mahasiswa
Deklarasi
Nilai = real
Hasil = char
Algoritma
Read (nilai)
If (nilai≥86) then
Write (“hasil”=A)
Else
If (nilai≥71) and (nilai≤86) then
Write (“hasil”=B)
Else
If (nilai≥61) and (nilai≤71) then
Write (“hasil”=C)
Else
Write (“hasil”=E)
End if
End
2.Operator prosedur : Berfungsi untuk menyimpan aturan atau perintah yang bersifat khusus yang mempunyai fungsi yang berbeda sehingga sewaktu-waktu dapat dipanggil atau digunakan
Analisis listning :Terdapat fungsi call yang gunanya untuk memanggil listning program yang sudah dibuat dalam operator prosedur sesuai fungsi inputan data
Fungsi sub : Suatu pernyataan yang disimpan dan dibuat untuk dimasukkan kedalam operator prosedur
Command bulton :Untuk memunculkan sesuai ganjil genap
Command bulton 2: Untuk menutup aplikasi
Loop :Untuk pemulangan proses
Modul : 2
Asisten : Aditya Hendra S.
TUGAS INDIVIDU
Aris Munandar
21070110130051
- Visual basic adalah bahasa pemprograman yang sering digunakan untuk memecahkan masalah keuangan dan merupakan bahasa pemprogramanan yang paling banyak dikuasai oleh para programmer,terutama programmer pemula.Visual Basic adalah bahasa pemrograman berbasis Windows yang
merupakan Object Oriented Programming (OOP), yaitu pemrograman
berorientasi objek, Visual Basic menyediakan objek-objek yang sangat kuat,
berguna dan sangat mudah dalam penggunaannya.
http://www.tutorial-vb.com/2011/02/mengenal-visual-basic-60.html
Awal dan perkembangan visual basic
Dimulai oleh pemprograman basic pada tahun 1960 di Amerika Serikat. Bahasa basic ini sangat mudah di pahami. Hingga tahun 1982 IBM memperkenalkan PC pertama dan microsoft pun membuat sistem operasi MS-DOS dan menyertakan bahasa basic dalam sistem ini yang dikenal dengan Quickbasic,karena antusias pengguna yang sangat tinggi akan quickbasick sehingga microsoft memperkenalkan bahasa besic hingga meluncurkan 10 versi diantaranya pada tahun 1991 mengeluarkan visual basic versi1.0, pada tahun1992 mengeluarkan visual basic versi 2.0 hingga pada tahun 2010 mengeluarkan versi 10.0.
http://www.anneahira.com/sejarah-visual-basic.htm
2. Macam-macam bahasa pemprogramman
- Bahasa C
Bahasa C pertama kali digunakan dalam di komputer digital equipment corportaioon PDP-11 yang menggunakan sistem operasi UNIX.Versi-versi dari bahasa ini banyak dibuat untuk komputer mikro.
Kelebihan
ü Hampir tersedia diseluruh jenis komputer baik mikro maupun besar ( mainframe computer
ü Kode bahasa besifat portabel
ü Bahasa C menyediakan sedikit kunci, karena bahasa C standar ANSI menyaratkan 32 kata-kata kunci dan tubo hanya menyediakan 39 kata kunci.
ü Proses executable program bahasa C lebih cepat,karena philosoli bahasa C yang menyediakan kata-kata kunci.
ü Dukungan pustaka yang banyak.
ü C adalah bahasa terstruktur
Kekurangan
ü Banyak operator serta fleksibilitas penulisan program yang menimbulkan kebingungan bagi pemakai
ü Sebagian besar pemula kesulitan menggunakan pointer.
- C++
Merupakan hasil pengembangan C, C++ ini mengalami dua fase evolusi, yang pertama diliris oleh AT&T laboratory.0Pada fase ini hanya berupa kompiler yang menterjemahkan C++ menjadi bahasa C. Evolusi ke dua diliris oleh borland internasional Inc mengembangkan C++ lansung mampu menjadi bahasa mesin (assembly) . Sehingga pda tahun 1990 C++ mampu menjadi bahasa pemprograman obyek yang sebagian besar digunakan bahasa pemprograman profesional.
Kelebihan
ü Mengakses komponen hardware komputer dengan syntax yang lebih memanusiawi dibanding assaembly bahasa standar nya.
ü ANSI bisa digunakan diberbagai platform
ü Dibanding dengan program yang sama buatan bahasa lain, C++ relatif lebih cepat.
Kekurangan
ü Kurangnya library built in, sehingga untuk proses-proses tertentu harus membuat nearly built from scratch atau dari dasar sekali.
- JAVA
Java adalah bahasa pemrograman berorientasi objek murni yang dibuat berdasarkan kemampuan-kemampuan terbaik bahasa pemrograman objek sebelumnya (C++, Ada, Simula)
Java masih dalam taraf pengembangan dan sudah mulai mempengaruhi arah pemrogaman komputer dan internet.Bahasa pemrograman Java dirilis secara gratis di internet dan Sun memberikan lisensi penuh terhadap implementasi Java dan segala komponennya untuk digunakan di berbagai vendor software Internet dengan harapan supaya dapat menciptakan standard bagi pemrograman web.
Kelebihan
ü Sederhana dan ampuh
ü Lebih aman
ü Berorientasi objek
Kelemahan
ü Memiliki kecepatan yang kurang dari bahasa C ++
ü Implementasi J2ME tidak global. Misalnya, J2ME untuk Motorola dengan J2ME untuk Sony Ericson tidak sama.
ü memakan banyak memori computer
ü Java merupakan bahasa yang kompleks dan susah dipelajari
ü Program yang digunakan oleh bahasa ini lebih lambat dibanding program yang dibuat dengan bahasa lain seperti C atau C++.
- Visual basic
Visual Basic bisa memilih kode terkompilasi atau kode yang harus diinterpretasi sebagai hasil executable dari kode VB. Meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul
Visual Basic merupakan bahasa yang mendukung OOP, namun tidak sepenuhnya. Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module.
Kelebihan
ü Membuat sebuah program tanpa harus diketik bahasa programnya lagi,tetapi cukup mendisain interface/tampilan program dengan visual basic editor yang terlah tersedia.
ü Tersedia fasilitas active X
Kekurangan
ü Visual basic tidak mempunyai data base sendiri
ü Visual basic tidak mempunyai pendukung untuk membuat report dari bawaan visual basic sendiri
- Bahasa Ruby
Ruby pertama kali dibuat oleh seorang programmer Jepang bernama Yukihiro Matsumoto. Ruby adalah bahasa pemrogaman scripting yang berorientasi objek. Tujuan dari ruby adalah menggabungkan kelebihan dari semua bahasa pemrogaman scripting yang ada di dunia.
Kelebihan
ü Sintaks Sederhana
ü OOP
ü Memiliki Exception handling yang baik
ü Single inheritance
ü Didukung oleh OS Linux,Windows, MacOS X,OS/2, BeOs dan Unix.
ü Merupakan bahasa pemrograman scripting yang berorientasi objek
ü Memiliki garbage collector yang secara otomatis akan menghapus informasi tak terpakai dari memori
Kelemahan
ü Multithreading. Implementasi thread di ruby masih berupa green thread, bukan native thread. Hal ini membuat aplikasi GUI (desktop) dengan background thread tidak mungkin diimplementasikan di ruby.
ü Virtual Memory, ruby masih fully interpreted sehingga program ruby cenderung lebih lambat.
ü Spek. saat ini spesifikasi ruby (syntax, behaviour, dll) adalah implementasi ruby yang asli dari matz.
ü IDE. Saat ini kualitas IDE untuk ruby masih jauh daripada .net dan java. Tapi dengan bermunculnya IDE ruby yang dibuat dengan java.net, kondisinya agak berubah..
http://novatvxqsaranghee.blogspot.com/2009/01/macam-macam-bahasa-pemrograman.html
3. Macam-macam tipe data
Tipe data dibagi menjadi 2 macam yaitu
- Tipe data dasar
Tipe data yang lansung dipakai
ü Bilangan bulat
Bilangan yang tidak mengandung bilangan desimal
ü Bilangan real
Bilangan yang mengandung pecahan desimal
ü Karakter
Tipe data ini menyimpan diketik di keybord,memiliki 255 macam yang terdapat dalam tabel ASCII
ü Bilangan Logika
Tipe data yang memiliki 2 buah nilai yaitu benar (true) atau salah (false)\
- Tipe terstruktur/Bentukan
Tipe data yang dibentuk dari tipe dasar atau dari tipe bentukan lain yang sudah didefenisikan
ü String
Data yang menyimpan array (larik) contoh “ABCDEF”
- Set
Tipe data khusus untuk pascal
- Pointer
Variabel khusus yang berisi address (alamat) dilokasi lain didalam memori. Suatu variabel yang points ( menunjuk) ke suatu sehingga disebut pointer.
- Operasi perbandingan
Operasi pada bilangan untuk bilangan bulat dengan salah satu operator relasional menghasilkan nilai boolean( true atau false)
http://www.stmik-budidarma.ac.id/Download/D3%20-%20Algoritma%20&%20Pemrograman.pdf
4. IDE dalam visual basic 2010
IDE (Integrated Developement Environment) Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable.
Jenis-jenis IDE : MS Visual basic, MS visual C++, Turbo Pascal dan lai-lain.
http://www.krowak.com/2009/01/memulai-visual-basic.html
5. macam-macam komponen pada toolbox
- CheckedListBox
Fungsi hampir sama dengan listbox, namun komponen ini mempunyai checkedbox. Dan secara default item yang dipilih bisa lebih dari satu.
- PictureBox
Komponen yang berguna untuk menampilkan file gambar.
- OpenFileDialog
komponen yang berupa kotak dialog untuk membuka file / dokumen.
- Timer
komponen yang berfungsi untuk menjalankan kode secara berulang tanpa menggunakan fungsi perulangan. Komponen ini juga bisa memberikan jeda / waktu tunda terhadap jalannya suatu kode.
- ProgressBar
komponen yang bisa memberikan informasi perkembangan jalannya suatu proses.
- MenuStrip
komponen yang berguna untuk mengelompokan perintah – perintah yang akan di gunakan pada aplikasi.komponen ini biasanya terletak di bawah titlebar aplikasi.
- ContextMenuStip
komponen ini memiliki fungsi yang hamper sama dengan MenuStrip,hanya saja untuk mengakses komponen ini di lakukan dengan cara klik kanan pada komponen yang sebelumnya telah di hubungkan dengan ContextMenuStip ini.
- Notifylcon
komponen ini berguna untuk menampilkan ikon pesan systray Windows.
- WebBrowser,
komponen yang memungkinkan user bisa membuka halaman web di dalam form.
- StatusStip
komponen yang biasanya digunakan untuk memberikan informasi seputar objek yang sedang di lihat,proses yang sedang berlangsung dan lain-lain.
http://www.4shared.com/document/Jjn1Z91v/Komponen_pada_Toolbox.html
6. pengertian
a. Even driven programming adalah :
paradigma pemrograman di mana aliran program ditentukan oleh peristiwa yaitu, sensor output atau tindakan pengguna atau pesan dari program lain atau benang http://translate.google.co.id/translate?hl=id&sl=en&u=http://en.wikipedia.org/wiki/Event-driven_programming&ei=9ya6TrShBYPLrQfLpY3eBg&sa=X&oi=translate&ct=result&resnum=1&ved=0CB0Q7gEwAA&prev=/search%3Fq%3Devent%2Bdriven%2Bprogramming%26hl%3Did%26client%3Dfirefox-a%26hs%3DIyN%26rls%3Dorg.mozilla:en-US:official%26prmd%3Dimvnsb
b. Debugging
proses metodis untuk menemukan dan mengurangi jumlah bug , atau cacat, dalam sebuah program komputer atau sepotong perangkat keras elektronik , sehingga membuatnya berperilaku seperti yang diharapkan.
c. Source code
format dan sintaks bahasa pemrograman untuk memudahkan pekerjaan komputer programmer menentukan tindakan yang harus dilakukan oleh komputer yang sebagian besar dengan menulis kode sumber, yang secara otomatis diterjemahkan ke biner kode mesin yang komputer secara langsung dapat membaca dan mengeksekusi.
d. break all
pelaksanaan program untuk menghentikan dan masuk ke mode istirahat di baris program saat ini. Anda dapat memilih terus melanjutkan eksekusi
http://www.startvbdotnet.com/forms/debug1.aspx
e. Visual Component Library
Visual komponen berbasis yang berorientasi objek kerangka kerja yang bergunak untuk mengembangkan Microsoft Windows aplikasi.
f. Variable
Setiap data yang disimpan dalam komputer memerlukan variabel sebagai sesuatu tempat untuk menyimpan nilai dari data tersebut, dan nilainya suatu variable dapat berubah-ubah selama proses program.
http://elearning.upnjatim.ac.id/courses/FKK1002/work/48ca972c47ddcvariabel_dan_konstanta.htm
TUGAS KELOMPOK
- Program_pembelian_barang_meubel
Deklarasi
N= integer
Nama barang = string
Harga barang = real
Harga total = real
Algoritama
Read ( N )
i=1
while I ≤ N do
read ( nama barang,harga barang )
case ( N )
A = (“1000.000”)
B = ( “ 200.000”)
C = ( “750.000”)
D = ( “150.000”)
Otherwise = (“0”)
Endcase
Harga total = N*harga barang
Write ( harga total)
End.
Modul : 1
Asisten : Ulima Rachmatia F.
Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.
Here are some suggestions for your first post.
- You can find new ideas for what to blog about by reading the Daily Post.
- Add PressThis to your browser. It creates a new blog post for you about any interesting page you read on the web.
- Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.
Kelompok 29 TI 2011 
