How to make calculator in Borland Delphi - 7
ကၽြန္ေတာ္ အခုေျပာျပမွာကေတာ့ Borland Delphi - 7 မွာ calculator တစ္ခု ဘယ္လိုတည္ေဆာက္တယ္ဆို တာကိုေျပာျပမွာ ျဖစ္ပါတယ္ ခင္ဗ်ာ ။ အဓိကေျပာခ်င္တာကေတာ့ ေဆာ့၀ဲလ္ အသံုးျပဳပံုကို ရွင္းျပျခင္း ျဖစ္ပါ တယ္ ။ ဒီေဆာ့၀ဲလ္ကို အသံုးျပဳေနသူမ်ားအတြက္ လည္း ရည္ရြယ္သလို ကၽြန္ေတာ္အတြက္ လည္း အသံုးျပဳ နည္းကို စာအုပ္တစ္အုပ္ သဖြယ္ ေရးမွတ္ထားျခင္းျဖစ္ပါတယ္ ခင္ဗ်ာ ။ ေနာင္ ဘယ္အခ်ိန္ျပန္ ၾကည့္ၾကည့္ အ ဆင္ေျပေအာင္ ေရးသားျခင္းျဖစ္ပါသည္ ။ ကဲ စပါေတာ့မယ္ ခင္ဗ်ာ ။
ပံုတြင္ျပထားသည့္အတုိင္း ပထမဆံုး Edit1 နဲ႔ Edit2 ကို ယူပါမယ္ ။ တစ္ခုက ပထမနံပါတ္အတြက္ ျဖစ္ျပီး ။ ေနာက္တစ္ခုကေတာ့ ဒုတိယ ေပါင္းလဒ္ နံပါတ္အတြက္ ျဖစ္ပါတယ္ ။ Label1 တစ္ခုယူပါ့မယ္ ။ ဒါကေတာ့ အေျဖထုတ္ဖို႔အတြက္ ျဖစ္ပါတယ္ ။ Button1 , Button2 , Button3 , Button4 , Button5 ငါးခုယူပါ့မယ္ ။ Button1 -> Properties -> Caption တြင္ + ေရးပါ ။ Button1 ေပၚတြင္ အေပါင္း လကၡဏာေပၚ ေစရန္ ျဖစ္ပါတယ္ ။ ဒီလိုပါပဲ က်န္တဲ့ Button ေတြကိုလည္း လိုက္ေျပာင္းေပးပါ ။ close Button ကေတာ့ program တစ္ခုလံုးကို ပိတ္ဖို႔ အတြက္ပဲ ျဖစ္ပါတယ္ ။အဲလိုေရးျပီးသြားျပီးဆိုရင္ေတာ့ Button1 (+) ကို ကလစ္ႏွစ္ခ်က္ႏွိပ္ပါ ။
procedure TForm1.Button1Click(Sender: TObject);
Begin
End;
ကလစ္ႏွစ္ခ်က္ႏွိပ္လိုက္တာနဲ႔ ဒီပံုစံျမင္ရမွာျဖစ္ပါတယ္ ။ Begin နဲ႔ End တို႔သည္ စေပၚေပၚခ်င္း အစစာလံုးမ်ား သည္ အေသးမ်ားျဖစ္ေနပါက ။ ဥပမာေရးထားသည့္အတိုင္း အၾကီးေျပာင္းေပးပါ ။ ဒီမွာ ျပထားတဲ့ သေဘာ တ ရားကေတာ့ Button1 ကို ကလစ္တဲ့အခါမွာ program အလုပ္လုပ္ေပးမယ့္ သေဘာကို ဆိုလိုျခင္း ျဖစ္ပါတယ္ ။ Begin နဲ႔ End ၾကားတြင္ ေအာက္ပါအတိုင္းေရးပါမယ့္ မယ္ ။
procedure TForm1.Button1Click(Sender: TObject);
Begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a+b;
Label1.Caption:=FloatToStr(c)
End;
a တန္ဖိုးကို Edit1 တြင္ ရိုက္ထည့္မည္ ျဖစ္ပါတယ္ ။ b တန္ဖိုးကို Edit2 တြင္ ရိုက္ထည့္မည္ ။ a နဲ႔ b ကိုေပါင္း မည္ ။ ေပါင္းလို႔ ရတဲ့ တန္ဖိုးအေျဖကို Label1 တြင္ေဖာ္ျပမည္ ျဖစ္ပါသည္ ။ var ေအာက္တြင္ a , b , c တန္ဖိုး မ်ားအား Double ေၾကျငာေပးပါ ။ C++ တြင္ float ေၾကျငာ ျခင္းနဲ႔ သေဘာတရားျခင္းတူတူ ပါပဲ ။ အဲလိုလုပ္ ျပီးရင္ေတာ့ program ကို F9 ႏွိပ္၍ Run ၾကည့္လို႔ ရပါျပီခင္ဗ်ာ ။ a တန္ဖိုး b တန္ဖိုး ရုိက္ထည့္ျပီး အေပါင္း + Button ကို ႏွိပ္လိုက္တာနဲ႔ label1 တြင္ အေျဖသြားေပၚမွာ ျဖစ္ပါတယ္ ။
ကဲ က်န္တဲ့ Button မ်ားကိုလည္း ဤနည္းအတိုင္း ျပဳလုပ္သြားပါ့မယ္ ။ Button1 ( - ) အႏုတ္တြင္ ကလစ္ႏွစ္ ခ်က္ႏွိပ္ပါ ။ ျပီးလွ်င္ ေအာက္ပါ ကုတ္မ်ားေရးပါ ။
procedure TForm1.Button2Click(Sender: TObject);
Begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a-b;
Label1.Caption:=FloatToStr(c)
End;
Button1 ( * ) အေျမွာက္တြင္ ကလစ္ႏွစ္ ခ်က္ႏွိပ္ပါ ။ ျပီးလွ်င္ ေအာက္ပါ ကုတ္မ်ားေရးပါ ။
procedure TForm1.Button3Click(Sender: TObject);
Begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a*b;
Label1.Caption:=FloatToStr(c)
End;
Button1 ( / ) အစားတြင္ ကလစ္ႏွစ္ ခ်က္ႏွိပ္ပါ ။ ျပီးလွ်င္ ေအာက္ပါ ကုတ္မ်ားေရးပါ ။
procedure TForm1.Button4Click(Sender: TObject);
Begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a/b;
Label1.Caption:=FloatToStr(c)
End;
Button1 ( close ) တြင္ ကလစ္ႏွစ္ ခ်က္ႏွိပ္ပါ ။ ျပီးလွ်င္ ေအာက္ပါ ကုတ္မ်ားေရးပါ ။
procedure TForm1.Button5Click(Sender: TObject);
Begin
Close
End;
ျပဳလုပ္ေနတဲ့ program တစ္ခုလံုးကို ပိတ္မယ္ဆိုတဲ့ သေဘာပါပဲ ။ အားလံုးေရးလို႔ ျပီးသြားရင္ေတာ့ F9 ႏွိပ္၍ Run ၾကည့္လို႔ ရပါျပီခင္ဗ်ာ ။ ဒါဆိုရင္ အေပါင္း ၊ အႏုတ္ ၊ အေျမာက္ ၊ အစား လုပ္လို႔ ရပါျပီခင္ဗ်ာ ။ ဒီေဆာ့ ၀ဲလ္ကိုသံုးသူမ်ား အဆင္မေျပပါက သိသေလာက္ ေျပာျပႏိုင္ပါတယ္ ခင္ဗ်ာ ။ အားလံုးပဲ အဆင္ေျပၾကပါေစ ။
ဒီေန႔ က အမွတ္တရေန႔ မို႔လို႔ အျမဲတမ္းသတိရေနေအာင္ပို႔ တစ္ခု တင္လိုက္ျခင္း ျဖစ္ပါတယ္ ခင္ဗ်ာ ။
ေပ်ာ္ရႊင္ၾကပါေစ ( Lovercreater )
You received this email because you are subscribed to the real_time feed for http://lovercreator.blogspot.com/feeds/posts/default. To change your subscription settings, please log into RSSFWD.