Opinions to Made in Russia Engineers for Myanmar

http://www.engineer4myanmar.com/

အားဦးတည္၍ေရးသားပါသည္။
Matlab ဆိုေတာ့လဲ Matlab လုပ္လိုက္တာေပါ့ဗ်ာ။ ေအာက္မွာ အလယ္တန္းေက်ာင္းသားေတြေရးတဲ့ Matlab ၾကည္႕။

3D ဒီဇိုင္းထုတ္ခ်င္ရင္ Autocad 2007 မသံုးပါနဲ႕လို႕ အၾကံေပးခ်င္ပါတယ္။ Auto Cad Inventor သံုးခ်င္သံုးပါ။ Auto Cad ရိုးရိုးက 2D ဆြဲလို႕ပဲ ေကာင္းပါတယ္။ အပ်င္းေျပ စိတ္ေက်နပ္မႈရယံုေလာက္ ဆြဲမယ္ဆိုရင္ေတာ့ သေဘာပါ။ တစ္ကယ္တမ္း Productivity ျခင္းယွဥ္ၿပီးေတာ့ ဒီဇိုင္းဆြဲလာၿပီဆိုရင္ ဘယ္လိုမွ မယွဥ္ႏိုင္ပါဘူး။ တစ္ကယ္တမ္းနာမည္ႀကီးေဆာ့ဖ္၀ဲေတြက Pro - E, SolidWorks , Unigraphics အစရွိတာေတြျဖစ္ပါတယ္။ ေဆြးေႏြးခ်က္ကိုိ ေအာက္မွာ ဆက္ဖတ္ေပးပါခင္ဗ်ာ။ Professional 2D autocad ပံုစံတစ္ခုကိုေဖာ္ျပေပးလိုက္ပါတယ္။ စက္ရုပ္ပံုစံ အေသးစိတ္ ေတြကေတာ့ Controlled Documents ေတြျဖစ္တဲ့အတြက္ မျပေတာ့ပါဘူး။

ေဖာ္ျပထားတဲ့ စာအုပ္ေတြကိုေတာ့ မဖတ္ေတာ့ပါဘူး။ ကၽြန္ေတာ္တို႕ ေန႕တိုင္းလိုနီးနီး ဖတ္ေနရလို႕ပါ။ ကၽြန္ေတာ့္ဆီမွာ အဲဒါမ်ိဳး စာအုပ္ေတြ ေထာင္ခ်ီၿပီးေတာ့ရွိပါတယ္။ List နမူနာထည္႕ေပးထားပါတယ္။ အသံုးလိုမယ္ထင္ရင္လွမ္းမွာလိုက္ပါ။ Program ေတြနဲ႕ ပတ္သက္ၿပီးကေတာ့ Working Visual Basic Program အစိတ္အပိုင္း တစ္ခုေပးျခင္ပါတယ္။ ေလ့လာၾကည္႕ၾကပါ။ လက္ေတြ႕သံုးေနတဲ့ Application ေတြပါခင္ဗ်ာ။

Private Sub Command4_Click()
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">

Techanically စၿပီးေတာ့ ေဆြးေႏြးပါ့မယ္။ ေမာင္တို႕ ကို ကၽြန္ေတာ္ ရုရွားျမန္မာ အဘိဓာန္ကိုသာ ဖိၿပီးေတာ့ ၿပီးစီးေအာင္လုပ္လိုက္ပါလို႕ အႀကံေပးလိုပါတယ္။ ဂ်ပန္ ျမန္မာဆိုရင္ေတာ့ ကၽြန္ေတာ္ အကူအညီေပးႏိုင္ပါတယ္။ ရုရွားျမန္မာေတာ့ ဘာမွ မကူညီႏိုင္ပါဘူးခင္ဗ်ာ။ က်န္တာေတြက ဟိုမေရာက္ ဒီမေရာက္ျဖစ္ေနသလိုမ်ိဳးမို႕ပါ။ ဘာမွမသိတဲ့ သူဖတ္ရင္လဲ ဘာမွသိမွာမဟုတ္သလို ပေရာ္ဖက္ရွင္နယ္တစ္ေယာက္အတြက္ ေမာင္ရင္တို႕ ေျပာသလို သိသူေဖာ္စားစရာ တစ္ခုမွ မပါ ပါဘူး။ ေက်ာင္းသားေတြအတြက္ေတာ့ အသံုး၀င္ခ်င္၀င္ပါလိမ့္မယ္။ ေနာက္ႏွစ္တက္တဲ့သူေတြ ကူးခ်လို႕ရတာေပါ့။ ကၽြန္ေတာ္ေနတဲ့ႏိုင္ငံမွာ အဲဒါမ်ိဳး ကူးခ်တဲ့ျပသနာကိုေတာင္မွ စဖိႏွိပ္ေနပါၿပီ။ ကုိယ္ကုိ တိုင္ေရးတာမဟုတ္လို႕ကေတာ့ ရမွတ္က (၀) ပါ။ ကၽြန္ေတာ္ေအာက္ခ် ေစာင္းေျမာင္းေျပာတာမဟုတ္ပါဘူး။ ဆြဲထားတဲ့ ပံုေတြရယ္၊ ေရးထားတဲ့ ပရိုဂရမ္ေတြနဲ႕၊ ရွင္းျပထားတဲ့ သီအုိရီေတြဟာ တစ္ကယ္သိတဲ့ လူေတြ ၾကည္႕မယ္ဆိုရင္ ကေလးကစားစရာလိုျဖစ္ေနလို႕ပါ။

ကၽြန္ေတာ္ဘေလာ့ဂ္ ရဲ႕ ရည္ရြယ္ခ်က္က ပညာျဖန္႕ေ၀ေပးဘို႕ပါ။ ဘယ္လိုပညာ မ်ိဳးလဲဆိုေတာ့ ငါတို႕သည္ ဘာေကာင္မွ မဟုတ္ေသး။ ငါတို႕ တိုင္းျပည္၊ ငါတို႕ မ်ိဳးဆက္သစ္မ်ား ေကာင္းစားေရးအတြက္ ငါတို႕ ကိုယ္က်ိဳးစြန္႕ ရမည္။ ကိုယ္က်ိဳးမစြန္႕ႏိုင္လွ်င္ေတာင္မွ တိုင္းျပည္အား ခုတံုးလုပ္၍ ကုိယ္က်ိဳးမရွာရ။ ငါတို႕ ျမန္မာလူမ်ိဳးမ်ား ႏိုင္ငံ အသီးသီးတြင္ အႏွိမ္ခံ ၊ မ်က္ႏွာငယ္ ႏွင့္ေနထိုင္ ေနၾကရ သည္ကို ငါတို႕ ေျပာင္းလဲ ပစ္ရန္ ႀကိဳးစားၾကရမည္။ ငါတို႕ကို ငါတို႕ ႏွိမ့္ခ် စြာ က်င့္ၾကံရမည္ အစရွိတဲ့ အသိဥာဏ္ပညာမ်ိဳးေတြကို - ငါတို႕သည္ ႏိုင္ငံျခားျပန္ပါရဂူမ်ားျဖစ္သည္။ ငါျပန္လွ်င္ေနရာေကာင္းရမည္။ ငါ့သား၊ ငါ့ မယား၊ ငါ့ေဆြမ်ိဳးသာ ေကာင္းစား၍ က်န္သူမ်ား အတိဆင္းရဲ ျဖစ္ရျခင္းမွာ က်န္သူမ်ား ညံ႕၍သာျဖစ္သည္။ ေသနတ္ႏွင့္ ကမၻာႀကီး တစ္ခုလံုးအား ထိန္းခ်ဳပ္ႏိုင္သည္။ - လို႕ ေတြးထင္ေနတဲ့ သူေတြရဲ႕ ေခါင္းထဲမွာ ထည္႕ေပးလိုက္ဘို႕ပါ။

အျဖစ္အပ်က္တစ္ခုကို ေျပာျပၿပီးေတာ့ နိဂံုးခ်ဳပ္ပါမယ္။ လြန္ခဲ့တဲ့ ၁၀ႏွစ္ေက်ာ္ေလာက္က စၿပီးေတာ့ စက္မႈတကၠသိုလ္ေတြမွာ ၀န္ႀကီးတန္းနဲ႕ ေဒးတန္း ခြဲျခားၿပီးေတာ့ ဖြင့္ပါတယ္။ အစိုးရက ေအာင္ေမာင္း ေျခထိုး ကကြက္ကေလး ဘယ္ေလာက္ေအာင္ျမင္သလဲဆိုေတာ့ ေဒးေက်ာင္းသားကို ဖိ ၀န္ႀကီးတန္းေက်ာင္းသားကို နဲနဲေလး ေျမာက္ေပးလိုက္တာ ၀န္ႀကီးတန္းက ပိုေကာင္းတယ္ဆိုၿပီးေတာ့ ၀န္ႀကီးတန္းေက်ာင္းသားမ်ား ေျမာက္ၾကြေျမာက္ၾကြျဖစ္ၾကပါတယ္။ ေက်ာင္းသားအခ်င္းခ်င္း ျပသနာတက္ေနတာနဲ႕ကို အားလံုးႏူ ေနတဲ့သူၾကည္႕ပဲဆိုတာ မျမင္ႏိုင္ၾကေတာ့ပါဘူး။ ျမန္မာျပည္က တကၠသိုလ္ေက်ာင္းသားေတြ အခ်င္းခ်င္း ခြက္ေစာင္းခုတ္ေနတဲ့ အခ်ိန္မွာ ထုိင္းက ၁၀တန္းေက်ာင္းသားေတြက ကမၻာအႏွံ႕ နည္းပညာ ၿပိဳင္ပြဲ ေတြမွာ ဆုေတြ အသီးသီး ယူေနၾကပါၿပီ။ တာ၀န္ရွိလူႀကီးမင္းမ်ားကေတာ့ ၿပံဳးၿပံဳးေပါ့ဗ်ာ။ ေမာင္ရင္တို႕ေရာ ငါတို႕ ပိုတတ္တယ္ထင္ေနေသးသလား ။

အခုကိုရုရွားတို႕ကေရာ - ေအာင္ေမာင္းေျခထိုး ကကြက္ ေအာင္ျမင္ေနဆဲ ပဲလား။ ဒါမွမဟုတ္ ေအာင္ေမာင္း လက္သစ္ေတြ ျဖစ္ေနၿပီလား။ ေအာင္ေမာင္း အုပ္စု၀င္ေတြပဲ သိၾကမွာပါခင္ဗ်ား။

မွတ္ခ်က္ - Link လုပ္ထားတဲ့အထဲက ကိုမိုးေရ နဲ႕ PHP Myanmar ေတြကို ႀကိဳက္ႏွစ္သက္ပါတယ္။ ကိုရုရွားတို႕ ထဲကမ်ားလားဆိုတာ သိပါရေစခင္ဗ်ာ။