SlideShare a Scribd company logo

Laporan pratikum 1 semester | Listing Program Pratikum Visual Basic 2010 Semester I

•Download as DOCX, PDF•
•
D
Desiaman Thelaumbanua

Program ini merupakan laporan praktikum Visual Basic yang berisi penjelasan tentang beberapa program konsol dan aplikasi GUI yang dibuat untuk mempelajari dasar-dasar Visual Basic. Program-program tersebut meliputi penghitungan luas lingkaran, operator aritmatika dan logika, biodata diri, dan penggunaan percabangan dan perulangan.

Related slideshows

Building Hybrid Applications using PhoneGap
Building Hybrid Applications using PhoneGapBuilding Hybrid Applications using PhoneGap
Building Hybrid Applications using PhoneGap
 
Intel XDK in Brief
Intel XDK in BriefIntel XDK in Brief
Intel XDK in Brief
 
Pemanfaatan Teknologi Android
Pemanfaatan Teknologi AndroidPemanfaatan Teknologi Android
Pemanfaatan Teknologi Android
 
1 of 33
LAPORAN PRATIKUM VISUAL BASIC NPM : 150840002 NAMA: DESIAMAN PRODI: TEKNIK INFORMATIKA S-1 Latihan_1A 1. Membuat aplikasi ucapan selamat belajar A. Listing Imports System.Console Module Module1 Sub Main() WriteLine("") WriteLine("=> DESIAMAN") WriteLine("=> 150840002") WriteLine("=> Aplikasi Console Ucapan") WriteLine("============================================") WriteLine("") WriteLine("=> SELAMAT BELAJAR") WriteLine("=> PEMROGRAMAN VISUAL I") WriteLine("=> FAKULTAS ULMU KOMPUTER") WriteLine("=> TEKNIK INFORMATIKA S-1") WriteLine("=> UNIVERSITAS KATOLIK SANTO THOMAS MEDAN SU") WriteLine("") WriteLine("SEMOGA HARI^HARI-MU MENYENANGKAN !!:D") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Program ucapan selamat belajar dalam Console, berfungsi untuk menampilkan di layar hasil masukan yang kita buat. D. Kesimpulan Kode yang kita buat untuk membaca dan menampilkannya dengan mengunakan “WriteLine” dan “ReadLine” untuk dapat lama tampil.
Pertemuan_1A 1. Menghitung Luas Lingkaran dengan Console A. Listing Imports System.Console Module Module1 Dim luas As Single Dim jari2 As Single Sub Main() Write(" Menentukan Jari-Jari=") jari2 = Readline() luas = Math.PI * jari2 ^ 2 WriteLine("luas = " & luas) ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Dalam menghitung luas lingkaran , kita dapat melihat bahwa ada salah satu kode. Yaitu “Mat.PI” yangberfungsi sebagaipengganti 3.14 dalam jari-jari lingkaran. D. Kesimpulan Semua hasil dapat sama, asalprogram yang kita buat berjalan dengan baik. Pertemuan_2A 1. Program Biodata dengan Console A. Listing Imports System.Console Module Module1 Sub Main() WriteLine() WriteLine("=========================================") WriteLine(" Biodata Diri ") WriteLine("=========================================")
WriteLine() WriteLine("Nama : Desiaman") WriteLine("NPM : 150840002") WriteLine("Alamat : Jl. Raharja Gg. Kembaren No.1") WriteLine("Jenis Kelamin : Laki-Laki") WriteLine("Asal Sekolah : SMK Sw Maduma Sibolga") WriteLine("Golongan Darah : B") WriteLine("Fakultas : Ilmu Computer") WriteLine("Jurusan : Teknik Informatika S-1") WriteLine("Universitas Katolik Santo Thomas Medan SU") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Menampilkan di layar biodata pribadi yang diimput melalui keyboard. Dan hasilnya mengandung informasi mengenai diri kita sendiri. D. Kesimpulan Suatu data kita input terlebih dahulu, dan hasil tinggal menempilkan di layar. Pertemuan_1B 1. Program operator dengan Console A. Listing Imports System.Console Module Module1 Dim bil1, bil2, hasil As Integer Dim hasil2 As Boolean Sub Main() Write("Bilangan Pertama : ") bil1 = ReadLine() Write("Bilangan Kedua :") bil2 = ReadLine() WriteLine("=============================") WriteLine("Program Operator Aritmatika") WriteLine("=============================")
hasil = bil1 + bil2 WriteLine(bil1 & " + " & bil2 & " =" & hasil) hasil = bil1 Mod bil2 WriteLine(bil1 & " mod " & bil2 & " =" & hasil) WriteLine("=============================") WriteLine("Program Operator Logika") WriteLine("=============================") hasil2 = bil1 And bil2 WriteLine(bil1 & " and " & bil2 & " =" & hasil2) hasil2 = bil1 Or bil2 WriteLine(bil1 & " or " & bil2 & " =" & hasil2) WriteLine("=============================") WriteLine("Program Operator Logika") WriteLine("=============================") hasil2 = bil1 < bil2 WriteLine(bil1 & " < " & bil2 & " =" & hasil2) hasil2 = bil1 > bil2 WriteLine(bil1 & " > " & bil2 & " =" & hasil2) WriteLine("=============================") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Pembuatan program operator atau bisa disebut sebagai kalkulator. Kita dapat menambahkan beberapa operator yang kita mau. Seperti aritmatika, logika dan lain-lain. D. Kesimpulan Sebuah program operator mudah, setelah selesai satu, yang lain tinggal copy dan ganti operator sesuaikeinginan. 2. Tugas membuat aplikasi Console ( menhitung luas jari-jari lingkaran yang diarsir ). A. Listing program Imports System.Console Module Module1 Dim r2, r3, r4, L2, L3, L4, L_arsir1, L_arsir2 As Single
Sub Main() WriteLine("") Write(" Mencari Luas Liangkara ") WriteLine("") Write("======================================") WriteLine("") WriteLine("") Write("Masukkan Jari_Jari 2 : ") r2 = ReadLine() L2 = 3.14 * r2 ^ 2 Write("Luas Lingkaran 2 : " & L2) WriteLine("") WriteLine("") WriteLine("") Write("Masukkan JariJari 3 : ") r3 = ReadLine() L3 = 3.14 * r3 ^ 2 Write("Luas lingkaran 3 : " & L3) WriteLine("") WriteLine("") WriteLine("") Write("Masukkan Jari_Jari 4 : ") r4 = ReadLine() L4 = 3.14 * r4 ^ 2 Write("Luas Lingkaran 4 : " & L4) WriteLine("") WriteLine("") WriteLine("") L_arsir1 = L2 - L3 WriteLine("Luas Lingkaran Yang Diarsir1 : " & L_arsir1) L_arsir2 = L4 + L_arsir1 WriteLine("Luas Lingkaran Yang Diarsir2 : " & L_arsir2) ReadLine() End Sub End Module B. Hasil program C. Analisa hasil Aplikasi Console pada gambar tersebut merupakan aplikasi yang berfungsi untuk menghitung luas jari-jari suatu lingkaran yang diarsir. Dengan criteria Luas daerah arsir1= L2 - L3 dan Luas daerah arsir2 = L4 + L_arsir1. D. Kesimpulan Dalam pembuatan aplikasi Console menggunakan Visual Studio 2010.
Dimana aplikasi yang dibuat adalah mencari luas jari-jari lingkaran yang diarsir. Dengan begitu kita dapat mengetahui cara membuat aplikasi menggunakan Console, serta fitur-fitur yang digunakan supaya program yang kita buat dapat berjalan dengan mulus. Yang paling utama adalah kita harus mengetahui seluruh fitur-fitur yang umum digunakan. Pertemuan_1A 1. Menghitung Luas Lingkaran A. Listing Public Class FormLingkaran Dim jari, luas As Single Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click jari = CSng(TextJari2.Text) luas = Math.PI * jari ^ 2 TextLuas.Text = luas End Sub End Class B. Hasil C. Analisa Hasil Penghitungan luas lingkaran menggunakan Project apliksi , dimana aplikasi yang kita buat mengandung media masukan, proses dan output yang telah kita tentukan. D. Kesimpulan Dengan menggunakan project aplikasi, kita dapat dengan sendirinya mengatur segala bentuk aplikasi tersebut. Pratikum_2A 1. Menghitung Luas PersegiPanjang A. Listing Public Class Form1 Dim luas As Single Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click
luas = TextPanjang.Text * TextLebar.Text TextLuas.Text = luas End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtClear.Click Close() End Sub End Class B. Hasil C. Analisa Hasil Menghitung luas persegi panjang dengan menggunakan project aplikasi, dapat dimulai dengan “Dim” sebagaipengenal input yang kita masukkan nantinya di dalam program. D. Kesimpulan Pemisah kode program TextBox yang satu dengan yang lain ada. Dan tidak satu satu tempat, namun saling berhubungan. Pratikum 3_Percabangan 1. Program untuk memberikan pesan berdasarkan pilihan untuk Administrator atau Operator menggunakan percabangan IF-THEN A. Listing Public Class FormIF_THEN Private Sub FormIF_THEN_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated RbAdmin.Checked = False RbOperator.Checked = False End Sub Private Sub BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click
If RbAdmin.Checked = True Then MessageBox.Show("Anda Sedang Login Administrator") ElseIf RbOperator.Checked = True Then MessageBox.Show("Anda Sedang Login Operator") Else MessageBox.Show("Pilih Salah Satu") End If End Sub End Class B. Hasil C. AnalisisHasil Dari hasil program tersebut dengan mengunakan “message” terlihat bahwa jika kita memilih Admin, maka keluar pesan “Anda Sedang Login Addmin. Demikian sebaliknya jika kita memilih Operator,maka keluar pesan “Anda Sedang Login Operator. Tergantung kita menempatkan pesan dan proses menampilkan pesannya. D. Kesimpulan Kita diajukan untuk memilih salah satu Operator yang ingin kita gunakan. 2. Program untuk menentukan bulan A. Listing Public Class Form_SELECT_CASE Private Sub TxtAngka_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtAngka.TextChanged
Dim AngkaBulan As Integer If TxtAngka.Text <> "" Then AngkaBulan = CInt(TxtAngka.Text) Select Case AngkaBulan Case 1 : TxtBulan.Text = "JANUARI" Case 2 : TxtBulan.Text = "FEBRUARI" Case 3 : TxtBulan.Text = "MARET" Case 4 : TxtBulan.Text = "APRIL" Case 5 : TxtBulan.Text = "MEI" Case 6 : TxtBulan.Text = "JUNI" Case 7 : TxtBulan.Text = "JULI" Case 8 : TxtBulan.Text = "AGUSTUS" Case 9 : TxtBulan.Text = "SEPTEMBER" Case 10 : TxtBulan.Text = "OKTOBER" Case 11 : TxtBulan.Text = "NOVEMBER" Case 12 : TxtBulan.Text = "DESEMBER" Case Else TxtBulan.Text = "SALAH" End Select End If End Sub End Class B. Hasil C. Analisis Hasil Program mencari nama bulan berdasarkan angka yang di input. Dari hasil terlihat bahwa setiap angka yang kita masukkan akan langsung keluar nama bulan. Namun, hanya sampai angka 12 dan bila lewat dari angka tersebut maka hasil tidak ditemukan. D. Kesimpulan Jika angka yang kita input tidak terdaftar dalam scrip, maka hasil tidak ditemukan. 3. LATIHAN Program untuk menghitung Gaji Bersih Seorang pegawai A. Listing Public Class Form1 Dim Gp As Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CbGolongan.Items.Add("A") CbGolongan.Items.Add("B") CbGolongan.Items.Add("C") CbGolongan.Items.Add("D") End Sub Private Sub CbGolongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbGolongan.SelectedIndexChanged Select Case CbGolongan.Text Case "A" : Gp = 1500000 Case "B" : Gp = 1000000
Case "C" : Gp = 800000 Case "D" : Gp = 500000 Case Else Gp = 0 End Select TxtGp.Text = Gp End Sub Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click Dim Tunjangan_Pasangan, Tunjangan_Anak, Pajak, Gaji_Bersih As Single If RbMenikah.Checked = True Then Tunjangan_Pasangan = 0.15 * Gp If CInt(TxtJumAnak.Text) >= 3 Then Tunjangan_Anak = 0.15 * 3 * Gp ElseIf CInt(TxtTpasangan.Text) >= 0 Then Tunjangan_Anak = 0.15 * CInt(TxtJumAnak.Text) * Gp Else Tunjangan_Anak = 0 End If Else Tunjangan_Pasangan = 0 Tunjangan_Anak = 0 End If Pajak = 0.05 * Gp Gaji_Bersih = Gp + Tunjangan_Pasangan + Tunjangan_Anak - Pajak TxtTpasangan.Text = Tunjangan_Pasangan TxtTunjAnak.Text = Tunjangan_Anak TxtPajak.Text = Pajak TxtGb.Text = Gaji_Bersih End Sub Private Sub BtKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKeluar.Click Close() End Sub End Class B. Hasil
C. Analisis Hasil Dari hasil program, terlihat bahwa gaji pokok berasal/bergatungan terhadap golongan. Bila golongan A=15000000, golongan B=1000000, golongan C=800000, golongan D=500000. Tunjangan pasangan yaitu dari 15% Gapok. Tunjangan anak yaitu 15% dari Gapok dan terhitung hanya 3 orang anak saja bilah lebih dari 3, maka tetap di hitung menjadi 3 anak/tetap. Pajak yaitu 5% dari Gapok. Sedangkan Gaji besih yaitu pertambahan antara Gapok + Tunjangan anak + Tunjangan Pasangan,dan di kurang dengan Pajak. D. Kesimpulan Bila Golongan tidak di isi maka Gapok tidak dapat di tampilkan. Dan bahkan tidak bisa dilakukan proses terhadap program. Karena belum ada nilai yang di input. Pratikum_4 Perulangan 1. Program menampilkan tgl, bln, dan thn dengan perulangan FOR A. Listing Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tgl, thns As Integer Dim thn As Long thns = Microsoft.VisualBasic.Year(Now()) For tgl = 1 To 31 If (tgl <= 31) Then CbTgl.Items.Add(tgl) If (tgl <= 12) Then CbBln.Items.Add(tgl) End If End If Next For thn = 1900 To thns CbThn.Items.Add(thn) Next thn End Sub End Class B. Hasil C. Analisa Hasil Perulangan FOR. Darihasil program bisa kita simpulkan bahwa data yang telah kita tetapkan, maka itulah data yang akan di tampilkan. Tanggal adalah dari angka 1 sampai dengan 30. Jika tgl lebih kecil atau sama dengan 31, maka cetak tanggal. Jika tanggal lebih kecil atau sama dengan 12 maka catak bulan berdasarkan tanggal. Untuk tahun mulai dari 1900, maka cetak tahun. Maka ulang sebaliknya sampai tahun sekarang. D. Kesimpulan Data yang ditampilkan berdasarkan tanggal hingga menghasilkan tampilan. 2. Program menampilkan kelipatan dua dari 100 s/d 500 dengan perulangan WHILE A. Listing Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Short i = 100 While (i <= 500) ListKelipatan.Items.Add(i) i = i + 2 End While End Sub End Class B. Hasil
C. Analisa Hasil Dari data tersebut I = 100 dimana i <= 500, proses i = 100 masukkan nilai “I” kedalam “I” lalu tambahkan 2, begitu seterusnya hingga “I” lebih kecil dari 500 atau berhenti di angka 500. D. Kesimpulan Setiap angka di tambahkan 2 misal 100 lalu di baris kedua menjadi 102 hingga 500. 3. Program menampilkan Huruf A s/d Z dan Z s/d A dengann perulangan DO WHILE . . . LOOP dan DO . . . LOOP WHILE A. Listing Public Class Form3 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i, j As Byte ListA_Z.Items.Clear() i = Asc("A") Do While i <= Asc("Z") ListA_Z.Items.Add("Huruf - " & Chr(i)) i = i + 1 Loop
ListZ_A.Items.Clear() j = Asc("Z") Do ListZ_A.Items.Add("Huruf - " & Chr(j)) j = j - 1 Loop While j >= Asc("A") End Sub End Class B. Hasil C. Analisa Hasil Asc (String As String) menghasilkan angka ASCII dari suatu karakter tunggal yang ditetapkan. Kita membuat suatu huruf dimana nilai “ I “ adalah “A” dan membuatnya hingga sampai batas yang telah kita tentukan. Kita akan menampilkan huruf dari “A” dan “Z”. Dia akan berhenti hingga I <= Z. D. Kesimpulan Program akan menampilkan suatu angka/huruf tungal dengan menggunkan Asc. 4. Program mengubah nama object button dengan perulangan FOR EACH . . . IN . . . NEXT A. Listing Public Class Form4 Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click For Each ctrl In Controls ctrl.Text = "Tombol" Next End Sub End Class B. Hasil
C. Analisa Hasil Mengulang blok statemen untuk setiap object dalam setiap elemen di dalam array. Kita akan membuat suatu checkbox terubah menjadi satu nama. D. Kesimpulan Dengan perulangan FOR EACH kita mengulang blok statement untuk setiap object dalam collection atau setiap elemen di dalam array. 5. Latihan : Rancanglah Form dan program untuk menghitung Faktorial N bilangan. Contoh : N=5, maka 5!=5*4*3*2*1=120 A. Listing Public Class Form1 Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click Dim i, n As Integer Dim Hasil As Long Dim Kar As String Kar = "" n = CInt(TextNilai.Text) If n > 1 Then Hasil = 1 For i = n To 1 Step -1 Hasil = Hasil * i If i <= n Then Kar = Kar & i & "*" ElseIf i = 1 Then Kar = Kar & i End If Next TexHasil.Text = " Hasil " + TextNilai.Text + "! = " & Kar & " = " & Hasil ElseIf n = 0 Or n = 1 Then TexHasil.Text = " Hasil " + TextNilai.Text + "! = 1 " Else TexHasil.Text = " Masukan tidak Valid ! " End If End Sub End Class B. Hasil
C. Analisa Hasil Jika n > 1 maka Hasil = 1, Hasil = hasil * i. Jika i<= n maka Kar = Kar & i & "*". Alur n=1 maka n adalah sebagai hasil, maka hasil dapat di kalikan dengan hasil dari i. Demikian seterusnya. Maka,cetak hasil di layar. D. Kesimpulan Cetak hasil di layar dengan menggunakan proses atau hitung. Faktorialnya dimulai dengan perkalian. Pratikum 6 -7 1. Program Form Menghitung Nilai Huruf dan Nilai Bobot A. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Sub konversi_bobot(ByVal huruf As String, ByRef bobot As Single) If (huruf = "A") Then bobot = 4 ElseIf (huruf = "B+") Then bobot = 3.5 ElseIf (huruf = "B") Then bobot = 3 ElseIf (huruf = "C+") Then bobot = 2.5 ElseIf (huruf = "C") Then bobot = 2 ElseIf (huruf = "D") Then bobot = 1 Else bobot = 0 End If End Sub Public Function konversi_huruf(ByVal na As Single) As String If (na >= 81) Then konversi_huruf = "A" ElseIf (na >= 76) Then konversi_huruf = "B+" ElseIf (na >= 71) Then konversi_huruf = "B" ElseIf (na >= 66) Then konversi_huruf = "C+" ElseIf (na >= 61) Then konversi_huruf = "C" ElseIf (na >= 56) Then konversi_huruf = "D" Else konversi_huruf = "E" End If
End Function Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged bobot = 0 TextBox2.Text = konversi_huruf(Val(TextBox1.Text)) konversi_bobot(TextBox2.Text, bobot) TextBox3.Text = bobot End Sub End Class B. Hasil C. Analisa hasil Kita memulai dengan Public Sub konversi_bobot. Kita akan mengkonversikan sebuah nilai angka dalam bentuk huruf dan angka. Pertama kita menggunkan bobot. Jika nilai nilai A maka bobot adalah 4, B+ maka bobot adalah 3.5, B maka bobot adalah 3, C+ maka bobot adalah 2.5, C maka bobot adalah 2, D maka bobot adalah 1. Yang kedua menggunakan Public Function konversi_huruf. Kita akan mengkonversikan suatu nilai yang dimasukkan kedalam bentuk nilai huruf. Kita misalkan nilai (na) adalah nilai akhir, maka jika nilai na lebih kecil atau sama dengan 81 maka konversikanlah kedalam bentuk huruf “A”, Jika 76 maka konversikanlah kedalam bentuk huruf “B+”, Jika 71 maka konversikanlah kedalam bentuk huruf “B+”, Jika 66 maka konversikanlah kedalam bentuk huruf “B+”, Jika 61 maka konversikanlah kedalam bentuk huruf “C”, Jika 56 maka konversikanlah kedalam bentuk
huruf “D”, Jika dibawah atau tidak sama dengan 56 maka konversikanlah kedalam bentuk huruf “E”. Untuk nilai bobot cetak di TextBox2, dan nilai huruf cetak di TextBox3. D. Kesimpulan Setiap nilai yang kita input akan dikonversikan kedalam bentuk angka dan huruf. Tergantung bobot nilai yang kita masukkan. 2. Program untuk menghitung permutasi dan kombinasi suatu bilangan dengan menggunakan function procedure dan sub procedure. A. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Function faktorial(ByVal jum As Integer) As Long faktorial = 1 For X As Integer = 2 To jum faktorial = faktorial * X Next X End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fak_n, fak_nr, fak_r As Long Dim n, nr, r As Integer n = CInt(TextBox1.Text) nr = CInt(TextBox1.Text) - CInt(TextBox2.Text) r = CInt(TextBox2.Text) fak_n = faktorial(n) fak_nr = faktorial(nr) fak_r = faktorial(r) TextBox4.Text = fak_n / (fak_nr * fak_r) TextBox3.Text = fak_n / (fak_nr) End Sub Private Sub fak(ByVal N As Integer, ByRef fak As Long) fak = 1 For X As Integer = 2 To N fak = fak * X Next X End Sub End Class B. Hasil
C. Analisis hasil Private Function factorial dengan nilai factorial adalah 1 dan utnuk X adalah 2 dan dimasukkan kedalam jumlah. Faktorial adalah factorial dikali X. Misalkan fak_n adalah di TextBox1, fak_nr adalah TextBox1 di kurang TextBox2, dan fak_r adalah TextBox2. Masukkan nilai N dan factorkan dengan perkalian factorial dikali dengan bilangan X demikian seterusnya. Tampilkan nilai permutasi di Text.Box3, dan kombinasi di TextBox4. D. Kesimpulan Sebuah nilai akan difaktorkan sesuai dengan data yang telah ditentukan. Patikum_8 1. Program untuk menghitung nilai Tertinggi, Terendah, Rata-rata dan Keterangan. a. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("N I M") ListView1.Columns.Add("N A M A", 115) ListView1.Columns.Add("P R O D I", 110) TxtNIM.Text = 1 TxtNama.Focus() End Sub Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click Dim Arr(2) As String Arr(0) = TxtNIM.Text Arr(1) = TxtNama.Text Arr(2) = TxtProdi.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(Arr(0)) listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2)) TxtNIM.Text = TxtNIM.Text + 1 TxtNama.Text = "" TxtProdi.Text = "" TxtNama.Focus() End Sub End Class b. Hasil c. Analisis Hasil
Array Satu Dimensi. Darihasil tersebut terlihat bahwa data yang kita masukkan atau yang kita input akan akan ditambahkan kedalam tabel. Itu artinya bila kita menginput beberapa data dari media masukkan maka akan di tempatkan kedalam kelompok data. d. Kesimpulan Dari hasil tersebut tampak bahwa nama, npm dan prodi yang kita masukkan atau kita input akan dimasukkan kedalam tabel yang telah kita buat. 2. Program untuk menentukan IPK yang paling banyak muncul dan pencarian IPK mahasiswa berdasarkan keterangan. a. Listing Public Class Form2 Dim brs As Integer Dim data() As Single Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).HeaderText = "NO." DataGridView1.Columns(1).HeaderText = "NPM" DataGridView1.Columns(2).HeaderText = "NAMA" DataGridView1.Columns(3).HeaderText = "IPK" DataGridView1.Columns(4).HeaderText = "KETERANGAN" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DataGridView1.RowCount = DataGridView1.RowCount + 1 DataGridView1.Item(0, brs).Value = brs + 1 DataGridView1.Item(1, brs).Value = TextBox1.Text DataGridView1.Item(2, brs).Value = TextBox2.Text DataGridView1.Item(3, brs).Value = TextBox3.Text brs = brs + 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For x As Integer = 0 To DataGridView1.RowCount - 2 ReDim Preserve data(x) data(x) = CSng(DataGridView1.Item(3, x).Value) If data(x) >= 3.5 And data(x) <= 4.0 Then DataGridView1.Item(4, x).Value = "SANGAT MEMUASKAN" ElseIf data(x) >= 3.0 And data(x) <= 3.4 Then DataGridView1.Item(4, x).Value = "MEMUASKAN" ElseIf data(x) >= 2.5 And data(x) <= 2.9 Then DataGridView1.Item(4, x).Value = "CUKUP MEMUASKAN" ElseIf data(x) >= 0 And data(x) <= 2.4 Then DataGridView1.Item(4, x).Value = "BURUK" End If Label4.Text = "IPK TERTINGGI = " & data.Max Label5.Text = "IPK TERENDAH = " & data.Min Label6.Text = "IPK RATA-RATA = " & data.Average Next End Sub End Class
b. Hasil c. Analisis Hasil Aplikasi untuk menghitung IPK dari masing-masing mahasiswa yang di input dari media masukan keyboard. Kita akan memasukkan NPM,Nama, dan IPK. Lalu kita masukkan atau input ke dalam tabel. Setelah itu kita proses untuk mencari nilai terbesar,terendah serta rata- ratanya. Itu berarti kita masukkan data lalu kita input kedalam tabel atau datagridview. d. Kesimpulan Dari hasil tabel tersebut tampak bahwa setiap data yang di input akan masukkan kedalam tabel tersebut. Pratikum_9
1. Program untuk membuka teks dari file dengan menggunakan listbox. A. Listing Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DATA As String Dim i As Integer = FreeFile() FileOpen(i, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Append) DATA = TextBox1.Text & Space(25) & TextBox2.Text & Space(25) & TextBox3.Text PrintLine(i, DATA) FileClose(i) TAMPIL() End Sub Sub TAMPIL() Dim J As Integer = FreeFile() Dim s, sl As String ListBox1.Items.Clear() FileOpen(J, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Input) Do Until EOF(J) Input(J, s) 'tiap baris ditampung divariabel "s" ListBox1.Items.Add(s) Loop FileClose(J) End Sub End Class B. Hasil
C. Analisis Hasil Program ini akan menampilkan atau membuka file dalam bentuk ListBox dan NotePad. Dalam tampillannya, file akan terlihat tidak sempurna dikarenakan data yang diinput tidak menentu panjang karakter berapa. Ada dua sekmen dalam program ini, yang pertama : Data yang di input akan ditambahkan ke teks file dalam NotePad. Yang kedua akan di tampilkan di ListBox. D. Kesimpulan Bila dilihat dari tampilan program tersebut, program tersebut belum sempurna. Dikarenakan tidak teratur dalam posisi baris dan kolom dari file-file tersebut. 2. Program untuk membuka teks dari file dengan menggunakan DataGridView . A. Listing Public Class Form2 Dim BRS As Integer Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.RowCount = 1 DataGridView1.ColumnCount = 3 DataGridView1.Columns(0).HeaderText = "NIM" DataGridView1.Columns(0).Width = 100 DataGridView1.Columns(1).HeaderText = "NAMA" DataGridView1.Columns(1).Width = 100 DataGridView1.Columns(2).HeaderText = "ALAMAT" DataGridView1.Columns(2).Width = 100 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DATA As String Dim i As Integer = FreeFile() FileOpen(i, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Append) DATA = TextBox1.Text & Space(25) & TextBox2.Text & Space(25) & TextBox3.Text PrintLine(i, DATA) FileClose(i) DataGridView1.RowCount = DataGridView1.RowCount + 1 DataGridView1.Item(0, BRS).Value = TextBox1.Text DataGridView1.Item(1, BRS).Value = TextBox2.Text DataGridView1.Item(2, BRS).Value = TextBox3.Text BRS = BRS + 1 End Sub End Class B. Hasil
C. Analisis Hasil Program ini akan menampilkan atau membuka file dalam bentuk DataGridView dan NotePad. Dalam tampillannya, file akan terlihat sempurna berbeda dengan mengunakan ListBox. Sama seperti ListBox program ini juga mempunyai dua sekmen dalam program ini, yang pertama : Data yang di input akan ditambahkan ke teks file dalam NotePad. Yang kedua akan di tampilkan di DataGridView. D. Kesimpulan Dari hasil dan tampilan terlihat bahwa data yang diinput terlihat sangat rapi dengan menggunakan DataGridView. 3. Program untuk membuka teks dari file dengan menggunakan ListView. A. Listing Public Class Form3 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("NIM") ListView1.Columns.Add("NAMA", 115) ListView1.Columns.Add("PRODI", 110) TextBox1.Text = 1 TextBox2.Focus() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(2) As String arr(0) = TextBox1.Text arr(1) = TextBox2.Text arr(2) = TextBox3.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(arr(0)) listitem.SubItems.Add(arr(1)) listitem.SubItems.Add(arr(2)) TextBox1.Text = TextBox1.Text + 1 TextBox2.Text = "" TextBox3.Text = "" TextBox2.Focus() End Sub End Class B. Hasil C. Analisis Hasil Berbeda dengan program sebelumnya, program ini hanya mempunyai satu sekmen. Yaitu file hanya ditampilkan didalam ListView. Data yang diinput, akan ditabahkan kedalam ListView. Data akan terlihat tersusun rapi, karena kolom dan baris otomatis terinput. D. Kesimpulan Berbeda dengan program yang sebelumnya data akan sangat terlihat sangat rapi. NPM akan terurut secara otomatis tanpa menghapus serta mengganti yang baru lagi. Pratikum 10 1. Menghubungkan Visual Basic dengan Sql Management Studio. A. Listing - Sql Create Database Penjualan Use Penjualan Create Table TBARANG( KODE_BRG VarChar(5) Primary Key,
NAMA_BRG Char(20), SATUAN Char(5), STOK Tinyint) Insert Into TBARANG Values ('A001','KULKAS','UNIT','10') Insert Into TBARANG Values ('A002','MOBIL SEDAN','UNIT','20') Insert Into TBARANG Values ('A003','LAPTOP ACER','UNIT','30') Insert Into TBARANG Values ('A004','HEANDPHONE','UNIT','12') Insert Into TBARANG Values ('A005','SEPEDA','UNIT','13') - Modul Imports System.Data.OleDb Module Module1 Public koneksi As String Public cn As New SqlClient.SqlConnection Public Sub bukakoneksi() koneksi = "Data Source=ASPIRE-PCSQLEXPRESS;database=PENJUALAN;user id=;password=;integrated security=true" cn = New SqlClient.SqlConnection(koneksi) Try cn.Open() MessageBox.Show(" koneksi berhasil") Catch ex As Exception MessageBox.Show(ex.Message, "error") End End Try End Sub End Module - Vb Imports System.Data.SqlClient Public Class Form1 Dim cn As SqlConnection Dim da As SqlDataAdapter Dim CMD As SqlCommand Dim CMD2 As SqlCommand Dim DREADER As SqlDataReader Dim ds As DataSet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bukakoneksi() On Error GoTo salah cn = New SqlConnection(koneksi) If cn.State = ConnectionState.Closed Then cn.Open() End If Call refreshtampil() Exit Sub salah: MsgBox(Err.Description) End End Sub Sub refreshtampil() da = New SqlDataAdapter("SELECT * FROM TBARANG", cn) ds = New DataSet ds.Clear() da.Fill(ds, "BRG") DataGridView1.DataSource = (ds.Tables("BRG")) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String CMD2 = New SqlCommand("SELECT * FROM TBARANG WHERE KODE_BRG= '" & TextBox1.Text & "'", cn) DREADER = CMD2.ExecuteReader If DREADER.Read Then MsgBox("DATA SUDAH ADA") Else DREADER.Close() sql = "INSERT INTO TBARANG VALUES( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "')" CMD = New SqlCommand(sql, cn) CMD.ExecuteNonQuery() Call refreshtampil() TextBox1.Focus() End If DREADER.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim x As String x = InputBox("Masukkan KODE BARANG : ", "PENCARIAN") CMD = New SqlCommand("SELECT * FROM TBARANG WHERE KODE_BRG= '" & x & "'", cn) DREADER = CMD.ExecuteReader If DREADER.Read Then TextBox1.Text = DREADER.Item("KODE_BRG") TextBox2.Text = DREADER.Item("NAMA_BRG") ComboBox1.Text = DREADER.Item("SATUAN") TextBox3.Text = DREADER.Item("STOK") Else MsgBox("DATA TIDAK DITEMUKAN") End If DREADER.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sql As String sql = "UPDATE TBARANG SET NAMA_BRG=" & _ "'" & TextBox2.Text & "',STOK='" & TextBox3.Text & "' WHERE KODE_BRG= '" & TextBox1.Text & "'" CMD = New SqlCommand(sql, cn) CMD.ExecuteNonQuery() Call refreshtampil() TextBox1.Focus() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim sql As String Dim PSN As String PSN = MsgBox("APAKAH YAKIN DIHAPUS", vbQuestion + vbYesNo, "KONFIRMASI") If PSN = vbYes Then sql = "DELETE FROM TBARANG WHERE KODE_BRG= '" & TextBox1.Text & "'" CMD = New SqlCommand(sql, cn) Dim x As Integer = CMD.ExecuteNonQuery If x = 1 Then MessageBox.Show("DATA BERHASIL DIHAPUS") Call refreshtampil() TextBox1.Focus() Else MessageBox.Show("GAGAL HAPUS DATA")
End If End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Close() End Sub End Class B. Hasil - Sql - Vb Tombol Cari
Tombol rubah
Tombol Hapus
Tombol Simpan C. Analisa hasil Dari hasil tersebut diatas, kita akan menghubungkan Visual Basic dengan Sql Management Studio. Pertama sekalikita menambahkan modul sebagai penghubungnya agar data dapat terkoneksi dengan baik. Yang selanjutnya kita menambahkan data ke dalam Sql atau dengan kata lain kita mengimput data sql. Sebagai data di dalam visual basic. Lalu kita menambahkan design programnya serta listing-listingnya. Didalam program yang kita buat, kita menambahkan beberapa tombol seperti tombol simpan, rubah, hapus cari, dan keluar serta datagridview sebagaitempat data dari sql tersebut. D. Kesimpullan Visual Basic tidak bisa terkoneksi dengan Sql bila server dalam computer atau server di Sql kita dua server serta data harus sesuaidengan data dalam Sql dengan Visual Basic.
LAPORAN HASIL PRATIKUM PEMROGRAMAN VISUAL I Disusun Oleh : Nama : Desiaman NPM : 150840002 Jurusan : Teknik Informatika Dosen : Sorang Pakpahan. S.Kom, M.Kom FAKULTAS ILMU KOMPUTER UNIVERSITAS KATOLIK SANTO THOMAS MEDAN SU

More Related Content

Laporan pratikum 1 semester | Listing Program Pratikum Visual Basic 2010 Semester I

  • 1. LAPORAN PRATIKUM VISUAL BASIC NPM : 150840002 NAMA: DESIAMAN PRODI: TEKNIK INFORMATIKA S-1 Latihan_1A 1. Membuat aplikasi ucapan selamat belajar A. Listing Imports System.Console Module Module1 Sub Main() WriteLine("") WriteLine("=> DESIAMAN") WriteLine("=> 150840002") WriteLine("=> Aplikasi Console Ucapan") WriteLine("============================================") WriteLine("") WriteLine("=> SELAMAT BELAJAR") WriteLine("=> PEMROGRAMAN VISUAL I") WriteLine("=> FAKULTAS ULMU KOMPUTER") WriteLine("=> TEKNIK INFORMATIKA S-1") WriteLine("=> UNIVERSITAS KATOLIK SANTO THOMAS MEDAN SU") WriteLine("") WriteLine("SEMOGA HARI^HARI-MU MENYENANGKAN !!:D") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Program ucapan selamat belajar dalam Console, berfungsi untuk menampilkan di layar hasil masukan yang kita buat. D. Kesimpulan Kode yang kita buat untuk membaca dan menampilkannya dengan mengunakan “WriteLine” dan “ReadLine” untuk dapat lama tampil.
  • 2. Pertemuan_1A 1. Menghitung Luas Lingkaran dengan Console A. Listing Imports System.Console Module Module1 Dim luas As Single Dim jari2 As Single Sub Main() Write(" Menentukan Jari-Jari=") jari2 = Readline() luas = Math.PI * jari2 ^ 2 WriteLine("luas = " & luas) ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Dalam menghitung luas lingkaran , kita dapat melihat bahwa ada salah satu kode. Yaitu “Mat.PI” yangberfungsi sebagaipengganti 3.14 dalam jari-jari lingkaran. D. Kesimpulan Semua hasil dapat sama, asalprogram yang kita buat berjalan dengan baik. Pertemuan_2A 1. Program Biodata dengan Console A. Listing Imports System.Console Module Module1 Sub Main() WriteLine() WriteLine("=========================================") WriteLine(" Biodata Diri ") WriteLine("=========================================")
  • 3. WriteLine() WriteLine("Nama : Desiaman") WriteLine("NPM : 150840002") WriteLine("Alamat : Jl. Raharja Gg. Kembaren No.1") WriteLine("Jenis Kelamin : Laki-Laki") WriteLine("Asal Sekolah : SMK Sw Maduma Sibolga") WriteLine("Golongan Darah : B") WriteLine("Fakultas : Ilmu Computer") WriteLine("Jurusan : Teknik Informatika S-1") WriteLine("Universitas Katolik Santo Thomas Medan SU") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Menampilkan di layar biodata pribadi yang diimput melalui keyboard. Dan hasilnya mengandung informasi mengenai diri kita sendiri. D. Kesimpulan Suatu data kita input terlebih dahulu, dan hasil tinggal menempilkan di layar. Pertemuan_1B 1. Program operator dengan Console A. Listing Imports System.Console Module Module1 Dim bil1, bil2, hasil As Integer Dim hasil2 As Boolean Sub Main() Write("Bilangan Pertama : ") bil1 = ReadLine() Write("Bilangan Kedua :") bil2 = ReadLine() WriteLine("=============================") WriteLine("Program Operator Aritmatika") WriteLine("=============================")
  • 4. hasil = bil1 + bil2 WriteLine(bil1 & " + " & bil2 & " =" & hasil) hasil = bil1 Mod bil2 WriteLine(bil1 & " mod " & bil2 & " =" & hasil) WriteLine("=============================") WriteLine("Program Operator Logika") WriteLine("=============================") hasil2 = bil1 And bil2 WriteLine(bil1 & " and " & bil2 & " =" & hasil2) hasil2 = bil1 Or bil2 WriteLine(bil1 & " or " & bil2 & " =" & hasil2) WriteLine("=============================") WriteLine("Program Operator Logika") WriteLine("=============================") hasil2 = bil1 < bil2 WriteLine(bil1 & " < " & bil2 & " =" & hasil2) hasil2 = bil1 > bil2 WriteLine(bil1 & " > " & bil2 & " =" & hasil2) WriteLine("=============================") ReadLine() End Sub End Module B. Hasil C. Analisa Hasil Pembuatan program operator atau bisa disebut sebagai kalkulator. Kita dapat menambahkan beberapa operator yang kita mau. Seperti aritmatika, logika dan lain-lain. D. Kesimpulan Sebuah program operator mudah, setelah selesai satu, yang lain tinggal copy dan ganti operator sesuaikeinginan. 2. Tugas membuat aplikasi Console ( menhitung luas jari-jari lingkaran yang diarsir ). A. Listing program Imports System.Console Module Module1 Dim r2, r3, r4, L2, L3, L4, L_arsir1, L_arsir2 As Single
  • 5. Sub Main() WriteLine("") Write(" Mencari Luas Liangkara ") WriteLine("") Write("======================================") WriteLine("") WriteLine("") Write("Masukkan Jari_Jari 2 : ") r2 = ReadLine() L2 = 3.14 * r2 ^ 2 Write("Luas Lingkaran 2 : " & L2) WriteLine("") WriteLine("") WriteLine("") Write("Masukkan JariJari 3 : ") r3 = ReadLine() L3 = 3.14 * r3 ^ 2 Write("Luas lingkaran 3 : " & L3) WriteLine("") WriteLine("") WriteLine("") Write("Masukkan Jari_Jari 4 : ") r4 = ReadLine() L4 = 3.14 * r4 ^ 2 Write("Luas Lingkaran 4 : " & L4) WriteLine("") WriteLine("") WriteLine("") L_arsir1 = L2 - L3 WriteLine("Luas Lingkaran Yang Diarsir1 : " & L_arsir1) L_arsir2 = L4 + L_arsir1 WriteLine("Luas Lingkaran Yang Diarsir2 : " & L_arsir2) ReadLine() End Sub End Module B. Hasil program C. Analisa hasil Aplikasi Console pada gambar tersebut merupakan aplikasi yang berfungsi untuk menghitung luas jari-jari suatu lingkaran yang diarsir. Dengan criteria Luas daerah arsir1= L2 - L3 dan Luas daerah arsir2 = L4 + L_arsir1. D. Kesimpulan Dalam pembuatan aplikasi Console menggunakan Visual Studio 2010.
  • 6. Dimana aplikasi yang dibuat adalah mencari luas jari-jari lingkaran yang diarsir. Dengan begitu kita dapat mengetahui cara membuat aplikasi menggunakan Console, serta fitur-fitur yang digunakan supaya program yang kita buat dapat berjalan dengan mulus. Yang paling utama adalah kita harus mengetahui seluruh fitur-fitur yang umum digunakan. Pertemuan_1A 1. Menghitung Luas Lingkaran A. Listing Public Class FormLingkaran Dim jari, luas As Single Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click jari = CSng(TextJari2.Text) luas = Math.PI * jari ^ 2 TextLuas.Text = luas End Sub End Class B. Hasil C. Analisa Hasil Penghitungan luas lingkaran menggunakan Project apliksi , dimana aplikasi yang kita buat mengandung media masukan, proses dan output yang telah kita tentukan. D. Kesimpulan Dengan menggunakan project aplikasi, kita dapat dengan sendirinya mengatur segala bentuk aplikasi tersebut. Pratikum_2A 1. Menghitung Luas PersegiPanjang A. Listing Public Class Form1 Dim luas As Single Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click
  • 7. luas = TextPanjang.Text * TextLebar.Text TextLuas.Text = luas End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtClear.Click Close() End Sub End Class B. Hasil C. Analisa Hasil Menghitung luas persegi panjang dengan menggunakan project aplikasi, dapat dimulai dengan “Dim” sebagaipengenal input yang kita masukkan nantinya di dalam program. D. Kesimpulan Pemisah kode program TextBox yang satu dengan yang lain ada. Dan tidak satu satu tempat, namun saling berhubungan. Pratikum 3_Percabangan 1. Program untuk memberikan pesan berdasarkan pilihan untuk Administrator atau Operator menggunakan percabangan IF-THEN A. Listing Public Class FormIF_THEN Private Sub FormIF_THEN_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated RbAdmin.Checked = False RbOperator.Checked = False End Sub Private Sub BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click
  • 8. If RbAdmin.Checked = True Then MessageBox.Show("Anda Sedang Login Administrator") ElseIf RbOperator.Checked = True Then MessageBox.Show("Anda Sedang Login Operator") Else MessageBox.Show("Pilih Salah Satu") End If End Sub End Class B. Hasil C. AnalisisHasil Dari hasil program tersebut dengan mengunakan “message” terlihat bahwa jika kita memilih Admin, maka keluar pesan “Anda Sedang Login Addmin. Demikian sebaliknya jika kita memilih Operator,maka keluar pesan “Anda Sedang Login Operator. Tergantung kita menempatkan pesan dan proses menampilkan pesannya. D. Kesimpulan Kita diajukan untuk memilih salah satu Operator yang ingin kita gunakan. 2. Program untuk menentukan bulan A. Listing Public Class Form_SELECT_CASE Private Sub TxtAngka_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtAngka.TextChanged
  • 9. Dim AngkaBulan As Integer If TxtAngka.Text <> "" Then AngkaBulan = CInt(TxtAngka.Text) Select Case AngkaBulan Case 1 : TxtBulan.Text = "JANUARI" Case 2 : TxtBulan.Text = "FEBRUARI" Case 3 : TxtBulan.Text = "MARET" Case 4 : TxtBulan.Text = "APRIL" Case 5 : TxtBulan.Text = "MEI" Case 6 : TxtBulan.Text = "JUNI" Case 7 : TxtBulan.Text = "JULI" Case 8 : TxtBulan.Text = "AGUSTUS" Case 9 : TxtBulan.Text = "SEPTEMBER" Case 10 : TxtBulan.Text = "OKTOBER" Case 11 : TxtBulan.Text = "NOVEMBER" Case 12 : TxtBulan.Text = "DESEMBER" Case Else TxtBulan.Text = "SALAH" End Select End If End Sub End Class B. Hasil C. Analisis Hasil Program mencari nama bulan berdasarkan angka yang di input. Dari hasil terlihat bahwa setiap angka yang kita masukkan akan langsung keluar nama bulan. Namun, hanya sampai angka 12 dan bila lewat dari angka tersebut maka hasil tidak ditemukan. D. Kesimpulan Jika angka yang kita input tidak terdaftar dalam scrip, maka hasil tidak ditemukan. 3. LATIHAN Program untuk menghitung Gaji Bersih Seorang pegawai A. Listing Public Class Form1 Dim Gp As Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CbGolongan.Items.Add("A") CbGolongan.Items.Add("B") CbGolongan.Items.Add("C") CbGolongan.Items.Add("D") End Sub Private Sub CbGolongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbGolongan.SelectedIndexChanged Select Case CbGolongan.Text Case "A" : Gp = 1500000 Case "B" : Gp = 1000000
  • 10. Case "C" : Gp = 800000 Case "D" : Gp = 500000 Case Else Gp = 0 End Select TxtGp.Text = Gp End Sub Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click Dim Tunjangan_Pasangan, Tunjangan_Anak, Pajak, Gaji_Bersih As Single If RbMenikah.Checked = True Then Tunjangan_Pasangan = 0.15 * Gp If CInt(TxtJumAnak.Text) >= 3 Then Tunjangan_Anak = 0.15 * 3 * Gp ElseIf CInt(TxtTpasangan.Text) >= 0 Then Tunjangan_Anak = 0.15 * CInt(TxtJumAnak.Text) * Gp Else Tunjangan_Anak = 0 End If Else Tunjangan_Pasangan = 0 Tunjangan_Anak = 0 End If Pajak = 0.05 * Gp Gaji_Bersih = Gp + Tunjangan_Pasangan + Tunjangan_Anak - Pajak TxtTpasangan.Text = Tunjangan_Pasangan TxtTunjAnak.Text = Tunjangan_Anak TxtPajak.Text = Pajak TxtGb.Text = Gaji_Bersih End Sub Private Sub BtKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKeluar.Click Close() End Sub End Class B. Hasil
  • 11. C. Analisis Hasil Dari hasil program, terlihat bahwa gaji pokok berasal/bergatungan terhadap golongan. Bila golongan A=15000000, golongan B=1000000, golongan C=800000, golongan D=500000. Tunjangan pasangan yaitu dari 15% Gapok. Tunjangan anak yaitu 15% dari Gapok dan terhitung hanya 3 orang anak saja bilah lebih dari 3, maka tetap di hitung menjadi 3 anak/tetap. Pajak yaitu 5% dari Gapok. Sedangkan Gaji besih yaitu pertambahan antara Gapok + Tunjangan anak + Tunjangan Pasangan,dan di kurang dengan Pajak. D. Kesimpulan Bila Golongan tidak di isi maka Gapok tidak dapat di tampilkan. Dan bahkan tidak bisa dilakukan proses terhadap program. Karena belum ada nilai yang di input. Pratikum_4 Perulangan 1. Program menampilkan tgl, bln, dan thn dengan perulangan FOR A. Listing Public Class Form1
  • 12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tgl, thns As Integer Dim thn As Long thns = Microsoft.VisualBasic.Year(Now()) For tgl = 1 To 31 If (tgl <= 31) Then CbTgl.Items.Add(tgl) If (tgl <= 12) Then CbBln.Items.Add(tgl) End If End If Next For thn = 1900 To thns CbThn.Items.Add(thn) Next thn End Sub End Class B. Hasil C. Analisa Hasil Perulangan FOR. Darihasil program bisa kita simpulkan bahwa data yang telah kita tetapkan, maka itulah data yang akan di tampilkan. Tanggal adalah dari angka 1 sampai dengan 30. Jika tgl lebih kecil atau sama dengan 31, maka cetak tanggal. Jika tanggal lebih kecil atau sama dengan 12 maka catak bulan berdasarkan tanggal. Untuk tahun mulai dari 1900, maka cetak tahun. Maka ulang sebaliknya sampai tahun sekarang. D. Kesimpulan Data yang ditampilkan berdasarkan tanggal hingga menghasilkan tampilan. 2. Program menampilkan kelipatan dua dari 100 s/d 500 dengan perulangan WHILE A. Listing Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Short i = 100 While (i <= 500) ListKelipatan.Items.Add(i) i = i + 2 End While End Sub End Class B. Hasil
  • 13. C. Analisa Hasil Dari data tersebut I = 100 dimana i <= 500, proses i = 100 masukkan nilai “I” kedalam “I” lalu tambahkan 2, begitu seterusnya hingga “I” lebih kecil dari 500 atau berhenti di angka 500. D. Kesimpulan Setiap angka di tambahkan 2 misal 100 lalu di baris kedua menjadi 102 hingga 500. 3. Program menampilkan Huruf A s/d Z dan Z s/d A dengann perulangan DO WHILE . . . LOOP dan DO . . . LOOP WHILE A. Listing Public Class Form3 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i, j As Byte ListA_Z.Items.Clear() i = Asc("A") Do While i <= Asc("Z") ListA_Z.Items.Add("Huruf - " & Chr(i)) i = i + 1 Loop
  • 14. ListZ_A.Items.Clear() j = Asc("Z") Do ListZ_A.Items.Add("Huruf - " & Chr(j)) j = j - 1 Loop While j >= Asc("A") End Sub End Class B. Hasil C. Analisa Hasil Asc (String As String) menghasilkan angka ASCII dari suatu karakter tunggal yang ditetapkan. Kita membuat suatu huruf dimana nilai “ I “ adalah “A” dan membuatnya hingga sampai batas yang telah kita tentukan. Kita akan menampilkan huruf dari “A” dan “Z”. Dia akan berhenti hingga I <= Z. D. Kesimpulan Program akan menampilkan suatu angka/huruf tungal dengan menggunkan Asc. 4. Program mengubah nama object button dengan perulangan FOR EACH . . . IN . . . NEXT A. Listing Public Class Form4 Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click For Each ctrl In Controls ctrl.Text = "Tombol" Next End Sub End Class B. Hasil
  • 15. C. Analisa Hasil Mengulang blok statemen untuk setiap object dalam setiap elemen di dalam array. Kita akan membuat suatu checkbox terubah menjadi satu nama. D. Kesimpulan Dengan perulangan FOR EACH kita mengulang blok statement untuk setiap object dalam collection atau setiap elemen di dalam array. 5. Latihan : Rancanglah Form dan program untuk menghitung Faktorial N bilangan. Contoh : N=5, maka 5!=5*4*3*2*1=120 A. Listing Public Class Form1 Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click Dim i, n As Integer Dim Hasil As Long Dim Kar As String Kar = "" n = CInt(TextNilai.Text) If n > 1 Then Hasil = 1 For i = n To 1 Step -1 Hasil = Hasil * i If i <= n Then Kar = Kar & i & "*" ElseIf i = 1 Then Kar = Kar & i End If Next TexHasil.Text = " Hasil " + TextNilai.Text + "! = " & Kar & " = " & Hasil ElseIf n = 0 Or n = 1 Then TexHasil.Text = " Hasil " + TextNilai.Text + "! = 1 " Else TexHasil.Text = " Masukan tidak Valid ! " End If End Sub End Class B. Hasil
  • 16. C. Analisa Hasil Jika n > 1 maka Hasil = 1, Hasil = hasil * i. Jika i<= n maka Kar = Kar & i & "*". Alur n=1 maka n adalah sebagai hasil, maka hasil dapat di kalikan dengan hasil dari i. Demikian seterusnya. Maka,cetak hasil di layar. D. Kesimpulan Cetak hasil di layar dengan menggunakan proses atau hitung. Faktorialnya dimulai dengan perkalian. Pratikum 6 -7 1. Program Form Menghitung Nilai Huruf dan Nilai Bobot A. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Sub konversi_bobot(ByVal huruf As String, ByRef bobot As Single) If (huruf = "A") Then bobot = 4 ElseIf (huruf = "B+") Then bobot = 3.5 ElseIf (huruf = "B") Then bobot = 3 ElseIf (huruf = "C+") Then bobot = 2.5 ElseIf (huruf = "C") Then bobot = 2 ElseIf (huruf = "D") Then bobot = 1 Else bobot = 0 End If End Sub Public Function konversi_huruf(ByVal na As Single) As String If (na >= 81) Then konversi_huruf = "A" ElseIf (na >= 76) Then konversi_huruf = "B+" ElseIf (na >= 71) Then konversi_huruf = "B" ElseIf (na >= 66) Then konversi_huruf = "C+" ElseIf (na >= 61) Then konversi_huruf = "C" ElseIf (na >= 56) Then konversi_huruf = "D" Else konversi_huruf = "E" End If
  • 17. End Function Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged bobot = 0 TextBox2.Text = konversi_huruf(Val(TextBox1.Text)) konversi_bobot(TextBox2.Text, bobot) TextBox3.Text = bobot End Sub End Class B. Hasil C. Analisa hasil Kita memulai dengan Public Sub konversi_bobot. Kita akan mengkonversikan sebuah nilai angka dalam bentuk huruf dan angka. Pertama kita menggunkan bobot. Jika nilai nilai A maka bobot adalah 4, B+ maka bobot adalah 3.5, B maka bobot adalah 3, C+ maka bobot adalah 2.5, C maka bobot adalah 2, D maka bobot adalah 1. Yang kedua menggunakan Public Function konversi_huruf. Kita akan mengkonversikan suatu nilai yang dimasukkan kedalam bentuk nilai huruf. Kita misalkan nilai (na) adalah nilai akhir, maka jika nilai na lebih kecil atau sama dengan 81 maka konversikanlah kedalam bentuk huruf “A”, Jika 76 maka konversikanlah kedalam bentuk huruf “B+”, Jika 71 maka konversikanlah kedalam bentuk huruf “B+”, Jika 66 maka konversikanlah kedalam bentuk huruf “B+”, Jika 61 maka konversikanlah kedalam bentuk huruf “C”, Jika 56 maka konversikanlah kedalam bentuk
  • 18. huruf “D”, Jika dibawah atau tidak sama dengan 56 maka konversikanlah kedalam bentuk huruf “E”. Untuk nilai bobot cetak di TextBox2, dan nilai huruf cetak di TextBox3. D. Kesimpulan Setiap nilai yang kita input akan dikonversikan kedalam bentuk angka dan huruf. Tergantung bobot nilai yang kita masukkan. 2. Program untuk menghitung permutasi dan kombinasi suatu bilangan dengan menggunakan function procedure dan sub procedure. A. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Function faktorial(ByVal jum As Integer) As Long faktorial = 1 For X As Integer = 2 To jum faktorial = faktorial * X Next X End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fak_n, fak_nr, fak_r As Long Dim n, nr, r As Integer n = CInt(TextBox1.Text) nr = CInt(TextBox1.Text) - CInt(TextBox2.Text) r = CInt(TextBox2.Text) fak_n = faktorial(n) fak_nr = faktorial(nr) fak_r = faktorial(r) TextBox4.Text = fak_n / (fak_nr * fak_r) TextBox3.Text = fak_n / (fak_nr) End Sub Private Sub fak(ByVal N As Integer, ByRef fak As Long) fak = 1 For X As Integer = 2 To N fak = fak * X Next X End Sub End Class B. Hasil
  • 19. C. Analisis hasil Private Function factorial dengan nilai factorial adalah 1 dan utnuk X adalah 2 dan dimasukkan kedalam jumlah. Faktorial adalah factorial dikali X. Misalkan fak_n adalah di TextBox1, fak_nr adalah TextBox1 di kurang TextBox2, dan fak_r adalah TextBox2. Masukkan nilai N dan factorkan dengan perkalian factorial dikali dengan bilangan X demikian seterusnya. Tampilkan nilai permutasi di Text.Box3, dan kombinasi di TextBox4. D. Kesimpulan Sebuah nilai akan difaktorkan sesuai dengan data yang telah ditentukan. Patikum_8 1. Program untuk menghitung nilai Tertinggi, Terendah, Rata-rata dan Keterangan. a. Listing Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("N I M") ListView1.Columns.Add("N A M A", 115) ListView1.Columns.Add("P R O D I", 110) TxtNIM.Text = 1 TxtNama.Focus() End Sub Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click Dim Arr(2) As String Arr(0) = TxtNIM.Text Arr(1) = TxtNama.Text Arr(2) = TxtProdi.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(Arr(0)) listitem.SubItems.Add(Arr(1))
  • 20. listitem.SubItems.Add(Arr(2)) TxtNIM.Text = TxtNIM.Text + 1 TxtNama.Text = "" TxtProdi.Text = "" TxtNama.Focus() End Sub End Class b. Hasil c. Analisis Hasil
  • 21. Array Satu Dimensi. Darihasil tersebut terlihat bahwa data yang kita masukkan atau yang kita input akan akan ditambahkan kedalam tabel. Itu artinya bila kita menginput beberapa data dari media masukkan maka akan di tempatkan kedalam kelompok data. d. Kesimpulan Dari hasil tersebut tampak bahwa nama, npm dan prodi yang kita masukkan atau kita input akan dimasukkan kedalam tabel yang telah kita buat. 2. Program untuk menentukan IPK yang paling banyak muncul dan pencarian IPK mahasiswa berdasarkan keterangan. a. Listing Public Class Form2 Dim brs As Integer Dim data() As Single Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).HeaderText = "NO." DataGridView1.Columns(1).HeaderText = "NPM" DataGridView1.Columns(2).HeaderText = "NAMA" DataGridView1.Columns(3).HeaderText = "IPK" DataGridView1.Columns(4).HeaderText = "KETERANGAN" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DataGridView1.RowCount = DataGridView1.RowCount + 1 DataGridView1.Item(0, brs).Value = brs + 1 DataGridView1.Item(1, brs).Value = TextBox1.Text DataGridView1.Item(2, brs).Value = TextBox2.Text DataGridView1.Item(3, brs).Value = TextBox3.Text brs = brs + 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For x As Integer = 0 To DataGridView1.RowCount - 2 ReDim Preserve data(x) data(x) = CSng(DataGridView1.Item(3, x).Value) If data(x) >= 3.5 And data(x) <= 4.0 Then DataGridView1.Item(4, x).Value = "SANGAT MEMUASKAN" ElseIf data(x) >= 3.0 And data(x) <= 3.4 Then DataGridView1.Item(4, x).Value = "MEMUASKAN" ElseIf data(x) >= 2.5 And data(x) <= 2.9 Then DataGridView1.Item(4, x).Value = "CUKUP MEMUASKAN" ElseIf data(x) >= 0 And data(x) <= 2.4 Then DataGridView1.Item(4, x).Value = "BURUK" End If Label4.Text = "IPK TERTINGGI = " & data.Max Label5.Text = "IPK TERENDAH = " & data.Min Label6.Text = "IPK RATA-RATA = " & data.Average Next End Sub End Class
  • 22. b. Hasil c. Analisis Hasil Aplikasi untuk menghitung IPK dari masing-masing mahasiswa yang di input dari media masukan keyboard. Kita akan memasukkan NPM,Nama, dan IPK. Lalu kita masukkan atau input ke dalam tabel. Setelah itu kita proses untuk mencari nilai terbesar,terendah serta rata- ratanya. Itu berarti kita masukkan data lalu kita input kedalam tabel atau datagridview. d. Kesimpulan Dari hasil tabel tersebut tampak bahwa setiap data yang di input akan masukkan kedalam tabel tersebut. Pratikum_9
  • 23. 1. Program untuk membuka teks dari file dengan menggunakan listbox. A. Listing Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DATA As String Dim i As Integer = FreeFile() FileOpen(i, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Append) DATA = TextBox1.Text & Space(25) & TextBox2.Text & Space(25) & TextBox3.Text PrintLine(i, DATA) FileClose(i) TAMPIL() End Sub Sub TAMPIL() Dim J As Integer = FreeFile() Dim s, sl As String ListBox1.Items.Clear() FileOpen(J, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Input) Do Until EOF(J) Input(J, s) 'tiap baris ditampung divariabel "s" ListBox1.Items.Add(s) Loop FileClose(J) End Sub End Class B. Hasil
  • 24. C. Analisis Hasil Program ini akan menampilkan atau membuka file dalam bentuk ListBox dan NotePad. Dalam tampillannya, file akan terlihat tidak sempurna dikarenakan data yang diinput tidak menentu panjang karakter berapa. Ada dua sekmen dalam program ini, yang pertama : Data yang di input akan ditambahkan ke teks file dalam NotePad. Yang kedua akan di tampilkan di ListBox. D. Kesimpulan Bila dilihat dari tampilan program tersebut, program tersebut belum sempurna. Dikarenakan tidak teratur dalam posisi baris dan kolom dari file-file tersebut. 2. Program untuk membuka teks dari file dengan menggunakan DataGridView . A. Listing Public Class Form2 Dim BRS As Integer Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DataGridView1.RowCount = 1 DataGridView1.ColumnCount = 3 DataGridView1.Columns(0).HeaderText = "NIM" DataGridView1.Columns(0).Width = 100 DataGridView1.Columns(1).HeaderText = "NAMA" DataGridView1.Columns(1).Width = 100 DataGridView1.Columns(2).HeaderText = "ALAMAT" DataGridView1.Columns(2).Width = 100 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DATA As String Dim i As Integer = FreeFile() FileOpen(i, "F:DocumenDokumen KuliahVisual BasicPratikumPratikum09DataMHS.txt", OpenMode.Append) DATA = TextBox1.Text & Space(25) & TextBox2.Text & Space(25) & TextBox3.Text PrintLine(i, DATA) FileClose(i) DataGridView1.RowCount = DataGridView1.RowCount + 1 DataGridView1.Item(0, BRS).Value = TextBox1.Text DataGridView1.Item(1, BRS).Value = TextBox2.Text DataGridView1.Item(2, BRS).Value = TextBox3.Text BRS = BRS + 1 End Sub End Class B. Hasil
  • 25. C. Analisis Hasil Program ini akan menampilkan atau membuka file dalam bentuk DataGridView dan NotePad. Dalam tampillannya, file akan terlihat sempurna berbeda dengan mengunakan ListBox. Sama seperti ListBox program ini juga mempunyai dua sekmen dalam program ini, yang pertama : Data yang di input akan ditambahkan ke teks file dalam NotePad. Yang kedua akan di tampilkan di DataGridView. D. Kesimpulan Dari hasil dan tampilan terlihat bahwa data yang diinput terlihat sangat rapi dengan menggunakan DataGridView. 3. Program untuk membuka teks dari file dengan menggunakan ListView. A. Listing Public Class Form3 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("NIM") ListView1.Columns.Add("NAMA", 115) ListView1.Columns.Add("PRODI", 110) TextBox1.Text = 1 TextBox2.Focus() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  • 26. Dim arr(2) As String arr(0) = TextBox1.Text arr(1) = TextBox2.Text arr(2) = TextBox3.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(arr(0)) listitem.SubItems.Add(arr(1)) listitem.SubItems.Add(arr(2)) TextBox1.Text = TextBox1.Text + 1 TextBox2.Text = "" TextBox3.Text = "" TextBox2.Focus() End Sub End Class B. Hasil C. Analisis Hasil Berbeda dengan program sebelumnya, program ini hanya mempunyai satu sekmen. Yaitu file hanya ditampilkan didalam ListView. Data yang diinput, akan ditabahkan kedalam ListView. Data akan terlihat tersusun rapi, karena kolom dan baris otomatis terinput. D. Kesimpulan Berbeda dengan program yang sebelumnya data akan sangat terlihat sangat rapi. NPM akan terurut secara otomatis tanpa menghapus serta mengganti yang baru lagi. Pratikum 10 1. Menghubungkan Visual Basic dengan Sql Management Studio. A. Listing - Sql Create Database Penjualan Use Penjualan Create Table TBARANG( KODE_BRG VarChar(5) Primary Key,
  • 27. NAMA_BRG Char(20), SATUAN Char(5), STOK Tinyint) Insert Into TBARANG Values ('A001','KULKAS','UNIT','10') Insert Into TBARANG Values ('A002','MOBIL SEDAN','UNIT','20') Insert Into TBARANG Values ('A003','LAPTOP ACER','UNIT','30') Insert Into TBARANG Values ('A004','HEANDPHONE','UNIT','12') Insert Into TBARANG Values ('A005','SEPEDA','UNIT','13') - Modul Imports System.Data.OleDb Module Module1 Public koneksi As String Public cn As New SqlClient.SqlConnection Public Sub bukakoneksi() koneksi = "Data Source=ASPIRE-PCSQLEXPRESS;database=PENJUALAN;user id=;password=;integrated security=true" cn = New SqlClient.SqlConnection(koneksi) Try cn.Open() MessageBox.Show(" koneksi berhasil") Catch ex As Exception MessageBox.Show(ex.Message, "error") End End Try End Sub End Module - Vb Imports System.Data.SqlClient Public Class Form1 Dim cn As SqlConnection Dim da As SqlDataAdapter Dim CMD As SqlCommand Dim CMD2 As SqlCommand Dim DREADER As SqlDataReader Dim ds As DataSet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bukakoneksi() On Error GoTo salah cn = New SqlConnection(koneksi) If cn.State = ConnectionState.Closed Then cn.Open() End If Call refreshtampil() Exit Sub salah: MsgBox(Err.Description) End End Sub Sub refreshtampil() da = New SqlDataAdapter("SELECT * FROM TBARANG", cn) ds = New DataSet ds.Clear() da.Fill(ds, "BRG") DataGridView1.DataSource = (ds.Tables("BRG")) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  • 28. Dim sql As String CMD2 = New SqlCommand("SELECT * FROM TBARANG WHERE KODE_BRG= '" & TextBox1.Text & "'", cn) DREADER = CMD2.ExecuteReader If DREADER.Read Then MsgBox("DATA SUDAH ADA") Else DREADER.Close() sql = "INSERT INTO TBARANG VALUES( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "')" CMD = New SqlCommand(sql, cn) CMD.ExecuteNonQuery() Call refreshtampil() TextBox1.Focus() End If DREADER.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim x As String x = InputBox("Masukkan KODE BARANG : ", "PENCARIAN") CMD = New SqlCommand("SELECT * FROM TBARANG WHERE KODE_BRG= '" & x & "'", cn) DREADER = CMD.ExecuteReader If DREADER.Read Then TextBox1.Text = DREADER.Item("KODE_BRG") TextBox2.Text = DREADER.Item("NAMA_BRG") ComboBox1.Text = DREADER.Item("SATUAN") TextBox3.Text = DREADER.Item("STOK") Else MsgBox("DATA TIDAK DITEMUKAN") End If DREADER.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sql As String sql = "UPDATE TBARANG SET NAMA_BRG=" & _ "'" & TextBox2.Text & "',STOK='" & TextBox3.Text & "' WHERE KODE_BRG= '" & TextBox1.Text & "'" CMD = New SqlCommand(sql, cn) CMD.ExecuteNonQuery() Call refreshtampil() TextBox1.Focus() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim sql As String Dim PSN As String PSN = MsgBox("APAKAH YAKIN DIHAPUS", vbQuestion + vbYesNo, "KONFIRMASI") If PSN = vbYes Then sql = "DELETE FROM TBARANG WHERE KODE_BRG= '" & TextBox1.Text & "'" CMD = New SqlCommand(sql, cn) Dim x As Integer = CMD.ExecuteNonQuery If x = 1 Then MessageBox.Show("DATA BERHASIL DIHAPUS") Call refreshtampil() TextBox1.Focus() Else MessageBox.Show("GAGAL HAPUS DATA")
  • 29. End If End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Close() End Sub End Class B. Hasil - Sql - Vb Tombol Cari
  • 32. Tombol Simpan C. Analisa hasil Dari hasil tersebut diatas, kita akan menghubungkan Visual Basic dengan Sql Management Studio. Pertama sekalikita menambahkan modul sebagai penghubungnya agar data dapat terkoneksi dengan baik. Yang selanjutnya kita menambahkan data ke dalam Sql atau dengan kata lain kita mengimput data sql. Sebagai data di dalam visual basic. Lalu kita menambahkan design programnya serta listing-listingnya. Didalam program yang kita buat, kita menambahkan beberapa tombol seperti tombol simpan, rubah, hapus cari, dan keluar serta datagridview sebagaitempat data dari sql tersebut. D. Kesimpullan Visual Basic tidak bisa terkoneksi dengan Sql bila server dalam computer atau server di Sql kita dua server serta data harus sesuaidengan data dalam Sql dengan Visual Basic.
  • 33. LAPORAN HASIL PRATIKUM PEMROGRAMAN VISUAL I Disusun Oleh : Nama : Desiaman NPM : 150840002 Jurusan : Teknik Informatika Dosen : Sorang Pakpahan. S.Kom, M.Kom FAKULTAS ILMU KOMPUTER UNIVERSITAS KATOLIK SANTO THOMAS MEDAN SU