' yang simpel banget:
isi_log$ = "Ini adalah isi teks yang akan dilog"
open "PROGRAM.LOG" for binary as #1
put #1,,isi_log$
close #1
'yang simpel ga banget-banget:
Dim hLogFile%
private function OpenLogFile%(Filename$)
file_number% = freefile
open filename for binary as #file_number%
openlogfile = file_number%
end function
private sub WriteLog(Handle%, Information$)
if handle > 0 then
put #handle,,information
endif
end sub
private sub CloseLogFile(Handle%)
close #handle
end sub
private sub Command1_Click()
WriteLog hLogFile, Text1.Text
end sub
private sub Form_Load()
hLogFile = openlogfile("PROGRAM.LOG")
end sub
private sub Form_Unload()
closelogfile hLogFile
end sub
' yang agak rumit:
' sama dengan di atas, yang diubah cuma sub WriteLog saja
private sub WriteLog(Handle%, Information$, Optional FlushBuffer% = 0)
static log_buffer as string
if handle > 0 then
log_buffer = log_buffer + Infomation
if (len(log_buffer) > 10000) or (FlushBuffer% <> 0) then
put #handle,,log_buffer
log_buffer = ""
end if
endif
end sub
' yang rumit
yang rumit kodenya juga rumit, sulit kalo cuma dikira-kira saja (kode di atas
cuma
dikira-kira, ga bener2 aku test dulu), yang jelas kalo yang rumit, ukuran log
file bisa
dibatasi, jadi file log nggak ngembang terus lama2 ngabisin space harddisk.
trus waktu
nulis ke log file juga tidak setiap ada informasi baru yang akan dilog, tetapi
hanya
ketika panjang log_buffer mencapai ukuran tertentu, kecuali jika opsi
FlushBuffer aktif.
kodenya sedikit mirip dengan yg di atas tapi perlu banyak sekali modifikasi.
[Non-text portions of this message have been removed]
