Coba kasih saran deh
sebenernya gak terlalu sulit menyimpan
sebuah variabel type udt (universal data types)  ke file
daripada menyimpan di registry yang ribet juga lambat..
mending menyimpan global variable ke disk
 
misal kalo mau nyimpen data udt biodata
 
'didalam modul (BAS)
 
type DataMhs
   NIM as string * 10
   Nama as string * 30
   Alamat as string * 50
end type
 
public Biodata as DataMhs
 
 
'di form load cukup dipanggil:
'untuk simpan data
 
SaveLoadGlobalData("myVar.bin", true)

'untuk load data
SaveLoadGlobalData("myVar.bin", false)
 
 
'ini subrutinnya
Sub SaveLoadGlobalData(filename As String, Save As Boolean)
    Dim filenum As Integer, isOpen As Boolean
    On Error Goto Error_Handler
    filenum = FreeFile
    Open filename For Binary As filenum
    isOpen = True
    If Save Then
        Put #filenum, , biodata
    Else
        Get #filenum, , biodata
    End If
Error_Handler:
    If isOpen Then Close #filenum
End Sub

IpinZ
semoga membantu
----- Original Message -----
 

alo VB-ers dan r3dc377 khususnya,
terkait dgn pertanyaan saya sebelumnya.
saya tdk ada kesulitan memasukkan data2 ke header (atau pun dlm btk file tersendiri), hanya mslhnya, saya tdk bisa memasukkan data header tsb ke variabel yg akan digunakan dlm mengolah data.
 
biasanya saya menggunakan di modul :
 
type DataMhs
   NIM as string * 10
   Nama as string * 30
   Alamat as string * 50
end type
 
public Biodata as DataMhs
 
nah, apakah kita membentuk variabel tsb dgn hanya membaca header (artinya membentuk variabel tsb saat run time dgn membaca sebuah text). ada yg punya solusi? atau punya referensi?
 
makasih


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




Kirim email ke