a. Definisi Sequential
Akses
berurutan merupakan metode akses paling sederhana. Informasi pada file diproses
secara berurutan, satu record diakses setelah record yang lain. Metode akses
ini berdasarkan model tape dari suatu file yang bekerja dengan perangkat
sequential- access atau random-access.
Operasi
pada akses berurutan terdiri dari :
1.
Read next : Operasi read membaca
bagian selanjutnya dari file dan otomatis menambah file pointer yang melacak
lokasi I/O.
2.
Write next : Operasi write
menambah ke akhir file dan ke akhir material pembacaan baru (new end of file).
3.
Reset : File dapat di-reset ke
awal dan sebuah program untuk meloncat maju atau mundur ke n record.
4.
No read after last write (rewrite)
b. Latihan Sequential
Membuat
program sequential dengan VB.net menghitung luas bangun datar persegi panjang.
Dengan script sebagai berikut :
c. Definisi Class Module
Sebelum kita menunjukkan bagaimana cara
membuat programnya, kita akan menjelaskan tentang Class Module terlebih dahulu.
Sebenarnya apa sih Class Module pada VB itu? Dan apa fungsinya?
Class Module pada prinsipnya hampir sama dengan module biasa (.bas). Kegunaan class module adalah untuk membuat file-file library (.dll) sehingga dapat digunakan oleh program2 lain dan menyederhanakan aplikasi kita. Konsepnya mirip dengan pemrograman berorientasi object meskipun VB belum/tidak mendukung sepenuhnya OOP. Satu kelas bisa diturunkan dari kelas lain.
Dan Berfungsi sebagai :
- Codingan Terlihat Rapi
maksudnya, kita bisa buat class
koneksi yang isinya hanya mengatur tentang koneksi database, ga lebih dan kalo
bisa ga kurang.biasanya,semua logika pemrograman di taruh di class. jadi di
program utama (form) kita tinggal buat instance dan tinggal panggil method atau
propertynya, atau dengan kata lain kita ga perlu tahu logika si method atau
fungsi (ini namanya Enkapsulasi)
- Reuseble (Dapat dipakai lagi)
maksudnya, bisa digunakan lagi ketika
kita mau buat program yg lain. kita sudah pernah buat class koneksi ada
property dan methodnya. pas kita buat program lain, kita tinggal pake class tsb
dan beres. jadi buatlah class itu sefleksibel mungkin, tp jangan buat class
'dewa' yg artinya sangat fleksibel (soalnya susah dan makan banyak waktu)
- Maintenance
dengan menggunakan class, kalau
seandainya ada error di program kita, kita ga perlu pusing ngeliat coding di
form kita, tapi tinggal buka class yang kira2 ngehandle kerjaan yg (error) tadi
Untuk aplikasi yg besar,
lebih baik pake class, biar lebih rapi ,mudah dalam pengerjannya dan mudah
dalam sisi manajemen. kita juga jadi lebih mudah dalam pembagian keja dalam
tim.
d. Latihan Class Module
Sebagai contoh, kami
membuat program perhitungan kalkulator bangun ruang dan bangun datar dengan
menggunakan Class Module.
- Tampilan Menu Utama
- Bangun Ruang dengan contoh menghitung Balok
Source Code :
Script pd Form Balok :
Dim sumber As New Class1
Private Sub Command1_Click()
Hasil1 =
sumber.luasbalok(Val(Panjang1), Val(Lebar1), Val(Tinggi1))
End Sub
Private Sub Command2_Click()
Hasil2 =
sumber.volumebalok(Val(Panjang2), Val(Lebar2), Val(Tinggi2))
End Sub
Script pd Module Class :
Public Function luasbalok(ByVal
Panjang1 As Integer, ByVal Tinggi1 As Integer, ByVal Lebar1 As Integer) As
Integer
luasbalok = 2 * (Panjang1 * Lebar1) + (Panjang1 * Tinggi1) + (Lebar1 * Tinggi1)
End Function
Public Function volumebalok(ByVal
Panjang2 As Integer, ByVal Tinggi2 As Integer, ByVal Lebar2 As Integer) As
Integer
volumebalok = Panjang2 * Lebar2 * Tinggi2
End Function
- Bangun Datar dengan contoh menghitung JajarGenjang
Source Code :
Script pd Form Jajar Genjang :
Dim sumber As New Class1
Private Sub Command1_Click()
Hasil1 =
sumber.luasjajargenjang(Val(Alas), Val(Tinggi))
End Sub
Private Sub Command2_Click()
Hasil2 =
sumber.kelilingjajargenjang(Val(Panjang1), Val(Sisi))
End Sub
Script pd Module Class :
Public Function
luasjajargenjang(ByVal Alas As Integer, ByVal Tinggi As Integer) As Integer
luasjajargenjang = Alas * Tinggi
End Function
Public Function
kelilingjajargenjang(ByVal Panjang1 As Integer, ByVal Sisi As Integer) As
Integer
kelilingjajargenjang = (Panjang1 + Sisi) * 2
End Function
e. Definisi Activex DLL
Membuat ActiveX DLL adalah suatu usaha untuk
membuat program lebih modular dan code-code yang sering di gunakan sebaiknya di
kumpulkan dan jadikan dalam sebuah DLL sehingga dapat menggunakannya kapan saja
jika dibutuhkan.
f. Latihan Activex DLL
Pembuatan ActiveX DLL melalui Visual Basic :
1.
Buka Visual Basic Anda kemudian
pilih menu File | New Project dan kemudian pilih ActiveX DLL.
2.
Visual Basic akan memberi
workspace project template ActiveX DLL dengan sebuah class module default yang
bernama Class1. Ganti nama class module tadi menjadi clsMain.
3.
Tambahkan sebuah form pada project
DLL dan beri nama frmHello. Ganti nama project ActiveX DLL ini menjadi vbdll.
4.
Tulis code berikut
pada class module clsMain tadi:
Option Explicit
Public stMyProperty
As String
Public Sub Main_()
frmHello.Show vbModal
End
Sub
Public
Property Get MyProperty() As
Variant
MyProperty = stMyProperty
End Property
Public
Property Let MyProperty(ByVal
vNewValue
As Variant)
stMyProperty = vNewValue
End Property
5.
Simpan project ActiveX DLL ini
dengan nama vbdll.vbp.
6.
Compile menjadi DLL melalui menu
File | Make vbdll.dll.
7. Meregisterkan DLL ke Windows,
dengan masuk ke MS DOS Prompt, kemudian change directory menuju tempat
penyimpanan atau mengcompile vbdll.dll.
8.
Ketikkan perintah “regsvr32
vbdll.dll” pada command prompt DOS.
Untuk software programnya dapat di download Disini
0 komentar:
Posting Komentar