Sebelumnya minta maaf klo tidak bisa memberi pencerahan
Saya cuman ingin memperjelas persoalan yg kayaknya sdg dicari
Soalnya saya juga tertarik hehehe
Konsep random access file
Private type DataMahasiswa
Nama as string * 10 '10 byte
Alamat as string * 10 '10 byte
Umur as integer '4 byte
End type
Dim sData as DataMahasiswa
Dim PanjangData as integer
PanjangData = len(sData)
Open NamaFile For Random As #1 Len = PanjangData
Get #1, 1, sData '--> sData adalah hasil data sepanjang 24
byte
'hasil pembacaan data
Dim Nama As String, Alamat As String, Umur As Integer
Nama = sData.Nama
Alamat = sData.Alamat
Umur = sData.Umur
Pertanyaannya adalah :
1. bagaimana menggantikan fungsi deklarasi DataMahasiswa menjadi
bentuk run time?
Dim sData(1 to 24) As Byte 'bisa ditentukan dari header
Dim PanjangData as integer
PanjangData = 24
Open NamaFile For Random As #1 Len = PanjangData
Get #1, 1, sData '--> sData adalah hasil data sepanjang 24
byte
'hasil pembacaan data
Dim Nama As String, Alamat As String, Umur As Integer
For A = 1 to 24
If A <= 10 then
Nama = Nama & sData(A)
Elseif A <= 20 then
Alamat = Alamat & sData(A)
Else
Umur = Umur & sData(A) 'tidak jalan ???
End If
Next A
Masalahnya, hal diatas hanya jalan utk tipe data string ...
???
2. alternatifnya : bagaimana membaca sData sepanjang 24 byte tp
sepotong-sepotong, seperti fungsi mid(teks, mulai, panjang)
tapi fungsi tsb hanya utk teks, blm nemu utk byte .. ada yg nyaranin
pake seek ??? klo udah dapat data sesuai panjang byte-nya .. baru dibaca
sesuai type datanya
3. alternatifnya : data per byte ditampung ke variabel sementara,
trus variabel sementaranya dibaca sesuai type data ... gmn caranya ya??
Klo cara di atas masih blm berhasil, kan modelnya jg ditampung
Masalah :
Bagaimana cara membaca Sebuah data sepanjang 1 byte (integer) atau 4
byte (long) atau 8 byte (date) .. dibaca sebagai satu kesatuan
Klo teks kan membaca 1 byte sbg 1 karakter ...
Gitu kan ya? Hehehe
Mohon maaf klo salah :-)
“This e-mail (including any attachments) is intended solely for the addressee
and could contain information that is confidential; If you are not the intended
recipient, you are hereby notified that any use, disclosure, copying or
dissemination of this e-mail and any attachment is strictly prohibited and you
should immediately delete it. This message does not necessarily reflect the
views of Bank Indonesia. Although this e-mail has been checked for computer
viruses, Bank Indonesia accepts no liability for any damage caused by any virus
and any malicious code transmitted by this e-mail. Therefore, the recipient
should check again for the risk of viruses, malicious codes, etc as a result of
e-mail transmission through Internet”
