ئېلېكترونلۇق گىر سىستېمىسى(ئىلىم-پەن)

elim-pan

ئەسسالامۇ ئەلەيكۇم ئالىپ تۇرىدىكى بارلىق دۇستلار ياخشىمۇسىلەر
كەمىنە ئىلىم پەندىن سىلەرگە ئۇتلۇق سالام
يىقىندا بىر ئاز  ئىزدىنىپ ۋۇجوتقا چىقارغان بىر سىستىمام بار ئىدى ، بۇگۇن ھۇزۇرۇڭلارغا شۇنى سۇنماقچى . مۇشۇ مۇناسىۋەت بىلەن ھەممىمىزنىڭ ئۇلۇغ رۇزى ھېيتىنىڭ يىتىپ كەلگەنلىكىنى چىن كۆڭلۈمدىن تەبرىكلەيمەن.


مەقسەتكە كەلسەك بۇ زادى قانداق سىستىما دىگەن چاغدا مىنىڭدە تۇۋەندىكىدەك بىر گىر  با  .گىرنىڭ كەينىدە  rs232 چاتقۇچى بۇلۇپ كۇمپىيۇتىرغا چىتىشقا بۇلىدۇ .
بۇنى بىرسى ماڭا ياساپ بىرىشنى ھاۋالە قىلغان .گىردا نەرسە جىڭلىغان چاغدا ئىغىرلىقنى ھەم شۇ چاغدىكى ۋاقىتنى خاتىرلەپ ساقلىشى لازىم ئىدى ھەم كىيىن بارلىق ھەم چىسلادىن ئىزدىگىلى بۇلۇشى بۇنىڭدىن باشقا ماي يۇزار پاختا ھەم باشقا كىرىم چىقىمنى خاتىرلىشى ئىزدىگىلى ھەم شۇ كۈنلۈك ئۇمۇمىي پۇلىنى چىقىرىپ بىرىشى بۇنىڭدىن باشقىمۇ يەنە چوڭ -كىچىك2 گىر بۇلۇپ بۇلارنىمۇ سىستىمىغا چىتىپ ئايرىم ئايرىم خاتىرلىشى كىرەك ئىدى . راستىنى دىسەم بۇ ئىش ماڭا بىر ئاز ئاددى ئىدى.
ماڭا  بۇنىڭدىن باشقىمۇ ئىقتىدارلار مەسلەن كۇمپىيۇتىردا تۇرۇپلا بىر تال كۇنۇپكا بىلەن ياكى ياۋكۇڭ بىلەن زاۋۇتنى ماڭدۇرۇپ تۇختىتىپ ياكى زاۋۇت مىڭىش تۇختاشنى خاتىرلەيدىغان ياكى تىلفۇنغا قىسقا ئۇچۇر يوللايدىغان .زاۋۇتقا تىمپىراتۇرا سىنزۇر ،ئوت سىنزۇر ،گاز سىنزۇرلارنى ۋە باشقا سىنزۇر مودىللارنى  ئۇرنىتىپ كۇمپىيۇتىردا كۇرسىتىدىغان .چىراقلارنى يۇرۇتۇپ ئۈچۈرىدىغان ۋە ياكى كۇمپىيۇتىردا تۇرۇپ مادا شامالچىلارنى ياكى زاۋۇتنى  تىز ئاستا پىرقىرىتىدىغان ،يەنە گىرنىڭ ئىغىرلىقىنى ۋاقتى بىلەن قۇشۇپ نەق مەيداننى بىر پارچە رەسىم تارتىپ ساقلايدىغان ئىقتىدارلارنى قۇشۇپ بەر دىگەن بۇلسىمۇ جان دەپ ئورونلىغان بۇلاتتىم .
ناۋادا بۇ گىرغا ئاردىنو ئىشلەتسەك كۇمپىيۇتىرغا چاتمىساقمۇ ئىغىرلىقىنى ئۇزىدىكى sdكارتىغا ساقلايدىغان يا بۇلمىسا ئۇستىگە نەرسە جىڭلىغاندا ئىغىرلىقنى تىلفۇنغا ئۇچۇر يۇللايدىغان قىلىشقا بۇلاتتى .يەنە تىخى چىلەكنى قۇيغاندە ئۇستىدىكى جۈمەكتىن ئاپتۇماتىك سۇ چۈشۈدىغان بەلگىلىك ئىغىرلىققا يەتكەندە سۇ ئاپتۇماتىك ئۈزۈلىدىغان قىلىشقىمۇ بۇلاتتى لىكىن بۇنى نىمە ئەھمىيىتى ،باشقىلار يا بۇنى چۈشەنمىسە




شۇنداق قىپ ئىشنى باشلىدىم .بۇنى vb دا ياسايدىغانلىقىم ئۈچۈن  vbنىڭ 300مىگابايتلىق كارخانا نۇسخىسىنى ئىشلىتىشىمىز كىرەك چۇنكى شۇ نۇسخىدا ساندان مەشغۇلاتى ھەم كۇمپىيۇتىرغا چىتىلغان باشقا .ئۇسكۇنىلەر بىلەن ئالاقە قىلىشتا ئىشلىتىلىدىغانMSCommكۇنتىرۇل بار ئىدى.

MSCommبۇلسا مىكرۇسۇفىتنىڭ كۇمپىيۇتىرنىڭ rs232ئىغىزى ھەم usbئىغىزىغا چىتىلغان ئۇسكۇنىلىرى بىلەن سانلىق مەلوماتلارنى قۇبۇل قىلىپ ئۇقۇيدىغان ھەم سانلىق مەلومات يۇللايدىغانغا تۇزۇلگەن كۇنتىرۇل بۇلۇپ بۇنى ئىشلىتىشنى ئۈگۈنىۋالغان چاغدا ئىلىكترۇنلۇق گىرلارغا چىتىپ ئىغىرلىنى ئۇقۇشقا ،gsm مودىلنى چىتىپ  (يانفۇنلاردىكى تىلفۇن ئۇرۇدىغان قىسمى شۇ )كۇمپىيۇتىردا تىلفۇن ئۇرۇشقا ،ئۇچۇر يۇللاشقا ،قۇبۇل قىلىش ھەم توپ نۇمۇرلارغىمۇ تىلفۇن ۋە ئۇچۇر يۇللاشقا بۇلاتتى .بۇنىڭدىن باشقىمۇ ئىشلىتىش ئورنى بەك مۇھىم بۇلۇپ دايىنجى دەيمىز ،gpsئورون بەلگىلەش دەيمىز ئىشقىپ كۇمپىيۇتىرغا چىتىلدىغانلىكى بارلىق ئۇسكۇنىلەر بىلەن ئالاقە قىلىش باشقۇرۇش ئۈچۈن مۇشۇنى بىلمىسەك بۇلمايتتى

تۇۋەندە مەنvbدا مۇشۇ كۇنتىرۇلنى ئىشلىتىپ ئاددى ھالەتتە گىرنىڭ قىممىتىنى كۇمپىيۇتىردا كۇرسىتىدىغان بىر سىستىما ياساپ كۇرسىتىپ قۇياي.
ئالدى بىلەن rs232سىمنىڭ بىر ئۇچىنى كۇمپىيۇتىرغا بىر ئۇچىنى گىرغا چاتىمىز .شۇنىڭ بىلەن گىرنى قۇزغاتساق گىر تۇختىماستىن ئىغىرلىنى كومپىيۇتىرنىڭ ئۇلىنىش ئىغىزىغا يۇللايدۇ .يەنى com1غا .rs232ئولىغاندىن كىيىنcom1دەپ چىقتى.  بۇنى ئادەتتە ئاردىنو ئارقىلىقمۇ كۇرگىلى بۇلىدۇ پورتنى 1 گە تۇغۇرلاپ ،لوپا ئەينەكنى ئىچىپ چاستۇتىنى 1200گە تۇغۇرلىساق يوللىغان ئۇچۇرنى كۆرىمىز.يەنىwn00000.00kg  شۇ  .چۇنكى گىرنىڭ چاستۇتىسى 1200 گە تۇغۇرلاقلىق ئىكەن


بۇنى ئەمدى ئۇزىمىز پىرۇگرامما يىزىپ ئۇزىمىزنىڭ سىستىمىسىدا كۇرسىتىش ئۈچۈن vb ئاچىمىز  ،text كۇنتىرۇلدىن بىرنى قۇشۇپMultiLineخاسلىقىنى Trueقىلىمىز ،ScrollBarsخاسلىقىنى 2كە تۇغۇرلايمىز ئاندىن سائەت كۇنتىرۇلىدىن بىرنى قۇشۇپ .Intervalقىممىتىنى 300 قىلىمىز.ئاندىن ئەڭ مۇھىم بولغان MSCommكۇنتىرۇلنى قۇشىمىز

.ئۇ سۇل تەرەپ چەتتىكى ئادەتتىكى كۇنتىرۇللارنى ئارىسىدا يوق بۇلۇپ چەتتىن قۇشۇلدىغان دىتاللار ئارىسىدا بار يەنى microsoft comm control 6.0 قۇشساق بۇلىدۇ ،شۇنىڭ بىلەن ئىشنىڭ % 99نى تۇگىدى دەپ قارىساق بۇلىدۇ
ئاندىن تۇۋەندىكى كوتنى ئىجرا قىلساق گىرنىڭ قىممىتى مۇشۇ textنىڭ ئىچىگە چىقىدۇ

1. Private Sub Form_Load()
   
2. MSComm1.Settings = "1200 , n, 8, 1"
   
3. MSComm1.CommPort = 1
   
4.     MSComm1.PortOpen = True
   
5.    
   
6. End Sub
   
7. 
   
8. 
   
9. 
   
10. Private Sub Text1_Change()
    
11. 
    
12. End Sub
    
13. 
    
14. Private Sub Timer1_Timer()
    
15. Dim buf$
    
16. 
    
17. 
    
18. buf = Trim(MSComm1.Input)
    
19.   If Len(buf) <> 0 Then
    
20. Text1 = Text1 & vbCrLf & buf
    
21. 
    
22. End If
    
23. End Sub

مەزمۇننى كۆچۈرۈۋېلىش

كوتتىكى بۇ قۇر بۇلسا MSComm1.Settings = "1200 , n, 8, 1"   بۇ يەردىكى 1200 نى ئۆزگەرتىشكە بۇلىدۇ  9600 ياكى 115200 دىگەن سانلارنى قۇيساق بۇلىدۇ مەن نىمە ئۈچۈن 1200 قىلدىم دىگەن چاغدا گىر ياسالغان چاغدا شۇنىڭغا تەڭشىلىپ قاپتۇ يەنى 1200 چاستۇتىدا كۇمپىيۇتىرغا يۇللايدىكەن شۇنىڭغا مەن 1200 قىلىش ئارقىلىق ئۇچۇرنى تۇغرا قۇبۇل قىلالىدىم .بەلكىم ئۆزگەرتكىلى بۇلۇشى مۇمكىن .
ئاستىدىكى قۇر بەك مۇھىم بۇلۇپ  MSComm1.CommPort = 1  بۇ دەل ئۇلانغانCom ئىغىزىنىڭ نۇمۇرىنى كۇرسىتىدۇ .مەسلەن كۇمپىيۇتىرغا ئۇلىغاندىن كىيىن comنەچچە دەپ چىقسا بۇ يەرگە شۇنى يازىمىز .مىنىڭ 1 دەپ چىققانلىقى ئۈچۈن بۇ يەر MSComm1.CommPort = 1 بۇلدى Com3بۇلسا 3 كە ئۇزگەرتىمىز4 بۇلسا 4 كە ئۇزگەرتىمىز  
MSComm1.PortOpen = True  بۇ بۇلسا ئىشىكنى ئىچىلسۇن قۇبۇل قىلىش باشلانسۇن دىگەنگە ئۇخشاش
  ئاستىدىكى  timerكۇنتىرۇلنىڭ ئىچىدىكى كوت  بۇلسا  ئۇسكۇنىدىن قۇبۇل قىلغان ئۇچۇرنى تىكسىت كۇنتىرۇلنىڭ ئىچىدە كۇرسىتىپ بەر دىگەن مەنىدە  
بۇنى ئىجرا قىلىپ كۇرسەك  نەتىجىسى تۇۋەندىكىدەك بۇلىدۇ بىز ياسىغان دىتالنىڭ ئىچىدە ئىغىرلىق كۇرۇنىدۇ .مانا بۇ  باشقا ئۇسكۇنىلەر بىلەن ئالاقە قىلىش


شۇنىڭ بىلەن يەنە بىر ئاز تىرىشىپ كىرىم چىقىم ۋە ئىغىرلىنى Microsoft Access ساندانغا خاتىرلەيدىغان قىلىپ ياساپ چىقتىم  .ئۇستىگە نەرسە قۇيساقلا خاتىرلەيدۇ ھەم سايراپ  ئاۋاز چىقىرىدۇ .خاتىرلەش سىزىش ئىقتىدارىمۇ خىلى ئەقىللىق بۇلۇپ گىرنىڭ ئادەتتە نەرسە سالمىغاندا 0 نى كۇرسىتىش نەرسە سالغاندىن كىيىن ئۇزگىرىش .ھەم ھەر قانچە تىز ئادەم بۇلسىمۇ گىرغا نەرسە سىلىپ ئەڭ ئاز دىگەندە 1 سىكۇنىت جىم تۇرغۇزۇش قاتارلىقلارنى كۇزدە تۇتۇپ بىر قىتىم گىرغا سالغان نەرسىنى ئۇزاققىچە ئىلۋاتمىسىمۇ بىرلا قىتىم خاتىرلەيدىغان ،ئۇستىگە ئادەم چىقىۋالسا خاتىرلىمەيدىغان  ،ئوتتوردىكى تۇتاشتۇرغۇچ سىمنى ئۇزۇۋاتسا قارا رەڭ ئۇلانسا  يىشىل رەڭگە ئۇزگىرەيدىغان قىلىپ ياسالدى .

تۇۋەندىكى بولسا  سىن كۇرۇنۇش

كىلەر قىتىم ياسايدىغان ئۇسكۇنە بۇلسا gprsئورون بەلگىلەش ئىز قۇغلاش سىستىمىسى

qqnajmidin

ياخشى بوپتۇ

ababakri88

سەۋيىسىڭىز بەك ئۈستىنكەن .

»»»:ئالپ ئاندرويد تېرمىنالىدا يېزىلغان

izdanguqi99

يەنىمۇ تىرىشقايسىز  ئشلىرىڭىزغا ئۇتۇقلۇق بولىشىنى ئۈمىد قىلىمەن

»»»:ئالپ ئاندرويد تېرمىنالىدا يېزىلغان

سەردار8

گىر  دىگەن  تارازا  شۇمۇ

sir`dax

قولىڭىزغا دەرت كەلمىسۇن قىرىندىشىم ، بەك ئەقىللىقكەنسىز ، بۇ سىستىمىلارنى ئىشىتىشنى  سىز ئۆزىڭىز ئۈگۈنىۋالغانمۇ ياكى  بىرەر مەكتەپتە ئوقۇغانمىتىڭىز ، مىنىڭمۇ بەكلا ئۈگەنگىم باتتى ، لىكىن نول سەۋىيەدىن باشلاپ ئۈگۈنىدىغانغا قانداق ئۈگۈنۈشنى بىلەلمىدىم .....

anayurt123

سىزگە ئاپىرىن!!!! ھەقىقى تالانت ئىگىسى دىگەن شۇ . داۋاملىق ئىلىم پەنىڭ يۇقۇرى پەللىسىگە ئۆرلىشىڭىزگە تىلەكداشمەن . ئىشلىرىڭىز ئوڭۇشلۇق بولسۇن.

uzel

ياخشى  تىمىلىرىڭىز  ئۈزۈلمىسۇن...

oylan153

ئادەتتە مەن تۇلا خىيال قىلىپ قىلشقا كۈزۈم يەتمەيدىغان ئىشلار سىزنىڭ ئ‍الدىڭىىزدا ئادەتتىكى بىر ئ‍ش ئ‍ىكەنغۇ،سىزگە ئ‍اپرىن بىلىمىڭىزنى ئ‍ايمىغايسز

»»»:ئالپ ئاندرويد تېرمىنالىدا يېزىلغان

ئ‍ەلى0997

ھەقىقەتەن   ئەقىللىق  كەنسىز

ۋولقان15

قايىلمەن  قىرىندىشىم   ھەيران  قالدىم    تالانىت دەگەن  بولا  شۇندا  بولا

»»»:ئالپ ئاندرويد تېرمىنالىدا يېزىلغان

لەشكەر

تالانت سەھنىسىگە قانناشسىڭىزمو ھەممىسى بىلەت تاشلايدۇ جۇمۇ سىزگە ھىھى

uqkun383

ئەسسالامۇ ئەلەيكۇم .باركاللا قېرىندىشىم . مۇمكىن  بولسامەنمۇ ئۇگەنسەم ،تەربىيلەش ئورۇنلىرى بولسا  تەۋسىيە قىلسىڭىز. مەن  ئۇن زاۋۇتىنى ئاپتۇماتىك  كونتىرول قىلغىلى  بولدىغان قىلماقچى ،ئىدىم .

جاھاندار

ئاپىرىن غەيرەت قىلىڭ

alipalim

رەھمەت  غەيرەت قىلىڭ  يارايسىز