mengenai rumus-rumus sederhana visual basic

Visual Basic merupakan salah salah satu program yang berdasarkan GUI (Graphical User Interface), sehingga tidak perlu membuat instruksi pemrograman dengan kode baris, cukup dengan pembuatan program yang berbasis objek. Visual Basic juga didukung oleh Bahasa Basic yang dikenal mudah. Bahasa Basic merupakan bahasa yang mengandung pernyataan, fungsi dan keyword yang langsung terhubung dengan windows. Microsoft Visual Basic 6.0 adalah bahasa program yang bekerja dalam lingkup Microsoft Windows, Visual Basic berasal dari bahasa pemrograman yang popular disebut Basic (Beginner’s All Purpose Symbol Instruction Code). Bahasa basic diperkenalkan pertama kali oleh Dartmouth College pada tahun 1960. Kemudian beberapa pengembang software mempopulerkan Bahasa Basic dengan membuat berbagai aplikasi seperti GW-Basic, Qbasic dan Quick Basic. Visual Basic berbasis Windows diperkenalkan pada tahun 1991.
Visual Basic memiliki kelebihan-kelebihan yang tidak dimiliki oleh versi sebelumnya, kelebihannya antara lain compiler (proses compile) dapat dilakukan dengan cepat, mendukung control data objek yang baru, mendukung berbagai macam database, pembuatan laporan yang lebih mudah dan mendukung pengaksesan terhadap internet. Visual Basic 6.0 menyediakan tiga macam interface yang bisa digunakan untuk merancang aplikasi sesuai dengan kebutuhan. Interface tersebut berupa MDI (Multi Document Interface), SDI (Single Document Interface), dan EDI (Explorer Document Interface).


BAB II
Pembahasan
2.1.   Mengenal Visual Basic 6.0
Bahasa Basic pada dasarnya adalah bahasa yang mudah dimengerti sehingga pemrograman di dalam bahasa Basic dapat dengan mudah dilakukan meskipun oleh orang yang baru belajar membuat program. Hal ini lebih mudah lagi setelah hadirnya Microsoft Visual Basic, yang dibangun dari ide untuk membuat bahasa yang sederhana dan mudah dalam pembuatan scriptnya (simple scripting language) untuk graphic user interface yang dikembangkan dalam sistem operasi Microsoft Windows.
Visual Basic merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.
Ledakan pemakaian Visual Basic ditandai dengan kemampuan Visual Basic untuk dapat berinteraksi dengan aplikasi lain di dalam sistem operasi Windows dengan komponen ActiveX Control. Dengan komponen ini memungkinkan penguna untuk memanggil dan menggunakan semua model data yang ada di dalam sistem operasi windows. Hal ini juga ditunjang dengan teknik pemrograman di dalam Visual Basic yang mengadopsi dua macam jenis pemrograman yaitu Pemrograman Visual dan Object Oriented Programming (OOP).
Visual Basic 6.0 sebetulnya perkembangan dari versi sebelumnya dengan beberapa penambahan komponen yang sedang tren saat ini, seperti kemampuan pemrograman internet dengan DHTML (Dynamic HyperText Mark Language), dan beberapa penambahan fitur database dan multimedia yang semakin baik. Sampai saat buku ini ditulis bisa dikatakan bahwa Visual Basic 6.0 masih merupakan pilih pertama di dalam membuat program aplikasi yang ada di pasar perangkat lunak nasional. Hal ini disebabkan oleh kemudahan dalam melakukan proses development dari aplikasi yang dibuat.
2.2.   Cara Memulai Visual Basic 6.0
1.      Klik Start
2.      All porgrams
3.      Microsoft Visual Studio 6.0
4.      Microsoft Visual Basic 6.0
5.      Standart Exe
6.      Open
Visual Basic 6.0 menyediakan beberapa project yang biasa digunakan oleh banyak pengguna Visual Basic, antara lain:
1.      Standard EXE: Project standar dalam Visual Basic dengan komponen-komponen standar. Jenis project ini sangat sederhana, tetapi memiliki keunggulan bahwa semua komponennya dapat diakui oleh semua unit komputer dan semua user meskipun bukan administrator. Pada buku ini akan digunakan project Standard EXE ini, sebagai konsep pemrograman visualnya.
2.      ActiveX EXE: Project ini adalah project ActiveX berisi komponen-komponen kemampuan intuk berinteraksi dengan semua aplikasi di sistem operasi windows.
3.      ActiveX DLL: Project ini menghasilkan sebuah aplikasi library yang selanjutnya dapat digunakan oleh semua aplikasi di sistem operasi windows.
4.      ActiveX Control: Project ini menghasilkan komponen-komponen baru untuk aplikasi Visual Basic yang lain
5.      VB Application Wizard: Project ini memandu pengguna untuk membuat aplikasi secara mudah tanpa harus pusing-pusing dengan perintah-perintah pemrograman.
6.      Addin: Project seperti Standard EXE tetapi dengan berbagai macam komponen tambahan yang memungkinkan kebebasan kreasi dari pengguna.
7.      Data project: Project ini melengkapi komponennya dengan komponen-komponen database. Sehingga bisa dikatakan project ini memang disediakan untuk keperluan pembuatan aplikasi database.
8.      DHTML Application: Project ini digunakan untuk membuat aplikasi internet pada sisi client (client side) dengan fungsi-fungsi DHTML.
9.      IIS Application: Project ini menghasilkan apliaksi internet pada sisi server (server side) dengan komponen-komponen CGI (Common Gateway Interface).
2.3.   Komponen-Komponen Visual Basic 6.0



2.3.1.                  Title Bar
Title Bar adalah judul dari dokumen atau file Visual Basic 6.0
2.3.2.                  Menu Bar



Menu bar dalam VB seperti yang biasa kita lihat dalam Microsoft Office. Di dalamnya
terdafat menu File, Edit, View, Project, Format dan sejenisnya
2.3.3.                  Toolbar
Toolbar merupakan kumpulan tombol yang dapat melakukan sebuah perintah dengan cepat.
2.3.4.                  ToolBox

ToolBox adalah window yang berisi objek-objek untuk ditempatkan dalam form. Contohnya objek Label, TextBox, ListBox, ComboBox, Frame, dan sejenisnya.
2.3.5.                  Project

Project Window adalah sebuah window yang menampung project dan Form. Di dalamnya juga terdapat ikon View Code (untuk menampilkan area text editor) dan ikon View Object (untuk menampilkan GUI). Dengan menggunakan project window ini kita juga dapat menambah form, menghapus, mengganti nama form, memilih startup project dan lain-lain.
2.3.6.                  Properti Window

Properti window adalah sebuah window yang digunakan untuk memodifikasi objek berupa mengubah Caption, memberi nama objek, mengubah warna, ukuran, model dan sejenisnya.
2.3.7.                  Form Layout Window
Form Layout Window digunakan untuk mengatur letak form pada layar monitor.
2.3.8.                  Immediate Window
Immediate Window digunakan untuk mengevaluasi pernyataan valid yang dapat dieksekusi di Visual Basic, tetapi dia tidak dapat menerima pendeklarasian data.
2.3.9.                  Form


Form sering disebut dengan GUI (Graphical User Interface), adalah sebuah objek yang digunakan untuk menempatkan objek-objek dari ToolBox.
2.3.10.              Code Window
Code Window adalah jendela untuk menuliskan code pemrograman.
2.3.11.              Event
Setiap komponen dapat beraksi melalui event, seperti event click pada command button yang tertulis dalam layar script Command1_Click, atau event Mouse Down pada picture yang tertulis dengan Picture1_MouseDown. Pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
2.3.12.              Method
Bahwa jalannya program dapat diatur sesuai aplikasi dengan menggunakan metode pemrograman yang diatur sebagai aksi dari setiap komponen. Metode inilah tempat untuk mengekpresikan logika pemrograman dari pembuatan suatu prgram aplikasi.
2.3.13.              Module
Pada aplikasi tradisional sebuah prosedur telah diatur sendiri oleh aplikasi-aplikasinya. Proses ini merupakan bagian kode yang akan dieksekusi dan biasanya pengeksekusian dimulai dari baris pertama
TUGAS III Visual Basic
Gambar Hasil

Rumus :
Private Sub cbonpm_Click()
Select Case cbonpm.Text
Case “10100001″
nama = “Madid Musyawaroh”
jurusan = “Sistem Informasi”
Case “10200002″
nama = “Ali Nurdin”
jurusan = “Manajemen Informatika”
Case “10300003″
nama = “Mamat Casanova”
jurusan = “Teknik Informatika”
Case “10100004″
nama = “Slamet Sukaryo”
jurusan = “Sistem Informasi”
Case “10200005″
nama = “Tebe”
jurusan = “Manajemen Informatika”
Case “10300006″
nama = “Dulmatin”
jurusan = “Teknik Informatika”
Case “10100007″
nama = “Burhan”
jurusan = “Sistem Informasi”
Case “10200008″
nama = “Nurdin Mtop”
jurusan = “Manajemen Informatika”
Case “10300009″
nama = “Amrozi”
jurusan = “Teknik Informatika”
Case “10200010″
nama = “Imam Samudra”
jurusan = “Manajemen Informasi”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtnq.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnq.SetFocus
txtnq = “”
txtnt = “”
txtuts = “”
txtuas = “”
txtnama = “”
txtjurusan = “”
cbonpm = “”
txtna = “”
txthm = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
Dim Nilaiakhir As Integer
Dim hurufmutu As String
nilai1 = Val(txtnq.Text)
nilai2 = Val(txtnt.Text)
nilai3 = Val(txtuts.Text)
nilai4 = Val(txtuas.Text)
Nilaiakhir = (nilai1 + nilai2 + nilai3 + nilai4) / 4
txtna.Text = Nilaiakhir
If Val(txtna.Text) >= 76 Then
txthm.Text = “A”
End If
If Val(txtna.Text) < 76 Then
txthm.Text = “B”
End If
If Val(txtna.Text) < 66 Then
txthm.Text = “C”
End If
If Val(txtna.Text) < 56 Then
txthm.Text = “D”
End If
If Val(txtna.Text) < 46 Then
txthm.Text = “E”
End If
End Sub
Private Sub Form_Load()
cbonpm.AddItem “10100001″
cbonpm.AddItem “10200002″
cbonpm.AddItem “10300003″
cbonpm.AddItem “10100004″
cbonpm.AddItem “10200005″
cbonpm.AddItem “10300006″
cbonpm.AddItem “10100007″
cbonpm.AddItem “10200008″
cbonpm.AddItem “10300009″
cbonpm.AddItem “10200010″
End Sub
Private Sub txtnq_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnt.SetFocus
End If
End Sub
Private Sub txtnt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
Link Download :
VISUAL BASIC_Huruf Mutu Mahasiswa
TUGAS IV VISUAL BASIC
a) Gaji Pokok

Rumus Program :
Private Sub cbogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogol.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttot.Text = total – pajak
End Sub
Private Sub Command1_Click()
txtnidn = “”
txtnm = “”
cbogol = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttot = “”
txtnidn.SetFocus
End Sub
Private Sub Command2_Click()
txtnidn = “”
txtnm = “”
cbogol = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttot = “”
txtnidn.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnm.SetFocus
End If
End Sub
b) Teks Color

Rumus Program :
Private Sub cmdclear_Click()
txt1.Text = “”
txt1.SetFocus
txt1.ForeColor = &H0&
End Sub
Private Sub cmdok_Click()
Dim hasil As Integer
hasil = Val(txt1.Text)
If (chktebal.Value = 1) And (chkmiring.Value = 1) Then
txt1.FontBold = True
txt1.FontItalic = True
End If
If (chktebal.Value = 1) And (chkmiring.Value = 0) Then
txt1.FontBold = True
txt1.FontItalic = False
End If
If (chktebal.Value = 0) And (chkmiring.Value = 0) Then
txt1.FontBold = False
txt1.FontItalic = False
End If
If (chktebal.Value = 0) And (chkmiring.Value = 1) Then
txt1.FontBold = False
txt1.FontItalic = True
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Optmerah_Click()
txt1.ForeColor = &HFF&
End Sub
Private Sub Optbiru_Click()
txt1.ForeColor = &HFF0000
End Sub
TUGAS UTS VISUAL BASIC SEMESTER 3 (PROGRAM DATABASE)

CODE PROGRAM
Private Sub cmdtambah_Click()
txtnoinduk.Text = “”
txtnama.Text = “”
cbojk.Text = “”
txttempatlahir.Text = “”
txttanggallahir.Text = “”
cboagama.Text = “”
txtalamat.Text = “”
txtnotlp.Text = “”
txtnamawali.Text = “”
txtpekerjaan.Text = “”
txtalamatwali.Text = “”
cbostatus.Text = “”
txttahunmasuk.Text = “”
cbokelas.Text = “”
txtwalikelas.Text = “”
txtnoinduk.SetFocus
End Sub
Private Sub cboagama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttahunmasuk.SetFocus
End If
End Sub
Private Sub cbojk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttempatlahir.SetFocus
End If
End Sub
Private Sub cbokelas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtwalikelas.SetFocus
End If
End Sub
Private Sub cmdedit_Click()
With Data1.Recordset
.Edit
End With
End Sub
Private Sub cmdsimpan_Click()
With Data1.Recordset
.AddNew
End With
End Sub
Private Sub cmdkeluar_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR?”, vbCritical + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub
Private Sub Form_Load()
cbojk.AddItem “Laki-laki”
cbojk.AddItem “Perempuan”
cboagama.AddItem “Islam”
cboagama.AddItem “Protestan”
cboagama.AddItem “Katholik”
cboagama.AddItem “Hindu”
cboagama.AddItem “Budha”
cboagama.AddItem “Konghucu”
cbostatus.AddItem “Anak Kandung”
cbostatus.AddItem “Anak Angkat”
cbokelas.AddItem “VII”
cbokelas.AddItem “VIII”
cbokelas.AddItem “IX”
End Sub
Private Sub mnexit_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR?”, vbCritical + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub
Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnotlp.SetFocus
End If
End Sub
Private Sub txtalamatwali_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cbostatus.SetFocus
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cbojk.SetFocus
End If
End Sub
Private Sub txtnamawali_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaan.SetFocus
End If
End Sub
Private Sub txtnoinduk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub txtnotlp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamawali.SetFocus
End If
End Sub
Private Sub txtpekerjaan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamatwali.SetFocus
End If
End Sub
Private Sub txttahunmasuk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cbokelas.SetFocus
End If
End Sub
Private Sub txttanggallahir_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cboagama.SetFocus
End If
End Sub
Private Sub txttempatlahir_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttanggallahir.SetFocus
End If
End Sub
Private Sub txtwalikelas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

Tugas DATABASE HOTEL
LOGIN

CODE Program LOGIN
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
If txtSERVER.Text = “Komp1″ And txtusername.Text = “herimuriyanto” And txtpassworduser = “10100021″ Then
FRMSPLASH.Show
Unload Me
Else
MsgBox “PERIKSA KEMBALI DATA YANG ANDA MASUKKAN”
End If
End Sub
Private Sub Form_Activate()
txtusername.SetFocus
End Sub
Private Sub Form_Load()
bersih
End Sub
Private Sub bersih()
txtSERVER.Text = “Komp1″
txtusername.Text = “”
txtpassworduser.Text = “”
End Sub
Private Sub txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpassworduser.SetFocus
End If
End Sub