Tuesday, April 22, 2008
To all Mates
Thursday, April 17, 2008
The Economy, The Households And The Dictator
ႏွစ္စဥ္ႏွစ္တိုင္း စီးပြားေရး ၁% တက္ေနရင္ ကၽြန္ေတာ္တို႕ရဲ႕ ကေလးေတြ၀င္ေငြဟာ ကၽြန္ေတာ္တို႕ ၀င္ေငြထက္ ၁.၄ဆ ရမယ္။ စီးပြားေရး ၃% တက္ေနရင္ေတာ့ သူတို႕၀င္ေငြဟာ ၂.၅ ဆ ရမွာပဲ။ အေရွ႕ေတာင္အာရွ ႏိုင္ငံေတြထဲကတစ္ခ်ိဳ႕ဟာ ၁၉၆၀ ကေန ၁၉၉၀ အတြင္း ႏွစ္စဥ္ စီးပြားေရး ၆% ေက်ာ္ တိုးတက္ခဲ့တယ္။ ဒီဟာ ဘာကိုျပသလဲဆိုေတာ့ မ်ိဳးဆက္တစ္ခုအတြင္းမွာပဲ ၀င္ေငြ ၆ဆေက်ာ္ တိုးတက္လာတာပါ။
စီးပြားေရး ဖြံ႕ျဖိဳး တိုးတက္မႈဟာ အေရးႀကီးတယ္ဆိုတဲ့ အခ်က္ကို သိလိုက္တာနဲ႕ လူတိုင္းေမးေလ့ရွိတဲ့ ေမးခြန္းက စီးပြားေရး ဖြံ႕ျဖိဳးတိုးတက္မႈကို ျမန္သည္ထက္ျမန္ေအာင္ ဘယ္လိုလုပ္ၾကမလဲဆိုတဲ့ ေမးခြန္းပါ။ အလားတူ ထပ္ေမးေလ့ရွိတဲ့ ေမးခြန္းက တစ္ႏိုင္ငံနဲ႕ တစ္ႏိုင္ငံ စီးပြားေရး ဖြံ႕ျဖိဳးတိုးတက္မႈ ႏႈန္းကြဲျပားရျခင္း ရဲ႕ အဓိက အခ်က္ေတြက ဘာလဲ၊ အဲဒီ့အခ်က္ေတြကို ဘယ္လိုထိန္းခ်ဳပ္ႏိုင္မလဲဆိုတာပါပဲ။
စီးပြားေရးဖြံ႕ျဖိဳးတိုးတက္မႈကို တြန္းအားေပးတဲ့ ေပၚလစီေတြ၊ လုပ္ငန္းလမ္းစဥ္ေတြ ခ်မွတ္ႏိုင္ဘို႕အတြက္ စီးပြားေရး ဖြံ႕ျဖိဳးတိုးတက္မႈကို အဆံုးအျဖတ္ေပးေနတာက ဘယ္အခ်က္ေတြလဲဆိုတာကိုေတာ့ သိရမွာေပါ့။ ေနာက္တစ္ခုသိရမွာက ဒီစီးပြားေရးဖြံ႕ျဖိဳးတိုးတက္မႈက လူမႈေရး ဆိုင္ရာ ဘ၀သက္သာေခ်ာင္ခ်ိမႈ၊ သာယာေပ်ာ္ရႊင္မႈ အစရွိတဲ့ ကိစၥရပ္ေတြမွာ ဘယ္ေလာက္ေတာင္ ဘယ္လိုမ်ိဳး အက်ိဳးသက္ေရာက္မႈရွိႏိုင္ သလဲဆိုတာကို သိထားရပါမယ္။ အဲဒီ့မွာ ႀကီးထြားျခင္း သီအုိရီ (Growth Theory) ရဲ႕ ရုပ္လံုးစေပၚလာတာပါပဲ။
Summers and Heston ကသုေတသနလုပ္ထားတဲ့ ကမာၻ႕ႏိုင္ငံေပါင္း ၁၄၇ ႏိုင္ငံရဲ႕ ပ်မ္းမွ် တစ္ဦးခ်င္းစီ၀င္ေငြ(GDP per capita) ကို ၁၉၆၀၊ ၁၉၈၀၊ ၂၀၀၀ ခုႏွစ္ေတြမွာရွိတဲ့အေျခအေနအတိုင္း ႏိႈင္းယွဥ္ၾကည္႕ထားတဲ့ ဇယားကို ေအာက္မွာေတြ႕ႏိုင္ပါတယ္။
၂၀၀၀ ျပည္႕ႏွစ္မွာ လူဇင္ဘတ္က (Luxembourg) တစ္ဦးခ်င္း၀င္ေငြ အေမရိကန္ေဒၚလာ ၄၄၀၀၀ နဲ႕ အခ်မ္းသာဆံုး နံပါတ္ ၂ မွာ အေမရိကန္ က ေဒၚလာ ၃၂၅၀၀ နဲ႕ ဒုတိယေနရာမွာရွိၿပီးေတာ့ ဂ်ီ ဆဲဗင္းနဲ႕ ဓနသဟာယႏိုင္ငံမ်ား က စင္ကာပူ၊ ေဟာင္ေကာင္၊ တိုင္၀မ္၊ ဆိုက္ပရပ္(စ္) အစရွိႏိုင္ငံမ်ားနဲ႕ ထိပ္ပိုင္း ၂၅ ေနရာကိုယူထားၾကပါတယ္။ ျမန္မာႏိုင္ငံအပါအ၀င္ အာဖရိကႏိုင္ငံ အမ်ားစုက ေအာက္ဆံုး ၂၅ ႏိုင္ငံေနရာကို ယူထားၾကၿပီးေတာ့ တန္ဇန္းနီးယားႏိုင္ငံက တစ္ဦးခ်င္း၀င္ေငြ ေဒၚလာ ၅၇၀ နဲ႕ ေအာက္ဆံုးအဆင့္မွာ ရွိပါတယ္။ တည္တည္ျငိမ္ျငိမ္နဲ႕ စီးပြားေရးတိုးတက္ေနတဲ့ အာရွႏိုင္ငံတစ္ခုျဖစ္တဲ့ စင္ကာပူဟာ ၂၀၀၇ ခုႏွစ္မွာ တစ္ဦးခ်င္းထုတ္ကုန္တန္ဘိုးခ်င္းႏိႈင္းယွဥ္လိုက္မယ္ဆိုရင္ အေမရိကန္ထက္ သာသြားၿပီဆိုတာ စီအုိင္ေအက ထုတ္ျပန္တဲ့ စာရင္းဇယားေတြမွာ ေတြ႕ႏိုင္ၾကပါတယ္။
ႏိုင္ငံတစ္ခ်ိဳ႕ရဲ႕ တစ္ဦးခ်င္း၀င္ေငြတိုးတက္မႈႏႈန္းျပဇယားကို ေအာက္မွာေလ့လာႏိုင္ပါတယ္။
အေရွ႕အာရွႏိုင္ငံေတြျဖစ္တဲ့ တိုင္၀မ္၊ စင္ကာပူ၊ ေတာင္ကိုရီးယား၊ ထိုင္း ၊ေဟာင္ေကာင္၊ တရုတ္နဲ႕ ဂ်ပန္ အစရွိတဲ့ႏိုင္ငံေတြဟာ ေတာင္အာဖရိတိုက္ရဲ႕ ဆာဟာရ အစြန္းပိုင္းမွာရွိတဲ့ ေဘာ့(စ္) ၀ါနာ (Bostwana) ဆိုက္ပရပ္(စ္)၊ ရိုေမးနီးယား၊ ေမာရစ္ရွပ္(စ္) အစရွိတဲ့ ႏိုင္ငံေတြနဲ႕အတူ ကၽြန္ေတာ္တို႕အခုေခာတ္အတြက္ အံ့ဘြယ္ ႏိုင္ငံမ်ား (Miracles of our time) လို႕ သတ္မွတ္ႏိုင္ေလာက္ေအာင္ စီးပြားေရးတိုးတက္ခဲ့တာ ျဖစ္ပါတယ္။ ဒါေပမဲ့ ေအာက္မွာ ျပထားတဲ့ ဂရပ္ဖ္ကို ေလ့လာၾကည္႕မယ္ဆိုရင္ ႏိုင္ငံအမ်ားစုရဲ႕ တစ္ဦးခ်င္း ၀င္ေငြဟာ ႏွစ္ (၄၀)အတြင္းမွာ ဘာမွထူးၿပီးေတာ့ တိုးလာတာမ်ိဳးမရွိဘူးဆိုတာပါပဲ။
- ေလ့လာမဲ့ အခ်ိန္ ကာလအပိုင္းအျခားကို အတိအက်သတ္မွတ္ပါတယ္။ တစ္ႏွစ္၊ ဆယ္ႏွစ္၊ မ်ိဳးဆက္တစ္ခု အစရွိသည္ျဖင့္ပါ။ t = {0,1,2,3}
- အဲဒီ့ႏိုင္ငံရဲ႕ စီးပြားေရးက သီးျခား တည္ရွိေနတဲ့ ကၽြန္းတစ္ခုလိုပါပဲ။ မွတ္ခ်က္ - ျမန္မာႏိုင္ငံဟာ ဘယ္ေလာက္ပဲ ေစ်းကြက္စီးပြားေရးက်င့္သံုးေနပါတယ္ ေအာ္ေနေန တစ္ကယ္တမ္းက်ေတာ့ isolated economy ပါပဲ။ အိမ္ေထာင္စုေတြ အမ်ားႀကီး အဲဒီ့ကၽြန္းေပၚမွာ ေနၾကတယ္လို႕ သတ္မွတ္လိုက္ပါ။ ေစ်းကြက္ဆိုတာ လံုး၀မရွိပဲ ကုန္ထုတ္လုပ္မႈ အားလံုးကို ဗဟိုကထိန္းခ်ဳပ္ထားပါတယ္။ လူမႈေရး၊ စီးပြားေရး ကိစၥ အ၀၀ကို အာဏာရွင္ တစ္ေယာက္ထဲကသာထိန္းခ်ဳပ္ထားတယ္လို႕ သတ္မွတ္ပါတယ္။
- အဲဒီ့ႏိုင္ငံက ထုတ္ကုန္တစ္ခုထြက္တယ္ထားပါ။ အဲဒီ့ ထုတ္ကုန္ ထုတ္လုပ္ႏိုင္ဘုိ႕အတြက္ အရင္းအႏွီး (capital) နဲ႕ လုပ္အား (Labour) လိုအပ္ပါတယ္။ အဲဒီ့ထြက္လာတဲ့ ထုတ္ကုန္ကို လက္ငင္းစားသံုးမႈ (consumption)အတြက္အသံုးျပဳႏိုင္သလို၊ အနာဂတ္ရင္းႏွီးျမဳပ္ႏွံမႈ (Investment) ျပဳလုပ္ဘို႕အတြက္ ျပဳလုပ္ႏိုင္ပါတယ္။
- အိမ္ေထာင္စု တစ္ခုကို လုပ္အား ယူနစ္တစ္ခု လို႕သတ္မွတ္ပါတယ္။ အဲဒီ့လုပ္အား ယူနစ္တစ္ခုကို အေလ်ာ့အတင္းမရွိ အာဏာရွင္ အား ေပးအပ္ရပါတယ္။ စီမံအုပ္ခ်ဳပ္တဲ့ အာဏာရွင္က ရရွိလာတဲ့ လုပ္အားတစ္ရပ္လံုးနဲ႕ အရင္းအႏွီး စုစုေပါင္းကို အသံုးခ်ၿပီးေတာ့ တိုင္းျပည္ကထုတ္လုပ္တဲ့ ထုတ္ကုန္ ကို ရယူထုတ္လုပ္ပါတယ္။
- အခ်ိန္ကာလအပိုင္းအျခားတစ္ခုတိုင္းမွာ အဲဒီ့အခ်ိန္မွာထြက္ရွိေနတဲ့ ထုတ္ကုန္ရဲ႕ အစိတ္အပိုင္း တစ္ခု S = {0,1} ကို ထုတ္ယူၿပီးေတာ့ အဲဒီ့အထဲက အခ်ိဳ႕ကို ႏိုင္ငံစီးပြားေရး တစ္ခုလံုးရဲ႕ အရင္းအႏွီးထဲကို ထပ္ထည္႕ တိုးပြားကာ က်န္တဲ့ အစိတ္အပိုင္းကို အိမ္ေထာင္စုမ်ားအားလံုးကို အခ်ိဳးညီညီ ခြဲေ၀ေပးပါတယ္။
- ေအာက္မွာ ဆက္လက္ေဖာ္ျပမဲ့ ေဖာ္ျမဴလာမ်ားကို အတိုခ်ဳပ္အေနနဲ႕ ေအာက္ပါအတိုင္း မွတ္ယူၾကေစလိုပါတယ္။ Lt ကို သတ္မွတ္ထားတဲ့ အခ်ိန္ကာလအတြင္းမွာရွိတဲ့ လုပ္သားအင္အား ၊ Kt ကို ေလ့လာတဲ့ အခ်ိန္ရဲ႕ အစမွာရွိထားတဲ့ အရင္းအႏွီး၊ Yt ကို သတ္မွတ္ထားတဲ့ အခ်ိန္အတြင္းထြက္လာမဲ့ ထြက္ကုန္ စုစုေပါင္း၊ Ct ကို အဲဒီ့အခ်ိန္အတြင္းမွာ စားသံုးမဲ့ စုစုေပါင္း စားသံုးမႈ၊ It ကို ထပ္ထပ္ထည္႕လိုက္တဲ့ အရင္းအႏွီးလို႕ သတ္မွတ္လိုက္ၿပီးေတာ့ စာလံုးေသးနဲ႕ ေရးထားတာေတြကို ေတာ့ စုစုေပါင္းလုပ္သားအင္အားေပၚမွာ အေျခခံၿပီးတြက္ထားတဲ့ အခ်ိဳးေတြလို႕ မွတ္ယူလုိက္ပါ။ ဥပမာ kt = Kt/Lt , yt= Yt/Lt, ct = Ct/Lt , it=It/Lt.
ေနာက္တစ္ခန္းျဖစ္တဲ့ အာဏာရွင္စံနစ္ေအာက္မွာ ထြက္ရွိတဲ့ ထြက္ကုန္မ်ားဟာ ဘာေတြအေပၚမွာ အေျခခံေနသလဲဆိုတာကို မဆက္ခင္မွာ ကၽြန္ေတာ္တို႕ျမန္မာႏိုင္ငံဟာ အာဏာရွင္စံနစ္ကို အသံုးျပဳၿပီးအုပ္ခ်ဳပ္ေနတာလားဆိုတာကို ကၽြန္ေတာ္တို႕ အနည္းငယ္ေဆြးေႏြးလိုပါတယ္။ ျမန္မာႏိုင္ငံအတြင္းမွာ ယခင္ကတည္းက ဗဟုိကထိန္းခ်ဳပ္တဲ့ စံနစ္ကို က်င့္သံုးျပီးေတာ့ စီးပြားေရးဆိုင္ရာ ကိစၥရပ္မ်ားကို စီမံခန္႕ခြဲခဲ့တာ ျဖစ္ပါတယ္။ယခင္က ျမန္မာျပည္သူမ်ား ရရွိခံစားႏိုင္ၾကတဲ့ ေလာင္စာဆီ၊ သက္သာေခ်ာင္ခ်ိတဲ့ စားေသာက္ကုန္ေစ်းႏႈန္းနဲ႕၊ က်န္းမာေရး၊ ပညာေရး ၀န္ေဆာင္မႈ စံနစ္ေတြဟာ ကၽြန္ေတာ္တို႕ ႏိုင္ငံကထြက္ရွိတဲ့ ထုတ္ကုန္မ်ားရဲ႕ အစိတ္အပိုင္းမ်ားထဲမွ ျပန္လည္ရရွိလာတဲ့ အခ်ိဳးက်ခြဲေ၀မႈ အပိုင္းမ်ားျဖစ္မယ္လို႕ ယူဆရပါတယ္။ ကၽြန္ေတာ္တို႕ ႏိုင္ငံဟာ အာဏာရွင္ တစ္စု ကအာဏာရွင္ ပီပီ စီမံခန္႕ခြဲအုပ္ခ်ဳပ္ခဲ့ရင္ေတာင္မွ ျပည္သူမ်ားရဲ႕အေျခအေနဟာ ဒါ့ထက္အမ်ားႀကီး ပိုၿပီးတိုးတက္စရာရွိတယ္ဆိုတာကို ၀မ္းနည္းဖြယ္ရာ ေတြ႕ရွိရပါတယ္ခင္ဗ်ာ။ ေလာင္စာဆီေစ်းႏႈန္းတိုးျမင့္သတ္မွတ္ျခင္း၊ ထြက္ရွိလာတဲ့ ထုတ္ကုန္မ်ားအား ျပန္လည္ခြဲေ၀မႈ ျပဳလုပ္ရာမွာ အခ်ိဳးက်ခြဲေ၀မႈ လံုး၀မရွိျခင္း၊ တိုင္းျပည္ရဲ႕ အဓိကအရင္းအႏွီးျဖစ္တဲ့ လုပ္အားနဲ႕ အရင္းအႏွီးကို တိုးပြားေအာင္မျပဳလုပ္ျခင္းစတဲ့အခ်က္ေတြ ဗဟိုထိန္းခ်ဳပ္မႈစံနစ္ေအာက္ကထြက္ရွိလာတဲ့ စားေသာက္ကုန္ အစရွိတဲ့ ထြက္ကုန္မ်ားကို ႏိုင္ငံတြင္းမွာရွိတဲ့ လုပ္အားယူနစ္တစ္ခု (အိမ္ေထာင္စုတစ္ခု) က အလြယ္တကူ ရယူခံစားႏိုင္ျခင္းမရွိတဲ့ အခ်က္ေတြဟာ လက္ရွိျမန္မာႏိုင္ငံရဲ႕ အေျခအေနဟာ အာဏာရွင္စံနစ္ ထက္အမ်ားႀကီးပိုဆိုးတဲ့ စံနစ္တစ္ခုနဲ႕ အုပ္ခ်ဳပ္ခံေနရတယ္ဆိုတဲ့အခ်က္ကို သိသာထင္ရွားေစပါတယ္။ ဒီအခ်က္ေတြနဲ႕ သိသာကိုက္ညီေနတဲ့ စံနစ္ကေတာ့ ကၽြန္ပိုင္ရွင္စံနစ္သာလွ်င္ျဖစ္ၿပီး ကၽြန္ေတာ္အပါအ၀င္ ျမန္မာႏိုင္ငံသားမ်ားဟာ စီးပြားေရးပညာရပ္ဆိုင္ရာ လူေနမႈ စံႏႈန္းမ်ားအရ ကၽြန္ သေဘာက္စစ္စစ္မ်ားသာ ျဖစ္ေၾကာင္းေျပာၾကားရင္း ဒီအပိုင္းကို အဆံုးသတ္ပါရေစခင္ဗ်ား။
မွတ္ခ်က္။ ၁၉၈၇ ခုႏွစ္တြင္ စီးပြားေရးပညာရပ္ဆိုင္ရာ ႏိုဘယ္ဆုရပညာရွင္ Robert Solow ၏ ႀကီးထြားမႈ သီအိုရီ အား အေျခခံကာ ေရးသားပါတယ္။
Tuesday, April 15, 2008
How to increase Economic Development of Myanmar (2)
Monday, April 7, 2008
Real Time Data Capture Program, But what's the use of it?
ကၽြန္ေတာ္ အသံုးျပဳထားတဲ့ Protocol က Dedicated protocol ျဖစ္ပါတယ္။ ကၽြန္ေတာ္ အဓိက က်တဲ့ အခ်က္ေတြနဲ႕ ဒီပရိုဂရမ္ကို ဘယ္ေနရာေတြမွာ သံုးႏိုင္တဲ့ ဆိုတဲ့အခ်က္ေတြကို အဓိက ေဆြးေႏြးသြားပါ့မယ္။ အေသးစိတ္ကို စာအုပ္ေတြနဲ႕ ဗီဒီယိုေတြထဲမွာ ၾကည္႕ၾကဘို႕ ေမတၱာရပ္ခံပါတယ္။
Dedicated Protocol ထဲမွာ Control Format ၅ ခုရွိတဲ့ အနက္က Format 1 ကိုပဲ ေရြးခ်ယ္ပါတယ္။ ကၽြန္ေတာ္တို႕ မွတ္ယူႏိုင္တဲ့ အခ်က္တစ္ခုကေတာ့ Computer နဲ႕ ဆက္စပ္ပစၥည္းေတြ အခ်င္းခ်င္းဆက္သြယ္အလုပ္လုပ္ၾကတဲ့ အခါမွာ တိက်တဲ့ အခ်က္ျပသေကၤတ ဇယားေတြ ရွိတယ္ဆိုတာပါ။ Computer နဲ႕ Printer ခ်ိတ္ရင္ ဘယ္လိုဇယားေတြရွိတယ္။ Computer ကေနာက္ Computer ကိုသြားရင္ ဘယ္လိုဇယားေတြ ရွိတယ္။ ပိုၿပီးေတာ့ အဆင့္တစ္ခုထပ္ျမွင့္ခ်င္လို႕ရင္ ကိုယ္ တည္ေဆာက္ထားတဲ့ Electronic Device တစ္ခုနဲ႕ Computer ခ်ိတ္ဆက္အလုပ္လုပ္ႏိုင္ေအာင္ ဇယားတစ္ခု ဘယ္လိုေရးဆြဲသတ္မွတ္မယ္အစရွိသည္ျဖင့္ ေလ့လာႏိုင္ပါတယ္။ ကၽြန္ေတာ္တို႕ေရးတဲ့ Program ဟာ Personal Computer (PC) တစ္ခုကေန Specialized Computer တစ္ခုကို ခ်ိတ္ဆက္ ၿပီးေတာ့ ေဒတာပို႕ျခင္း ရယူျခင္းမ်ား ျပဳလုပ္ရန္အတြက္ ေရးသားထားျခင္းျဖစ္ပါတယ္။ ေဒတာလိုခ်င္ရင္ ကြန္ျပဴတာဘက္က ဘာပို႕ၿပီးေတာ့ အထူးျပဳကြန္ျပဴတာဘက္က ေဒတာရ၊ မရဘာျပန္ေျပာရမယ္ဆိုတာကို အရင္ေလ့လာဘို႕လိုပါ တယ္။ အေသးစိတ္ရွင္းျပဘို႕မလြယ္မွန္းသိတဲ့အတြက္ ကၽြန္ေတာ္တင္ေပးမယ့္ စာအုပ္ေတြကိုသာ ဖတ္ၾကပါလို႕ ထပ္ကာ ထပ္ကာ ေျပာပရေစ။
ပထမဆံုး ကြန္ျပဴတာ ဘက္ကေန ေဒတာပို႕ေပးမယ့္ ေဖာင္ တစ္ခုကို ေဆာက္ပါတယ္။
Dim textcheck, ldtime, ftpclstime, wipeclstime, ftpcycle, wipecycle As String
Dim uldtime, indextime As String
Private Sub Form_Load()
Dim xlapp As Object
Dim filename As String
x = 1
y = 1
cbosendcommand.AddItem "BW"
cbosendcommand.AddItem "WW"
cbosenddevice.AddItem "X"
cbosenddevice.AddItem "Y"
cbosenddevice.AddItem "M"
cbosenddevice.AddItem "D"
cbosenddevice.AddItem "R"
cbosenddevice.AddItem "T"
cbosenddevice.AddItem "C"
cbosend_dpoint.AddItem "01"
cbosend_dpoint.AddItem "02"
cbosend_dpoint.AddItem "03"
cbosend_dpoint.AddItem "04"
cbosend_dpoint.AddItem "05"
cbosend_dpoint.AddItem "06"
cbosend_dpoint.AddItem "07"
cbosend_dpoint.AddItem "08"
cbosend_dpoint.AddItem "09"
cbosend_dpoint.AddItem "10"
Stx$ = Chr$(&H2): Etx$ = Chr$(&H3)
Enq$ = Chr$(&H5): Ack$ = Chr$(&H6)
Esc$ = Chr$(&H1B): Nak$ = Chr$(&H15)
Can$ = Chr$(&H18)
ASCII (Hex) 00 ကေန 20 အထိက ကုဒ္ေတြဟာ စာလံုးေတြမဟုတ္ပဲ Signal ေတြ ျဖစ္ေနတယ္ဆိုတာ ေတြ႕ရပါလိမ့္မယ္။ အဲဒီ့အထဲက တစ္ခ်ိဳ႕ ကုဒ္ေတြသာ Keyboard ေပၚကစာလံုးေတြျဖစ္ၿပီးေတာ့ တစ္ခ်ိဳ႕ကုဒ္ေတြက အခုကၽြန္ေတာ္တို႕ သံုးမဲ့ Communication လိုမ်ိဳးမွာ အသံုးျပဳဘို႕အတြက္ ပဲျဖစ္ပါတယ္။ ကုဒ္တစ္ခုခ်င္းစီရဲ႕ Function ဟာ ဘာျဖစ္တယ္။ ဘယ္ေနရာမ်ိဳးမွာ အသံုးတဲ့ တယ္ဆိုတာဆိုတာကိုေတာ့ ရွာေဖြေလ့လာၾကေစလိုပါတယ္။ Enq Signal က ASCII Table ရဲ႕ Hex 05 မွာ ရွိတဲ့အတြက္ အထက္မွာ ျပထားတဲ့အတိုင္း Parameter ေတြထဲမွာ ထည္႕ထားလိုက္ျခင္းျဖစ္ပါတယ္။ တစ္ျခား Programming Language ေတြ အမ်ားႀကီးရွိတဲ့ အထဲမွာ ဒါမ်ိဳး Assign လုပ္ဘို႕ ဘယ္လိုေရးရမယ္ဆိုတာကိုေတာ မိမိတို႕ကိုယ္တိုင္သာ ေလ့လာႏိုင္ၾကပါတယ္ခင္ဗ်ာ။
With MSComm1
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
.CommPort = 1
.Settings = "9600,N,8,1"
.InputLen = 0
End With
End Sub
Serial Com Port 1 က ပြင့္ေနရင္ ျပန္ပိတ္လိုက္ပါလို႕ အရင္ေရးပါတယ္။ ေနာက္ၿပီးေတာ့ Setting လုပ္ပါတယ္။ Baud Rate, Parity, Data bit နဲ႕ Sum check လုပ္မယ္ဆိုတဲ့ အေၾကာင္းကို ေျပာလိုက္တာပါ။ Inputlen ကေတာ့ ၀င္လာတဲ့ ေဒတာကို အကန္႕အသတ္မထားပဲ လက္ခံမယ္လို႕ ေၾကညာလိုက္ပါတယ္။
Dim stno, pc, msgtime As String
Dim tmpstr As String
Dim sndstr As String
Dim OVEN As Object
Dim fopen As Boolean
Call initialize
stno = "00"
pc = "FF"
msgtime = "A"
tmpstr = stno + pc + Trim$(cbosendcommand) + msgtime + Trim$(cbosenddevice) + Trim$(Text1) + Trim$(cbosend_dpoint) + Trim$(txtsenddata(0))
checksum = 0
For I = 1 To Len(tmpstr)
checksum = checksum + Asc("" & Mid(tmpstr, I, 1) & "")
Next I
checksum = Right(Hex(checksum), 2)
Sum Check လုပ္သြားတဲ့ Loop ျဖစ္ပါတယ္။ ဘာေၾကာင့္ လုပ္ရသလဲဆိုတာကို Data Communication သီအုိရီ အေျခခံကို သိသူမ်ားသိၾကပါတယ္။ ဒီဟာက ပရိုဂရမ္နဲ႕ ဘယ္လိုလုပ္လို႕ရသလဲဆိုတဲ့ Concept ကိုပဲ ယူၾကေစလိုပါတယ္။ ပထမဆံုး tmpstr variable ထဲကို တည္ေဆာက္ထားတဲ့ form ေပၚက User select or Type လုပ္လိုက္တဲ့ Combo Box or Text field ေတြထဲက စာလံုးေတြကို ေပါင္းထည္႕ေပးလိုက္ပါတယ္။ ၿပီးေတာ့မွ အဲဒီ့စာေၾကာင္းရွိတဲ့ စာလံုးအေရအတြက္အတိုင္း တစ္လံုးၿပီးတစ္လံုး Hex Key ေတြေျပာင္းၿပီးေတာ့ Loop ထဲမွာ ေပါင္းေပါင္းထည္႕၊ ေနာက္ဆံုးအဆင့္မွာ ေပါင္းလို႕ရတဲ့ ရလဒ္ရဲ႕ ညာဘက္အစြန္ဆံုး ၂လံုးကိုပဲ ယူၿပီးေတာ့ ေပးပို႕မယ့္ Sum Check Code အျဖစ္သတ္မွတ္လိုက္ျခင္းပါ။ Looping လုပ္တာကို Asc, Mid, Right, Hex အစရွိတဲ့ commands ေတြနဲ႕ တြဲစပ္အသံုးျပဳသြားျခင္းျဖစ္ပါတယ္။ Command တစ္ခုျခင္းစီရဲ႕ အလုပ္လုပ္ပံုနဲ႕ Command Structure ေတြကို Help ထဲမွာသာ ၾကည္႕ၾကဘို႕ေမတၱာ ရပ္ခံပါတယ္။
Enq$ = Chr$(&H5)
sndstr = Enq$ & stno & pc & Trim$(cbosendcommand) & msgtime & Trim$(cbosenddevice) & Trim$(Text1) & Trim$(cbosend_dpoint) & Trim$(txtsenddata(0)) & checksum
Call sendtoPLC(sndstr)
Call comin
End Sub
Dim a As Single
With MSComm1
.RTSEnable = True
.DTREnable = True
For a = 1 To 300000
Next a
.Output = sndstr
End With
End Sub
Sub comin()
For k = 1 To 10000
Next k
With MSComm1
If .CDHolding = False Then
For k = 1 To 30000
Next k
.DTREnable = True
End If
dsp_buff = ""
For j = 1 To 100
For I = 1 To 200000
Next I
ret = .InBufferCount
If ret > 0 Then
dsp_buff = dsp_buff + .Input
frmReceive.Text = dsp_buff
End If
Next j
End With
End Sub
ဒီမွာ ေတြ႕ေနရတဲ့ .DTR enable = True/False ဆိုတာေတြက Diamgram ထဲက Signal ပံုစံေတြနဲ႕ အညီ အဖြင့္အပိတ္လုပ္ေနျခင္းပါပဲ။ ၾကားထဲမွာ ေစာင့္ရမယ္ဆိုရင္ Loop ထည္႕ခံပါတယ္။ Wait() command ကိုလဲ အသံုးျပဳႏိုင္ပါတယ္။ ၀င္လာတဲ့ ေဒတာကို ကၽြန္ေတာ္တို႕ ပထမဆံုးေဆာက္ခဲ့တဲ့ Form ထဲက frmreceive.text ဆိုတဲ့ Text field ထဲကိုထည္႕လိုက္ပါတယ္။ ၀င္လာတဲ့ ေဒတာမွန္ မမွန္ဆိုတာကို ေတာ့ အရင္အထပ္ထပ္ Run ၿပီးေတာ့ စစ္ေဆးမႈ ျပဳလုပ္ရပါတယ္။ Timing ခ်ိန္တာ Signal On/Off လုပ္တာမွန္မမွန္ စစ္ေဆးတာမ်ိဳးေတြပါ။
Setup
Set xlapp = New Excel.Application
Set xlbook = GetObject("C:\Test1.xls")
xlbook.Application.Visible = True
Set OVEN = xlbook.Worksheets("Test")
OVEN.Application.Visible = True
OVEN.Activate
If y = 0 Then
y = y + 1
End If
ဒီမွာ Setup Program က Module.bas Program ကိုသြားေခၚတာပါ။ Visual Basic Program ကေန Excel မွာရွိတဲ့ Function ေတြကို အသံုးျပဳရင္ အေပၚမွာ ျပထားတဲ့ Code ေတြကို ေလ့လာၿပီးေတာ့ အသံုးျပဳႏိုင္ပါတယ္။ ပရိုဂရမ္ၾကည္႕ပဲ သက္သက္ေရးသားဘို႕ခက္ခဲတဲ့ တြက္ခ်က္မႈမ်ိဳးမ်ားကို Excel ရဲ႕ ေဖာ္ျမဴလာေတြကို အသံုးခ်ၿပီးေတာ့ ေနာက္ကြယ္ကေန တြက္ခ်က္မႈေတြ ျပဳလုပ္ခိုင္းထားႏိုင္ပါတယ္။
textcheck = Mid(dsp_buff, 6, 4)
ldtime = Mid(dsp_buff, 10, 4)
ftpclstime = Mid(frmReceive.Text, 14, 4)
wipeclstime = Mid(frmReceive.Text, 18, 4)
wipecycle = Mid(frmReceive.Text, 22, 4)
ftpcycle = Mid(frmReceive.Text, 26, 4)
uldtime = Mid(frmReceive.Text, 30, 4)
indextime = Mid(frmReceive.Text, 34, 4)
textlen = Len(textcheck)
LDLEN = Len(ldtime)
ftpclslen = Len(ftpclstime)
wipeclslen = Len(wipeclstime)
wipecyclelen = Len(wipecycle)
ftpcyclelen = Len(ftpcycle)
uldlen = Len(uldtime)
indexlen = Len(indextime)
Text34.Text = textcheck
၀င္လာတဲ့ ေဒတာေတြကို Variables ေတြထဲမွာ ေျပာင္းထည္႕လိုက္ပါၿပီ။
Text37.Text = textcheck
RESULT = 1
FINALRESULT = 0
Text37.Text = Text34.Text
'On Error GoTo hebierrorhandler
For I = 1 To textlen
checkcondition = False
Text37.Text = Left(Text34.Text, textlen)
textcheck = Right(Text37.Text, 1)
If textcheck = "0" Then e = 0
If textcheck = "1" Then e = 1
If textcheck = "2" Then e = 2
If textcheck = "3" Then e = 3
If textcheck = "4" Then e = 4
If textcheck = "5" Then e = 5
If textcheck = "6" Then e = 6
If textcheck = "7" Then e = 7
If textcheck = "8" Then e = 8
If textcheck = "9" Then e = 9
If textcheck = "A" Or textcheck = "a" Then e = 10
If textcheck = "B" Or textcheck = "b" Then e = 11
If textcheck = "C" Or textcheck = "c" Then e = 12
If textcheck = "D" Or textcheck = "d" Then e = 13
If textcheck = "E" Or textcheck = "e" Then e = 14
If textcheck = "F" Or textcheck = "f" Then e = 15
If I = 1 Then
RESULT = e * 1
FINALRESULT = RESULT + FINALRESULT
RESULT = 1
End If
If I = 2 Then
RESULT = e * 16
FINALRESULT = RESULT + FINALRESULT
RESULT = 1
End If
If I = 3 Then
RESULT = e * 256
FINALRESULT = RESULT + FINALRESULT
RESULT = 1
End If
If I = 4 Then
RESULT = e * 4096
FINALRESULT = RESULT + FINALRESULT
RESULT = 1
End If
If I = 5 Then
RESULT = e * 65536
FINALRESULT = RESULT + FINALRESULT
End If
If I = 6 Then
RESULT = e * 1048576
RESULT = 1
End If
textlen = textlen - 1
Next I
Text37.Text = FINALRESULT
> But What's the Use Of it?
အခုဆိုရင္ ပရိုဂရမ္ရဲ႕ ရွင္းလင္းတင္ျပမႈ မျပည္႕မစံုနဲ႕ ၿပီးသြားပါၿပီခင္ဗ်ား။ အခုဒုတိယပိုင္းျဖစ္တဲ့ But what's the use of it ကို ဆက္ပါေတာ့မယ္။
အမွန္အတိုင္းေျပာရရင္ကေတာ့ အေပၚမွာ ျပထားတဲ့ ပရိုဂရမ္ေတြကို အခ်ိန္မရွိတဲ့ၾကားက ကၽြန္ေတာ္ေတာ္ေတာ္ ႀကီးေအာင့္အီးၿပီးေတာ့ ရွင္းျပလိုက္ရတာပါ။ ဖတ္ၾကည္႕တဲ့သူေတာ္ေတာ္မ်ားမ်ား ေရးေတးေတးကလြဲၿပီးေတာ့ ဘာမွသိမယ္လို႕ေတာ့ မထင္ပါဘူး။ ဘာျဖစ္လို႕ မသိရသလဲဆိုေတာ့ ဖတ္တဲ့သူညံ႕လို႕မဟုတ္ပါဘူး။ ကၽြန္ေတာ္တို႕ကိုယ္ကၽြန္ေတာ္တို႕ ရွင္သန္ရုန္းထေနတဲ့ သစ္ပင္တစ္ခုလို႕ျမင္ၾကည္႕မယ္ဆိုရင္ ကၽြန္ေတာ္တို႕ ေပါက္ေနတဲ့ ေျမျပင္ က ေျမၾသဇာမရွိ ေျမမပါ ေက်ာက္သားပကတိေပၚမွာ ေပါက္ေနတဲ့ အပင္မ်ားသာ ျဖစ္ေနၾကလို႔ပါပဲ။
Experience without Theory is blind, Theory without experience is mere intellectual play ဆိုတဲ့ စကားပံုတစ္ခုရွိပါတယ္။ ဂ်ာမနီမွာ အင္ဂ်င္နီယာဘြဲ႕ရယူ မဲ့သူေတြဟာ တူကိုင္ဂြကိုင္ အနည္းဆံုး ၃ ႏွစ္လုပ္ၿပီးမွ အင္ဂ်င္နီယာဘြဲ႕ကိုေပးတယ္လို႕ၾကားဘူးပါတယ္။ ကၽြန္ေတာ္တို႕ရဲ႕ ဆရာေျပာသြားတာပါ။ မွန္မ မွန္ေတာ့ မသိပါဘူး။ အက်ိဳးျပဳလုပ္ငန္းတစ္ခု တစ္ကယ္ကို ေအာင္ေအာင္ျမင္ျမင္လုပ္ကိုင္ ခ်င္တယ္ဆိုရင္ အေျခခံ အက်ဆံုး အခ်က္(၅)ခုနဲ႕ ျပည္႕စံုမွ ေအာင္ျမင္ေအာင္လုပ္ေဆာင္ႏိုင္တယ္လို႕ မွတ္သားဘူးပါတယ္။ Capacity လို႕ေခၚတဲ့ လုပ္ကိုင္ႏိုင္မႈရွိျခင္း၊ တာ၀န္ေပးအပ္ျခင္းခံရမႈ ၊ Delivery လို႕ေခၚတဲ့ ျပဳလုပ္လိုက္တဲ့ အရာတစ္ခုခုကို လက္ခံအသံုးျပဳတဲ့သူ၊ System လို႕ေခၚတဲ့ ျပဳလုပ္၊ လက္ခံမယ့္ စံနစ္၊ Partners & Networks လို႕ေခၚတဲ့ အဆက္သြယ္မ်ားနဲ႕ Closure လို႕ေခၚတဲ့ မည္ကဲ့သို႕၊ မည္သည္႕အခ်ိန္မွာ အဆံုးသတ္ရမည္ကို သိရွိျခင္းေတြပါ။ Closure ရဲ႕အေရးပါတဲ့ အခ်က္တစ္ခုကေတာ့ ကၽြန္ေတာ္တို႕ ျပဳလုပ္လိုက္တဲ့ လုပ္ငန္းတိုင္း ဟာ ေသခ်ာေပါက္ေအာင္ျမင္မယ္လို႕ ဘယ္သူမွ ကံေသကံမ မေျပာႏိုင္ပါဘူး။ လုပ္ကိုင္ေနဆဲ တစ္၀က္တစ္ပ်က္မွာ ဘယ္လိုမွမေအာင္ျမင္ႏိုင္ဘူးဆိုတာ သိလာၿပီဆိုရင္ အဆံုးအရံႈးနဲနဲနဲ႕ အဲဒီ့လုပ္ငန္းကို ဘယ္လို စြန္႕လႊတ္ပစ္လိုက္ဘို႕အတြက္ ႀကိဳတင္ျပင္ဆင္ထားတာပဲ ျဖစ္ပါတယ္။ ေရဗူးေပါက္တာမလိုခ်င္ဘူး ေရပါတာပဲ လိုခ်င္တဲ့ အယူအဆနဲ႕ေတာ့ နဲနဲ ကြဲျပားတာေပါ့။
အဲဒီေတာ့ အေပၚက ပရိုဂရမ္ရယ္၊ ႏိုင္ငံေတာ္က လႊတ္ထားတဲ့ ပညာေတာ္သင္ႀကီးမ်ားနဲ႕၊ ဒီကေန႕ ျမန္မာႏိုင္ငံတို႕ကို ေရာေမႊၾကည္႕ရေအာင္ဗ်ာ။ ကၽြန္ေတာ့္ စီပံုးထဲမွာ တစ္ေယာက္လာေျပာသြားဘူးပါတယ္။ ပညာေရးလိုလို၊ ႏိုင္ငံေရးလိုလို၊ ရုရွားဆန္႕က်င္ေရးလိုလုိမလုပ္နဲ႕တဲ့။ ကၽြန္ေတာ္လုပ္ေနတာ အဲဒါမ်ိဳး လိုလိုေတြပဲ လုပ္ေနတာလို႕ ျပန္ေျပာခ်င္ပါတယ္ခင္ဗ်ာ။ ေနာက္တစ္ခုက အတင္းေျပာတယ္ဆိုတာပါ။ အတင္း မဟုတ္ပါဘူး။ အတည္႕ေျပာတာပါလို႕ေျပာခ်င္ပါတယ္။ ဒါေပမယ့္ ဒါေနာက္ဆံုးပဲလို႕ေတာ့ ေျပာခ်င္ပါတယ္။ ကၽြန္ေတာ့္ပို႕စ္ေတြရဲ႕အစကို ေသေသခ်ာေသခ်ာၾကည္႕လိုက္ပါ။ ကၽြန္ေတာ္စခဲ့တာက ကၽြန္ေတာ္တို႕ ႀကံဳေတြ႕ ေနရတဲ့ အေျခအေနအခက္အခဲေတြကို ယထာဘူတက်က် အခ်က္က်က်နဲ႕ ေဆြးေႏြးႏိုင္ၾကဘို႕ အတြက္ စတင္ခဲ့ျခင္းျဖစ္ပါတယ္။ အခုအခ်ိန္မွာ ႏိုင္ငံကၽြန္ျဖစ္ေနတာေတာင္မွ ေနာင္တစ္ခ်ိန္မွာ လိုအပ္လာရင္ ႏိုင္ငံ့အတြက္ အဆင္သင့္ျဖစ္ႏိုင္ဘို႕ သတိျပဳထားစရာမ်ားကို ကၽြန္ေတာ္ကိုယ္တိုင္ေလ့လာသင္ယူၿပီးေတာ့ ေဆြးေႏြးလိုတာျဖစ္ပါတယ္။ စစ္အစိုးရ ရဲ႕ အရည္မရ အဖတ္မရ မုသားေရးမွ ထမင္းစားရမဲ့ လူမ်ား၀င္လာၿပီး ဟာသမ်ားေရးသြားတဲ့အတြက္ နဲနဲ ပြဲၾကမ္းသြားရျခင္းျဖစ္ပါတယ္။ အရမ္းယုတ္ယုတ္မာမာေတြသာ မဆဲၾကဘို႕ေတာင္းပန္ပါတယ္။ ေခြးနဲ႕ႏိႈင္းတာ ေလာက္အထိေတာ့ရပါတယ္။ က်န္တာႀကိဳက္တာေရးလို႕ရပါတယ္။ ဒါေပမဲ့ ငါ့စကားႏြားရ ေျပာတတ္တဲ့သူေတြ၊ ကိုယ့္ကိုကို ဖိုးေရႊလထင္ေနသူေတြ အနာေပၚဒုတ္က်ျဖစ္သြားတယ္ဆိုရင္ ေတာ့ စိတ္မေကာင္းပါဘူး။ဖုိးေရႊလဆိုသူမ်ား ၀ါးလံုးေခါင္းထဲလသာ၊ လဒေလာက္ေတာ့ ငွက္တိုင္းလွတယ္ဆိုတဲ့ စကားပံုမ်ားကို အမွတ္ရေစလိုပါတယ္။ အရူးလိုမလုပ္နဲ႕ ဆိုတာလဲပါပါတယ္။ အရူးက စစ္ေခြးထက္ တစ္မူးသာတာ ဘယ္သူ႕လိုက္ေမးေမး သိပါတယ္။ ေရေ၀းေရာက္ခ်င္လားလို႕ ျခိမ္းေျခာက္တာလဲပါပါတယ္။ ဒါကေတာ့ ေနာက္ဆံုး လက္နက္ပဲ ျဖစ္ပါလိမ့္မယ္။ ေရေ၀းေရာက္မွာ ေၾကာက္ရင္ ကၽြန္ေတာ္ ဘေလာ့ဂ္မေရးပါဘူးလို႕ ေျပာခ်င္ပါတယ္ခင္ဗ်ာ။
ျမန္မာႏိုင္ငံကို ပညာေတာ္သင္ႀကီးမ်ားက ကၽြန္ေတာ္ေရးထားတဲ့ ပရိုဂရမ္ကို ယူသြားၿပီး တိုင္းျပည္အတြက္ အသံုးျပဳၾကမယ္လို႕ ေတြးၾကည္႕ရေအာင္ခင္ဗ်ာ။ ပထမဆံုး Capacity (တာ၀န္ေပးအပ္ျခင္းခံရဘို႕) အတြက္ ကၽြန္ေတာ့္အေဖက အသက္ႀကီးတဲ့ လူႀကီးမဟုတ္တဲ့အတြက္ Delivery ကိုအရင္ဆံုး Practice လုပ္လိုက္ရပါတယ္။ အသက္ႀကီးတဲ့ လူႀကီးဆီကို ဒီပရိုဂရမ္ေလးသံုးခ်င္လြန္းလို႕ပါဆိုၿပီးေတာ့ အရေခ်ာင္တဲ့ စက္ရံုကို ပို႕ေပးဘို႕ ေနာက္ေဖးေပါက္ ကေန ပံုးေတြပံုးေတြ Delivery လုပ္လိုက္ရတာပါ။ အဲဒါမ်ိဳး Delivery လုပ္ႏိုင္ဘို႕အတြက္ကို Network ေတြ Partner Contact ေတြကလဲ ရွိရပါေသးတယ္။ အဲဒီ့ေနာက္ေတာ့ စက္ရံုႀကီး ကိုေရာက္သြားတဲ့အခါမွာ အသံုးျပဳတဲ့ System က ရွိတာေရာင္းစား၊ ရသမွ်ခိုးျဖစ္ေနတဲ့အတြက္ရယ္။ ကြန္ျပဴတာဆိုတာ လူႀကီးလာမွ ဖုတ္ဖက္ခါ ထုတ္ျပတဲ့ စံနစ္ရယ္ မီးကလဲ လာခ်င္မွလာ အျမဲပ်က္ျဖစ္ေနတဲ့ အတြက္ရယ္ ျဖစ္ပ်က္မႈမ်ားျဖစ္ေနတာေၾကာင့္ အဲဒီပရိုဂရမ္ကို အိတ္ထဲထည္႕ ခ်ိတ္ပိတ္ကာ ေအာင္ျမင္စြာ Closure လုပ္ပစ္လိုက္ေၾကာင္းပါခင္ဗ်ား။
အခုလက္ရွိအသံုးျပဳေနတဲ့ေနရာမွာေတာ့ Six Sigma Philosophy ရဲ႕ ေနာက္ဆံုးအဆင့္ (၈) ျဖစ္တဲ့ Automatic Data Capture ကိုေကာင္းေကာင္းႀကီးအသံုးခ်ကာ တစ္ႏွစ္တစ္ႏွစ္ ေဒၚလာ သန္းခ်ီေအာင္ ဆံုးရႈံး ေလလြင့္မႈမ်ားကို ကာကြယ္ေနတဲ့အေၾကာင္း ေၾကညာအပ္ပါတယ္ခင္ဗ်ား။
P.S သက္ဆိုင္တဲ့ငါ့လူတို႕ေရ။ ငါ့လူတို႕ကို ေနာက္ဆံုးေျပာခ်င္တာက ငါ့လူတုိ႕ဟာ Divide and Rule စံနစ္ရဲ႕ သားေကာင္ေတြဆိုတာပါပဲ။ ငါ့လူတို႕ကို ႏိုင္ငံျခားလႊတ္လိုက္တဲ့ ရည္ရြယ္ခ်က္ကို က ႏိုင္ငံကို ဖြံ႕ၿဖိဳးေစခ်င္လို႕ လႊတ္လိုက္တယ္ဆိုတာထက္ Manipulation Strategy တစ္ခုအရလႊတ္လိုက္တယ္ဆိုတာ ကိုယ့္လူတို႕ ျမင္ႏိုင္ၾကပါေစ။ ႏိုင္ငံကို တစ္ကယ္ဖြံ႕ၿဖိဳးေစခ်င္ရင္ ေမာင္ရင္တို႕ အခုပညာသင္ေနတဲ့ အေရအတြက္ ထက္အဆေပါင္းမ်ားစြာေသာ ျမန္မာျပည္သားေတြ အဆေပါင္းမ်ားစြာအဆင့္ျမင့္တဲ့ ပညာေတြကို ႏိုင္ငံအသီးသီးမွာ အငတ္ငတ္အျပတ္ျပတ္နဲ႕ ကုန္းရုန္းပညာသင္ေနၾကပါတယ္။ သူတို႕ဟာ ျမန္မာႏိုင္ငံ စံနစ္ေျပာင္းသြားရင္ တစ္ကယ္ျပည္ေတာ္ျပန္ၾကမဲ့သူေတြပါ။ ကုမၸဏီတစ္ခု ေအာင္ျမင္ဘို႕အတြက္ ပညာတတ္ရာေပါင္းမ်ားစြာ လိုအပ္ပါတယ္လို႕ ဆိုရင္ ႏိုင္ငံတစ္ခုတည္ေထာင္ဘို႕အတြက္ အခုေမာင္ရင္တို႕ လူေတြေလာက္နဲ႕ မလံုေလာက္ဘူးဆိုတာ သိရမွာေပါ့ေနာ္။ ျမန္မာႏိုင္ငံက ေက်ာင္းေတြမွာ ျပန္ၿပီးေတာ့ ႀကိဳးစားႏိုင္မယ္လို႕ ယံုၾကည္ေနၾကဆဲပဲလား။ ကၽြန္ေတာ္အထက္က တင္ျပခဲ့တဲ့ အခ်က္(၅)ခု ျမန္မာျပည္မွာ ရွိေနၿပီးသားပါလို႕ အခ်က္အလက္က်က်နဲ႕ ျပန္ၿပီးေတာ့ ေျပာျပၾကပါလားကြာ။ ဒါဆိုရင္ေတာ့ ေအာင္ျမင္ၿပီလို႕ပဲ ေျပာလိုက္ပါရေစ။ အဲဒီ့အထဲက System ကို ဘယ္လိုေျပာင္းႏိုင္မလဲဆိုတာ ေဆြးေႏြးႏိုင္ရင္ေတာ့ အေကာင္းဆံုးပါပဲဗ်ာ။ တစ္ကယ္ေျပာင္းႏိုင္ မေျပာင္းႏိုင္ဆိုတာထက္ ျမန္မာျပည္ကို ျပန္ေရာက္တဲ့ အခ်ိန္မွာ ကိုယ့္အထက္က ဘာမွမသိတဲ့ လူႀကီးကို ဆရာ ဒီစံနစ္က ဒါေတြမွားေနတယ္ဆရာ လို႕ ေျပာျပရဲတဲ့ သတၱိရွိရင္ေတာင္မွ ျမန္မာႏိုင္ငံ ေကာင္းစားဘို႕နီးလာပါၿပီလို႕ ကၽြန္ေတာ္ ဥာဏ္မွီသေလာက္ ေျပာပါရေစ။
ကၽြန္ေတာ့္အေနနဲ႕ကေတာ့ ေနာက္ကို ဒါမ်ိဳးပရိုဂရမ္ရွင္းျပျခင္း ေနာက္ကို လံုး၀မေရးေတာ့ပါ။
Friday, April 4, 2008
Opinions to Made in Russia Engineers for Myanmar
Matlab ဆိုေတာ့လဲ Matlab လုပ္လိုက္တာေပါ့ဗ်ာ။ ေအာက္မွာ အလယ္တန္းေက်ာင္းသားေတြေရးတဲ့ Matlab ၾကည္႕။
Dim afterstatus, eachstatus, check, recordmessage As String
Dim borrowed, returned As Boolean
Dim record(20)
Stx$ = Chr$(&H2): Etx$ = Chr$(&H3)
Enq$ = Chr$(&H5): Ack$ = Chr$(&H6)
Esc$ = Chr$(&H1B): Nak$ = Chr$(&H15)
Can$ = Chr$(&H18)
With MSComm1
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
.CommPort = 1
.Settings = "9600,N,8,1"
'.PortOpen = True
.InputLen = 0
End With Call initialize
stno = "00"
pc = "FF"
msgtime = "A"
tmpstr = stno + pc + "BW" + msgtime + "Y" + "0060" + "02" + "10" 'The last "" is Send Data
checksum = 0
For i = 1 To Len(tmpstr)
checksum = checksum + Asc("" & Mid(tmpstr, i, 1) & "")
Next i
checksum = Right(Hex(checksum), 2)
Enq$ = Chr$(&H5)
sndstr = Enq$ & stno & pc & "BW" & msgtime & "Y" & "0060" & "02" & "10" & checksum
Call sendtoPLC(sndstr)
Call comin
tmpstr = stno + pc + "BR" + msgtime + "X" + "0020" + "20" + "" 'The last "" is Send Data
checksum = 0
For i = 1 To Len(tmpstr)
checksum = checksum + Asc("" & Mid(tmpstr, i, 1) & "")
Next i
checksum = Right(Hex(checksum), 2)
Enq$ = Chr$(&H5)
sndstr = Enq$ & stno & pc & "BR" & msgtime & "X" & "0020" & "20" & "" & checksum
Call sendtoPLC(sndstr)
Call comin
Call setup
afterstatus = Right(frmReceive.Text, 35)
afterstatus = Left(afterstatus, 32)
Set xlapp = New Excel.Application
On Error Resume Next
Set xlbook = GetObject("C:\Toolboxcontrol\password.xls")
If Err.Number <> 0 Then
Set xlbook = CreateObject("C:\Toolboxcontrol\password.xls")
End If
xlbook.Application.Visible = False
Set xlsheet = xlbook.Worksheets("Sheet1")
xlsheet.Application.Visible = False
xlsheet.Activate
For i = 1 To Len(afterstatus)
eachstatus = Mid(afterstatus, i, 1)
xlsheet.Cells(i + 1, 5).Value = eachstatus
Next i
a = 0
If Len(afterstatus) < borrowed =" False">