دستور go و روال gosub

[mohsenaminzare]

دستور go و روال gosub چه کاربردی دارند؟
,

آیا روالی وجود دارد که تعداد رکورد های فایل تصادفی را برگرداند یا که با ید نوشته شود؟

,

در vb 6 روالی وجود دارد که مقدار فضایی را که متغییر اشغال می کند را برگرداند ؟

[romina2006]

برای بدست آوردن تعداد رکوردهای یک فایل تصادفی باید اندازه فایل رو بر اندازه طول رکورد تقسیم کنی.طول رکورد هم بستگی به طول تعداد فیلدهای آن داره :


Private Type EmployeeRecord
ID As Integer
Name As String * 20
Address As String * 30
Phone As Long
End Type
Dim Record As EmployeeRecord
Private Sub Command1_Click()
Filenum = FreeFile
Open Path For Random As Filenum Len = Len(Record)
RecordCount = Int(LOF(Filenum) / Len(Record))
Close #Filenum
End Sub