Tugas VISUAL BASIC

TUGAS II Visual Basic

BAB I

Pendahuluan

1.1.   Gambaran Umum 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
Menu SPLASH

CODE Program SPLASH

Option Explicit
Dim iSplash As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Frame1_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
iSplash = iSplash + 1
prghotel.Value = prghotel.Value + 1000 / 1000
If iSplash > 100 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 3000
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Load frmmenu
frmmenu.Show
frmmenu.SetFocus
Unload Me
End If
End Sub

Menu PROGRAM

CODE Program MENU

Private Sub mnuexit_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbCritical + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub mnujasa_Click()
Form3.Show
End Sub

Private Sub mnukamar_Click()
Form2.Show
End Sub

Private Sub mnutamu_Click()
Form1.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
Form1.Show
ElseIf Button.Index = 2 Then
Form2.Show
ElseIf Button.Index = 3 Then
Form3.Show
ElseIf Button.Index = 4 Then
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End If
End Sub

MENU TAMU

CODE MENU TAMU
Private Sub cmdbersih_Click()
txtkodetamu = “”
txtnamatamu = “”
txtnoidentitas = “”
txtnotelp = “”
txtalamat = “”
txtkodetamu.SetFocus
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst

End Sub

Private Sub cmdsimpan_Click()
With Data1.Recordset
.AddNew
End With
txtkodetamu.SetFocus
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Activate()
txtkodetamu.SetFocus
End Sub

Private Sub txtkodetamu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamatamu.SetFocus
End If
End Sub

Private Sub txtnamatamu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnoidentitas.SetFocus
End If
End Sub

Private Sub txtnoidentitas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnotelp.SetFocus
End If
End Sub

Private Sub txtnotelp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

MENU KAMAR

CODE MENU KAMAR

Private Sub cmdbersih_Click()
cbonokamar = “”
cbojeniskamar = “”
cbolantai = “”
cbofasilitas = “”
cbotarif = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdsimpan2_Click()
With Data1.Recordset
.AddNew
End With
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cbojeniskamar.AddItem “utama-1”
cbojeniskamar.AddItem “utama-2”
cbojeniskamar.AddItem “utama-3”
cbojeniskamar.AddItem “kelas-1”
cbojeniskamar.AddItem “kelas-2”
cbojeniskamar.AddItem “kelas-3”

cbonokamar.AddItem “2”
cbonokamar.AddItem “3”
cbonokamar.AddItem “4”
cbonokamar.AddItem “5”
cbonokamar.AddItem “9”
cbonokamar.AddItem “20”
cbonokamar.AddItem “21”
cbonokamar.AddItem “22”
cbonokamar.AddItem “23”
cbonokamar.AddItem “24”
cbonokamar.AddItem “25”
cbonokamar.AddItem “26”
cbonokamar.AddItem “27”
cbonokamar.AddItem “28”
cbonokamar.AddItem “29”
cbonokamar.AddItem “30”
cbonokamar.AddItem “31”
cbonokamar.AddItem “32”
cbonokamar.AddItem “33”
cbonokamar.AddItem “34”
cbonokamar.AddItem “35”
cbonokamar.AddItem “36”
cbonokamar.AddItem “37”
cbonokamar.AddItem “38”
cbonokamar.AddItem “39”

cbolantai.AddItem “I”
cbolantai.AddItem “II”
cbolantai.AddItem “III”

cbofasilitas.AddItem “televisi + 4 single bed”
cbofasilitas.AddItem “televisi + double + single spring bed”
cbofasilitas.AddItem “televisi + 3 single bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “single + double spring bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “3 single bed”
cbofasilitas.AddItem “double + single bed”

cbotarif.AddItem “150000”
cbotarif.AddItem “130000”
cbotarif.AddItem “110000”
cbotarif.AddItem “100000”
cbotarif.AddItem “90000”
cbotarif.AddItem “70000”
End Sub

Private Sub bersih()
cbonokamar.Text = “”
cbojeniskamar.Text = “”
cbolantai.Text = “”
cbofasilitas.Text = “”
cbotarif.Text = “”

End Sub

MENU JASA

CODE MENU JASA

Private Sub cmdbersih_Click()
txtkodejasa = “”
txtnamajasa = “”
txtsatuan = “”
txtharga = “”
txtkodejasa.SetFocus
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdsimpan3_Click()
With Data1.Recordset
.AddNew
End With
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub txtkodejasa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamajasa.SetFocus
End If
End Sub

Private Sub txtnamajasa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsatuan.SetFocus
End If
End Sub

Private Sub txtsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtharga.SetFocus
End If
End Sub

 

 

13 thoughts on “Tugas VISUAL BASIC

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s