HUD स्पीडोमीटर - विचार से परिणाम तक

सभी को नमस्कार!
मैंने लंबे समय तक कुछ भी नहीं लिखा, अब यह एक व्यावहारिक से अधिक एक समाचार संसाधन है। मैं स्थिति को ठीक करने की कोशिश करूंगा। मैं आपको HUD स्पीडोमीटर के विकास के बारे में बताऊंगा। हालांकि एक लेजर प्रक्षेपण नहीं , यह सस्ती और कॉम्पैक्ट है।
परिचय
यह इस तथ्य के साथ शुरू हुआ कि मुझे अपने हाथों में एक बड़ा 3.3 "सात-खंड संकेतक मिला। मैंने इसे एक घड़ी के लिए आदेश दिया था जो कभी पैदा नहीं हुआ था। मेरे पास 4 टुकड़े थे, लॉट 5 में, चीनी ने छह लगाए। विंडशील्ड से आकार, चमक और प्रतिबिंब का अनुमान लगाया। मैंने फैसला किया। - यहां यह है। आकार के कारण, छवि विभाजित नहीं होती है, और चमक सीधे धूप में भी इसका उपयोग करने की अनुमति देती है। मैं तुरंत सहमत हूं कि चीनी के पास सुंदर तैयार किए गए टुकड़े हैं जो काफी सस्ती हैं (लेखन के समय सभी मूल्य) - 1800 रूबल से। (हमारी आँखों को बंद करें ऐसा निर्णय):
1. यह कांच पर फिल्म गोंद करने के लिए आवश्यक है - हालांकि यह पारदर्शी है, लेकिन सभी ओवरलैप समीक्षा कर रहे हैं, लेकिन मैं गिलास कि शायद ही रोक रहा है बैठा पर जा रहा है की तरह नहीं है, एक कुर्सी धक्का दिया - और फिल्म होना चाहिए, और यहां तक कि अच्छी तरह से गोंद .. फिल्म के साथ, लगभग कुछ भी नहीं एक धूप दिन पर दिखाई देता है।
2. आप फिल्म को गोंद नहीं कर सकते हैं, फिर संख्या (वे काफी छोटी हैं) दोगुनी है, और धूप में कुछ भी दिखाई नहीं देता है।
शुरुआत के लिए, परिणाम ग्लास में और दिन के दौरान भी कहीं भी कोई फिल्म नहीं है:


कटौती के तहत, मैं बहुत सारी तस्वीरों, औसत दर्जे का वीडियो, कोड और पाठ - सभी का सबसे अच्छा परंपरा में वादा करता हूं।

सिद्धांत
सरल है - समय की एक निश्चित अवधि के लिए हम गति संवेदक से दालों की संख्या की गणना करते हैं। सीपीयू के रूप में, सरल और सस्ती ATMega8।
पहली कठिनाई एमके 5 वी और संकेतक 7.5 वी के समन्वय के रूप में सामने आई। फंतासी ने ट्रांजिस्टर और प्रतिरोधों (गतिशील संकेत के लिए 7 तत्व) के ढेर का आरेख खींचा। सभी Google में से, केवल एक लेख ने मुझे एक घड़ी में संकेतक बदलने के बारे में मदद की, क्षमा करें मैंने उसका पता खो दिया। मैं लेखक को TD62783 (प्रति 5 पीसी से बहुत) का उपयोग करने के विचार के लिए आभार व्यक्त करने का अवसर लेता हूं। दरअसल, यह ट्रांजिस्टर असेंबली के अंदर सात खंडों का संकेतक चालक है।
अगला, एक डीसी / डीसी कनवर्टर। MC34063 पर निर्मित, मेरे पास उनमें से बहुत कुछ है, मेरे पास स्टॉक में है। उन्होंने एक कैलकुलेटर पर गिना, एक परीक्षक के साथ जाँच की - 7.5 वी। क्षेत्र परीक्षणों में यह छोटा हो गया, चमक पर्याप्त नहीं थी, 10 वी तक बढ़ गई।
प्रकाश संवेदक की रीडिंग के आधार पर चमक को समायोजित किया जाता है, जो कि एक साधारण चीनी फोटोरिसेस्टर है।
परिणामस्वरूप, सर्किट निम्नानुसार निकला:

प्रैक्टिस I
ने टॉपोआर मुद्रित सर्किट बोर्ड मुद्रित किया । मैंने ऑटो-प्लेसमेंट का उपयोग किया, हालांकि मैंने अधिकांश तत्वों को मैन्युअल रूप से तय किया। लेकिन प्रगति को मेरे लिए काम करना चाहिए, न कि सिर्फ प्रगति के लिए। यह सुंदरता से बाहर हो गया:

शरीर की चौड़ाई के साथ, यू 4 चूक गया, मुझे पटरियों को खत्म करना था और 11 वें पैर को मिलाप नहीं करना था।
यह वास्तविक जीवन में कैसा दिखता है:



अगले अप्रत्याशित व्यक्ति ने सॉफ्टवेयर में क्रेप किया (मुझे नहीं बताया कि मैं कैसे 2 और 5, 4 को दर्पण करना भूल गया - गर्व करने की कोई बात नहीं है)। समस्या अधिक जटिल थी: काउंटर ने बहुत लंबे समय तक दालों की आवश्यक संख्या गिना। उदाहरण के लिए, 60 किमी / घंटा पर, गति संवेदक से 60 दालों की गिनती में एक सेकंड से अधिक समय लगा। गवाही का ऐसा दुर्लभ अद्यतन मुझे पसंद नहीं आया।
मुझे प्रत्येक माप तल को 2 से गुणा करना था।
रोशनी की तुलना में चमक में एक रैखिक परिवर्तन फिट नहीं हुआ: जब यह थोड़ा गहरा था, तो चमक अपर्याप्त हो गई, जब यह लगभग अंधेरा था, चमक बहुत अधिक थी। मैंने एक्सेल लॉन्च किया, विभिन्न गणितीय कार्यों के लिए एक ग्राफ बनाया। नतीजतन, मैंने एक वर्ग चुना।


बासकॉम कोड:

छिपा हुआ पाठ

'HUD-speedometer
'17/01/2016
'21/01/2016
'v1.1

$regfile = "m8adef.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Portd.4 = Input
Portd.4 = 1
Config Timer0 = Counter , Edge = Falling
Config Timer1 = Pwm , Pwm = 8 , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_up , Prescale = 8
Config Timer2 = Timer , Prescale = 1024
On Timer2 Mytimer2
Enable Interrupts
Enable Timer2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc

Dim I As Byte '
Dim N As Byte '
Dim Pwm_value As Integer '
Dim Speed As Integer , Speed_half As Integer , First_symbol As Integer , Second_symbol As Integer
Dim A As Integer ' Speed Speed_half
Dim R1 As Word
Declare Sub Digit_indication(digit As Integer) '

Const P = 500
Const T = 5000 '
Const T1 = 1000 ' PWM
Pwm_value = 5
Tcnt0 = 0 '

Do
Incr I
If I = 25 Then '
R1 = Getadc(7)
R1 = Sqr(r1) '
R1 = R1 * 8
If R1 < 250 Then
Pwm_value = 250 - R1
Else
Pwm_value = 3 '
End If
I = 0
End If
Gosub Indication
Loop

Indication:
If Speed < 3 Then ' 0 - , 3 -
Pwm_value = 0
End If
While Speed > 99 '.. 2
Speed = Speed - 100
Wend
First_symbol = Speed / 10 '
Second_symbol = First_symbol * 10 '
Second_symbol = Speed - Second_symbol '
Pwm1b = 0
Pwm1a = 0
Waitus T1 '
Call Digit_indication(first_symbol) '
Pwm1b = Pwm_value
Waitus T
Pwm1b = 0
Pwm1a = 0
Waitus T1 '
Call Digit_indication(second_symbol)
Pwm1a = Pwm_value
Waitus T
Return

Sub Digit_indication(digit As Integer)
Select Case Digit
Case 0:
Portd.0 = 0
Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
Case 1:
Portd.0 = 0
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portc.4 = 0
Portc.5 = 1
Case 2:
Portd.0 = 1
Portc.0 = 0
Portc.1 = 1
Portc.2 = 1
Portc.3 = 0
Portc.4 = 1
Portc.5 = 1
Case 3:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Portc.3 = 0
Portc.4 = 1
Portc.5 = 1
Case 4:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 1
Portc.4 = 0
Portc.5 = 1
Case 5:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Portc.3 = 1
Portc.4 = 1
Portc.5 = 0
Case 6:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 0
Case 7:
Portd.0 = 0
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portc.4 = 1
Portc.5 = 1
Case 8:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
Case 9:
Portd.0 = 1
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
End Select
End Sub

Mytimer2:
Incr N
If N = 26 Then
N = 0
Speed = Tcnt0 'Speed =
Tcnt0 = 0 '
End If
If N = 13 Then '.. ( )
Speed_half = Tcnt0 * 2 '
A = Speed - Speed_half
A = A And &B0111111111111111 '
If A > 2 Then
Speed = Speed_half
End If
End If
Timer2 = 135 ' 135
Return


135 के अंत में - एक सुधार कारक, ने इसे प्रत्येक मशीन के लिए व्यक्तिगत रूप से चुना (135 लोगान के लिए है, सोलारिस के लिए यह कम था - हर किसी के पास अलग-अलग गति संवेदक हैं)।
वादा किया गया वीडियो। गुणवत्ता के लिए खेद है, मैंने एक हाथ से नीले बिजली के टेप के एक टुकड़े पर गोली चलाई, दूसरे के साथ मैंने कर लगाया:



गति 3 किमी / घंटा से कम होने पर संकेतक प्रकाश नहीं डालते हैं। यदि गति 99 से अधिक है, तो पहले चरित्र के बिना प्रदर्शित करता है।

बजट:
ATMega8 - 5 पीसी के लिए 200 रगड़ -
40 रगड़ संकेतक - 10 पीसी के लिए 825 रगड़ - 165
रगड़ TD62783 - 250 रगड़ 5 पीसी के लिए -
50 रगड़ें मेरे पास जो ढीला सामान था, लेकिन सामान्य रूप से यह स्पष्ट है कि आप 500 रगड़ के भीतर रख सकते हैं।

बताने के लिए और कुछ नहीं है। यह एक बड़ा सुंदर काउंटर निकला। सोलारिस पर परीक्षण किया गया। फोकस विफल हो गया, फोकस में गति सेंसर नहीं था। मैं ELM327 के माध्यम से OBD2 के साथ काम करने का कार्यक्रम समाप्त करूंगा।
Yandex.Disk पर प्रोजेक्ट फ़ोल्डर
आपका ध्यान देने के लिए आप सभी का धन्यवाद!

Source: https://habr.com/ru/post/hi393529/