رکورد استاتیک در ویژوال بیسیک

[Babak indo]

سلام خسته نباشید
برای یک برنامه نسبتا ساده احتیاج به تعریف رکورد (کلاس) با 11 متغیر از نوع های عدد صحیح و اعشاری دارم
چه جوری میتونم یک رکورد با اندازه 100 تعریف کنم؟
چه جوری چندتا متغیر از نوع عدد اعشاری برای این رکورد تعریف کنم؟
چه جوری برای این متغیر ها مقدار بدم؟
چه جوری مقدارشونو صدا بزنم؟
و نهایتا برای تعریف حلقه تکرار for در vb6 چه دستوری باید ایجاد کنم؟!
ممنون میشم جواب بدین! فقط اگه میشه سریع تر به شدت نیازمندشم!
بازم ممنون:بوس:

[vbhamed]

سلام
اين براي ركورد با طول 100 بايت، و مقدار دادن و خوندن
ضمنا متغير Single چهار بايت، Double هشت بايت، Integer دو بايت و String هشتاد و شش بايت هستن كه مجموع اونها ميشه 100 بايت
Private Type MyRecord
x As Single
y As Double
z As Integer
s As String * 86
End Type

Private Sub Form_Load()

Dim r As MyRecord

r.x = 10.27
r.y = 17.00254641
r.z = 100
r.s = "test"

MsgBox r.x
MsgBox r.y
MsgBox r.z
MsgBox r.s

End Sub
اينم يك نمونه حلقه for
Dim i As Integer
For i = 0 To 100
'your program
Next
اينم با گام 10 تايي
For i = 0 To 100 Step 10
'your program
Next
اينم با گام منفي يك دهم
Dim j As Single
For j = 10 To 1 Step -0.1
'your program
Next

[Babak indo]

بازم سلام
ممنون که جواب دادین
اما یه چیز کوچیک موند
من منظورم این بود که 100 تا رکورد از یک نوع میخوام داشته باشم مثلا r1 , r2 , r3 ,..., r100 اینو چکارش کنم؟

[vbhamed]

سلام
خيلي ساده
Dim r(100) As MyRecord