السلام عليكم ورحمة الله وبركاته
هذا هو رابط تحميل ملف الفيديو رقم 13
http://downloads.sourceforge.net/doublesvs...e4Arab_No13.zip
وهو يشتمل على شرح مفهوم ال Reaction الذى يمكن ان يشتخدم لجمع مجموعة من ال Vessels و ال Atoms وال Shells وال SubShells تحت مسمى واحد.
Define Window ( win1 )
Window Events
Event: ON INIT
Window Properties
Window Controls
Define New Editbox ( edit1 )
Editbox Events
Editbox Properties
End Of Window
Activate window
Define Procedure mystart
Code Block
Active Reaction myreaction
Reaction Goto First Vessel
myvessel := GET_REACTION_VESSEL_NAME
Open Vessel &myvessel
Goto First Atom
Select Active Atom
Select Shell k
Select SubShell s
Load Active SubShell From Memory
Print text (e1) to Editbox (Edit1) of Window (Win1)
End of Procedure
The First Step
والله الموفق
تم تعديل هذه المشاركة بواسطة PWCT Maker في 9 يناير 2009 في 14:00
