cara mematikan fungsi autorun.inf

Berbagai macam virus yang marak akhir-akhir ini sebagian besar menyebar melalui perantara flashdisk, ketika kita memasukkan flashdisk ke komputer kita maka secara default windows Xp akan langsung membuka task baru dengan fungsi Auto run/auto play. Banyak varian virus yang menggunakan fungsi ini untuk mengaktifkan diri mereka kemudian menginfeksi komputer kita. Jadi, kita akan berusaha untuk meminimalisir jalan masuk virus dengan cara meng-nonaktifkan fungsi Auto Play ini.
Menghilangkan fungsi Auto Run/ Auto Play :
– run “gpedit.msc”
– klik Administrative Templates di bawah Computer Configuration
– klik System
– klik Turn Off Auto Play
– pilih Enabled
– kebawah pilih All Drive
– OK
– masih di Group Policy
– klik Administrative Templates di bawah User Configuration
– klik System
– klik Turn Off Auto Play
– pilih Enabled
– kebawah pilih All Drive
– OK
– tutup,restart
Cara lain yang cukup efektif antara lain adalah dengan mengaktifkan user Guest dan selalu login dengan user guest tersebut. Dengan user Guest maka secara tidak langsung kita akan mematikan fungsi registry. Virus akan selalu manginfeksi file registry ini dan merubah value di dalamnya. Bila ingin menginstall software baru maka kita cukup menggunakan “Run As” Administrator dari user guest. Dan yang terakhir adalah selalu mengupdate anti virus secara rutin.

Contoh Kalkulator pada Vb

Dim Data1, Data2, Operator, Hasil
Dim HapusScreen As Boolean
Dim TitikDesimal As Boolean

‘Jika tombol <> ditekan
Private Sub Akar_Click()
‘Jika telah menekan tombol <> atau <>
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
If Hasil > 0 Then
Hasil = Hasil ^ 0.5
Screen.Text = Format(Hasil)
HapusScreen = True
End If
‘Jika telah menekan angka tetapi tombol operator belum
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
If Data1 > 0 Then
Data1 = Data1 ^ 0.5
Screen.Text = Data1
HapusScreen = True
End If
‘Jika telah menekan angka dan tombol operator
ElseIf Data1 “” And Operator “” And Data2 “” Then
If Data2 > 0 Then
Data2 = Data2 ^ 0.5
Screen.Text = Data1 & Operator & Data2
HapusScreen = True
End If
End If
End Sub

Private Sub Answer_Click()
TitikDesimal = False
‘Kondisi terpenuhi, proses berjalan semua maka saat mengetik
‘tombol Ans layar dihapus lalu hasil = data1 siap memproses
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Data1 = Hasil
Screen.Text = Data1
‘Kondisi terpenuhi, proses menunggu data2 maka saat mengetik
‘tombol Ans maka data2 = hasil
ElseIf (Data1 “” And Operator “” And _
Data2 = “” And Hasil “”) Then
Data2 = Hasil
Screen.Text = Screen.Text & Data2
Else
TitikDesimal = True
End If
End Sub

Private Sub PangkatDua_Click()
‘Jika telah menekan tombol <> atau <>
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Hasil = Hasil ^ 2
Screen.Text = Hasil
HapusScreen = True
‘Jika telah menekan angka tetapi tombol operator belum maka
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
Data1 = Data1 ^ 2
Screen.Text = Data1
‘Jika telah menekan angka dan tombol operator
ElseIf Data1 “” And Operator “” And Data2 “” Then
Data2 = Data2 ^ 2
Screen.Text = Data1 & Operator & Data2
End If
End Sub

Private Sub SatuPer_Click()
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Hasil = 1 / Hasil
Screen.Text = Format(Hasil)
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
Data1 = 1 / Data1
Screen.Text = Data1
ElseIf Data1 “” And Operator “” And Data2 “” Then
Data2 = 1 / Data2
Screen.Text = Data1 & Operator & Data2
End If
End Sub

Private Sub Desimal_Click()
If TitikDesimal Then
If Operator = “” Then ‘menambahkan titik desimal di data1
Data1 = Data1 + “.”
Else ‘menambahkan titik desimal di data2
Data2 = Data2 + “.”
End If
Screen.Text = Screen.Text + “.”
TitikDesimal = False
End If
End Sub
Sub Persiapan()
Operator = “”
Data1 = “”
Data2 = “”
Hasil = “”
HapusScreen = False
TitikDesimal = True
Screen.Text = “”
End Sub

Private Sub Form_Load()
Call Persiapan
Frame1.Caption = “”
Frame2.Caption = “”
Frame3.Caption = “”
End Sub

Sub Evaluasi(Tanda)
‘proses umum menunggu Data2
If Data1 = “” And Operator = “” Then
If Hasil = “” Then
Data1 = Screen.Text
Else
Data1 = Format(Hasil)
Screen.Text = Data1
End If
‘operator ketik dua kali
ElseIf Data1 “” And Operator “” And Data2 “” Then
Menghitung
Screen.Text = Format(Hasil)
Data1 = Format(Hasil)
Data2 = “”
End If
Operator = Tanda
HapusScreen = False
TitikDesimal = True
Screen.Text = Screen.Text + Tanda
End Sub

Sub HapusData()
Call Persiapan
End Sub

Sub Menghitung()
HapusScreen = True
On Error GoTo ErrorHandler
A = Val(Data1)
B = Val(Data2)
Select Case Operator
Case “+”: Hasil = A + B
Case “-“: Hasil = A – B
Case “*”: Hasil = A * B
Case “/”: Hasil = A / B
End Select
Data1 = “”
Data2 = “”
Operator = “”
Screen.Text = Format(Hasil)
Exit Sub
ErrorHandler:
MsgBox vbCrLf & Err.Description, , _
“Calculator mendeteksi ERROR sbb :”
End Sub

Private Sub Angka_Click(Index As Integer)
If HapusScreen Then
Call HapusData
End If
If Operator = “” Then
Data1 = Data1 + Angka(Index).Caption
Else
Data2 = Data2 + Angka(Index).Caption
End If
Screen.Text = Screen.Text + Angka(Index).Caption
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Bagi_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“/”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Kali_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“*”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Kurang_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“-“)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Tambah_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“+”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Hapus_Click()
Call HapusData
End Sub

‘Aktif jika tombol <> ditekan
Private Sub RubahTanda_Click(Index As Integer)
If Operator = “” Then
Screen.Text = -1 * Val(Screen.Text)
Data1 = Screen.Text
End If
End Sub

‘Aktif jika tombol <> ditekan
Private Sub SamaDengan_Click()
If Data1 “” And Operator “” And Data2 “” Then
Call Menghitung
End If
End Sub

Clik disini Untuk Download File

Coding Membuat Kalkulator Pada Visual Basic….

Dim Data1, Data2, Operator, Hasil
Dim HapusScreen As Boolean
Dim TitikDesimal As Boolean

‘Jika tombol <> ditekan
Private Sub Akar_Click()
‘Jika telah menekan tombol <> atau <>
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
If Hasil > 0 Then
Hasil = Hasil ^ 0.5
Screen.Text = Format(Hasil)
HapusScreen = True
End If
‘Jika telah menekan angka tetapi tombol operator belum
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
If Data1 > 0 Then
Data1 = Data1 ^ 0.5
Screen.Text = Data1
HapusScreen = True
End If
‘Jika telah menekan angka dan tombol operator
ElseIf Data1 “” And Operator “” And Data2 “” Then
If Data2 > 0 Then
Data2 = Data2 ^ 0.5
Screen.Text = Data1 & Operator & Data2
HapusScreen = True
End If
End If
End Sub

Private Sub Answer_Click()
TitikDesimal = False
‘Kondisi terpenuhi, proses berjalan semua maka saat mengetik
‘tombol Ans layar dihapus lalu hasil = data1 siap memproses
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Data1 = Hasil
Screen.Text = Data1
‘Kondisi terpenuhi, proses menunggu data2 maka saat mengetik
‘tombol Ans maka data2 = hasil
ElseIf (Data1 “” And Operator “” And _
Data2 = “” And Hasil “”) Then
Data2 = Hasil
Screen.Text = Screen.Text & Data2
Else
TitikDesimal = True
End If
End Sub

Private Sub PangkatDua_Click()
‘Jika telah menekan tombol <> atau <>
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Hasil = Hasil ^ 2
Screen.Text = Hasil
HapusScreen = True
‘Jika telah menekan angka tetapi tombol operator belum maka
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
Data1 = Data1 ^ 2
Screen.Text = Data1
‘Jika telah menekan angka dan tombol operator
ElseIf Data1 “” And Operator “” And Data2 “” Then
Data2 = Data2 ^ 2
Screen.Text = Data1 & Operator & Data2
End If
End Sub

Private Sub SatuPer_Click()
If (Data1 = “” And Operator = “” And _
Data2 = “” And Hasil “”) Then
Hasil = 1 / Hasil
Screen.Text = Format(Hasil)
ElseIf Data1 “” And Operator = “” And Data2 = “” Then
Data1 = 1 / Data1
Screen.Text = Data1
ElseIf Data1 “” And Operator “” And Data2 “” Then
Data2 = 1 / Data2
Screen.Text = Data1 & Operator & Data2
End If
End Sub

Private Sub Desimal_Click()
If TitikDesimal Then
If Operator = “” Then ‘menambahkan titik desimal di data1
Data1 = Data1 + “.”
Else ‘menambahkan titik desimal di data2
Data2 = Data2 + “.”
End If
Screen.Text = Screen.Text + “.”
TitikDesimal = False
End If
End Sub
Sub Persiapan()
Operator = “”
Data1 = “”
Data2 = “”
Hasil = “”
HapusScreen = False
TitikDesimal = True
Screen.Text = “”
End Sub

Private Sub Form_Load()
Call Persiapan
Frame1.Caption = “”
Frame2.Caption = “”
Frame3.Caption = “”
End Sub

Sub Evaluasi(Tanda)
‘proses umum menunggu Data2
If Data1 = “” And Operator = “” Then
If Hasil = “” Then
Data1 = Screen.Text
Else
Data1 = Format(Hasil)
Screen.Text = Data1
End If
‘operator ketik dua kali
ElseIf Data1 “” And Operator “” And Data2 “” Then
Menghitung
Screen.Text = Format(Hasil)
Data1 = Format(Hasil)
Data2 = “”
End If
Operator = Tanda
HapusScreen = False
TitikDesimal = True
Screen.Text = Screen.Text + Tanda
End Sub

Sub HapusData()
Call Persiapan
End Sub

Sub Menghitung()
HapusScreen = True
On Error GoTo ErrorHandler
A = Val(Data1)
B = Val(Data2)
Select Case Operator
Case “+”: Hasil = A + B
Case “-“: Hasil = A – B
Case “*”: Hasil = A * B
Case “/”: Hasil = A / B
End Select
Data1 = “”
Data2 = “”
Operator = “”
Screen.Text = Format(Hasil)
Exit Sub
ErrorHandler:
MsgBox vbCrLf & Err.Description, , _
“Calculator mendeteksi ERROR sbb :”
End Sub

Private Sub Angka_Click(Index As Integer)
If HapusScreen Then
Call HapusData
End If
If Operator = “” Then
Data1 = Data1 + Angka(Index).Caption
Else
Data2 = Data2 + Angka(Index).Caption
End If
Screen.Text = Screen.Text + Angka(Index).Caption
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Bagi_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“/”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Kali_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“*”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Kurang_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“-“)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Tambah_Click()
If Data1 “” Or Hasil “” Then Call Evaluasi(“+”)
End Sub

‘Aktif jika tombol <> ditekan
Private Sub Hapus_Click()
Call HapusData
End Sub

‘Aktif jika tombol <> ditekan
Private Sub RubahTanda_Click(Index As Integer)
If Operator = “” Then
Screen.Text = -1 * Val(Screen.Text)
Data1 = Screen.Text
End If
End Sub

‘Aktif jika tombol <> ditekan
Private Sub SamaDengan_Click()
If Data1 “” And Operator “” And Data2 “” Then
Call Menghitung
End If
End Sub

MEMBUAT FILE EXE DAN FILE SETUP

Program yang telah dibuat biasanya harus dijalankan dengan cara membuka sistem Visual
Basic terlebih dahulu, hal ini memerlukan banyak waktu dan tenaga. Untuk melakukan
efisiensi maka sebaiknya dibuat sebuah file EXE dari program yang telah lengkap tersebut.
Untuk membuat kompilasi program lakukan langkah-langkah di bawah ini :
1. Buka program yang akan dikompilasi (misalnya Aplikasi Penjualan)
2. Klik menu File, pilih Make Aplikasi Penjualan.exe …

3. Tulis nama file EXE (misalnya Program Penjualan)
4. Tentukan posisi penyimpanan file tersebut (misalnya pada direktori C:\Belajar VB)
5. Kemudian pilih OK

Membuat Shortcut

Setelah terbentuk file EXE dengan langkah-langkah di atas, maka sebaiknya Anda pun
membuat shortcut-nya di desktop dengan tujuan agar pada saat program tersebut dijalankan
Anda cukup dengan melakukan double-Click pada shortcut tersebut tanpa harus membuka
sistem Visual Basic.
Untuk membuat shortcut di desktop lakukan langkah-langkah di bawah ini:

1. Tampilkan Desktop
2. Klik kanan mouse
3. Pilih New
4. Pilih Shortcut
5. Klik Browse…
6. Pilih direktori C:\Belajar VB
7. Klik Open
8. Pilih file Program Penjualan
9. Klik Open, maka akan muncul menu seperti gambar berikut :
10. Klik Next
11. Jika perlu, ubahlah dengan nama shortcut yang baru
12. Klik Finish
Dengan cara ini maka akan terbentuk sebuah shortcut baru di desktop, jika Anda melakukan
Double-Click pada shortcut tersebut maka akan tampil program aplikasi penjualan yang telah
dikompilasi dengan nama Program Penjualan.

Membuat File Setup

Jika sebuah program ingin ditransfer ke komputer lain, maka akan lebih baik jika cara
memindahkannya dengan membuat file setup-nya terlebih dahulu. Walaupun cara penyalinan
juga dapat digunakan untuk mentransper program, tetapi cara tersebut dirasakan kurang aman.
A. Tahap persiapan.
1. Buatlah sebuah direktori baru (misalnya Setup Penjualan) tempat menyimpan file
setup dan file-file pendukung lainnya seperti file hasil desain Crystal Report,
beberapa form yang dirancang oleh Visual Basic dan lain-lain.
2. Salinlah (copy) file-file yang dibutuhkan seperti yang disebutkan pada point 1.
B. Membuat file setup
1. Klik ikon Start
2. Pilih Programs
3. Pilih Microsoft Visual Studio 6.0
4. Pilih Microsoft Visual Studio Tools
5. Pilih Package & Development Wizard
6. Klik Browse …
7. Aktifkan direktori C:\Belajar VB
8. Pilih project dengan nama Aplikasi Penjualan
9. Klik Open, sehingga muncul tampilan berikut ini :
10. Kemudian pilih Package
11. Pilih Standard Setup Package
12. Klik Next >

13. Pilik direktori Setup Penjualan (nama direktori ini tidak akan muncul jika sebelumnya
Anda tidak membuatnya seperti yang dijelaskan pada tahap persiapan point A)
14. Klik Next >
Karena dalam aplikasi penjualan ini semua laporan menggunakan Crystal Report,
maka aktifkan file pendukungnya.
Catatan :
Pada tahapan ini sebaiknya file database dan file-file pendukung lainnya seperti file laporan
yang dibuat dengan Crystal Report ditambahkan, caranya klik add, cari file yang akan
ditambahkan, klik open
15. Kemudian aktifkan (pilih) juga file-file pendukung lainnya
16. Klik Next >
Untuk menyimpan file Setup ke disket, pilihlah Single Cab (1,44 MB)
18. Klik Next >

19. Tulis nama Setup (misalnya Aplikasi Penjualan)
20. Kemudian klik Next >
21. Klik Next >
Untuk membuat file setup lakukan langkah-langkah berikut ini :
Sistem akan mencari file-file pendukung dari file setup tersebut di beberapa lokasi
dalam harddisk yang nantinya disimpan dalam direktori Support.
23. Kemudian klik Next >
File Setup tersebut akan melakukan sharing dengan file exe yang telah dibuat
sebelumnya, klik pada CheckBox Program Penjualan.Exe
25. Kemudian klik Next >
Klik Finish
Dengan cara di atas Anda telah membuat sebuah file setup aplikasi penjualan. Untuk melihat
hasilnya, lakukan proses setup (instalasi) program dengan langkah-langkah berikut ini :

1. Buka Windows Explorer
2. Pilih direktori Setup Penjualan
3. Double-Click ikon Setup (gambar komputer warna biru),
Dah Jadi deh ….he hehe….

Membuat Database dengan coding VB

Membuat Database dengan coding VB

Jika selama ini kita membuat database menggunakan VisData atau Access maka sekarang
cobalah membuat database dengan program yang kita susun sendiri listingnya. Buatlah
form seperti gambar di bawah ini.
Listing program :

‘definisikan sebuah are akerja
Dim Posisi As Workspace
‘definisikan database
Dim DTBSBaru As Database

Private Sub Command1_Click()
‘pasang perangkap error
On Error GoTo salah
‘tentukan area kerja program
Set Posisi = DBEngine.Workspaces(0)
‘jika file database sudah ada
‘maka program akan menghapusnya
If Dir(“C:\Program Dasar\Baru.mdb”) “” Then Kill
“C:\Program Dasar\Baru.mdb”
‘tentukan dimana file database akan dibuat
Set DTBSBaru = Posisi.CreateDatabase(“C:\Program
Dasar\Baru.mdb”, dbLangGeneral, dbEncrypt)
‘tutup file database
DTBSBaru.Close
‘tampilkan pesan sukses
MsgBox “Pembuatan Database Sukses” & Chr(13) & _
“Nama Database : Baru.mdb” & Chr(13) & _
“Di Folder C:\Program Dasar”
On Error GoTo 0
Exit Sub
‘baris program pesan error
salah:
‘program tidak dapat berjalan jika file sedang dibuka
MsgBox “Database sedang dibuka oleh VisData atau Access” &
Chr(13) & _
“harus ditutup dulu”
End Sub

Source Code Membuat Efek Getar pada Vb

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer – g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

contoh program

Visual Basic
Penyusun : Achmad Fauzan
Muhammad Urfan
Rahimah Muslihah
SMA Plus PGRI Cibinong
Jl. Golf Ciriung CibinongMembuat Denah Lokasi SMA Plus PGRI Cibinong dengan menggunakan Visual
Basic
Pertama buka Visual Basic terlebih dahulu, otomatis ada pilihan form ,
setelah masuk di Toolbox yang berada di atas ada untuk menambahkan
beberapa form lagi, Karena yang mau di buat menggunakan MDI form, maka
kita pilih MDI form nya, perbedaan form biasa dengan MDI from yaitu
mungkin kalau MDI form itu merupakan induk dari form biasa.
Setelah sudah buat MDI formnya, klik di Toolbox Tools, lalu ada pilihan
Menu Editor, di Menu Editor itu terdapat Caption yang merupakan Nama
yang akan tampil di MDI formnya, dan Nama itu untuk nama di jendela
kodingnya, tetapi sebulm member nama di Nama, di depannya harus diawali
dengan huruf m, contoh mGedung, karena m itu menandakan identitas dari
MDI form itu sendiri.
Berikut tampilannya :
Setelah membuat MDI formnya lalu buat form lainnya untuk masing-masing di SMA
Plus PGRI Cibinong,
Berikut form-form nya:Lokasi SMA Plus PGRI Cibinong
1. Kita Add form sebanyak 9 form.
2. Di Form1 tambahkan Command Button sebanyak yang kita butuhkan,kali ini
membutuhkan 8 Command Button,Label sebanyak 4.
3. Command1 Captionnya di ganti dengan “Kantin”, dan tambahkan coding
untuk memanggil form2 yaitu :
‘Memanggil form2
Private Sub cmdKantin_Click()
Form2.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub4. Command2 Captionnya di ganti dengan “Gedung IT”, dan tambahkan coding
untuk memanggil form3 yaitu :
Private Sub cmdGedungIT_Click()
Form3.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
5. Command3 Captionnya di ganti dengan “Gedung Pembelajaran 2”, dan
tambahkan coding untuk memanggil form4 yaitu :
Private Sub cmdGedungPembelajaran2_Click()
Form4.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
6. Command4 Captionnya di ganti dengan “Gedung Administratif”, dan
tambahkan coding untuk memanggil form5 yaitu :
Private Sub cmdGedungAdministratif_Click()
Form5.ShowLoad Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
7. Command5 Captionnya di ganti dengan “Lab Fisika Dan Kimia”, dan
tambahkan coding untuk memanggil form6 yaitu :
Private Sub cmdLabFisikaKimia_Click()
Form6.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
8. Command6 Captionnya di ganti dengan “Gedung Pembelajaran 1”, dan
tambahkan coding untuk memanggil form7 yaitu :
Private Sub cmdGedungPembelajaran1_Click()
Form7.Show
Load Form1
End Sub
‘kembali ke Denah LokasiPrivate Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
9. Command7 Captionnya di ganti dengan “Gedung Pembelajaran 3”, dan
tambahkan coding untuk memanggil form8 yaitu :
Private Sub cmdGedungPembelajaran1_Click()
Form7.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End Sub
10.Command8 juga dig anti Captionnya dengan exit,gunanya apabila di klik exit
Program akan stop/berhenti dengan coding :
Private Sub cmdGedungPembelajaran1_Click()
Form7.Show
Load Form1
End Sub
‘kembali ke Denah Lokasi
Private Sub cmdBack_Click()
Form1.Show
Load Form2
End SubBegitu juga dengan form yang lainnya diisi dengan koding
“form(Form ke berapa).show
Load (yang akan hilang form berapa)/hide.(yang akan hilang form berapa)
Koding ini berguna untuk memanggil form yang lain, dan form yang pertama akan
hilang lalu muncul form yang kita ketik.
Contoh :
“Karena disini membuatnya dengan ,menggunakkan MDIform maka berikut
kodingnya,
Form32.show(berarti form 32 ini di panggil)
MDIform1.hide(berarti MDIForm1 ini akan hilang kemudian dig anti dengan form32)
Di setiap form bisa di tambahkan command button yang bercaption “Back”, yang
fungsinya ketika di klik command buttonnya dia akan kembali ke form MDIForm1nya
atau ke form yang sebelumnya telah di buka.

11.Di form Pembelajaran 1 diisi dengan
12.Di form Pembelajaran 2 diisi dengan13.Di form Pembelajaran 3 diisi dengan
14.Di form Kantin diisi dengan
15.Di form RPL diisi dengan16.Di form wakil kepala sekolah diisi dengan
17.Di form wakil kepala sekolah diisi dengan
18.Di form6 atau Lab Fisika dan Lab Kimia diisi dengan19.Di form diisi dengan
20.Di form Koperasi diisi dengan21.Di form diisi dengan
22.Di form Multimedia diisi dengan
23.Di form Research center diiisi dengan
24.Di form lab Komp1 diisi dengan25.Di form lab Komp2 diisi dengan
26.Di form Radio diisi dengan
27.Di form Perpustakaan diisi dengan28.Di form Warbel diisi dengan
29.Di form Degung diisi dengan
30.Di form Masjid Al-Mizan diisi dengan31.Di form Ruang tamu diisi dengan
32.Di form Lapangan diisi dengan
33.Di form UKS diisi dengan34.Di form Toserba diisi dengan
35.Di form OSIS diisi dengan
36.Di form Toilet 1 diisi dengan37.Di form Toilet 2 diisi dengan
38.Di form lab Komp1 diisi dengan39.Setelah sudah diisi semua, silahkan jalankan programnya, dan lihat hasilnya.
40.Apabila mau di tambahkan seperti, Listbox yaitu untuk memasukan item
tetapi terlihat semua.
Selamat Mencoba
Good Luck YA….!!!!!!!!!!!