مفهوم ركورد

[aminkk]

سلام بر دوستان گل:
من يه خواهشي داشتم اون هم اينكه كي از دوستان براي من مفهوم ركورد تو vb رو با pascal مقايسه كنه چون من خيلي ديگه قاطي كردم.
اگه ميشه آموزش بديد از شرمندگي شما درميام.

[اوبالیت به بو]

ركورد براي ساخت يه مجموعه اي هستش كه بوسيله اون ميشه اطلاعات رو ذخيره كرد. اجزا تشكيل دهنده ركورد فيلدها هستن. پس براي اينكه يه ركورد ايجاد بشه بايد فيلدهاي اون رو مشخص كرد.
ركورد تويه vb بوسيله مفهوم UDT ساخته ميشه و ازش ميشه تو فايل ها و در بانك هاي اطلاعاتي استفاده كرد. مفعوم UDT در هر 2 زبان مشابه هستش و يادگيري اون ساده!
اطلاعات بيشتر:

http://barnamenevis.org/forum/showpost.php?p=531338&postcount=38
http://barnamenevis.org/forum/showpost.php?p=529787&postcount=38 تعريف ركورد در پاسكال:


Type RecordName = RecordType RecordName = Record
Field1:DataType;
Feild2:DataType;
.
.
.
END;
DataType: نوع داده مثل Byte,String,Bool,...
RecordName: نام ركوردي هستش كه بر اساس قانون نامگذاري شناسه ها نام گذاري مي كنيم.


Type Student = Record
Name:String[15];
Age:Byte;
END;

تعريف ركورد در ويژوال بيسيك:


Type Student
Name As String
Age As Byte
End Type

توجه: در ويژوال بيسيك براي تعريف UDT بايد از Module استفاده كرد.
تعريف متغير:
حالا در آخرين مرحله براي دسترسي به فيلدها بايد يه متغير از نوع ركورد تعريف كني.
در پاسكال:


Var st:Student;
در ويژوال بيسيك:


Public st As Student
حالا براي دسترسي به ركورد ها بايد صورت زير عمل كرد:


RecordVar.Filed
RecordVar: متغير از نوع ركورد هستش.
Field: فيلد يا مشخصه ركورد.
مقداردهي ركورد:
براي دادن ورودي به ركورد به صورت زير عمل مي كنيم:
در پاسكال:

Readln(st.Name, st.Age);در ويژوال بيسيك:

st.Name = InputBox("Enter Your Name:", "Name")
st.Age = InputBox("Enter Your Age:", "Age")
چاپ ركورد:
و براي چاپ در خروجي به صورت زير:
در پاسكال:

Writeln('Name:','','st.Name);
write('Age:','','st.Age);در ويژوال بيسيك:

MsgBox st.Name
MsgBox st.Age

[aminkk]

wow!
فكرش رو نمي كردم به اين زودي و به اين كاملي به جواب برسم.
خيلي خيلي ممنون.
يه سوال حالا مي خوام اين رو تو يه فايل استفاده كنم و ذخيره كنم. چي جوري ميشه؟ هم پاسكال هم vb
واقعاً شرمندم كه اينقدر سوال مي كنم.
مرسي