How to make a setup – Visual Basic

Ada 3 cara membuat sebuah setup program methods pada program visual basic, yaitu :

1. Static setup
Static setup merupakan sebuah method setup yang permanent, biasanya setup dibuat pada source code pemogramannya itu sendiri, sehingga untuk merubah settingan harus merubah source code-nya pula.

2. Dynamic setup
Dynamic setup adalah method dimana setup bisa dilakukan yang sifatnya semi permanent. Dengan menyimpan temporary setup pada sebuah file/log, yang bisa di tambah, hapus dan dirubah. Kemudahan dan efisiensi yang ditawarkan pada method ini sehingga sangat banyak digunakan.

3. Temporary setup
Temporary setup adalah method dimana setingan disimpan hanya untuk semementara, apabila program dalam kondisi restart maka settingan akan kembali ke keadaan default. Biasanya method ini menggunakan system parameter used.

Read and Write File With Regularity - Visual Basic

Terkadang kita membutuhkan skema ini untuk beberapa keperluan, contohnya adalah untuk membuat sebuah file yang berisi data record/log. Saya akan memberikan contoh sederhana dari fungsi Read and Write File with regularity.

If not Scripting.FileSystemObject.FileExists(strfileaddr) then
Exit function
End If

Open strFileaddr For Random As #1 Len = Len(udtlot)
Get #1, 1, udtlot

Syntax yang pertama adalah seleksi apakah file address yang berada di “strFileAddr” – as string, jika keberadaan file tidak ada maka perintah selanjutnya yang akan di eksekusi adalah “Exit Function”, dan jika sebaliknya file yang dimaksud ada dan cocok maka perintah selanjutnya yang akan di eksekusi adalah “End if” yang berarti command untuk mengakhiri dari command “if … then”. Command selanjutnya adalah untuk membuka sebuah file dengan alamat dan nama file yang telah ditentukan, pada perintah diatas terdapat syntax “Len = Len(udtlot)” , “udtlot” adalah sebuah tabel yang akan diperlihatkan dibawah ini.

Public udtlot As LOTTBL

'Lot Data Table (220 byte)
Public Type LOTTBL
Compound As String * 8 ' 8 byte Compound Name
Batch As Integer ' 2 byte Total Batch
MaStTime As String * 5 ' 5 byte Weighing Start Time
SpMa(1 To 6) As WTBL '120 byte MATERIAL Spec
LotMa(1 To 6) As Integer ' 12 byte MATERIAL Act Data * 10
SpCo(1 To 5) As CTBL ' 25 byte CARBON & OIL Spec
LotCo(1 To 5) As Integer ' 10 byte CARBON & OIL Act Data * 10
stTime As String * 8 ' 8 byte Mixing Start Time
MixTime As Integer ' 2 byte Mixing Time (sec)
SpTemp As Integer ' 2 byte Mixing Temperatur Spec
LotTemp As Integer ' 2 byte Mixing Temperatur Act Data
SpPi As Integer ' 2 byte Mixing Total PI Spec * 10
LotPi As Integer ' 2 byte Mixing Total PI Act Data * 10
Dummy As String * 20 ' 20 byte Reserve
End Type

“udtlot” adalah sebuah tabel yang mempunyai ukuran/kapasitas, disinilah bagian yang terpenting untuk membuat sebuah syntax read and write file dengan teratur, dimana penyimpanan disimpan secara teratur dengan kapasitas yang ditentukan begitu pula dengan pengambilan data ( Reading ) yang teratur juga, contoh sederhana untuk reading file kita hanya perlu merubah command “Get” menjadi “Put”.

If not Scripting.FileSystemObject.FileExists(strfileaddr) then
Exit function
End If

Open strFileaddr For Random As #1 Len = Len(udtlot)
Put #1, 1, udtlot

Sesuatu yang lebih dari skema ini adalah kita dapat write file secara continues, bisa di isi dengan ratusan bahkan ribuan Data Tabel, tapi tentunya harus disesuaikan dengan kebutuhan karena semakin banyak isi sebuah file semakin lama system reading file tersebut.