SDFSDFSDF: Visual Basic

Tampilkan postingan dengan label Visual Basic. Tampilkan semua postingan

Selasa, 05 Januari 2016

Rekomendasi Bahasa Pemrograman Yang Mudah Dipelajari Pemula

Bahasa pemrograman adalah sebuah bahasa yang digunakan didalam komputer untuk memberikan perintah atau intruksi kepada komputer untuk melakukan hal tertentu. Dengan bahasa pemrograman kita dapat memerintahkan komputer untuk melakukan suatu pekerjaan, misalnya perhitungan atau membuat data. Dengan bahasa pemrograman kita juga dapat membuat aplikasi sendiri, seperti aplikasi kalkulator, penghitungan gaji, sampai pembuatan data karyawan.

Ada banyak jenis bahasa pemrograman yang dapat digunakan di komputer, masing-masing memiliki fungsi dan kelebihan serta kekuranganya sendiri. Saat ini penulis tidak akan membahas terlalu jauh tentang fungsi bahasa pemrograman. Penulis akan memberikan rekomendasi bahasa pemrograman yang mudah dipelajari, terutama untuk pemula. Berikut listnya

Rekomendasi Bahasa Pemrograman Untuk Pemula

1. Bahasa Pascal

Pertama kali penulis diajarkan bahasa pemrograman dikampus adalah bahasa pascal. Bahasa pascal dipilih sebagai pengantar karena mudah dipahami, syntax-syntaxnya juga seperti menggunakan bahasa inggris sehingga lebih mudah dipahami. Bagi teman-teman yang baru mengenal dunia pemroggraman, penulis sarankan untuk belajar bahasa ini terlebih dahulu. Aplikasi yang penulis gunakan untuk belajar bahasa ini adalah Turbo Pascal.

2. Bahasa Java

Bahasa Java adalah bahasa pemrograman yang paling banyak digunakan saat ini. Bahasa Java banyak digunakan untuk membuat aplikasi berbasis mobile. Seiring dengan semakin Boomingnya Android, bahasa ini makin banyak diminati orang untuk membuat aplikasi android. Bagi teman-teman yang tertarik untuk belajar membuat aplikasi android, bisa langsung mencoba mempelajari bahasa Java.

3. Bahasa C/C++

Jika berbicara mengenai bahasa pemrograman C atau C++ ini adalah salah satu bahasa yang juga tidak kalah saing mengenai penggunaan dari para programmer dunia. C++ sendiri merupakan pengembangan atau bisa dibilang turunan dari basa C itu sendiri, jika kita melihat syntax-syntax dari PHP maka akan mirip sekali dengan bahasa C itu sendiri, benar demikian, karena bahasa pemrograman PHP juga dikembangkan atau merupakan turunan dari bahasa C.

4. Bahasa PHP

Pertama kali penulis mengenal pemrogaman adalah pemrograman web, dengan bahasa pemrograman yang digunakan adalah bahasa PHP. PHP sendiri merupakan bahasa pemrograman yang berjalan disisi server, sehingga pengguna tidak akan melihat script ini. Bagi teman-teman yang ingin belajar membuat website, bisa mempelajari bahasa PHP ini, untuk membuat website menjadi dinamis dan pembaharuan konten menjadi lebih mudah.

5. Bahasa Basic

Bahasa Basic adalah bahasa pemrograman yang digunakan pada aplikasi Visual Basic. Aplikasi Visual Basic sendiri merupakan sebuah aplikasi yang berguna untuk membuat aplikasi baru berbasis dekstop dengan menggunakan bahasa basic sebagai perintahnya. Aplikasi yang dibuat menggunakan Visual Basic berbasis GUI. Bahasa ini juga sangat mudah dipelajari, dan bagi teman-teman yang tertarik untuk membuat aplikasi berbasis dekstop bisa mempelajari bahasa ini.

Untuk memudahkan teman-teman dalam belajar bahasa pemrograman, sebaiknya pelajari terlebih dahulu satu bahasa pemrograman sampai benar-benar mahir, setelah itu barulah mempelajari bahasa pemrograman lainya. Karena setiap bahasa pemrograman memiliki kemiripan dalam penggunaanya.

Itulah 5 Rekomendasi Bahasa Pemrograman Untuk Pemula, semoga membantu.

Kamis, 31 Desember 2015

Menggunakan ComboBox Di Visual Basic

Hampir sama dengan Option dan CheckBox, ComboBox juga berfungsi memberikan pilihan. ComboBox hanya mengijinkan user untuk memiliki 1 pilihan. ComboBox memberikan pilihan dalam bentuk list atau daftar, pilihan dilakukan dengan mengklik salah satu daftar tersebut. Baiklah untuk lebih jelasnya, mari kita coba membuat Aplikasi Huruf Mutu Mahasiswa berikut ini

Membuat Aplikasi Huruf Mutu Mahasiswa

1. Buatlah desain aplikasi seperti pada gambar dibawah ini

2. Ganti Properties tools yang telah dibuat menjadi seperti dibawah ini

Tools	Nama	Properties
Label	Label1	Caption : HURUF MUTU MAHASISWA
	Label2	Caption : NPM
	Label3	Caption : NAMA MAHASISWA
	Label4	Caption : JURUSAN
	Label5	Caption : NILAI QUIS
	Label6	Caption : NILAI TUGAS
	Label7	Caption : UTS
	Label8	Caption : UAS
	Label9	Caption : NILAI AKHIR
	Label10	Caption : HURUF MUTU YANG DIDAPATKAN
ComboBox	Combo1	Name : CboNpm Text : Pilih Npm
TextBox	Text1	Name : TxtNama Text : -
	Text2	Name : TxtJurusan Text : -
	Text3	Name : TxtNilaiQuis Text : -
	Text4	Name : TxtNilaiTugas Text : -
	Text5	Name : TxUts Text : -
	Text6	Name : TxtUas Text : -
	Text7	Name : TxtNilaiAkhir Text : -
	Text8	Name : TxtMutu Text : -
Command Button	Command1	Name : CmdProses Caption : Proses
	Command2	Name : CmdBatal Caption : Batal
	Command3	Name : CmdExit Caption : Exit

3. Masukan script dibawah ini pada kotak dialog script

Private Sub CboNpm_Click()
Dim Nama, Jurusan As String
Select Case CboNpm.Text
Case "15100001"
Nama = "Stevanus Prihanuji"
Jurusan = "Sistem Informasi"
Case "15100002"
Nama = "Fergiawan Listianto"
Jurusan = "Sistem Informasi"
Case "15100003"
Nama = "Renita Fitri Andriyanti"
Jurusan = "Sistem Informasi"
Case "15100004"
Nama = "Evi Setyorini"
Jurusan = "Sistem Informasi"
Case "15100005"
Nama = "Anggi Maharani"
Jurusan = "Sistem Informasi"
Case "15100006"
Nama = "Oktafiani"
Jurusan = "Sistem Informasi"
Case "15100007"
Nama = "Desi Yulianti"
Jurusan = "Sistem Informasi"
Case "15100008"
Nama = "Ahmad Yudi"
Jurusan = "Sistem Informasi"
Case "15100009"
Nama = "Opi Laraswati"
Jurusan = "Sistem Informasi"
Case "15100010"
Nama = "Laili Rizkia Putri"
Jurusan = "Sistem Informasi"
Case "15100011"
Nama = "Tia Anggraeni"
Jurusan = "Sistem Informasi"
Case "15100012"
Nama = "Fisuryani"
Jurusan = "Sistem Informasi"
Case "15100014"
Nama = "Ita Indriyani"
Jurusan = "Sistem Informasi"
Case "15100015"
Nama = "M Arif Rizki"
Jurusan = "Sistem Informasi"
Case "15100016"
Nama = "Mirzon Prananda"
Jurusan = "Sistem Informasi"
Case "15100017"
Nama = "Desi Auliani"
Jurusan = "Sistem Informasi"
Case "15100018"
Nama = "Tri Setia Ningsih"
Jurusan = "Sistem Informasi"
Case "15100023"
Nama = "Anggun Destriyanti"
Jurusan = "Sistem Informasi"
Case "15100024"
Nama = "Rizah Anggraeni"
Jurusan = "Sistem Informasi"
Case "15100025"
Nama = "Rahmat Darmawan"
Jurusan = "Sistem Informasi"
Case "15100026"
Nama = "Reza Anggara"
Jurusan = "Sistem Informasi"
Case "15100027"
Nama = "Rio Adi Pradhana"
Jurusan = "Sistem Informasi"
Case "15100030"
Nama = "Hermin Sukmiati"
Jurusan = "Sistem Informasi"
Case "15100031"
Nama = "Artika Kustriyani"
Jurusan = "Sistem Informasi"
Case "15100032"
Nama = "Intan Ratnasari"
Jurusan = "Manajemen Informatika"
Case "15100033"
Nama = "Dona Ari Wijaya"
Jurusan = "Sistem Informasi"
Case "15100034"
Nama = "Dimas Bima Ananta"
Jurusan = "Sistem Informasi"
Case "15100036"
Nama = ""
Jurusan = "Sistem Informasi"
Case "15100037"
Nama = "Jefri Erlamsyah"
Jurusan = "Sistem Informasi"
Case "15100038"
Nama = "Panji Wahyu Trihantoro"
Jurusan = "Sistem Informasi"
Case "15100039"
Nama = "Yusuf Sugianto"
Jurusan = "Sistem Informasi"
Case "15100040"
Nama = "Bagas Anggara"
Jurusan = "Sistem Informasi"
Case "15100041"
Nama = "Rudi Rizkiyanto"
Jurusan = "Sistem Informasi"
End Select
TxtNama = Nama
TxtJurusan = Jurusan
TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = ""
TxtNama.Text = ""
TxtJurusan.Text = ""
TxtNilaiQuis.Text = ""
TxtNilaiTugas.Text = ""
TxtUts.Text = ""
TxtUas.Text = ""
TxtNilaiAkhir.Text = ""
TxtMutu.Text = ""
TxtNilaiAkhir.BackColor = vbWhite
TxtMutu.BackColor = vbWhite
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim Mutu As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Mutu = "A"
Case Is > 70
Mutu = "B"
Case Is > 60
Mutu = "C"
Case Is > 50
Mutu = "D"
Case Is < 50
Mutu = "E"
End Select
TxtMutu = Mutu
TxtNilaiAkhir.BackColor = vbRed
TxtMutu.BackColor = vbRed
End Sub

Private Sub Form_Load()
CboNpm.AddItem "15100001"
CboNpm.AddItem "15100002"
CboNpm.AddItem "15100003"
CboNpm.AddItem "15100004"
CboNpm.AddItem "15100005"
CboNpm.AddItem "15100006"
CboNpm.AddItem "15100007"
CboNpm.AddItem "15100008"
CboNpm.AddItem "15100009"
CboNpm.AddItem "15100010"
CboNpm.AddItem "15100011"
CboNpm.AddItem "15100012"
CboNpm.AddItem "15100014"
CboNpm.AddItem "15100015"
CboNpm.AddItem "15100016"
CboNpm.AddItem "15100017"
CboNpm.AddItem "15100018"
CboNpm.AddItem "15100023"
CboNpm.AddItem "15100024"
CboNpm.AddItem "15100025"
CboNpm.AddItem "15100026"
CboNpm.AddItem "15100027"
CboNpm.AddItem "15100030"
CboNpm.AddItem "15100031"
CboNpm.AddItem "15100032"
CboNpm.AddItem "15100033"
CboNpm.AddItem "15100034"
CboNpm.AddItem "15100036"
CboNpm.AddItem "15100037"
CboNpm.AddItem "15100038"
CboNpm.AddItem "15100039"
CboNpm.AddItem "15100040"
CboNpm.AddItem "15100041"
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub

Private Sub TxtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim Mutu As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Mutu = "A"
Case Is > 70
Mutu = "B"
Case Is > 60
Mutu = "C"
Case Is > 50
Mutu = "D"
Case Is < 50
Mutu = "E"
End Select
TxtMutu = Mutu
TxtNilaiAkhir.BackColor = vbRed
TxtMutu.BackColor = vbRed
End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub

4. Jalankan aplikasinya dengan menekan F5

Selamat Mencoba

Baca Juga :

Pengertian Komputer Dan Komponen Penyusunya

Macam Macam Perangkat Keras Yang Wajib Ada Di Komputer Beserta Fungsinya
Macam Macam Perangkat Peripheral Komputer Beserta Fungsinya
Macam Macam Perangkat Keras Jaringan Komputer Yang Wajib Diketahui
3 Jenis Kabel Jaringan Komputer Yang Sering Digunakan
Menggunakan Option Dan Check Box Di Visual Basic
Apa Perbedaan Antara Internet, Intranet Dan Ekstranet?
3 Situs Belajar Pemrograman Web Gratis Yang Bakal Membuatmu Handal
5 Distro Linux Terbaik Yang Wajib Dicoba
4 Alasan Kenapa Kamu Harus Migrasi Ke Linux

Rabu, 30 Desember 2015

Source Code Aplikasi Data Mahasiswa Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub

Private Sub CmdProses_Click()
Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant

Kode = TxtNpm

TahunMasuk = "20" & Left(Kode, 2)
TxtTahunMasuk = TahunMasuk

KodeJurusan = Mid(Kode, 3, 1)
Select Case KodeJurusan
Case "1"
Jurusan = "Sistem Informasi"
Case "2"
Jurusan = "Teknik Informatika"
Case "3"
Jurusan = "Manajemen Informatika"
Case "4"
Jurusan = "Komputer Akuntansi"
End Select
TxtJurusan = Jurusan

KodePrody = Mid(Kode, 4, 2)
Select Case KodePrody
Case "01"
Prody = "Strata Satu"
Case "02"
Prody = "Diplomat Empat"
Case "03"
Prody = "Diplomat Tiga"
Case "04"
Prody = "Diplomat Dua"
End Select
TxtPrody = Prody

NomorUrut = Right(Kode, 3)
TxtNomorUrut = NomorUrut
End Sub

Source Code Aplikasi Entri Data Penjualan Laptop

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CboKode_Click()
Dim Merk, Harga, Kode As Variant

Kode = Mid(CboKode.Text, 7, 5)
Select Case Kode
Case "MC965"
Merk = "Apple MC965 MacBook Air"
Harga = 12800000
Case "MC966"
Merk = "Apple MC966 MacBook Air"
Harga = 15800000
Case "MC968"
Merk = "Apple MC968 MacBook Air"
Harga = 9900000
Case "MC969"
Merk = "Apple MC969 MacBook Air"
Harga = 11900000
Case "MC700"
Merk = "Apple MC700 MacBook Pro"
Harga = 10800000
Case "MC721"
Merk = "Apple MC721 MacBook Pro"
Harga = 15900000
Case "MC723"
Merk = "Apple MC723 MacBook Pro"
Harga = 19300000
Case "MC724"
Merk = "Apple MC724 MacBook Pro"
Harga = 13700000
Case "MC311"
Merk = "Apple MC311 MacBook Pro"
Harga = 24200000
Case "MC313"
Merk = "Apple MC313 MacBook Pro"
Harga = 11900000
Case "MC314"
Merk = "Apple MC314 MacBook Pro"
Harga = 14700000
Case "MC318"
Merk = "Apple MC318 MacBook Pro"
Harga = 17600000
Case "MC322"
Merk = "Apple MC322 MacBook Pro"
Harga = 21300000
End Select
TxtMerk = Merk
TxtHarga = Harga
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode.Text = "Pilih Kode Laptop"
TxtMerk.Text = ""
TxtHarga.Text = ""
TxtJual.Text = ""
TxtHargaJual.Text = ""
TxtDiskon.Text = ""
TxtTotal.Text = ""
End Sub

Private Sub CmdProses_Click()
Dim HS, Jual, Jumlah, Diskon, Total As Variant
HS = Val(TxtHarga)
Jual = Val(TxtJual)
Jumlah = HS * Jual
TxtHargaJual = Jumlah

Select Case Jumlah
Case Is > 140000000
Diskon = Jumlah * 0.15
Case Is > 135000000
Diskon = Jumlah * 0.1
Case Is > 130000000
Diskon = Jumlah * 0.05
Case Is > 125000000
Diskon = Jumlah * 0.02
Case Is <= 125000000
Diskon = Jumlah * 0
End Select
TxtDiskon = Diskon

Total = Jumlah - Diskon
TxtTotal = Total
End Sub

Private Sub Form_Load()
CboKode.AddItem "Apple MC965 MacBook Air"
CboKode.AddItem "Apple MC966 MacBook Air"
CboKode.AddItem "Apple MC968 MacBook Air"
CboKode.AddItem "Apple MC969 MacBook Air"
CboKode.AddItem "Apple MC700 MacBook Pro"
CboKode.AddItem "Apple MC721 MacBook Pro"
CboKode.AddItem "Apple MC723 MacBook Pro"
CboKode.AddItem "Apple MC724 MacBook Pro"
CboKode.AddItem "Apple MC311 MacBook Pro"
CboKode.AddItem "Apple MC313 MacBook Pro"
CboKode.AddItem "Apple MC314 MacBook Pro"
CboKode.AddItem "Apple MC318 MacBook Pro"
CboKode.AddItem "Apple MC322 MacBook Pro"
End Sub

Source Code Perhitungan Gaji Karyawan Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = ""
TxtNik = ""
TxtGolongan = ""
TxtKodeStatus = ""
TxtStatus = ""
TxtTahun = ""
TxtJabatan = ""
TxtBagian = ""
TxtGajiPokok = ""
TxtTunjangan = ""
TxtTotalGaji = ""
End Sub

Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan

KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus

If KodeStatus = "S" Then
Status = "Single"
ElseIf KodeStatus = "M" Then
Status = "Menikah"
ElseIf KodeStatus = "J" Then
Status = "Janda"
ElseIf KodeStatus = "D" Then
Status = "Duda"
End If
TxtStatus = Status

Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun

Select Case Golongan
Case "A"
Jabatan = "Manager"
GajiPokok = 4000000
Tunjangan = 1025000
Case "B"
Jabatan = "Ka. Seksi"
GajiPokok = 3500000
Tunjangan = 975000
Case "C"
Jabatan = "Staff"
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan

KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case "KEU"
Bagian = "Accounting"
Case "ADM"
Bagian = "Administrasi"
Case "SDM"
Bagian = "General Affair"
Case "EDP"
Bagian = "IT Unit"
Case "SPM"
Bagian = "Security"
End Select
TxtBagian = Bagian

TxtTotalGaji = GajiPokok + Tunjangan
End Sub

Private Sub Form_Activate()
TxtNama.SetFocus
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub

Selasa, 29 Desember 2015

Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic

Buat tampilan seperti dibawah ini

Source Code Membuat Aplikasi Penjualan Tiket Kereta Api

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtKt.SetFocus
TxtKt = ""
TxtHt = ""
TxtJk = ""
TxtJb = ""
TxtJt = ""
TxtTotal = ""
End Sub

Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant

Kode = Left(TxtKt.Text, 3)
Select Case Kode
Case "BIM"
Harga = 50000
Jenis = "BIMA"
Berangkat = "16.00"
Case "EKO"
Harga = 35000
Jenis = "EKONOMI"
Berangkat = "19.00"
Case "MUT"
Harga = 23000
Jenis = "MUTIARA"
Berangkat = "17.00"
Case "SEN"
Harga = 15000
Jenis = "SENJA"
Berangkat = "20.00"
End Select
TxtHt = Harga
TxtJk = Jenis
TxtJb = Berangkat
TxtJt.SetFocus
End Sub

Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
End If
End Sub

Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Buat Tampilan Seperti Dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = "Pilih Kode Buku"
TxtJudul = ""
TxtPengarang = ""
TxtTerbit = ""
TxtPenerbit = ""
TxtHarga = ""
End Sub

Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

Kode = CboKode
KodeBuku = Mid(Kode, 3, 3)
Select Case KodeBuku
Case "SIM"
Judul = "Sistem Informasi Manajemen"
Pengarang = "Yati Nur Oktavia"
Harga = 75900
Case "EDP"
Judul = "Elektronik Data Processing"
Pengarang = "Imam Tarmizi"
Harga = 62000
Case "MNJ"
Judul = "Manajemen"
Pengarang = "Valentina Mariana Adiwianti"
Harga = 42000
Case "CDR"
Judul = "Corel Draw"
Pengarang = "Riyan Suhandi"
Harga = 53000
Case "RPL"
Judul = "Rekayasa Perangkat Lunak"
Pengarang = "Sinta Umpu Singa"
Harga = 83000
End Select
TxtJudul = Judul
TxtPengarang = Pengarang
TxtHarga = Harga

KodePenerbit = Left(Kode, 1)
Select Case KodePenerbit
Case "A"
Penerbit = "Andi Offset Yogyakarta"
Case "I"
Penerbit = "Indah Surabaya"
Case "S"
Penerbit = "Indah Surabaya"
Case "E"
Penerbit = "Elek Media Komputindo"
Case "M"
Penerbit = "Maxicom"
End Select
TxtPenerbit = Penerbit

KodeTahun = Right(Kode, 2)
Select Case KodeTahun
Case "01"
Tahun = "20" & KodeTahun
Case "02"
Tahun = "20" & KodeTahun
Case "03"
Tahun = "20" & KodeTahun
Case "04"
Tahun = "20" & KodeTahun
Case "05"
Tahun = "20" & KodeTahun
End Select
TxtTerbit = Tahun
End Sub

Private Sub Form_Load()
CboKode.AddItem "A-SIM-01"
CboKode.AddItem "I-EDP-02"
CboKode.AddItem "S-MNJ-03"
CboKode.AddItem "E-CDR-04"
CboKode.AddItem "M-RPL-05"
End Sub

Rabu, 23 Desember 2015

Menggunakan Option Dan Check Box Di Visual Basic

Option adalah salah satu tools pada visual basic yang digunakan untuk memberikan pilihan untuk user. Ketika menggunakan option user hanya diijinkan untuk memilih satu pilihan. Sedangkan Check Box adalah tools yang digunakan untuk memberikan pilihan untuk user. Hampir sama dengan Option, tetapi Check Box mengijinkan user untuk memiliki lebih dari satu pilihan. Baiklah untuk lebih jelasnya mari kita buat saja contohnya, aplikasi pengubah teks

Aplikasi Pengubah Teks Menggunakan Option Dan Check Box

1. Pertama buatlah desain aplikasi seperti dibawah ini

Desain Aplikasi Pengubah Teks

2. Kemudian ubah properties dari tools yang telah dibuat seperti dibawah ini

Tools	Nama	Properties
Label	Label1	Name : LblTampil Caption : Rudi Rizkiyanto
Frame	Frame1	Caption : Font Color
Frame	Frame2	Caption : Font Style
Option	Option1	Name : OptRed Caption : Red Forecolor : &H000000FF&
	Option2	Name : OptGreen Caption : Green Forecolor : &H0000FF00&
	Option3	Name : OptBlue Caption : Blue Forecolor : &H00FF0000&
	Option4	Name : OptYellow Caption : Yellow Forecolor : &H0000FFFF&
Check Box	Check1	Name : ChkBold Caption : Bold Font Style : Bold
	Check2	Name : ChkItalic Caption : Italic Font Style : Italic
	Check3	Name : ChkStrikeOut Caption : StrikeOut Font Style : Strikeout
	Check4	Name : ChkUndeline Caption : Underline Font Style : Underline
Command Button	Command1	Name : CmdExit Caption : Exit

3. Masukan script dibawah ini pada kotak dialog script

Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblTampil.FontBold = True
Else
LblTampil.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
LblTampil.FontItalic = True
Else
LblTampil.FontItalic = False
End If
End Sub

Private Sub ChkStrikeOut_Click()
If ChkStrikeOut.Value = 1 Then
LblTampil.FontStrikethru = True
Else
LblTampil.FontStrikethru = False
End If
End Sub

Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
LblTampil.FontUnderline = True
Else
LblTampil.FontUnderline = False
End If
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub OptBlue_Click()
LblTampil.ForeColor = vbBlue
End Sub

Private Sub OptGreen_Click()
LblTampil.ForeColor = vbGreen
End Sub

Private Sub OptRed_Click()
LblTampil.ForeColor = vbRed
End Sub

Private Sub OptYellow_Click()
LblTampil.ForeColor = vbYellow
End Sub

4. Jalankan aplikasi yang telah dibuat dengan menekan F5

Tampilan Ketika Aplikasi Dijalankan

Jika dilakukan dengan benar maka aplikasi akan berjalan sebagaimana mestinya. Itulah sekilas tentang option dan checkbox serta contoh penggunaanya. Semoga bermanfaat.

Kamis, 17 Desember 2015

Membuat Kalkulator Dengan Visual Basic 6.0

Visual Basic 6.0 adalah salah satu software buatan Microsoft yang dapat digunakan untuk membuat aplikasi, baik aplikasi pribadi maupun aplikasi perusahaan. Visual Basic 6.0 banyak digunakan karena kemudahanya, terutama dalam belajar membuat aplikasi komputer untuk pemula. Penulis sendiri menganjurkan teman-teman yang akan belajar membuat program aplikasi dekstop untuk memulai dengan menggunakan Visual Basic 6.0.

Pada artikel ini penulis akan memberikan tutorial tentang cara membuat Kalkulator Dengan Visual Basic 6.0. Baiklah tidak perlu panjang lebar, mari kita mulai membuat aplikasinya.

1. Buka terlebih dahulu aplikasi Microsoft Visual Basic 6.0 jika belum ada silahkan download sudah banyak tersedia di google.

2. Buat Project baru dengan cara klik File --> New Project atau dapat juga dengan menekan tombol CTRL + N, kemudian klik OK seperti terlihat pada gambar dibawah ini.

3. Buat tampilan seperti dibawah ini

Tampilan Aplikasi Kalkulator Mini

Tulisan dibuat menggunakan Tools Label
Textbox dibuat menggunakan Tools Textbox
Tombol dibuat menggunakan Tools Command Buton

Silahkan diatur sendiri tata letaknya, yang perlu diperhatikan adalah penamaanya.

Ubah name pada masing masing properties

Text1 diganti TxtJumlah1
Text2 diganti TxtJumlah2
Text3 diganti TxtHasilJumlah
Text4 diganti TxtKali1
Text5 diganti TxtKali2
Text6 diganti TxtHasilKali
Text7 diganti TxtKurang1
Text8 diganti TxtKurang2
Text9 diganti TxtHasilKurang
Text10 diganti TxtBagi1
Text11 diganti TxtBagi2
Text12 diganti TxtHasilBagi

4. Klik 2 kali pada tombol Proses kemudian masukan script dibawah ini
    If TxtBagi1 = "" Or TxtBagi2 = "" Then
        TxtHasilJumlah = Val(TxtJumlah1) + Val(TxtJumlah2)
        TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
        TxtHasilKurang = Val(TxtKurang1) - Val(TxtKurang2)
        TxtHasilBagi = 0
    Else
        TxtHasilJumlah = Val(TxtJumlah1) + Val(TxtJumlah2)
        TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
        TxtHasilKurang = Val(TxtKurang1) - Val(TxtKurang2)
        TxtHasilBagi = Val(TxtBagi1) / Val(TxtBagi2)
    End If

5. Klik 2 kali pada tombol Lagi kemudian masukan script dibawah ini
    TxtJumlah1.SetFocus
    TxtJumlah1 = ""
    TxtJumlah2 = ""
    TxtHasilJumlah = ""
    TxtKali1 = ""
    TxtKali2 = ""
    TxtHasilKali = ""
    TxtKurang1 = ""
    TxtKurang2 = ""
    TxtHasilKurang = ""
    TxtBagi1 = ""
    TxtBagi2 = ""
    TxtHasilBagi = ""

6. Klik 2 kali pada tombol Batal kemudian masukan script dibawah ini
    TxtJumlah1.SetFocus
    TxtJumlah1 = ""
    TxtJumlah2 = ""
    TxtHasilJumlah = ""
    TxtKali1 = ""
    TxtKali2 = ""
    TxtHasilKali = ""
    TxtKurang1 = ""
    TxtKurang2 = ""
    TxtHasilKurang = ""
    TxtBagi1 = ""
    TxtBagi2 = ""
    TxtHasilBagi = ""

7. Klik 2 kali pada tombol Keluar kemudian masukan script dibawah ini
    Unload Me

8. Jalankan aplikasi dengan menekan tombol F5, jika penamaan dan script dimasukan dengan benar aplikasi akan berjalan sempurna.

Mudah bukan membuat aplikasi sederhana dengan Visual Basic 6.0 tidak memerlukan banyak coding dan toolsnya pun mudah dimengerti. Sekian artikel tentang tutorial Membuat Kalkulator Dengan Visual Basic 6.0, semoga bermanfaat