ပံုတြင္ျပထားသည့္အတုိင္း ပထမဆံုး 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 ၾကည့္လို႔ ရပါျပီခင္ဗ်ာ ။ ဒါဆိုရင္ အေပါင္း ၊ အႏုတ္ ၊ အေျမာက္ ၊ အစား လုပ္လို႔ ရပါျပီခင္ဗ်ာ ။ ဒီေဆာ့ ၀ဲလ္ကိုသံုးသူမ်ား အဆင္မေျပပါက သိသေလာက္ ေျပာျပႏိုင္ပါတယ္ ခင္ဗ်ာ ။ အားလံုးပဲ အဆင္ေျပၾကပါေစ ။
ဒီေန႔ က အမွတ္တရေန႔ မို႔လို႔ အျမဲတမ္းသတိရေနေအာင္ပို႔ တစ္ခု တင္လိုက္ျခင္း ျဖစ္ပါတယ္ ခင္ဗ်ာ ။
Snuo Mwoani CMT
Monday, September 29, 2008
How to make calculator in Borland Delphi - 7
Monday, September 1, 2008
Serial Key for Delphi.7.Enterprise
Serial Number...... 6AKD-PD29Q9-RDF?JQ-X65Z
Authorization Key...... QX8-EEC
Serial Number...... 6AMD-PKG68E-DB8PP7-N7GE
Authorization Key......S6J-8AW
Serial Number...... 6AMD-PDJ686-APME9D-9CDR
Authorization Key...... YVX-27C
Serial Number...... 6AKD-PKB9QN-U6?JDC-XDCH
Authorization Key...... JSJ-W2W
Serial Number...... 6AMD-PDJ686-APME9D-N3ER
Authorization Key...... GY8-43C
Serial Number...... 6AKD-PD29Q9-RDF?JQ-HQNZ
Authorization Key...... D?X-BTC
Serial Number...... 6AMD-PKG68E-DB8PP7-9SFE
Authorization Key...... 3QH-9QW
တစ္ခုမရ တစ္ခုထည့္ၾကည့္ပါ ။ ကၽြန္ေတာ္ရွာထားသမွ် တင္ေပးလိုက္တာပါ ခင္ဗ်ာ ။ အဆင္မေျပဘူးဆိုရင္ ကြန္မန္႔ေရးျပီးေမးျမန္းႏိုင္ပါတယ္ ။ ေဆာ့၀ဲလ္ အသံုးျပဳပံုကိုသိခ်င္တယ္ ဆိုရင္လည္း ကၽြန္ေတာ္သိ သေလာက္ ေျပာျပႏိုင္ပါတယ္ ။ သိျပီးသားဆိုလည္း ေဆြးေႏြးလို႔ရပါတယ္ခင္ဗ်ာ ။ အားလံုးပဲအဆင္ေျပၾကပါေစ ခင္ဗ်ာ ။
အားလံုးကို ၾကိဳဆိုလွ်က္ ..
Snuo Mwoani CMT