بسم الله الرحمن الرحيم
هذا الميل هو كود لحاسبه انا كتبته . الحاسبه عاديه ليست مثاليه لاكنها تعمل جيدا
فيها نواقص لاكن الامور الحسابيه تعمل صحيح هذه الحاسبه قابله للتطوير بشرط التفاعل مع هذا الموضوع
اني ارى مدى التفاعل الموجود بالنسبه لمواضيع الميل ضعيفه جدا مع الاسف . كتبت من قبل تقريبا ثلاث مواضيع عن الميل سابقا لاكن لم ارى اي تفاعل حصل بس حبيت اقول لأخوتي الاعزاء "" اقول بدون ميل و البرمجه كل هذا تعبكم ما في فايده "" و هذه نصيحه اخويه صدقوني هذا الموضوع مهم جدا
بألمناسبه انا قلت بشرط التفاعل . تدرون ليش لئن انا قاعد اخلي هذه البرامج هنا لعدة اسباب السبب الرائيسي هو: لتعم الفائده للجميع
بس اذا ما كو تفاعل معناتها شنو معناتها ماكو فايده
سامحوني بس اذا اطلت عليكم .
اليكم البرنامج
ملاحظه هامه : في ازرار لن تعمل بعد مثل
BackSpace
و الازرار التي هي على اليسار
كود:
proc float caluclecator(int $a,string $field) { float $numone; $numone=`textField -q -tx $field`; textField -e -tx "" $field; global int $saver3; $saver3=$a; return $numone; }; proc coco(int $a,float $saver1,string $field) { float $numone; $numone=`textField -q -tx $field`; float $result; $result=calo($a,$numone,$saver1); textField -e -tx $result $field; }; proc float calo(int $n,float $b,float $a)//[font=Courier New (Arabic)][size=1]لتشخيص نوع العمل الرياضي الذي لازم يحدث [/size][/font][size=1]{ float $result; if( $n==0) {$result=$a+$b;} else if($n==1) {$result=$a-$b;} else if($n==2) {$result=$a*$b;} else if($n==3) {$result=$a/$b;} return $result; }; proc float del(string $field) { textField -e -tx "" $field; return 0; }; string $win; string $numField; float $saver1; if(`window -ex $win`) deleteUI -window $win; int $High , $Wigh; $High= 240; $Wigh=205; $win=`window -t "MyProgram"`; columnLayout; $numField=`textField -w 190`; rowLayout -nc 3 -columnAttach 1 "both" 3 -columnWidth 1 40 -columnAttach 2 "both" 3 -columnWidth 2 80 -columnAttach 3 "both" 3 -columnWidth 3 80; text -l salam; button -l "BackSpace" ; button -l "C" -al "center" -c "$saver1=del($numField)"; setParent..; string $a="."; gridLayout -numberOfColumns 5 -cellWidthHeight 40 40 ; button -l "MC"; button -l 1 -c "textField -e -insertText 1 $numField"; button -l 2 -c "textField -e -insertText 2 $numField"; button -l 3 -c "textField -e -insertText 3 $numField"; button -l "/" -c "$saver1=caluclecator(3,$numField)"; button -l "MR"; button -l 4 -c "textField -e -insertText 4 $numField"; button -l 5 -c "textField -e -insertText 5 $numField"; button -l 6 -c "textField -e -insertText 6 $numField"; button -l "*" -c "$saver1=caluclecator(2,$numField)"; button -l "MR"; button -l 7 -c "textField -e -insertText 7 $numField"; button -l 8 -c "textField -e -insertText 8 $numField"; button -l 9 -c "textField -e -insertText 9 $numField"; button -l "-" -c "$saver1=caluclecator(1,$numField)"; button -l "M+"; button -l 0 -c "textField -e -insertText 0 $numField"; button -l "." -c "textField -e -insertText $a $numField"; button -l "=" -c "coco($saver3,$saver1,$numField)"; button -l "+" -c "$saver1=caluclecator(0,$numField)"; window -e -h $High -w $Wigh -s 0 $win; showWindow $win; [/size]
تعليق