ANALISIS APLIKASI DATABASE PADA PEMROGRAMAN VISUAL BASIC 2010

December 1, 2011 //

Untuk melihat hasil program dibawah ini, KLIK DISINI

Public Class Form1

Dim kolom As Integer = Nothing

Dim i As Integer

Dim mencari As Boolean = False

Analisis :

Listing ini digunakan untuk deklarasi bahwa ‘kolom’ dan ‘i’ bersifat integer dan ‘mencari’ bersifat boolean.

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 ‘Kelompok_40_newwwDataSet.Baju’ table. You can move, or remove it, as needed.

Me.BajuTableAdapter.Fill(Me.Kelompok_40_newwwDataSet.Baju)

End Sub

Analisis :

Listing ini digunakan untuk menjelaskan bahwa dalam form1 terdapat database kelompok 40 newww dengan tabel baju.

Private Sub BindingNavigator1SaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigator1.Click

Me.Validate()

Me.BajuBindingSource.EndEdit()

Me.TableAdapterManager1.UpdateAll(Me.Kelompok_40_newwwDataSet)

End Sub

Analisis :

Listing ini digunakan untuk menyimpan data yang telah ada pada database yang telah dibuat sebelumnya.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.BajuBindingSource.AddNew()

DataGridView1.Enabled = True

End Sub

Analisis :

Listing ini digunakan untuk menambahkan suatu data kedalam database seperti untuk menambahkan suatu jenis baju beserta ukuran, kode dll yang berhubungan dengan jenis baju tersebut.

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.BajuBindingSource.RemoveCurrent()

End Sub

Analisis :

Listing ini digunakan untuk menghapus suatu data yang terdapat pada database seperti untuk menghapus suatu jenis baju beserta ukuran, kode dll yang berhubungan dengan baju tersebut.

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Validate()

Me.BajuBindingSource.EndEdit()

Me.TableAdapterManager1.UpdateAll(Me.Kelompok_40_newwwDataSet)

End Sub

Analisis :

Listing ini digunakan untuk menyimpan data jika ada suatu perubahan terhadap data yang telah kita buat.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If ComboBox1.Text = “kode” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(0, i).Value = TextBox1.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information)

TextBox2.Text = DataGridView1.Item(1, kolom).Value

TextBox3.Text = DataGridView1.Item(2, kolom).Value

TextBox4.Text = DataGridView1.Item(3, kolom).Value

TextBox5.Text = DataGridView1.Item(4, kolom).Value

TextBox6.Text = DataGridView1.Item(5, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox1.Focus()

Else

MessageBox.Show(“Fill (Kode) !”)

End If

ElseIf ComboBox1.Text = “jenis” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(1, i).Value = TextBox2.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

TextBox1.Text = DataGridView1.Item(0, kolom).Value

TextBox3.Text = DataGridView1.Item(2, kolom).Value

TextBox4.Text = DataGridView1.Item(3, kolom).Value

TextBox5.Text = DataGridView1.Item(4, kolom).Value

TextBox6.Text = DataGridView1.Item(5, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox2.Focus()

Else

MessageBox.Show(“Fill (Jenis) !”)

End If

ElseIf ComboBox1.Text = “merek” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(2, i).Value = TextBox3.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

TextBox1.Text = DataGridView1.Item(0, kolom).Value

TextBox2.Text = DataGridView1.Item(1, kolom).Value

TextBox4.Text = DataGridView1.Item(3, kolom).Value

TextBox5.Text = DataGridView1.Item(4, kolom).Value

TextBox6.Text = DataGridView1.Item(5, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox3.Focus()

Else

MessageBox.Show(“Fill (Merek) !”)

End If

ElseIf ComboBox1.Text = “ukuran” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(3, i).Value = TextBox4.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

TextBox1.Text = DataGridView1.Item(0, kolom).Value

TextBox2.Text = DataGridView1.Item(1, kolom).Value

TextBox3.Text = DataGridView1.Item(2, kolom).Value

TextBox5.Text = DataGridView1.Item(4, kolom).Value

TextBox6.Text = DataGridView1.Item(5, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox4.Focus()

Else

MessageBox.Show(“Fill (Ukuran) !”)

End If

ElseIf ComboBox1.Text = “bulan” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(4, i).Value = TextBox5.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

TextBox1.Text = DataGridView1.Item(0, kolom).Value

TextBox2.Text = DataGridView1.Item(1, kolom).Value

TextBox3.Text = DataGridView1.Item(2, kolom).Value

TextBox4.Text = DataGridView1.Item(3, kolom).Value

TextBox6.Text = DataGridView1.Item(5, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox5.Focus()

Else

MessageBox.Show(“Fill (Bulan) !”)

End If

ElseIf ComboBox1.Text = “harga” Then

For i = 0 To DataGridView1.RowCount – 1

If mencari = False And DataGridView1.Item(5, i).Value = TextBox6.Text Then

mencari = True

kolom = i

Exit For

End If

If mencari Then

TextBox1.Text = DataGridView1.Item(0, kolom).Value

TextBox2.Text = DataGridView1.Item(1, kolom).Value

TextBox3.Text = DataGridView1.Item(2, kolom).Value

TextBox4.Text = DataGridView1.Item(3, kolom).Value

TextBox5.Text = DataGridView1.Item(4, kolom).Value

ElseIf MessageBox.Show(“Successed !”, “Warning”, MessageBoxButtons.OK, MessageBoxIcon.Information) Then

TextBox6.Focus()

Else

MessageBox.Show(“Fill (Harga) !”)

End If

End Sub

Analisis :

Listing ini digunakan untuk mencari data yang ada pada database dengan cara memasukkan jenis baju yang sesuai pada database pada textbox yang telah dipilih pada combobox sehingga jika kita mengklik tombol search (button4) maka akan muncul pemberitahuan ‘successed!’ dan akan muncul semua data yang berhubungan dengan jenis baju yang diisikan pada textbox, namun jika data yang diisikan pada textbox tersebut tidak sesuai dengan jenis baju yang ada pada database maka akan tampil pemberitahuan ‘successed!’ tapi tidak muncul semua data yang berhubungan dengan jenis baju tersebut. Jika tombol ‘search’ (button4) ditekan tanpa memasukkan data pada textbox maka akan tampil pemberitahuan ‘Fill (jenis)!’.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

TextBox1.Text = Nothing

TextBox2.Text = Nothing

TextBox3.Text = Nothing

TextBox4.Text = Nothing

TextBox5.Text = Nothing

TextBox6.Text = Nothing

TextBox7.Text = Nothing

ComboBox1.Text = Nothing

mencari = Nothing

kolom = Nothing

i = Nothing

End Sub

Analisis :

Listing ini digunakan untuk merefresh program (button5) dengan mengklik tombol refresh pada program sehingga program kembali ke awal sebelum pengisian. Dengan mengklik tombol refresh (button5) membuat seluruh textbox yang ada dan telah terisi menjadi kosong hal ini, memudahkan untuk pencarian selanjutnya.

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

BajuBindingSource.Filter = “kode like ‘%” + TextBox7.Text + “%’ or jenis like ‘%” + TextBox7.Text + “%’ or merek like ‘%” + TextBox7.Text + “%’ or ukuran like ‘%” + TextBox7.Text + “%’ or bulan like ‘%” + TextBox7.Text + “%'”

End Sub

Analisis :

Listing ini digunakan untuk menemukan data yang ada pada database sehingga program akan langsung menemukan semua data yang ada dalam database yang berhubungan dengan apa yang kita ketikkan pada textbox7 (find). Sehingga kita dapat menemukan data tidak hanya dari jenis bajunya saja namun dari keseluruhan seperti ukuran, kode, merek dll, maka data akan terfilter sesuai dengan masukkan data.

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

If ComboBox1.Text = “kode” Then

TextBox1.Focus()

ElseIf ComboBox1.Text = “jenis” Then

TextBox2.Focus()

ElseIf ComboBox1.Text = “merek” Then

TextBox3.Focus()

ElseIf ComboBox1.Text = “ukuran” Then

TextBox4.Focus()

ElseIf ComboBox1.Text = “bulan” Then

TextBox5.Focus()

ElseIf ComboBox1.Text = “harga” Then

TextBox6.Focus()

End If

End Sub

Analisis :

Listing ini digunakan apabila memilih salah satu teks dari combobox maka, pointer akan mengarah pada textbox yang dituju.

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

Close()

End Sub

End Class

Analisis :

Listing ini digunakan untuk menutup program / keluar dari program.

Categories Uncategorized

Tutorial Operator Prosedur

November 24, 2011 //

Tutorial pembuatan pemrograman operasi Prosedur dengan menggunakan software visual basic 2010:

1) Buka program visual basic

2) Lalu pilih windows form, klik ok

3) Pilih new project dengan klik file pada menu bar, lalu pilih windows form application kemudian klik ok

4) Pilih tombol button untuk membuat teks (angka, tanda aritmatika, dan lain-lain). Tata pada form1 hingga menjadi seperti gambar dibawah ini,

5) Apabila ingin mengubah nama pada setiap masing-masing komponen toolbox, dapat diubah pada kotak properties.

6)Klik 2x pada kotak form1, hingga keluar kotak listing untuk memasukkan source code.

7) Masukkan kode lististing sesuai kondisi yang diinginkan.

Kode listing tersebut diantara lain adalah sebagai berikut:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Pada kode listing tersebut untuk memulai melakukan pemrograman pada form 1.

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Byte = 0

Call ulang_cetak(x)

x = x + 1

Loop Until x > Int(TextBox1.Text)

End Sub

Sub ulang_cetak(ByVal angka As Integer)

If angka Mod 2 = 0 Then

ListBox1.Items.Add(“Angka ” & angka & ” Genap”)

Else

ListBox1.Items.Add(“Angka ” & angka & ” Ganjil”)

End If

End Sub

Pada kode listing diatas digunakan apabila button1 diklik setelah memasukkan suatu nilai input maka akan keluar hasil pasa listbox1. “dim x as byte = 1” digunakan untuk menentukan nilai awal yang dikeluarkan pada hasil di listbox1, sehingga pada listing diatas akan dimulai pada angka 1. X dalam kode listing “x = x + 1”merupakan x baru sesuai dengan yang dimasukkan pada textbox1, sedangkan x yang dijumlahkan dengan angka 1 merupakan x yang nilainya akan dikeluarkan pada listbox1. Misalnya jika pada listbox1 dimasukkan angka 23 maka pada listbox akan keluar angka hingga 22. Karena 23 adalah hasil 22 + 1.

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()

End Sub

End Class

Kode listing diatas digunakan untuk menutup form1, apabila mengeklik button2.

8) Run program dengan mengklik F5 untuk menjalankan program algoritma yang telah dibuat.

Categories Uncategorized

Tutorial Pemrograman Kalkulator

November 24, 2011 //

Tutorial pembuatan pemrograman operasi aritmatika KALKULATOR INOVASI dengan menggunakan software visual basic 2010:

1) Buka program visual basic

2) Lalu pilih windows form, klik ok

3) Pilih new project dengan klik file pada menu bar, lalu pilih windows form application kemudian klik ok

4) Pilih tombol button untuk membuat teks (angka, tanda aritmatika, dan lain-lain). Tata pada form1 hingga menjadi seperti gambar dibawah ini,

5) Apabila ingin mengubah nama pada setiap masing-masing komponen toolbox, dapat diubah pada kotak properties.

6) Klik 2x pada kotak form1, hingga keluar kotak listing untuk memasukkan source code.

7) Masukkan kode lististing sesuai kondisi yang diinginkan

Kode listing tersebut diantara lain adalah sebagai berikut:

Public Class Form1

Dim angka, hasil As Double

Dim rumus As String

Kode listing diatas digunakan untuk deklarasi pada form1, dimana angka dan hasil berupa double yang merupakan nilai angka pecahan dan desimal yang memiliki ketelitian yang lebih. Double tidak bisa digantikan dengan real ataupun integer karena jika integer data angka tidak bisa minus ataupun desimal. String pada rumus merupakan deretan karakter.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “1”

Else

TextBox1.Text = TextBox1.Text & “1”

End If

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “2”

Else

TextBox1.Text = TextBox1.Text & “2”

End If

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “3”

Else

TextBox1.Text = TextBox1.Text & “3”

End If

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “4”

Else

TextBox1.Text = TextBox1.Text & “4”

End If

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “5”

Else

TextBox1.Text = TextBox1.Text & “5”

End If

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “6”

Else

TextBox1.Text = TextBox1.Text & “6”

End If

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “7”

Else

TextBox1.Text = TextBox1.Text & “7”

End If

End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “8”

Else

TextBox1.Text = TextBox1.Text & “8”

End If

End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “9”

Else

TextBox1.Text = TextBox1.Text & “9”

End If

End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “0”

Else

TextBox1.Text = TextBox1.Text & “0”

End If

End Sub

Kode listing diatas digunakan untuk mengaktifkan button sesuai angka yang tertera pada masing-masing button. Jadi apabila pada keadaan awal di textbox1 adalah 0 ataupun masih kosong maka akan berubah sesuai angka yang dinginkan setelah menklik button tersebut.misal mengeklik button dengan angka 4 maka pada textbox1 akan keluar angka 4.

Private Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.Click

angka = Val(TextBox1.Text)

angka = angka + Val(TextBox1.Text)

rumus = “+”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk menjumlahkan angka yang dimasukkan pada textbox1 dengan mengeklik button ”+” sehingga pada rumus tertulis “+” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “+” tersebut.

Private Sub Button12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.Click

angka = Val(TextBox1.Text)

angka = angka – Val(TextBox1.Text)

rumus = “-”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk mengurangi angka yang dimasukkan pada textbox1 dengan mengeklik button ”-” sehingga pada rumus tertulis “-” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “-” tersebut.

Private Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.Click

angka = 0

angka = Val(TextBox1.Text)

angka = angka / Val(TextBox1.Text)

rumus = “/”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk membagi angka yang dimasukkan pada textbox1 dengan mengeklik button ”:” sehingga pada rumus tertulis “/” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “:” tersebut.

Private Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.Click

angka = Val(TextBox1.Text)

angka = angka * Val(TextBox1.Text)

rumus = “*”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk mengalikan angka yang dimasukkan pada textbox1 dengan mengeklik button ”*” sehingga pada rumus tertulis “*” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “*” tersebut.

Private Sub Button15_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.Click

angka = Val(TextBox1.Text)

angka = angka ^ Val(TextBox1.Text)

rumus = “^”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk memangkatkan angka yang dimasukkan pada textbox1 dengan mengeklik button ”^” sehingga pada rumus tertulis “^” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “^” tersebut.

Private Sub Button22_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button22.Click

angka = Val(TextBox1.Text)

angka = angka / 100

rumus = “%”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk pemersenan angka yang dimasukkan pada textbox1 dengan mengeklik button ”%” sehingga pada rumus tertulis “%” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “%” tersebut.

Private Sub Button23_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button23.Click

angka = Val(TextBox1.Text)

angka = angka ^ 0.5

rumus = “√”

TextBox1.Text = 0

End Sub

Listing diatas digunakan untuk memangkatkan angka yang dimasukkan pada textbox1 dengan mngeklik button ”^” sehingga pada rumus tertulis “^” dan kemudian textbox1 akan berubah menjadi 0 setelah mengeklik button “^” tersebut.

Private Sub Button16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.Click

If rumus = “+” Then

hasil = angka + Val(TextBox1.Text)

TextBox1.Text = hasil

ElseIf rumus = “-” Then

hasil = angka – Val(TextBox1.Text)

TextBox1.Text = hasil

ElseIf rumus = “/” Then

hasil = angka / Val(TextBox1.Text)

TextBox1.Text = hasil

ElseIf rumus = “*” Then

hasil = angka * Val(TextBox1.Text)

TextBox1.Text = hasil

ElseIf rumus = “^” Then

hasil = angka ^ Val(TextBox1.Text)

TextBox1.Text = hasil

ElseIf rumus = “%” Then

hasil = angka / 100

TextBox1.Text = hasil

ElseIf rumus = “√” Then

hasil = angka ^ 0.5

TextBox1.Text = hasil

End If

End Sub

Listing diatas digunakan untuk memproses perhitungan pada masing-masing tanda yang akan keluar pada textbox1 setelah mengeklik tombol button “=” . jadi misalnya 9 kemudian diakar “√” maka pada textbox1 akan muncul angka 3.

Private Sub Button17_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.Click

If TextBox1.Text = “0” Then

TextBox1.Text = “.”

Else

TextBox1.Text = TextBox1.Text & “.”

End If

End Sub

Listing diatas digunakan untuk menambahkan koma pada input angka yang dimasukkan textbox1 jika angka yang ingin dimasukkan adalah bentuk desimal.

Private Sub Button18_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.Click

TextBox1.Text = Nothing

angka = Nothing

hasil = Nothing

rumus = Nothing

End Sub

Kode listing diatas digunakan untuk merefresh pemograman pada form1, apabila mengeklik button18.

Private Sub Button19_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.Click

Close()

End Sub

End Class

Kode listing diatas digunakan untuk menutup form1, apabila mengeklik button19.

Private Sub Button21_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button21.Click

TextBox1.Enabled = False

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

Button10.Enabled = False

Button11.Enabled = False

Button12.Enabled = False

Button13.Enabled = False

Button14.Enabled = False

Button15.Enabled = False

Button16.Enabled = False

Button17.Enabled = False

Button18.Enabled = False

Button19.Enabled = False

Button21.Enabled = False

Button22.Enabled = False

Button23.Enabled = False

End Sub

Kode listing diatas digunakan untuk me-non aktifkan seluruh button yang ada pada form1, apabila mengeklik button21. Sehingga apabila dengan mengeklik button21 maka tidak akan bisa memproses sama sekali.

Private Sub Button20_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.Click

TextBox1.Enabled = True

Button1.Enabled = True

Button2.Enabled = True

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Button10.Enabled = True

Button11.Enabled = True

Button12.Enabled = True

Button13.Enabled = True

Button14.Enabled = True

Button15.Enabled = True

Button16.Enabled = True

Button17.Enabled = True

Button18.Enabled = True

Button19.Enabled = True

Button21.Enabled = True

Button22.Enabled = True

Button23.Enabled = True

End Sub

End Class

Kode listing diatas digunakan untuk mengaktifkan seluruh button yang ada pada form1, apabila mengeklik button20. Sehingga apabila tanpa mengeklik button20 maka tidak akan bisa memproses sama sekali.

1) Run program dengan mengklik F5 untuk menjalankan program algoritma yang telah dibuat.

2) Untuk menyimpan Klik file kemudian pilih dan klik save all pada menu bar.

3) Jika ingin membuka file kembali pada program visual basic pilih dan klik open file pada menu bar.

Categories Uncategorized

Flowchart Pemrograman Kalkulator

November 24, 2011 //

Categories Uncategorized

Program Kalkulator dan Operator Prosedur

November 24, 2011 //

Download Program

http://www.4shared.com/file/FH2ULj4k/MODUL_2_KLOMPOK_40.html?

Categories Uncategorized

Tutorial pembayaran kasir dengan menggunakan program Visual Basic 2010

November 17, 2011 //

Tutorial pembuatan pemrograman hasil pembayaran kasir dengan menggunakan software visual basic :

1) Buka program visual basic

2) Lalu pilih windows form, klik ok

3) Pilih new project dengan klik file pada menu bar, lalu pilih windows form application kemudian klik ok

4) Pilih tombol label sebanyak 8 kali untuk membuat teks (jenis barang, harga, jumlah, potongan(%), total harga, pembayaran , kembalian dan label yang berada disebelah harga berupa angka yang dapat berganti sesuai jenis barang yang dipilih) kemudian combobox, radiobutton dan textbox pada toolbox.

5) Apabila ingin mengubah nama pada setiap masing-masing komponen toolbox, dapat diubah pada kotak properties.

6) Klik 2x pada kotak form1, hingga keluar kotak listing untuk memasukkan source code.

7) Masukkan kode lististing sesuai kondisi yang diinginkan.

Kode listing tersebut diantara lain adalah sebagai berikut:

Public Class Form1

Dim Harga_Kotor, Harga_Bersih As Integer

Dim potongan As Integer = 0

Dim jumlah As Integer = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With CmbJenisBarang

.Items.Add(“Buku Tulis”)

.Items.Add(“Buku Gambar”)

.Items.Add(“Pulpen Boxy”)

.Items.Add(“Pensil Mekanik”)

.Items.Add(“Penggaris Rotring”)

.Items.Add(“Rautan Pensil”)

End With

End Sub

Listing diatas digunakan agar pada combobox1 dapat mengeluarkan pilihan-pilihan seperti buku tulis, buku gambar, pulpen boxy, pensil mekanik, penggaris rotring dan rautan pensil.

Private Sub CmbJenisBarang_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbJenisBarang.SelectedIndexChanged

If CmbJenisBarang.Text = (“Buku Tulis”) Then

Label8.Text = (“2000”)

ElseIf CmbJenisBarang.Text = (“Buku Gambar”) Then

Label8.Text = (“3000”)

ElseIf CmbJenisBarang.Text = (“Pulpen Boxy”) Then

Label8.Text = (“2500”)

ElseIf CmbJenisBarang.Text = (“Pensil Mekanik”) Then

Label8.Text = (“2000”)

ElseIf CmbJenisBarang.Text = (“Penggaris Rotring”) Then

Label8.Text = (“3000”)

ElseIf CmbJenisBarang.Text = (“Rautan Pensil”) Then

Label8.Text = (“15000”)

End If

End Sub

Listing diatas digunakan agar pada label 8 langsung tampil dari harga barang yang dipilih untuk melakukan pembelian. Misalnya jika kita memilih buku tulis maka, pada label 8 akan langsung tampil harganya yaitu 2000 dan begitu seterusnya.

Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged

potongan = sender.text

End Sub

Listing diatas digunakan agar berlaku potongan harga dari pembelian barang dengan menggunakan icon radiobutton1 untuk potongan sebesar 0 %, radiobutton2 untuk potongan sebesar 5%, dan radiobutton3 untuk potongan sebesar 10 %.

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim diskon As Single

Dim total As Single

If TextBox1.Text = Int(TextBox1.Text) And TextBox1.Text > 0 Then

diskon = (Label8.Text * TextBox1.Text * potongan) / 100

total = (Label8.Text * TextBox1.Text – diskon)

TextBox2.Text = Format(total, “#,#”)

Else

TextBox2.Text = “error”

End If

End Sub

Listing diatas digunakan untuk menghitung hasil dari total harga pembelian yang sebelumnya dibutuhkan perhitungan diskon terlebih dahulu. Dan dimasukkan kondisi jika pada jumlah dimasukkan nilai desimal ataupun minus maka pada total harga tidak dapat memproses atau keluar kata”error”.

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox2.Text <= TextBox3.Text Then

TextBox4.Text = TextBox3.Text – TextBox2.Text

ElseIf TextBox2.Text > TextBox3.Text Then

TextBox4.Text = (“maaf, uang anda tidak mencukupi pembelian”)

End If

End Sub

Listing diatas digunakan agar ketika menekan kembalian (button4) pada textbox kembalian (textbox4) akan keluar hasil kembalian. Hasil keluar jika pembayaran yang dikeluarkan (textbox3) lebih besar dari harga barang yang dibeli (textbox2) namun jika uang pembayaran lebih sedikit dari jumlah harga pembelian maka pada textbox kembalian (textbox4) akan tampil text “maaf, uang anda tidak mencukupi pembelian”.

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

CmbJenisBarang.SelectedIndex = -1

TextBox1.Text = String.Empty

CmbJenisBarang.Text = String.Empty

Label8.Text = String.Empty

RadioButton1.Checked = Nothing

RadioButton2.Checked = Nothing

RadioButton3.Checked = Nothing

TextBox2.Text = String.Empty

TextBox3.Text = String.Empty

TextBox4.Text = String.Empty

End Sub

Listing diatas digunakan untuk me’refresh’ proses algoritma yang telah dilakukan agar kembali ke semula sebelum adanya pembelian dengan mengklik button refresh (button4). Oleh karena itu pada komponen combobox1, label8, textbox1, textbox2, textbox3 dan textbox4 kosong tanpa adanya text seperti semula. Serta pilihan pada radiobutton1, radibutton2, atau radiobutton3 hilang.

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()

End Sub

Listing diatas digunakan untuk menutup form1 jika kita mengklik button ‘keluar’ (button2) pada form.

8) Run program dengan mengklik F5 untuk menjalankan program algoritma yang telah dibuat.

9) Untuk menyimpan Klik file kemudian pilih dan klik save all pada menu bar.

10) Jika ingin membuka file kembali pada program visual basic pilih dan klik open file pada menu bar.

Untuk melihat contoh aplikasi dari listing di atas silahkan klik disini

Categories Uncategorized

MODUL 1 FLOWCHART.PENGENALAN VISUAL BASIC 2010

November 10, 2011 //

Categories Uncategorized

MODUL 3 APLIKASI DATABASE PADA PEMROGRAMAN VISUAL BASIC 2010

November 9, 2011 //

TUGAS INDIVIDU

1.Keunggulan menggunakan MySQL dalam pembuatan database

a. MySQL adalah salah satu program yang multi theaded sehingga dapat dipasang terhadap server yang memiliki multi CPU

b. Terdapat berbagai platform (tersedia pada berbagai versi pada setiap sistem operasi)

c.Disupport dengan adanya program umum seperti c++, c java

d. Mempunyai jenis kolom yang cukup banyak oleh kerana itu mengakibatkan mudahnya konfigurasi sistem basis data

e. Mempunyai sistem keamanan yang bagus menggunakan verifikasi host

f. MySQL dan PHP sama-sama saling terintegrasi.

(http:// www. scribd .com/doc/5389211/19/keunggulan –mysql)

2. Jenis Jenis relasi yang ada dalam microsoft access

a. One–to-One (satu-ke-satu) adalah Relasi yang menghubungkan suatu record terhadap tabel induk ke tepat sebuah record

pada tabel anak, bentuk relasi ini jarang dipergunakan.

b. One-to-Many adalah relasi yang menhubungkan sebuah record terhadap satu tabel dengan beberapa record pada tabel lainnya.

c. Many-to-one adalah suatu bentuk relasi terhadap prinsip merupakan kebalikan dari One-to-Many.

d. Many-to-Many adalah bentuk relasi yang merupakan bentuk yang paling sulit dimengerti, dan hampir kemungkin tidak ada.

(http: // illtoro.blogspot.com/2009/06/)

3. Cara mengkoneksikan database ke VB.net

Buka terlrbih dahulu software SQL server management studio express
Klik connect
Sorotkan pada subtree database, kemudian klik kanan pilih pada new data base
Muncul kotak dialog new database, ketikkan nama database name lalu ok, misal nama database adalah contoh Db
Kemudian pada contoh DB klik subtree kemudian klik tabless pada tables
Klik kanan pada new table,(isikan table, type yang ada), koneksi dengan VB net micsocoft visual studia 2005
Filenew, project, berikan nama project, klik ok pada kiri atas, pilih server axplorer,klik connect to data, kemudian pilih server name klik select or enter a data base name ok
Kemudian koneksi telah terhubung.

(http: //sora7.wordperss.com/)

4. Pengertian dari

Table adapter merupakan objek utama dari access yang berguna sebagai tempat menyimpan dayta yang akan diolah dalam suatu format baris maupun kolom dan merupakan komponen terpenting dalam suatu database

(www. Scidb.com/doc/27745962/)

Primary key

atribut (field) yang dipilih untuk penentuan struktur storage terhadap organisasi file dengan multi key, adapun key lainnya disebut dengan secondary key.

Foreign key

Sekelompok field dalam satu relasi yang digunakan untuk menunjuk ke suatu baris ( pada relasi yang lain.

Database

Kumpulan dari arsip data berbentuk tabel yang saling berkaitan berguna menghasilkan informasi

DBMS

suatu sistem atau perangkat lunak yang dirancang agar mengelola suatu basis data dan menjalankan operasi pada data yang diminta beberapa pengguna.

RDBMS

perangkat lunak yang mengatur dan mengorganisasi penyimpanan database kedalam komputer.

(http:/ /yurronz.wordpress.com/2011/02/28)

5. Macam-macam DBMS

MySQL

Merupakan sebuah perangkat luanak dari system manajemen basis data SQL ataupun DNMS yang multitheard,multi user,dengan perkiraan 6 juta instalasi di seluruh dunia.

Oracle

Merupakan relational adatabase management systems untuk pengelolaan informasi secara terbuka, komperehensif dan intregrasi

Firebirh

Merupakan salah satu aplikasi RDBMS, sistem manajemen basis data relasional yang memberikan fitur-fitur yang terdapat dalam standar ANSI SQL -99 dan SQL-2003

Microsoft Sql server 2000

Merupakan perangkat lunak relational database management system yang dapat mendesign yang diperlukan untuk melakukan proses manipulasi data base berukuran database.

(http:// fazarate .blogspot. com)

TUGAS KELOMPOK

Review jurnal

PENGEMBANGAN DATABASE MIKROORGANISME

INDIGENOS INDONESIA

Suatu negara dapat memperoleh keuntungan yang sangat tinggi dari pemanfaatan sumber daya hayati mikroorganisme, melalui pengembangan suatu koleksi biakan dan pengembangan teknologi berbasis informasi biologi (bioinformatika) dari koleksi biakan indigenos. Indonesia dikenal sebagai negara megabiodiversitas, akan tetapi informasi tentang biodiversitas mikroorganisme indigenos di Indonesia masih sangat minim.

Koleksi mikroorganisme University of Indonesia Culture Collection (UICC) merupakan salah satu koleksi biakan di Indonesia yang ada di Departemen Biologi FMIPA-UI. Tujuan dari UICC adalah melakukan konservasi biodiversitas mikroorganisme indigenos Indonesia secara ex-situ. UICC telah melakukan penelitian eksplorasi mikroorganisme indigenos Indonesia dan mengoleksi sebanyak 2.155 strain.

Tujuan penelitian adalah membangun dan mengembangkan sebuah database mikroorganisme indigenos Indonesia yang berbasis di Universitas Indonesia, yang dapat dipercaya dan akurat berdasarkan informasi biologi terpadu dari karakter-karakter fenotipik dan genotipik koleksi biakan yang dimiliki.

Pengembangan sistem aplikasi database mikroorganisme indigenos Indonesia dilakukan melalui beberapa tahap, yaitu: identifikasi data, desain database, programming, entri data, testing dan debugging, perbaikan dan pemeliharaan. Aplikasi sistem database ini juga dilengkapi dengan fasilitas sequence homology search dengan Basic Local Alignment Search Tool (BLAST). Dengan demikian, pengguna dapat melakukan proses pencarian homologi sekuen data yang dimilikinya terhadap data sekuen koleksi UICC.

Sistem aplikasi database ini dibangun berbasis web yang dapat diakses setiap saat melalui internet/intranet dan memiliki 4 (empat) fitur utama: pencarian (searching) database, katalog, sequence homology search dengan BLAST, dan galeri koleksi foto biakan. Dalam sistem database mikroorganisme indigenos Indonesia, antar muka yang dibangun berbasis aplikasi web. Hal tersebut dimaksudkan agar database mikroorganisme indigenos Indonesia milik UICC dapat diakses dari seluruh dunia melalui jaringan internet. Guna menunjang hal tersebut, diperlukan adanya sebuah mesin web server dan sebuah mesin database server.

Dalam penelitian ini, pengembangan sistem database dilakukan dengan menggunakan perangkat lunak yang berlisensi General Public License (GPL). Ada beberapa keuntungan yang diperoleh dari perangkat lunak jenis ini, yaitu GPL bersifat open source dan telah terbukti cukup handal, karena dikembangkan bersama-sama oleh banyak programmer di seluruh dunia dan dapat menekan biaya pemeliharaan dari sistem database ini di masa yang akan datang.

Maka, dengan dibangunnya database UI Bioinfo, Universitas Indonesia akan menjadi salah satu pusat layanan informasi biodiversitas mikroorganisme Indonesia, yaitu dengan memberikan pelayanan pencarian katalog koleksi biakan UICC secara online dan pelayanan pencarian homologi data sekuen melalui program BLAST (Basic Local Alignment Search Tool).

Categories Uncategorized

MODUL 2 DASAR PEMROGRAMAN VISUAL BASIC 2010

November 9, 2011 //

TUGAS INDIVIDU

1. Pengertian operator

Suatu simbol yang biasa dilibatkan dalam program untuk melakukan suatu operasi ataupun manipulasi.

Macam macam operator

Operator aritmatika = operator yang berguna dalam perhitungan matematis
Operator modulus = menentukan suatu sisa dari hasil bagi sebuah operasi pembagian bilangan bulat ataupun riil
Operator increment=decrement = operator yang berguna untuk menaikkan 1 nilai (increment) dan menurunkan 1 nilai (decrement) dari suatu database
Operator relasional = operator yang menjelaskan hubungan antara satu operand dengan operand yang lainya.

(http: // setyawan.wibisono.com/54/)

2. Macam-macam yang termasuk looping

For = digunakan dalam pengulangan yang jumlah tidak di ketahui pada sebelumnya.
For to do = pernyataan yang akan dilakukan atau dikerjakan
Repeat = suatu pengulangan yang diketahui jumlahnya belum pasti
While = digunakan pengulan terhadap jumlah yang tidak diketahui

(www. catatanone .wordpress.com)

3. Penjelasan source code

maksud source code adalah kondisi dimana jika kondisi 1 diketahui memiliki tanda “<” atau banar maka aksi 1 dilakukan dengan menggunakan int (tex box, text)<(text box 2, text) dan dari tersebut algoritma telah selesai. Namun jika kondisi 1 diketahui tidak atau salah maka akan berlanjut pada kondisi 2 yang dilakukan dengan int (text box 1 text) <> (text box 2 text) dan setelah itu, algoritma selesai.

4. yang dimaksud dengan

Looping =merupakan suatu kondisi dimana terjadi proses pengulangan pada pernyataan ataupun sekumpulan pernyataan lebih dari stu kali

(http:/ / catatanone.wordpress.com/)

Exception = satu kelas yang hakikatnya ketika program berjalan dan muncul sebuah bug ataupun kesalahan maka bug tersebut dianggap objek.

(http:// abdullahhafidh.wordpress.com/)

Dim pada source kode VB.Net = keyword sebuah penjelasan dari variabel visual basic yang berguna di level modul dan level prosedur tersebut

(http:// vincocommunity.wordpress.com)

TUGAS KELOMPOK

1. Algoritma dengan kondisi;

PROGRAM NILAI UJIAN TENGAH SEMESTER

DEKLARASI

N : integer

I : integer

ALGORITMA

Begin

N <= 100

Read (N)

If N >=86 then

Write (‘A’)

Else if N >= 71 then

Write (‘B’)

Else if N >=61 then

Write (‘C’)

Else

Write(‘E’)

Endif

End

2. Analisis listing program pada contoh Aplikasi Operator Prosedur di modul 2 TI

a. Public Class Form 1

Analisa :

Untuk menunjukkkan bahwa source code tersebut dilakukan pada form 1 atau form pertama.

b. Private Sub Button2_Click(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Close ()

EndSub

Analisa :

Dari perintah tersebut diperlukan untuk tombol “keluar” pada aplikasi tersebut. Hal tersebut terjadi disebabkan perintahnya terdapat close (). Perintah tersebut digunakan untuk menjelaskan bahwa pengoperasian aplikasi telah selesai.

c. . Private Sub Button1_Click(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Byte = 1

Call ulang_cetak(x)

x = x + 1

Loop Until x >= Int(TextBox1.Text)

End Sub

Sub ulang_cetak(ByVal angka as integer)

If angka mod 2 = 0 then

ListBox1.Items.Add(“Angka” &angka& “Genap”)

Else

ListBox1.Items.Add(“Angka” &angka& “Ganjil”)

End If

End Sub

End Class

Analisa :

Dalam perintah tersebut merupakan perintah jika memilih untuk mengklik tombol “process”. Pada langkah awal yaitu menentukan jumlah perulangan yang akan terjadi, x digunakan sebagai peubah pencacah yang memiliki tipe byte.

Pada mulanya x bernilai 1; nilai x akan selalu bertambah setiap kali pengulangan dilakukan sampai meraih nilai yang diinginkan; dan proses pengulangan telah selesai. Dan untuk tampilan ganjil atau genap diperlukan perintah mod, dimana jika nilai angka tersebut dibagi 2 dan sisa dari hasil baginya bernilai 0 jadi akan ditulis angka sebagai (nilai) genap. Disamping itu, jika hasil baginya tidak 0 jadi akan ditulis angka sebagai (nilai) ganjil, dan berlanjut seperti itu seterusnya sampai sejumlah nilai yang diinginkan.

Categories Uncategorized

MODUL 1 PENGENALAN VISUAL BASIC 2010

November 9, 2011 //

TUGAS INDIVIDU

1) Pengertian Visual Basic dan Sejarah Perkembangan dari Microsoft Visual Basic 2010

Visual basic adalah sebuah bahasa pemrograman yang berpusat pada object (Object Oriented Programming) digunakan dalam pembuatan aplikasi Windows yang berbasis Graphical User Interface, hal ini menjadikan Visual Basic menjadi bahasa pemrograman yang wajib diketahui dan dikuasai oleh setiap programmer. Beberapa karakteristik obyek tidak dapat dilakukan oleh Visual Basic misalnya seperti Inheritance tidak bisa module dan Polymorphism secara terbatas bisa dilakukan dengan deklarasi class module yang mempunyai Interface tertentu. Sifat Visual Basic tidak case sensitif.

(http://fettyferawati.blogspot.com)

Sejarah Visual Basic berawal dari perkembangan bahasa BASIC di Amerika Serikat pada awal tahun 1960-an. Pada tahun 1982 IBM/PC diperkenalkan pada masyarakat yang didalamnya, disertakan pula bahasa BASIC yang dikenal juga QuickBasic / QBASIC. Pada tahun 1990-an DOS digantikan oleh Windows. Microsoft akhirnya membuat BASIC versi Windows yang dikenal sebagai Microsoft Visual Basic. Awal perkembangan Visual Basic yaitu :

Dirintis proyek “Thunder”
Pada tahun 1991, Visual Basic 1.0 dirilis untuk windows pada Comdex.
Pada tahun 1992, Visual Basic 1.0 untuk DOS yang merupakan versi lanjutan dari compiler BASIC, QuickBasic dan Sistem Professional Development BASIC.
Pada November 1992, Visual Basic 2.0 dirilis dengan pemrograman yang cukup mudah digunakan serta kecepatannya telah dimodifikasi.
Pada tahun 1993, Visual Basic 3.0 yang dibagi menjadi versi standard dan professional.
Pada tahun 1995, merupakan versi pertama ynag dapat membuat windows 32 bit sebaik versi 16 bit nya yaitu Visual Basic 4.0.
Pada tahun 1997, Visual Basic 5.0 yang dirilis microsoft merilis secara eksklusif untuk versi windows 32 bit.
Pertengahan 1998, Visual Basic 6.0 dengan perbaikan beberapa cakupan temasuk kemampuan dalam pembuatan Aplikasi Web-based.
Pada tahun 2002, dirilis Visual Basi.Net (VB 7) dengan bahasa yang sangat powerful namun bahasanya sangat berbeda dari yang sebelumnya.
Pada Tahun 2003, dirilis Visual Basic.Net 2003 (VB 7.1) dengan menggunakan Net framework versi 1.1.
Pada Tahun 2005 (VB 8.0), Visual Basic 2005 yang merupakan lanjutan dari Visual Basic .NET.
Edit & Continue , pada Visual Basic 2005 kita boleh melakukan perubahan kode.
Perbaikan Konversi dari Visual Basic ke Visual Basic NET 12.
Is Not Patent, konversi If Not X Is Y menjadi If X IsNot Y dari Visual Basic 2005.
Visual Basic 2005 Express, untuk pemula dan yg gemar dengan VB.
Visual Basic “Orcas” (VB 9.0) , pada tahun 2007 dengan penambahan fitur – fitur.
Visual Basic ‘VBx’ (VB 10.0), menawarkan dukungan untuk Dynamic Language Runtime.

(http://awirnubie.wordpress.com)

2) Macam-macam bahasa pemrograman

Bahasa C

Kelebihannya yaitu hanya tersedia sedikit kata kuncinya, ada hampir diseluruh komputer, kode bahasa C sifatnya portable, proses executable program bahasa C lebih cepat, lebih terstruktur.

Kekurangannya yaitu membingungkan pemakai karena banyaknya operator serta fleksibilitas penulisan program.

Bahasa C++

Kelebihannya yaitu semua kelebihan dari C dengan tambahan penanganan kompleksitas dengan OOP yang utama.

Kekurangannya yaitu kurangnya library built in, bahasa C++ masih kurang terkenal karena kita dari sisi mesin dibanding memikirkan probis yang seharusnya menjadi tujuan.

Bahasa Java

Kelebihannya yaitu bahasa sederhana, berorientasi objek, ampuh dan aman.

Kekurangannya yaitu kecepatanya kurang jika dibandingkan dengan bahasa C++, program yang dibuat lebih lambat jika dibandingkan dengan program bahasa lain.

Bahasa Visual Basic

Kelebihannya yaitu perintah-perintahnya sangat komplit, mudah dalam pembuatan program tanpa harus mengetik bahasa program lagi, tetapi cukup mendesign tampilan dengan VB editor.

Kekurangannya yaitu tidak mempunyai database sendiri, tidak mempunyai pendukung untuk membuat report dari bawaan VB sendiri.

(www.google.co.id/macammacampemrograman/)

3) Macam tipe data terdiri dari :

A. Tipe Data Sederhana (Simple Data)

Chart/Varchar Penghimpun data yang berupa aalfabetic misalnya seperti : nama
Numeric Penghimpunan data berupa bilangan real misalnya 2,35
Integer Penghimpunan data berupa angka misalnya nomor KTP, NIP
Date Penghimpunan data berupa tanggal, bulan & tahun misalnya tanggal lahir
Desimal Penghimpunan data berupa pecahan seperti 1,11
Text Penghimpunan data berupa semua tipe data seperti huruf, symbol baca.

B. Tipe Data Terstruktur

Record Himpunan data yang terdiri dari beberapa karakter yang berbeda – beda.
Set Tipe data yang memuat sejumlah elemen dengan tipe data dasar sama.
Array Tipe yang berisi beberapa data yang ditampung dalam variabel dengan tipe data yang sama.

C. Tipe Pointer

Merupakan petunjuk yang berisi alamat memori dimana data disimpan.

4) IDE dalam Visual Basic 2010 dan macam-macam jenisnya

IDE (Integrated Developement Environment) merupakan sebuah “layanan satu pintu” yang bisa digunakan oleh programmer untuk melakukan, desain, coding, debugging, dan kompilasi program dalam sebuah tool yang terintegrasi.

Macam – macam jenisnya terdiri dari :

Menu bar, dipakai dalam memilih tugas-tugas tertentu seperti membuka project, yang terdiri dari menu file, edit, view.
Main toolbar, shortcut untuk menu yang sering dipakai pada menu bar.
Project, window berisi struktur tree dari project yang lagi dikerjakan.
Form designer, window untuk merancang user interface dari aplikasi.
Toolbox, window yang berisi komponen-komponen yang digunakan untuk memperkaya user interface.
Code, untuk menuliskan source code dari program.
Properties, untuk melihat / mengedit sifat dari object yang sedang dipilih.
Color palette, untuk mengubah warna dari suatu object.
Form layout, menunjukan tampilan form bersangkutan disaat runtime.

(http://maz-agsu.blogspot .com)

5) 10 macam komponen toolbox yaitu:

1) Pointer , arah penunjuk untuk memilih komponen control yang terpasang di form.

2) Picture Box, Merupakan tool untuk menampilkan gambar pada visual basic.

3) Label, tool yang digunakan untuk membuat teks. User tidak bisa mengubah – ubah label.

4) CheckBox, tool yang digunakan untuk control pilihan dengan ketentuan control terpilih jika diklik user. Checkbox dapat dipilih 1 atau lebih.

5) Combo BOX, untuk pembuatan control kombinasi Textbook dan Listbox.

6) HScrollBar, merupakan alat yang membuat scrollbar menjadi horizontal.

7) Timer, Tool untuk pengukuran waktu

8) DirListBox, untuk menampilkan folder atau direktori.

9) OLE, menghubungkan ke form dari software lain

10) Shape, untuk pembuatan bentuk –bentuk seperti lingkaran, kotak maupun persegi panjang.

(http://bayuzu.blogspot.com)

6) Event Driven Programming merupakan suatu kode dalam program yang tidak sesuai alur tetapan awal eksekusi program dapat berlainan dari event yang ada.

(ww.scribd.com)

Debugging merupakan proses yang digunakan untuk menemukan serta mengurangi jumlah bug / cacat dari program maupun perangkat keras, sehingga dapat berperilaku sesuai dengan harapan.

(http://arflstxtx.blogspot.com/2010/02/debugging.html)

Source Code merupakan gabungan dari deklarasi bahasa pemrograman computer yang dapat digunakan untuk komunikasi, dibaca dan ditulis oleh manusia.

(http://bugspin.blogsome. com)

Visual Component Library merupakan pengembangan aplikasi yang digunakan dengan platform windows.

Variabel, berupa nama yang diperintah untuk computer yang mengambil data dari memori tersimpan.

(http://java.lyracc.com)

TUGAS KELOMPOK

Program pembelian barang di toko meubel

DEKLARASI

jenis_barang :string

jumlah_barang :integer

n :integer

ALGORITMA

begin

read(jenis_barang)

case jenis_barang

‘kursi’ : n = 350.000

‘meja’ : n = 240.000

‘lemari’ : n = 500.000

endcase

read(n)

totalbayar = n * jumlah_barang

write (‘jadi total bayar = ‘); read (totalbayar)

end

LISTING ;

Private Sub Form1_Load(By valsender AsSystem.Object, ByVale As System.EventArgs) Handles MyBase.Load

With ComboBox1

.Items.Add(“kursi”)

.Items.Add(“meja”)

.Items.Add(“lemari”)

End With

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles ComboBox1.SelectedIndexChangedComboBox2.Focus()

End Sub

Private Sub Button_1Click(ByVal sender As System.Object, ByVal sender AsSystem.Object, ByVale AsSystem.EventArgs) Handles Button1.Click

Dim harga As Integer

Dim jumlah As Integer

If combobox1.text = “kursi” then

a = 350000

elseif combobox1.text = “meja” then

a = 240000

else

a = 500000

endif

total = (a * TextBox2)

Textbox3.Text = Format(total, “#,#”)

End Sub

Private Sub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

Close()

End Sub

Categories Uncategorized