: íéðééðò ïëåú éôåñ çåã øîâ è÷ééåøô
: àåáî
..………………………………………………………………………………………ïåéòøä 
..……………………………………………………………………………………úåøèîä 
…………………………………………………………………….úåøçà úåðëåúî äðåùä 
..……………………………………………………………………………áåùéçä úåèéù 
………………………………………………………………………………………òåöéáä 
.……………………………………………………………………………úåðåøúôä ïååâî 
..………………………………………………………………………………………äøæò 
: çåúéô
…………………………………………………………………………øöåîä çåúéô êéìäú 
.………………………………………………………………………………………çå÷ìä 
..……………………………………………………………………………çå÷ìä úåùéøã 
..……………………………………………………………………çåúéôä êéìäú éøöåú 
..…………………………………………………………äðëåúä ìù éìàðåéö÷ðåô øåàéú 
: äðëåúä úéðá ìò øáñä
…………………………………………………………………………………………éììë 
………………………………………………………………………………………úåøå÷ 
.………………………………………………………………………………………êáñî 
.……………………………………………………………………… éììë äîéøæ íéùøú 
: ùîúùîì êéøãî
..…………………………………………………………………………… íéðééðò ïëåú 
...……………………………………………………………………………………êáñî 
………………………………………………………………………………………äøå÷ 
………………………………………………………äëéîúå ãåòéú äð÷úä – èðøèðéà 
.……………………………………………………………………äøå÷ éèøåàéú çôñð 
……………………………………………………………………êáñî éèøåàéú çôñð 
 
 
 
: à å á î 
 
: ïåéòøä
(íéîéåñî àìå íéîéåñî) íéø÷î ìù äéðá øùôàú øùà úåøå÷å íéëáñî ìù ïåøúôì äðëåú úéðá
. úéìàîéñ÷î úåùéîâ íò úéáéè÷àøèðéà úìåëé íà ,úéúåãéãé ,äèåùô ,úéìàåæéå äøåöá ïúéðä ìåëë íéáø
.(íé÷éåãî íééøôñî íéëøò úìá÷ ïë åîë) úéôøâ äøåöá úåðåøúôä úìá÷
.íéèðãåèñì ùåîéù øåáò ïåøúôä éáìù úìá÷
: úåøèîä
ùîúùîä úîø éôì íéëáñîäå úåøå÷ä éàùåð úðáäì íéèðãåèñì øæò úðëåú äéðá 1
,íééåðéùä úòôùä ìò äùåçú úúì éãë íéèðîìàä íò èåùô ÷çùî – úéñéñáä äîøá) 
.(ãáìá øáëòä é"ò úàæå 
ìãåâ àîâåãì) ,úéúééùòú äðëåúì äáéçøäì äéäé ïúéðù äðëåúä úéúùú ìù äùéîâ äéðá .2 
.ä÷éôøâ ìò ùâã ïúî êåú ,(íúåðùì ïúéðù íéòåá÷ë íéøãâåî íéèðîìàä øôñîå 
íò êáñîá àîâåãì øáåãî øùàë ø÷éòá áåùç – õáå÷ì äø÷îä ìù äçéúôå äøéîù úìåëé .3
. íéèðîìà ìù ìåãâ øôñî 
.íéôøâä éåðéù éîåçú úà úåàøéì ïúéð øùàë ,äøå÷ êøåàì èðîìà ìù äéöìåîéñ .4 
.(÷åùá úìáå÷îäå úåöåôðä) : úåøçà úåðëåúî äðåùä
. íééôéöôñ íéðåúð ìù äîùäá êøåö àìì ãáìá íéôøâ íéòöîà é"ò äø÷î úééðáì úåøùôàä .1
. (õîàî òáö ,óøâ úàöåú) ïåøúôä ïåëãòå äø÷îä éåðéùì úåì÷å áçø äìåòô ùôåç .2
úåøå÷á íéø÷î ìù íåöò øôñîì ïåøúô .3
.íéèðãåèñì úéãåòéé äðëåú .4
.úéøáòá äëéîú .5
98 úåðåìçì íâ íéàúîù, èéá 32 .6
 
: áåùéçä úåèéù
äãåáò éðúùî åìéà íéëøò øåîùúå (…úåçåë íå÷éî çèù êøåà) ùîúùîäî íéëøòä úà àø÷ú äðëåúä .1
íéðéîæ íéðåúðä åéäé äöøää ïîæáù êë êñîä ìò íéèðîìàä íå÷îî úåøéùé íéëøòä úà àø÷ú åà íéøãâåî 
.áåùéçä úåéö÷ðåôì 
.äø÷î ìëì úåîéàúîä úåàåùî ìù ïåøúô ìåìñî êéåùî äéäé äéòá ìëì .2
(ùîúùîì çìùéú äòãåäå) íîå÷îá àì íéèðîìàä åà íééçøëä íéðåúð íéøñç øùàë áåùéç øùôàúé àì .3
.éèéìðàä ïåøúôä êåúî úéøîåð äøåöá åòöåáé íéôøâä .4
: òåöéáä
.98 å 95 úåðåìçì exe äìòôä õáå÷ ìá÷úî øùàë Visual Basic 6 úðëåúá òåöéáä
: íééøùôàä úåðåøúôä ïååâî
êáñî
íéèðîìàá íéöîàîå íééøéö úåçåë
úåææä
êñîá äìãåâ ìò äèéìùå úèñåî äøåö :éôøâ
íéìãâ éôì íéöîàî íåøè÷ôñ 
äçéúî\äöéçì éôì íéèðîìà úòéáö 
äøå÷
íéôøâä éøèîøôá äèéìùå äòé÷ù ,èðîåî ,äøéæâ :éôàøâ ïåøúô
úåáåâú
ïåöé÷ éëøò
.äøå÷ä ìò íééåñî íå÷éîá éøîåð ïåøúô
.úåðåøúôä çååè úìá÷å äøå÷ä ìò àåäìùë èðîìà úææä :äéöìåîéñ
:äøæò
:úðåå÷î
.(éìîéèôåà øãâåî øãñ éôì) ùîúùîì úåöìîåîä äìåòôä úåéåøùôà ìò éãéîú áåúéë
:úéììë äøæò
. (äéòáä úéðá êøã ,áùçì ïúéð êéàå äî) íéàùåð éôì
:úéãåîéì äøæò
.úéôéöôñ äéòáì ïåøúô éáìùå éììë ïôåàá ïåøúôä êøã ,äéòáì úåîéàúîá úåàååùîä
.(òâøë ìéòô àì ) ìå÷ ñô íò MOV úîåéñ íò õáå÷ : úéìàåæéå äøæò
 
 
 
 
: ç å ú é ô 
 
: øöåîä çåúéô êéìäú
. visual basic 6 úðëåúá ùåîéùä ãåîéì .1
.úåîéé÷ úåðëåú ø÷ç .2
.íéèðîìàäå íéø÷îä úøãâä .3
.úåéèéìðàä úåàçñåðä óåñéà .4
. éôøâä ÷ùîîä ïåðëú .5
.éôøâä ÷ùîîä úéðá .6
.(úéôøâ äèéìùì úåéö÷ðåô ,úåöéøèî úìôëä ,úéììë úåàååùî úëøòî ïåøúô) áåùéç úåéö÷ðåô úéðá .7
.áåùéçä úåéö÷ðåô úøæòá ïåøúôä íúéøåâìà úéðá .8
.äö÷ä ùîúùî ìöà íåùééì ìéá÷îá íéàúîä ïôåàá úåàçñåðìå äø÷îì íéèðîìàì øåùé÷ .9
 
: çå÷ìä
úéúééùòú ùåîéù úîøì òéâäì äôéàùá) íéðáî / íé÷öåî úåðåëî úñãðäì èðãåèñ
.(úåéòá ïååâîì úåðåëîä éñãðäîì
.(éìîéðéî òãé ìòá) éìàéöðèåô ùîúùî ìëì úéáéè÷àøèðéà äùçîä êøåöì ïë åîë
 
 
: çå÷ìä úåùéøã
.úéúåãéãéå , äìéòé, äøéäî , äì÷ úéìàåæéå êøãá ìãåîä úéðá .1
. úéøáòá äëéîú .2
.íéùøãð íééèéø÷ íéëøò úìá÷ ïë åîë , úéôøâ êøãá úåàöåúä úìá÷ .3
.øëåî èîøåôá ïåøúô .4
(íéîìòð íäù-øúåé åà ãçà äðúùî íò éôåñ ìãåî úìá÷) íéøèîøô íò ùåîéù úìåëé .5
.óøâä ìò íééåðéùä úà úåàøéìå 'åëå, íéèðîåî, úåçåë úéáéè÷àøèðéà úéðèìåîéñ æéæäì úìåëéä .6
. 95/98 úåðåìçì íéàúî ÷ùîî .7
.( ïåøúô êøã éìàðåéöôåà ) äøæòä úéðåìçá äø÷îì úëéåùîä äàååùîì úåùéâð .8
÷ùîîá äòéâô àìì ùîúùîä äéöåìåæøì êñîä úîàúä úìåëé .9
. äðëåúä úñéø÷ áöîì òéâäì ùîúùîì øùôàì àì .10
.÷åùá úåùéâð øùà (íéð÷ú) úåàìáè êåúî íéèðîìà úøéçá úìåëé .11
.úåéöìåîéñ ïîæá áåùç – øéäî äáåâî ïîæ .12
.úéôéöôñ äéòáì ïåøúô éáìù .13
 
 
:çåúéôä êéìäú éøöåú
.çå÷ìä úåùéøã èøôî .à
.(ùîúùîì éðåùàø êéøãîë íâ ùîùì ìåëé) äðëåúä ìù éìàðåéö÷ðåô øåàéú .á
.äðëåúä ïåðëú èøôî .â
.úéðééôåà äéòá ìù éðåùàø ñåôéè áà – Prototype .ã
.úãáåò äðëåú ìù Code .ä
.ùîúùîì øöå÷î êéøãî .å
:úåøòä
.óèåù ïôåàá åðëãòúé çåúéôä éøöåú .1
.äéòá ìë øåúôé ùîúùîä êéà – éìðåéö÷ðåô øåàéú .2
,íéìãåîì ä÷åìç ,íéðåúð äðáî ,éôøâ ÷ùîî – äðëåú ïåëéú èøôî .3
. íééøîåð åà íééèéìàðà íéáåùéç 
 
 
äðëåúä ìù éìàðåéö÷ðåô øåàéú
: íéèðîìà
: úåøå÷
.äøéøâ é"ò äøå÷ä êøåàì úéùôåç äøåöá íéèðîìàä ìë ìù äòåðú úìåëé
: (input) íä íéèðîìàä
,äøéæâ éøåøçù 5 ,íé÷øô 5 ,íéëîñ ,íéôéöø úåçåë 10 ,íéèðîåî 10 ,úåçåë 10
.íéëåúéø 5 
: (output) ììåë ïåøúôä óøâ
.óøâ éëøòå íåîéñ÷î éëøò ,úåáåâú ,äòé÷ù ,èðîåî ,äøéæâ
: íéëáñî
: (input) íä íéèðîìàä
.íéúîöì úåçåë 40 ,(íéòåá÷å íéãééð) íéëîñ 50 ,úåèåî 200 ,úîåö úåãå÷ð 80
: (output) ììåë ïåøúôä óøâ
.(øçáéðù íã÷îá äìôëä øçàì) êáñîä úæåæú
.(úåèåî) íéèðîìàá úåçåëä
.íéöîàîä íåøè÷ôñ òáöì íàúäá äðúùéù èåîä òáö é"òå ,êøò é"ò – íéèðîìàá íéöîàîä
.äöéçìá åà äçéúîá íéèðîìàì äðåù òáö úìá÷ì úåøùôà ïúî
íéùøú äàø : äîéøæ íéùøú
 
 
"Visual Basic" á äðëåúä úéðá ïôåà ìò øáñä
: éììë
: (êáñîä úðëåúì íâ ó÷ú) úåéæëøî äãåáò úåçðä
úåéö÷ðåô , äîâåãì) íúãåáò úáéáñì ïúéðä ìëë úåáåø÷ åéäé úåéö÷ðåôå íéòåøéà .1
úåøîì X úåãå÷ôä úéðåìçá úåôéãòá åéäé X úéðåìçá íéàöîðù íééôøâ íéðúùîá øéãú úåùîúùîù 
,íééììëë àìå íééèøôë íéòåøéàä úà øéàùäì äôéàùä ïë åîë ,(Y úéðåìçá úåéäì íéìåëé íéòåøéàäù 
.íéòåöéáä úà øôùì úðî ìò úàæå 
ìù êøòî äðáé íéôøâ íéè÷ééáåà ìù áø øôñîì íéô÷ú åéäéù íéäæ íéòåøéà òöáì íéëéøö øùàë .2
. ãå÷ä úåøåù øôñî úà ïéè÷äì éãëá ,íìåëì úåììåë åéäé úåãå÷ôäù êë íééôøâ íéè÷ééáåà 
éãëá ,ïúéðù ìëë íéôøâä íéè÷ééáåàä ìù íéëøòîì íéìéá÷î åéäé íéðúùîä éëøòî ìù íéñ÷ãðéàä .3
.øãñ ìò øåîùì 
úåìåòô ,øúåé íééðåëñç íéðúùîá ùåîéù : úåìéòé ìò ùâã ïúðéé ìåãâ áåùéç ïîæ íéùøåãù íéòåøéàì .4
.åòöåáé àì ïäá ïéçáî àì ùîúùîäù úåøúåéî 
 
: ú å ø å ÷
: íééììë íéðåúð
.Integer ë íéøãâåî íéñ÷ãðéàä éëøò
.úåøôñ 7 ìù ÷åéã Single á íéøãâåî (úøçà øîàð àì íà) áåùéçä éëøò
sapo_num :äøå÷ éòè÷ øôñî
deg_num :ùôåç úåâøã øôñî
:íéðåúð äðáî
F1[1:10], M1[1:10], W1[1:10] :íéìáåìâ íéñîåò éëøòî
ïåéî øçàì íéè÷ééáåà êøòî saport1[sapo_num] :äãøôä éèðîìà éëøòî
.úåáåâúä áåùéç øåáò éøåãéñ øôñî éôì íéè÷ééáåà êøòî saport2[sapo_num]
,ïåøúôä é÷ìç ìùîì òè÷ ìë éðåúð úà ìéëî beam [ sapo_num] :ïåøúôä éðåúð úøéîùì éùàø íéðåúð êøòî 
…ãåòå úåçéù÷ ,êøåà ,òè÷ä ìò íéñîåò éëøòî ,ùôåçä úåâøã øåôñî 
.íéòè÷ä ìù èðîìàä úåöéøèî úà ìéëî Ke[sapo_num] :èðîìàä úåöéøèî êøòî 
.'åëå úåææä ìù úåðåøúô ,ùôåç úåâøãá íéñîåò :äîâåãì íéôñåð íéëøòî íéîéé÷ íéðåúðä äðáîá 
.äðúùî ìù âåñ åúåàì íéáåùçä íéøèîøôä úà ìéëîä [struct] äðáî áøì àåä ì"ðä íéëøòîá èøô ìë
 
 
:ïåøúô íúéøåâìà
ïéá ìãáä ùé øùàë ,äøå÷ì íéðåùä íéè÷ééáåàä úôñåä éôì íéáìùá íéðáð ïåøúôäå äðáîä éììë ïôåàá 
.äãøôä èðîìà úôñåä\úææä ïéáì ñîåò úôñåä\úææä 
íùîå ,ùãçî íéîéé÷ íéñîåò ïåéîå ùãçî äøå÷ éòè÷ ïåéî òöåáî äãøôä èðîìà úôñåä\úææä ìù äø÷îá 
. ïåøúôä úéö÷ðåôì 
.ïåøúôä úà æøæîä øáã ,ñîåò åúåàì úéúãå÷ð àéä úåñçéúää ñîåò úôñåä\úææä ìù äø÷îá 
:úåéùàø ïåøúô úåéö÷ðåô
èðîìà úôñåä ìë àìù ïåéëî úååö÷á ìåôéèì úåáéùç ùé .äøå÷ä ìò äãøôä éèðîìà øåãéñå ïåéî : sort_p 
åæ äãáåò .ïåøúôá úåòîùî ùé éùôåç äö÷ì íâ éë (äö÷á èðîìà úôñåä ìùîì ) íéòè÷ä øôñî úà äìéãâî 
.äãøåä åà äææä ìù íéø÷îì íâ äðåëð 
.äøå÷ä ïî äãøôä èðîìà úãøåä : Sort_p1
.åìùî äéö÷ðåô úîéé÷ ñîåò âåñ ìëì ,ñîåò úææä ìù äø÷îì ïåéî úåéö÷ðåô : data_F, data_M ,data_W 
.FER úåðåøúô úà úåðåá ì"ðä íéñîåòä úåéö÷ðåô 
.äãøôä è÷ééáåà úææä øçàì FER úåðåøúô úééðáå íéñîåòä ìù ùãçî ïåéî úéö÷ðåô : data_F1
èðîìàä úöéøèî úéðáå úåéåçéù÷å íéëøåà ïåëãò ,äãøôää éèðîìà éâåñ éôì ùôåç úåâøã øåôñî : Beam_sort 
.òè÷ ìëì 
.ùôåçä úåâøãá íééðåöéç íéñîåòå FER ä úåðåøúô éôì ùôåçä úåâøãá íéñîåò øåè÷å úééðá : asamb_f_deg 
.òè÷ ìëá úåîéé÷ä ùôåçä úåâøãå èðîìàä úîéøèî éôì äðáîä ìù úåçéù÷ä úöéøèî úééðá :asamb_k 
FER ïåøúôì ïå÷éúä áåùéç ,úåææää ìù úåàåùîä úëøòî ïåøúô :( èåøô àìì ) ùåîéùá úåôñåð úåéö÷ðåô 
.'åëå äðáîä úåðé÷ú ú÷éãá ,óøâä òåöéá ,óøâä ìò äãå÷ð áåùéç ,úåøéúé ú÷éãá ,úåáåâú áåùéç ,úåææää ììâá 
: ùîúùî ÷ùîî
.äðëåúä úøâñîì õåçî íâ íäìù äòåðú øùôàì éãë íîöò éðôá úåðåìç íä úéãåîéìä äøæòä ,íéôéèä ,íéìëä ìâøñ
.úéáéè÷ìñ äøåöá êà íéòåøéà íúåà úà íéìá÷îå êøòîá íìåë øùàë Image box íä íéè÷ééáåàä úåðåîú
.ãå÷ úøæòá äøå÷ä ìò íå÷éîá ïëå Picture box é"ò íúòåðú øåæàá íéìáâåî íìåë
.( VB ìù õìîåî éìë) úåðåîú úéøôñ êåúá úåøåîù úåðúùîä úåðåîúä
.äøéøâä øåøçù ïîæá ÷ø áåùéç òöáúéù éãë Drug over é"ò àìå Drug drop òåøéà é"ò úòöåáî äøéøâ
. (… éáåò) íéðåù å÷ éðééôàî ìò äèéìù øùôàî øùà ãøôéð Picture box êåúá íéòöåáî íéôøâä
íéìáâåî ïåìçä ìù íéè÷ééáåàä ìë .äæåæúä éìâøñì øúåé äçåð äèéìù øùôàì éãë – ïåìçä ìãåâ éåðéù
.äðëåúä ìãåâ úà ïéè÷é ùîúùîä øùàë íéè÷ééáåàä úà åëåúá òìåáù , Picture box á
.(èéøôú é"ò òöáì ïúéð àìù äî) ãå÷á ù÷îä ìò äöéçì úìåëé øùôàì éãë úàæå äãå÷ô éðöçìì øùå÷î èéøôúä
: äéöìåîéñ
.íéìëä ìâøñá ãîä ìù êøòä éôì äéäú åúåøéäîù Timer é"ò Key press ìù òåøéàì úàøå÷ äéöìåîéñä 
úåìáâä òåøéàì íéôñåð êà ,íéöç ù÷î é"ò è÷ééáåàä úà úéðãé æéæî ùîúùîä åá òåøéàä íöòá äæ Key press 
.äéöìåîéñä úà ìòééì éãë úåðåù 
 
: ê á ñ î
: íééììë íéðåúð
.Integer ë íéøãâåî íéñ÷ãðéàä éëøò
.úåøôñ 7 ìù ÷åéã Single á íéøãâåî (úøçà øîàð àì íà) áåùéçä éëøò
.P_max :úîåö úåãå÷ð ìù éìàîéñ÷î êøò
.L_max :úåèåî ìù éìàîéñ÷î êøò
P_Data[P_max] úîåö ìëì íéðåúð äðáî .1
: ììåë 
.úîåöä íå÷éî 
.(visible = True ) äìåòôá àåä íàä 
(çééð ,Yì ãééð ,Xì ãééð) .åéìà øáåçîä êîñä âåñ 
(éìéìù/éáåéç Y, éìéìù/éáåéç X) .åéìà øáåçîä çåëä âåñ 
.(åðååéëå å÷ ìë ìù ñ÷ãðéàä) åéìà íéøáåçîä íéåå÷ä ñ÷ãðéà êøòî 
.(Image Box äðåîúä øôñî åäæ úîåöä øôñî) 
.(äøñä åà äôñåä) äéðáä êìäîá íéðëãòúî åìéà íéëøò 
Boolean äðúùîá L_P_index[L_max,p_max,2] íéøù÷ä úöéøèî .2
òãéîä úà ïúåð (2) éùéìùä ãîîä øùàë ,å÷ ìù äøñä åà äôñåä ïîæá úðëãòúî 
òãéî .å÷ä úøãâä ìù x2,y2 éëøò åà x1,y1 éëøò àåä úîåöì øáåçîä å÷ä äö÷ íàä 
.úîåöä éøçà åôãøé å÷ä úååö÷ éëøò äæéà úîåö ìù äøéøâ ïîæá úòãì éãë áåùç 
.F_index_type[F_max] , R_index_type[R_max] éëøòî .3
,äðåúîä âåñ ,äðåîúä ñ÷ãðéà úà íéðúåð ,íéëîñå úåçåëä úåðåîú ìù òãéî éëøòî 
. äøñä / äéðáä ïîæá ïëãòúî .íéìòåô íä úîåö äæéà ìòå 
.çåë åà êîñ ìù äøñä / äôñåä êøåöì áåùç 
íéðåúð éëøòî .4
.P[L_max] : úåèåîä êúç çèù 
. E[L_max] : úåéèñìàä ìãåî 
. F[L_max] : íéìéòôä úåçåëä ìãåâ 
.U[P_max] : úåæåæúä ìãåâ 
.t[L_max] : úåèåîáù çåëä ìãåâ 
íééîðéã áåùéç íéëøòî .5
.Dim_dir íééùôåç íéúîö éðååéë øôñî 
.index_L íéîéé÷ä úåèåîä øôñî 
. Q[Dim_dir,index_L] (ì÷ùî ééååù) íéðååéë úöéøèî 
. S[index_L] úåèåîä úåðåëú úöéøèî 
. K[Dim_dir,index_L] úåçéù÷ä úöéøèî 
.õáå÷ ìù äðéòèå äöéøèî úëéôä ,úåöéøèî úìôëä ,úåàååùî úëøòî ïåøúôá íéøãâåîä íééîðéã íéëøòî óñåðá
: ïåøúô
äúòî øùàë) íéìéòôä íéúîöä øôñî úøéôñ ìéá÷îá , íúøñäå – èåî ìù øåáéç àìì íéúîö ùåôéç úéùàø 
.(ìéòôä ñ÷ãðéàì ãò íéáåùéçä äàìäå 
àì éàðúä íà ,íéúîö ñîì äååù åà ìåãâ úåèåîä ñî íàä ééàðú ú÷éãáå ,íéìéòô úåèåî øôñî úøéôñ úéðù 
. áåùéçî äàéöéå äîéàúî äòãåä – íéé÷úî 
.Y ïë-éøçàå X úéùàø ïååéëäå úîåöä øôñî éôì úåöéøèîä ìë øåãéñ éàðúä íéé÷úî íà 
.äîéàúîä äöéøèîä ïåëãòå íéðååéëä áåùéç 
,íäù ìë úåöéøèî éãîî úåìá÷îù úåðáåî úåéö÷ðåô é"ò úåàååùîä úëøòî ïåøúôå úåöéøèîä úìôëä áåùéç 
úåàååùî úëøòî .(ïè÷ ãåàî ãåàî êøòá ñôà úôìçä é"ò ñôàá ä÷åìç úòéðî) úåéøìåâðéñ ìù èìô – det=0 íà 
. pivot áåùéç íò L_U úèéù é"ò 
.(Line ì RGB úãå÷ô é"ò) íéìá÷úîä íéöîàîä êåúî íéåå÷ä òáö ïåëãò 
.(úåéåøùôà êåúî éìàðåéöôåà) íéðåúðä úåàìáè ïåëãò 
. VB éúðëúîì íééììë íéðééôàîå ,íéòåøéà ,úåãå÷ô
åéìò úåæåæú óøâ øùôàì éãë úàæå å÷ìçá ÷ø äàøð øùà Picture ìò äðáéð äéðáä çèùî : éììë* 
.åëåúá íéèðîìàä ìë úìáâäå 
.íéðå÷ééà é"ò úåôå÷ù úåøâñî øùôàì éãëá Image é"ò åðáéð íéëîñäå íéúîöä 
Image î øúåé ääåáâ úçà äîøä òéôåú çåëä úøâñîù éãë Picture é"ò úåçåëä 
.áçøîä ìåëì úåììåë úåãå÷ô øùôàì éãëá ,íéñ÷ãðéà ìù áçøîá úåðåîúä ìë 
: íéòåøéà*
: è÷ééáåà úôñåä -
.íéðåúðä ïåëãòå Picture(index).Visible = true åà Image(index).Visible = true íìåëì 
.äãåáòä çèùî ìù Picture ìò mouse up – úîåö 
(x1=image(index).left , y1=image(index).top) Line(index).visible = true – èåî 
mouse_ move úãå÷ôá øáëòä éøçà óåãøé éðùä äö÷ä x2,y2 øùàë 
úîåöä ìò mouse_ click ìù òåøéà é"ò – êîñå çåë 
Key_ code é"ò úàæå ,íéðåúðä ïåëãòå Image(index).Visible = false : íéè÷ééáåà úøñä -
.key preview á ìòôé íàä êîñî øùàë 
. Drug_ over òåøéà é"ò úåçåëäå íéëîñä ,íéåå÷ä úææä : äøéøâ
 
 
 
 ùîúùîì êéøãî çåãì óøåöî