berikut ini adalah contoh program yang telah kami buat, secara umum, program yang kami buat ini digunakan untuk meng input nilai nilai dari mahasiswa, beserta nim dan juga namanya, perhitungan rata – rata penentuan hasil akhir dan penentuan keputusan lulus atau tidaknya sudah dihitung secara otomatis di dalam program yang kami buat…
adapun komponen komponen yang digunakan adalah :
dan berikut ini adalah listing yang kami pakai …
sebelumnya, untuk para pembaca yang belum mengerti cara mengkoneksikan database access dengan vb.net dapat mencari di google untuk lebih jelasnya,
tabel – tabel di dalam database yang kami gunakan adalah sesuai dengan tabel yang kami gunakan di vb.net
pada form 1
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Data_mahasiswaBindingSource.Filter = “NIM like ‘%” + TextBox1.Text + “%’ OR Nama Like ‘%” + TextBox1.Text + “%’ OR Keputusan like ‘%” + TextBox1.Text + “%'”
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim indeks As Integer = Nothing
If TextBox3.Text.Length 0 Then
Dim i As Integer
Dim ketemu As Boolean = False
For i = 0 To Data_mahasiswaDataGridView.RowCount – 1
If ketemu = False And Data_mahasiswaDataGridView.Item(0, i).Value = TextBox3.Text Then
ketemu = True
indeks = i
Exit For
End If
Next
If ketemu Then
MessageBox.Show(“Data Found”, “Warning !”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox4.Text = Data_mahasiswaDataGridView.Item(1, indeks).Value
TextBox5.Text = Data_mahasiswaDataGridView.Item(2, indeks).Value
TextBox6.Text = Data_mahasiswaDataGridView.Item(3, indeks).Value
TextBox7.Text = Data_mahasiswaDataGridView.Item(4, indeks).Value
TextBox8.Text = Data_mahasiswaDataGridView.Item(5, indeks).Value
TextBox2.Text = Data_mahasiswaDataGridView.Item(6, indeks).Value
TextBox9.Text = Data_mahasiswaDataGridView.Item(7, indeks).Value
TextBox10.Text = Data_mahasiswaDataGridView.Item(8, indeks).Value
Else
MessageBox.Show(“Data Not Found”, “Warning !”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Focus()
End If
Else
MessageBox.Show(“Masukkan NIM”)
End If
End Sub
End Class
pada form 2
Public Class Form2
Private Sub Data_mahasiswaBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles Data_mahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.Data_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)
End Sub
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim nilai_rata As Double
nilai_rata = Val(TextBox1.Text)
If nilai_rata >= 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata = 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata <= 100 Then
TextBox3.Text = “Lulus”
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
KeputusanTextBox.Text = TextBox3.Text
Nilai_AkhirTextBox.Text = TextBox2.Text
Rata___RataTextBox.Text = TextBox1.Text
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim rata As Double
Dim uts As Single
Dim uas As Single
Dim tugas As Single
Dim quis As Single
uts = Val(Nilai_UTSTextBox.Text)
uas = Val(Nilai_UASTextBox.Text)
tugas = Val(Nilai_TugasTextBox.Text)
quis = Val(Nilai_QuisTextBox.Text)
rata = (uts + uas + tugas + quis) / 4
TextBox1.Text = rata
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Form3.Show()
Me.Hide()
End Sub
End Class
pada form3
Public Class Form3
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
End Sub
End Class
berikut ini adalah tampilan – tampilan dari program yang kami buat :
ini adalah tampilan awal dari program kami
merupakan tampilan pada saat mengentry data
tampilan pada saat view data
tampilan jika ingin menyortir data berdasarkan kriteria
tampilan ketika ingin meng search data dan data ditemukan
tampilan ketika data tidak ditemukan
tampilan ketika data hasil search ditemukan
flowchart dalam penggunaan program adalah sebagai berikut :
sekian
adapun listing yang kami gunakan adalah sebagai berikut :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call data_mahasiswa()
End Sub
Sub data_mahasiswa()
Dim nama As String
Dim nim As String
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
nama = (TextBox1.Text)
nim = Val(TextBox2.Text)
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
ListBox1.Items.Add(“Nama : ” & nama)
ListBox1.Items.Add(“NIM : ” & nim)
ListBox1.Items.Add(“Nilai 1 : ” & nilai1)
ListBox1.Items.Add(“Nilai 2 : ” & nilai2)
ListBox1.Items.Add(“Nilai 3 : ” & nilai3)
ListBox1.Items.Add(“Nilai 4 : ” & nilai4)
End Sub
Sub rataan()
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
Dim nilai_rata As Double
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
nilai_rata = (nilai1 + nilai2 + nilai3 + nilai4) / 4
ListBox1.Items.Add(“Rata – Rata : ” & nilai_rata)
End Sub
Sub nilai_akhir()
Dim nilai1 As Double
Dim nilai2 As Double
Dim nilai3 As Double
Dim nilai4 As Double
Dim nilai_rata As Double
nilai1 = Val(TextBox3.Text)
nilai2 = Val(TextBox4.Text)
nilai3 = Val(TextBox5.Text)
nilai4 = Val(TextBox6.Text)
nilai_rata = (nilai1 + nilai2 + nilai3 + nilai4) / 4
If nilai_rata >= 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata = 0 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata <= 100 Then
ListBox1.Items.Add("Keputusan Akhir : Selamat Anda Lulus Mata Kuliah Tersebut")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call rataan()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call nilai_akhir()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call keputusan()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox1.Items.Add("")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
ListBox1.Items.Clear()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Close()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Form2.Show()
End Sub
End Class
adapun komponen komponen yang digunakan adalah seperti pada screenshot yang ada dibawah ini :
Flowchart umum dari program ini adalah :
flowchart dari setiap prosedur dari program ini adalah :
lebih lengkapnya dapat diunduh di sini :
http://www.4shared.com/file/EkOlPd_R/Penggunaan_Prosedur.html
Adapun Listing yang Digunakan dalam Pembuatan Program ini adalah sebagai berikut :
Public Class Form1
Dim aksi As String
Dim nilai As Double
Dim hasil As Double
Dim simpan As Double
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 System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = Label2.Text & “1”
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = Label2.Text & “2”
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = Label2.Text & “3”
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label2.Text = Label2.Text & “4”
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label2.Text = Label2.Text & “5”
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label2.Text = Label2.Text & “6”
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Label2.Text = Label2.Text & “7”
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Label2.Text = Label2.Text & “8”
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Label2.Text = Label2.Text & “9”
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Label2.Text = Label2.Text & “0”
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “+”
Label2.Text = “”
aksi = “+”
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “-”
Label2.Text = “”
aksi = “-”
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “*”
Label2.Text = “”
aksi = “*”
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “/”
Label2.Text = “”
aksi = “/”
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
If aksi = “+” Then
Label2.Text = nilai + Label2.Text
ElseIf aksi = “-” Then
Label2.Text = nilai – Label2.Text
ElseIf aksi = “*” Then
Label2.Text = nilai * Label2.Text
ElseIf aksi = “/” Then
Label2.Text = nilai / Label2.Text
ElseIf aksi = “^” Then
Label2.Text = nilai ^ Label2.Text
ElseIf aksi = “MOD” Then
Label2.Text = nilai Mod Label2.Text
ElseIf aksi = “Log” Then
Label2.Text = Math.Log(CDbl(Label1.Text), Label2.Text)
End If
Label1.Text = “”
simpan = “0”
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Label2.Text = Label2.Text & “.”
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Label1.Text = String.Empty
Label2.Text = String.Empty
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Label2.Text = Math.PI
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Label2.Text = Math.Sqrt(Label2.Text)
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Label2.Text = Math.Round(CSng(Label2.Text), 2)
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “^”
Label2.Text = “”
aksi = “^”
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text & “” & “MOD”
Label2.Text = “”
aksi = “MOD”
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
Label2.Text = Label2.Text / 100 & “%”
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
nilai = Val(Label2.Text)
Label1.Text = Label2.Text
Label2.Text = “”
aksi = “Log”
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Label2.Text = Label2.Text * -1
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
If Label1.Text.Length 0 Then
Label1.Text = Label1.Text.Remove(Label1.Text.Length – 1, 1)
End If
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Label2.Text = Math.Sin((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Label2.Text = Math.Cos((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
Label2.Text = Math.Tan((Label2.Text) * (3.14 / 180))
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
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
Button20.Enabled = True
Button21.Enabled = True
Button22.Enabled = True
Button23.Enabled = True
Button24.Enabled = True
Button25.Enabled = True
Button26.Enabled = True
Button27.Enabled = True
Button28.Enabled = True
Button30.Enabled = True
Button31.Enabled = True
End Sub
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
Close()
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
Form2.Show()
End Sub
End Class
adapun komponen – komponen yang digunakan dapat melihat dari hasil validasi program ini yang dibandingkan dengan program calculator bawaan microsoft :
antara lain komponennya adalah :
1. Label
2. Button
3. Panel
banyak nya komponen yang digunakan dapat menyesuaikan dengan screenshot yang telah disediakan …
FLOWCHART dari kalkulator tersebut adalah :
ini validasi yang telah dilakukan oleh kelompok kami :
flowchart kalkulator sangar
Pada penggunaan kalkulator buatan kami setelah dicocokan dengan kalkulator bawaan Microsoft maka ditemukan hasil yang sama
berikut adalah flowchart yang lebih jelas :
analisis yang dilakukan oleh kami adalah sebagai berikut :
sekian dari kami ..
apabila terjadi kesalahan atau kekurangan, mohon dimaklumi ..
NB : ketika program telah di build, maka terdapat beberapa kekurangan antara lain yaitu perhitungan angka tidak dapat dilakukan secara terus menerus ..
semisal 1+2 maka harus di klik equals lalu baru bisa melakukan perhitungan lebih lanjut ..
terimakasih …
komponen yang dipakai :
Public Class Form3
ini digunakan untuk mengkoneksikan combobox1 dengan combobox2
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Focus()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
TextBox1.Focus()
End Sub
Ini digunakan untuk mengisi item item yang dibutuhkan pada combobox1 dan combobox2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1
.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
With ComboBox2
.Items.Add(“2000”)
.Items.Add(“3000”)
.Items.Add(“2500”)
.Items.Add(“2000”)
.Items.Add(“3000”)
.Items.Add(“15000”)
End With
Ini digunakan untuk menghitung potongan.
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
Potongan = sender.text
End Sub
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
diskon = (ComboBox2.Text * TextBox1.Text * Potongan) / 100
total = (ComboBox2.Text * TextBox1.Text – diskon)
TextBox2.Text = Format(total, “#,#”)
End Sub
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
Tampilan pertama program
Tampilan sesudah diinput oleh user.
Komponen toolbox yang dipakai :
Public Class Form3
ini digunakan untuk mengkoneksikan combobox1 dengan combobox2
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex
End Sub
Ini digunakan untuk mengisi item item yang dibutuhkan pada combobox1 dan combobox2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1
.Items.Add(“Flashdisk 2 GB”)
.Items.Add(“Hardisk Internal 500 GB”)
.Items.Add(“Hardisk eksternal 500GB”)
.Items.Add(“Flashdisk 4GB”)
.Items.Add(“Cooler Pad”)
.Items.Add(“Fan Casing”)
.Items.Add(“Thermal Grease”)
End With
With ComboBox2
.Items.Add(“20000”)
.Items.Add(“500000”)
.Items.Add(“550000”)
.Items.Add(“60000”)
.Items.Add(“20000”)
.Items.Add(“10000”)
.Items.Add(“25000”)
End With
Ini digunakan untuk mencantumkan nama PC yang menggunakan program ini
Dim machineName As String
machineName = System.Environment.MachineName
Label9.Text = machineName
End Sub
Ini digunakan untuk memberikan potongan dalam jumlah tertentu
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim jumlah As Integer
jumlah = Val(TextBox2.Text)
If jumlah >= 0 And jumlah = 21 And jumlah = 41 And jumlah = 61 Then TextBox3.Text = (“45”)
End Sub
Ini digunakan untuk menghitung kembalian pada program
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim kembalian As Double
Dim total_uang As Double
Dim total_biaya As Integer
total_biaya = Val(TextBox4.Text)
total_uang = Val(TextBox5.Text)
If total_uang = vbEmpty Then
MsgBox(“Maaf Anda Belum Memasukkan Uangnya”)
ElseIf total_uang total_biaya Then
kembalian = TextBox5.Text – TextBox4.Text
TextBox6.Text = Format(kembalian, “#,#”)
MsgBox(“Terima Kasih”)
End If
End Sub
Ini digunakan untuk membuat tombol refresh (clean)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
End Sub
Ini digunakan untuk membuat tombol keluar dari program
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
Ini digunakan untuk menghitung total pembelian yang telah dimasukkan
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Math.Round(CSng(TextBox2.Text), 0)
Dim total, total1, diskon As Double
Dim jumlah As Double
Dim harga As Integer
harga = Val(ComboBox2.Text)
If jumlah > 0 Then
diskon = (harga * TextBox2.Text * TextBox3.Text) / 100
total = (harga * TextBox2.Text – diskon)
TextBox4.Text = Format(total, “#,#”)
ElseIf jumlah = 0 Then
total1 = harga * TextBox2.Text
TextBox4.Text = Format(total1, “#,#”)
End If
End Sub
Ini digunakan untuk menampilkan form1 dalam program
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form1.Show()
End Sub
Ini digunakan untuk mengkoneksikan combobox2 dengan combobox1
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
ComboBox1.SelectedIndex = ComboBox2.SelectedIndex
End Sub
End Class
Tampilan pertama program
Tampilan sesudah diinput oleh user namun tidak di isi uang (textbox pembayaran dokosongkan)
Tampilan sesudah diinput oleh user namun pembayaran lebih kecil dari total pembelian
Tampilan akhir ketika semua kondisi dipenuhi oleh user
Ketika tombol kelompok 39 di klik, maka akan keluar form1
Flow Chart Program :
MODUL 2 NOMOR 1 TUGAS KELOMPOK
If nilai >= 86 And nilai = 71 And nilai = 61 And nilai <= 70 Then
Nilai Akhir = ("C")
ElseIf nilai <= 60 Then
Nilai Akhir = ("E")
End If
MODUL 2 TUGAS NOMOR 2 TUGAS KELOMPOK
Pada contoh aplikasi di modul 2, program tersebut menggunakan variabel tipe data byte yang diaplikasikan pada x yang bernilai 1. tipe data tersebut digunakan karena dalam aplikasi tersebut menggunakan prosedur perulangan, sedangkan perulangan yang diminta adalah dimulai dari angka 1 sehingga x yang tadi bertype data byte, bernilai kan 1 agar perulangan tersebut dimulai dari angka 1. Dalam loop selanjutnya, angka 1 tersebut akan terus ditambah 1 sampai dengan banyaknya loop yang di inginkan. Dalam aplikasi tersebut juga digunakan statement pemilihan if. Sehingga ketika perulangan angka yang telah muncul, akan diketahui mana yang genap dan mana angka yang menunjukkan bilangan ganjil. Dalam penentuannya, digunakan perintah mod yaitu perintah untuk menghitung hasil bagi, ketika hasil bagi suatu bilangan dalam perulangan tersebut menunjukkan angka 0 maka akan diketahui bahwa bilangan tersebut termasuk golongan bilangan genap, di sisi lain ketika tidak memiliki hasil bagi 0 melainkan 1 makan bilangan tersebut digolongkan ke bilangan ganjil.
Public Class Form1
Dim harga_awal, harga_akhir As Integer
Dim diskon As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1
.Items.Add(“Flashdisk 2GB”)
.Items.Add(“Flashdisk 4GB”)
.Items.Add(“Flashdisk 6GB”)
.Items.Add(“Flashdisk 8GB”)
.Items.Add(“Hardisk 250 GB”)
.Items.Add(“Hardisk 160 GB”)
.Items.Add(“Hardisk 500 GB”)
.Items.Add(“Hardisk 1 TB”)
End With
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = (“Flashdisk 2GB”) Then
Label5.Text = (“30000”)
ElseIf ComboBox1.Text = (“Flashdisk 4GB”) Then
Label5.Text = (“50000”)
ElseIf ComboBox1.Text = (“Flashdisk 6GB”) Then
Label5.Text = (“120000”)
ElseIf ComboBox1.Text = (“Flashdisk 8GB”) Then
Label5.Text = (“170000”)
ElseIf ComboBox1.Text = (“Hardisk 250 GB”) Then
Label5.Text = (“400000”)
ElseIf ComboBox1.Text = (“Hardisk 160 GB”) Then
Label5.Text = (“600000”)
ElseIf ComboBox1.Text = (“Hardisk 500 GB”) Then
Label5.Text = (“700000”)
ElseIf ComboBox1.Text = (“Hardisk 1 TB”) Then
Label5.Text = (“1000000”)
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text >= 0 And TextBox1.Text = 21 And TextBox1.Text = 41 And TextBox1.Text = 61 Then
Label7.Text = (“45”)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Single
Dim total1 As Single
Dim diskon As Single
If Label7.Text > 0 Then
diskon = (Label5.Text * TextBox1.Text * Label7.Text) / 100
total = (Label5.Text * TextBox1.Text – diskon)
Label6.Text = total
ElseIf Label7.Text = 0 Then
total1 = Label5.Text * TextBox1.Text
Label6.Text = total1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
ALGORITMA MODUL 1 TUGAS KELOMPOK
PROGRAM Kasir_toko_komputer
{menghitung jumlah harga pembelian barang beserta diskon yang diberikan pada pembelian dalam jumlah tertentu}
DEKLARASI
total : single {jumlah harga dengan diskon tertentu}
total1 : single {jumlah harga tanpa diskon}
diskon : single {diskon yang diberikan dalam pembelian dengan jumlah tertentu}
ALGORITMA
If Nama Barang = Flashdisk 2GB Then
Harga = 30000
ElseIf Nama Barang = Flashdisk 4GB Then
Harga = 50000
ElseIf Nama Barang = Flashdisk 6GB Then
Harga = 120000
ElseIf Nama Barang = Flashdisk 8GB Then
Harga = 170000
ElseIf Nama Barang = Hardisk 250 GB Then
Harga = 400000
ElseIf Nama Barang = Hardisk 160 GB Then
Harga = 600000
ElseIf Nama Barang = Hardisk 500 GB Then
Harga = 700000
ElseIf Nama Barang = Hardisk 1 TB Then
Harga = 1000000
End If
If Jumlah >= 0 And Jumlah = 21 And Jumlah = 41 And Jumlah = 61 Then
Diskon = (“45”)
End If
If diskon > 0 Then
Diskon = (Harga Satuan * Jumlah * Diskon) / 100
total = (Harga Satuan * Jumlah – diskon)
Harga = total
ElseIf diskon = 0 Then
total1 = Harga Satuan * Jumlah
Harga = total1
End If
Modul 1
1. Microsoft visual basic yang sering disebut dengan VB adalah salah satu dari sekian bahasa pemrograman yang ada, vb adalah yang pertama yang menawarkan IDE (integrated development enviroment) vb merupakan salah satu program yang dibuat oleh mocrosoft yang menggunakan model pemrograman COM. VB berasal dari bahasa pemrograman basic sekaligus menawarkan pengembangan software computer yang berbasis grafik (Object Oriented) yang berbeda dengan bahasa pemrograman lainnya seperti pascal, c++, c# dan yang lainnya. Dengan pengolahan software yang ekstra cepat. Beberapa bahasa script seperti VBA, VB.script, yang mirip dengan visual basic namun struktur bahasanya yang sedikit berbeda. Para programmer akan dengan sangat leluasa membuat program berbasis windows karena adanya visual basic ini. Baru – baru ini survey yang telah dilakukan dari keseluruhan program yang beredar, kebanyakan programmer lebih cenderung menggunakan visual basic daripada bahasa pemrograman yang lain.
Sejarah
Pada awalnya bill gates pendiri Microsoft, memulai mengembangkan bisnis softwarenya dengan menyuntikkan bahasa basic yang ditujukan untuk ALTAIR 8800, seiring perkembangan zaman, beliau mulai mengembangkan bahasa basic agar dapat digunakan di IBM PC dengan DOS operating system. Setelah itu dilanjutkan dengan BASICA lalu meluncurkan Microsoft quick basic dan Microsoft basic visual basic sendiri adalah pengembangan dari bahasa basic. Basic sendiri ditemukan oleh professor john kemeny dan Thomas Eugene Kurtz dari perguruan tinggi Dortmund pada tahun 1960. Setelah diciptakannya basic, secara terus menerus muncul berbagai macam program yang mendukung keberadaan bahasa basic tersebut. Setelah bebreapa periode perkembangan, maka muncullah bahasa basic dengan basis GUI (Graphics User Interface) yang dating bersamaan dengan Microsoft windows. Visual basic menjadi begitu mudah digunakan oleh para programmer pemula karena disediakan fasilitas yang cukup membantu, seperti komponen – komponen pemrograman yang siap pakai, visual basic telah berkembang, sampai sekarang dengan visual basic 2010 nya. Namun bagaimanapun juga VB versi 6.0 masih tetap menjadi idola para programmer. Perkembangan visual basic dari dulu hingga sekarang adalah :
• VB 1.0 dikenalkan pada tahun 1991
• VB 1.0 diperuntukkan untuk DOS dirilis pada bulan September 1992
• VB 2.0 yang dirilis pada tahun 1992 pada bulan November
• VB 3.0 yang dirilis pada tahun 1993
• VB 4.0 yang dirilis pada tahun 1995 pada bulan agustus
• VB 5.0 yang dirilis pada tahun 1997 Bulan Februari
• VB 6.0 pertengahan tahun 1998
• VB.NET yang dirilis pada tahun 2002
• VB.NET 2003 dirilis dengan menggunakan NET framework 1.1
• VB 2005 ekspress merupakan produk dari visual studio yang mempermudah pemula dalam penggunaannya
• VB “ORCAS” yang akan dirilis pada tahun 2007
• VB X (Visual Basic 2010) yang sekarang banyak digunakan, memberikan banyak dukungan serta mempermudah user dalam mempergunakannya
2. Macam – macam bahasa pemrograman
a. Bahasa C
Merupakan perkembangan dari bahasa BCPL dikembangkan oleh martin Richards pada tahun 1967. Bahasa C merupakan perkembangan selanjutnya dari bahasa B. bahasa C sendiri merupakan bahasa yang digunakan dalam pemrograman linux, kebanyakan sintaks dari bahasa PHP dan java mirip dengan bahasa C
Kelebihan : tersedia hampir di semua jenis kompuiter, bahasa C merupakan bahasa yang fleksibel yang digunakan dalam computer, menyediakan sedikit kata kunci sehingga mudah dihafal, proses excecuteable yang lebih cepat, dukungan pustaka yang banyak, merupakan bahasa yang terstruktur, termasuk bahasa tingkat menengah
Kekurangan : terlalu banyak operator sehingga membingungkan pengguna, bagi pemula, pointer sangat menyulitkan
b. Bahasa pascal
Bahasa ini ditemukan oleh niclaus wirth, nama pascal sendiri diambil dari nama matematikawan prancis bernama blaise pascal, digunakan dalam pengaplikasiannya pascal digunakan pada Delphi dan juga kylix
Kelebihan : memiliki tipe – tipe data standar, sehingga mempermudah penggunaannya, mempermudah programmer membuat tipe data lain yang merupakan penurunan dari tipe data standar, strongly typed, terstruktur, sederhana dengan ekspresif
Kekurangan :
Versi pascal yang pertama masih tidak didukung basis data yang banyak (terbatas). Sintaks pascal terlalu bertele – tele, sangat tidak mendukung object oriented programming. Pascal tidak fleksibel karena tidak didukuing untuk membuat sebuah aplikasi besar.
c. Bahasa basic
Merupakan pilar utama pemrograman visual basic dan juga VBA, bahasa pemrograman yang banyak digunakan oleh programmer. Pengembangannya adalah john kennedy dan Thomas Kurtz
Kelebihan :
Merupakan bahasa yang serbaguna yang dapat digunakan di aplikasi apa saja.
Kekurangan bahasanya kurang terstruktur, kurang cocok digunakan untuk membuat aplikasi besar sintaks dipenuhi perintah yang menyesatkan, merupakan bahasa yang primitive di era DOS
d. Bahasa C++
Bahasa ini diperkenalkan oleh bjarne stroustup pada tahun 1983 di lab bell. Merupakan bahasa pemrograman OOP yang berkaidah bahasa C. merupakan bahasa pemrograman di windows, unix dan linux. Kebanyakan bahasa C++ digunakan dalam pembuatan database
Kelebihan : bahasa C merupakan induk dari bahasa pemrograman perl, php, phytom, visual basic, gambas, java, C#, compiler bahasa C terdapat di semua platform bahasa C merupakan salah satu OOP
Kekurangan : merupakan bahasa yang cukup sulit untuk dipahami, terlalui banyaknya operator serta fleksibilitas penulisan program kadang – kadang membingungkan. Dalam pemakaian, untuk pemula terkadang kesulitan dalam menggunakan pointer
e. Bahasa cobol
Bahasa cobol pertama kalinya diciptakan pada tahun 1959 pertama kali di perkenalkan secara resmi pada bulan januari 1960. Bahasa cobol sebelumnya adalah cobol – 60 yang diperbaharui pada tahun 1965. Bahasa cobol sering dipergunakan dalam pembuatan aplikasi – aplikasi database, membuat aplikasi bisnis dan juga aplikasi pengolahan data.
f. Bahasa java
Java mulai dilepas ke pasaran resminya adalah pada tahun 1990, sebagai bahasa pemrograman yang disebut oak java adalah salah satu bahasa pemrograman yang memiliki GUI. Java kebanyakan dipergunakan untuk pemrograman jaringan, pembuatan aplikasi berbasis windows, program yang dipergunakan untuk membuat web
g. Bahasa PHP
PHP merupakan bahasa yang didesain untuk web, php digunakan sebagai landasan operasi pada pemrograman jaringan berbasis web, php juga dipergunakan dalam pembuatan database, php seringkali ditemukan dalam pembuatan aplikasi web
h. Bahasa Ruby
Bahasa yang pengaplikasiannya merupakan pengimplementasian daripada Jruby dan Rubinius, Ruby diterapkan pada teknologi ajax
Kelebihan : memiliki sintaks yang sederhana, memiliki exceptions handling yan mumpuni, OOP, single inheritance, didukun oleh semua OS, memiliki garbage collector.
Kekurangan : kualitas IDE Ruby masih belum sebaik net dan juga Java, program Ruby cenderung lebih lambat.
I. Bahasa Prolog
Bahasa prolo sering digunakan pada pemrograman Artificial Intelligance dan juga robot, merupakan bahasa pemrograman komputer generasi kelima bagus digunakan untuk menulis sistem pakar dan knowledge based system.
Kelebihan : melakukan komputasi rumit pada data yang kompleks, mengekspresikan algoritma dengan baik.
Kekurangan : pemborosan dalam pengalokasian memory sehingga performance program menurun.
J. Bahasa Phyton
Bahasa yang sering digunakan dalam perangkat bantu shell untuk tugas-tugas sistem administrator, mempunyai modul berdasarkan bahasa pemrograman pengganti dari penulisan parser khusus.
Kelebihan : OOP, interaktif, dinamis, alamiah, akses hingga informasi intrepeter, model objek universal kelas satu.
Kekurangan : susah untuk dipelajari, sehingga masih jarang yang menggunakan.
3. Macam-macam tipe data :
• Integer : merupakan tipe bilangan bulat yang terdiri dari shortint, integer, longint, byte, word.
• Tipe Boolean : merupakan tipe dsata yang bernilai True atau False.
Contoh : Wordbool, Bytebool, Bool, Boolean.
• Tipe Ordinal : tipe data yang dengan jumlah kemungkinan datanya adalah pasti.
Contoh : Boolean akar, numerasi, sub jangkauan, tipe integer.
• Tipe Data Char : tipe data yang berisi sebuah karakkter : ANSI, Char dan WideChar.
• Tipe Data Real : merupakan bilangan real/nyata : real, single, comp, double.
• Tipe Data String : merupakan tipe dari karakter : ShortString, WideString, ANSIString.
4. IDE ( Intregrated Developtment Enviroment) merupakan suatu layanan yang telah disediakan oleh program yang bisa digunakan untuk melakukan desain, debugging, dam kompilasi program dalam suatu tempat tool yang terintegrasi dalam VB 2010.
1. Menu Bar : fungsi standart, save, open, new file, edit, view, format.
2. Main Toolbar : menu-menu pada meu bar.
3. Project : bagian dari project yang dikerjakan yang berisi form, module.
4. Form Desainer : untuk merancang UI aplikasi.
5. Toolbox : komponen pendukung UI.
6. Code : untuk menuliskan source code.
7. Properties : melihat properties dari object.
8. Color Pallete : untuk mengubah warna object.
9. Form Layout : untuk menampilkan form yang dipilih.
5. macam komponen :
• Textbox : menginputkan data dari user.
• Label : menampilkan label data.
• Checkbox : membuat kotak check.
• Radio Button : membuat salah satu pilihan dari beberapa keadaan.
• Textbox : menempatkan text dan user dapat mengeditnya.
• Combobox : menampilkan pilihan dalam suatu komponen.
• Fungsi String : memanipulasi sebuah string.
• Command Button : mengambil reaksi dari user.
• List Box : menampilkan data item.
• Frame : mengelompokkkan beberapa komponen pada suatu tempat yang rapi.
6. pengertian dari:
• Event driven programming: sebuah program loop kontinyuyang merespon event yang timbul oleh perintah tidak terduga.
• Debugging: salah satu metode yang digunakan untuk mencari dan mengurangi kerusakan dalam sebuah pemrograman.
• Source code: sekumpulan deklarasi bahsa pemrograman yang dapat dimengerti manusia.
• Break all: halt eksekusi program untuk kemudian masuk lagi ke mode break.
• Visual component library: komponen yang tersedia dalam toolbox standard windows.
• Variable: tempat untuk menyimpan nilai dari data yang ada.
Modul 2
1. Operator adalah suatu tanda yang mengkibatkan suatu program melakukan operasi, macam – macam operator :
a. Operator penurunan : digunakan untuk menentukan nilai suatu variabel sebesar satu poin
b. Operasi rasional : perbandingan
c. Majemuk : menentukan / mempersingkat penulisan operasi
d. Operator penaikan : operasi untuk menaikkan nilai satu poin
e. Operator logika : menghubungkan dua buah kondisi menjadi satu
2. Yang termasuk looping adalah :
a. Pernyataan for … next, digunakan untuk pernyataan sifat nya tertentu
b. Pernyataan do loop … next, digunakan untuk pengulangan yang telah ditentukan
3. Ekspresi pemilihan menggunakan perintah if then, digunakan untuk mencari keadaan dimana keadaan tersebut ditentukan oleh operator logika yang dipilih, kata int berarti bilangan bulat, sehingga dapat diketahui algoritma atau koding tersebut digunakan untuk perbandingan logika suatu bilangan bulat
4. Jelaskan :
a. Looping : merupakan sesuatu yang sering terjadi atau melakukan hal yang sama berulang kali
b. Exception : merupakan kesalahan yang sering terjadi pada suatu program yang menyebabkan program tidak dapat di eksekusi
c. Dim pada source code vb.net adalah suatu perintah mendefinisikan suatu variabel tertentu agar dapat dibaca oleh suatu program
Modul 3
1. Keunggulan mysql dalam pembuatan database :
a. Multi user, menangani banyak pengguna sekaligus
b. Protability, stabil tanpa kendala
c. Command and functions, mempunyai operator dan fungsi secara penuh
d. Performance tuning, berkecepatan tinggi dalam menangani query sederhana multi tasking dengan cepat
e. Struktur tabel yang fleksibel
2. Jenis jenis relasi dalam ms access :
a. Relasi one to one, antara tabel 1 dan tabel 2 dengan hubungan 1 banding 1
Contoh : les privat, satu guru satu murid
b. Relasi one to many, hubungan antara 1 tabel dan 2 tabel, antara 1 banding banyak
Contoh : tabel rodo dan tabel toxa
c. Relasi many to many, hubungan dua tabel yang memiliki hubungan banyak ke banyak
Contoh : tabel perusahaan dengan tabel pegawai
3. Cara – cara koneksikan database ke vb.net :
a. Akses langsung, aplikasi langsung dihubungkan ke database
b. Akses melalui database server, aplikasi mengirim suatu query ke database server, dan yang diperlukan saja yang akan dikirim ke client
c. Akses melalui software koneksitas, apabila mengirim query ke middleware seperti ODBC, BDE, dan JDBC yang berfungsi sebagai penterjemah
4. Penjelasan :
a. Table adapter : tabel untuk menyimpan data yang memiliki relasi satu sama lain
b. Primary key : kata kunci untuk mencegah pengisian data yang berulang – ulang
c. Foreign key : sebagai konektor antara tabel ke tabel yang memiliki relasi
d. Database : sekumpulan informasi yang saling berkaitan pada suatu subyek tertentu yang punya tujuan tertentu
e. DBMS : software system yang memungkinkan seseorang dapat membuat, mendiefinisikan, serta ememelihara akses control data
f. RDBMS : program computer yang didesain untuk mengetahui suatu data sebagai sekumpulan data yang terstruktur
5. DBMS :
a. MySQL : software dengan system manajemen basis data SQL / DMMS yang multithread, multiuser, dengan jutaan instalasi
b. Visual foxpro 6.0 : software dengan model data rasional sehingga mudah dipahami oleh pengguna
c. Firebirh : system manajemen basis data relational yang dapat berjalan di linux
d. Oracle : RDBMS untuk mengelola informasi secara terbuka dan terintegrasi
e. Database desktop protocol : suatu add-ins pada database desktop yang terdapat DBMS yang terintegrasi antara lain paradox 7, paradox 4, visual database, foxpro, MySQL, oracle, access, DB2, interlance
Kelompok 39 TI 2011 