ब्लूटूथ डिवाइस नियंत्रण

यह लेख पिछले लेख "ए स्मार्टफोन कार टॉय कार" का एक निरंतरता है और उन उपयोगकर्ताओं को मदद करनी चाहिए जिन्होंने बुनियादी प्रोग्रामिंग वातावरण का उपयोग करके ब्लूटूथ का उपयोग करके अपने डिवाइस को प्रबंधित करने का निर्णय लिया है! ..!

आवाज नियंत्रण एक प्रभावी, लेकिन बहुत विश्वसनीय नियंत्रण उपकरण नहीं है, खासकर जब नियंत्रण वस्तु की दूरी 2 मीटर से अधिक हो। ध्वनि क्षीणन और पुनर्संयोजन और बाहरी शोर हस्तक्षेप करते हैं, और आपको इंटरनेट तक निरंतर पहुंच की भी आवश्यकता होती है। विश्वसनीय ब्लूटूथ नियंत्रण।

इसके लिए दो कार्यक्रम लिखे गए हैं।

एक कार्यक्रम, मैं इसे "सर्वर" कहूंगा, एक स्मार्टफोन पर चलता है जो डिवाइस को नियंत्रित करता है। सर्वर संचार चैनल को सुनेंगे, कमांड प्राप्त करेंगे और उन्हें निष्पादित करेंगे।

एक और, मैं इसे "क्लाइंट" कहूंगा, एक स्मार्टफोन पर काम करता है जो रिमोट कंट्रोल का काम करता है। क्लाइंट संचार शुरू करेगा, एक टीम बनाएगा, इसे ब्लूटूथ सर्वर के माध्यम से संचारित करेगा।

आदेश एक पाठ संदेश है। उदाहरण के लिए, "सही", या "आर", जिसे "सही" के रूप में व्याख्या किया जाना चाहिए, और इसका मतलब है कि स्टीयरिंग व्हील ड्राइव को दाईं ओर और मुख्य इंजन 300 मिलीसेकंड के लिए आगे बढ़ाना।

स्मार्टफोन के बीच कार्यक्रम शुरू करने से पहले, एक्सेस की व्यवस्था करना आवश्यक होगा। ऐसा करने के लिए, सेटिंग खोलें, ब्लूटूथ चालू करें, उपलब्ध उपकरणों की खोज चालू करें और स्मार्टफ़ोन चुनें।

सर्वर और क्लाइंट शुरू करने से पहले, ब्लूटूथ को बंद कर दें ताकि ओएस ब्लूटूथ चालू करने की अनुमति मांगे, अन्यथा कनेक्शन नहीं बनाया जा सकता है।

सबसे पहले, "सर्वर" कार्यक्रम शुरू होता है, जब आप यह सुनिश्चित कर लेते हैं कि यह संचार चैनल को सुनने के लिए शुरू हो गया है, क्लाइंट शुरू करें और डिवाइस को नियंत्रित करें।

ये कार्यक्रम केवल आदेशों के हस्तांतरण को प्रदर्शित करते हैं, स्क्रीन पर प्रकाश स्पॉट में उनकी व्याख्या पिछले लेख में दिखाई गई थी। क्लाइंट द्वारा प्रोग्राम बंद कर दिए जाते हैं। यदि आपको अपने स्मार्टफोन पर सर्वर को सीधे बंद करने की आवश्यकता है, तो तीन बार रिटर्न कुंजी दबाएं।

सर्वर प्रोग्राम लिस्टिंग

FN.DEF speak(t$) TTS.INIT TTS.SPEAK t$ TTS.STOP FN.END speak("  ") ONERROR: newConnection: BT.OPEN speak ("    ") DO % ++++++++ BT.STATUS s IF s = 1 !speak("") ELSEIF s =2 speak( "") ELSEIF s = 3 speak( " ") ENDIF PAUSE 1000 UNTIL s = 3 % ++++++ BT.DEVICE.NAME device$ DO %--------- BT.STATUS s IF (s<> 3) speak( " ") GOTO new_connection ENDIF DO % ====== BT.READ.READY rr IF rr BT.READ.BYTES s$ PRINT ":";s$ s$ =mid$(s$,1,len(s$)-1) speak(s$) IF (s$="end") THEN GOTO xEnd ENDIF UNTIL rr = 0 % ====== UNTIL 0 % -------- xEnd: speak(" ") BT.CLOSE END   «» ARRAY.LOAD menucom$[], "", "", "", "", " ", " " BT.OPEN BT.CONNECT n = 0 DO %+++++++++++ BT.STATUS s IF s = 1 PRINT ", : ", n++ ELSEIF s =2 PRINT ", : ",n++ ELSEIF s = 3 PRINT " " ENDIF PAUSE 1000 UNTIL s = 3 %+++++++++ BT.DEVICE.NAME device$ PRINT device$ PAUSE 1000 x = 0 DO %######### SELECT menu, menuCom$[], " " IF menu = 1 THEN BT.WRITE "forward" IF menu = 2 THEN BT.WRITE "backward" IF menu = 3 THEN BT.WRITE "right" IF menu = 4 THEN BT.WRITE "left" IF menu = 5 THEN x=1 IF menu = 6 THEN BT.WRITE "end" UNTIL x=1 %######### BT.CLOSE END