Digital Converter үчүн жөнөкөй жана арзан аналог: 5 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

ADC кымбат жана сейрек кездешкен учурлардан тартып, ЖК үчүн маалыматтарды алуу үчүн аппараттык-программалык чечим келет. Эски Джойстик портуна негизделген IBM менен шайкеш, моностабдуу мультивибратордун резистивдүү өткөргүчүн (термистор, фотоэлементтер, деформациялоочу ж. көпчүлүк PC платформаларында жана көпчүлүк тилдерде ишке ашыруу үчүн жөнөкөй. VisualBasic жана Qbasic үлгү файлдары көрсөтүлөт.

1 -кадам: Джойстик Порт

Көптөгөн жылдар бою IBM шайкеш келген көптөгөн компьютерлерде X огу, Y огу, A & B баскычтары сигнал казыктары бар Joystick порту бар болчу. Кичинекей DB-15 туташтыргычы 200h & 201h дареги боюнча кирүүгө болот. Джойстиктин өзү болгону эки потенциометр жана эки баскыч болгон. ЖКнын Motherboard ичинде, туруктуу конденсаторлор жана IN/OUT төөнөгүчтөрү бар, эки retriggerable monostable multivibrators (кыска RMM) жайгашкан. RC убакыт константасы потенциометрлер жана конденсаторлор тарабынан коюлган. Сигналды конверсиялоону баштоо үчүн, сиз 200h порт дарегине ЖАЗЫП, анан 200h порт дарегине ОКУУ кылып, бир аз ЖОГОРУ болгончо эсептей баштайт элеңиз. Бул каалаган тилде (негизги, паскалдык, с) ишке ашырылышы мүмкүн.

2 -кадам: VBдеги Джойстик Порт

Бул мен джойстикти текшерүү үчүн колдонулган үлгү коду: Жеке Sub Timer1_Timer () Dim V, H As Integer Out & H201, & HFF For H = 1 To 3000 If (Inp (& H201) And & H1) / & H1 = 0 Андан кийин чыгуу Next H Horizontal. Text = H Out & H201, & HFF For V = 1 To 3000 If (Inp (& H201) And & H2) / & H2 = 0 Кийинки V Vertical. Text = V If (Inp (& H201) Жана & H10) / & H10 = 0 Анан Shape1. FillColor = & HFF If (Inp (& H201) and & H20) / & H10 = 0 then Shape2. FillColor = & HFF If (Inp (& H201) And & H10) / & H10 = 1 Андан кийин Shape1. FillColor = & HCp0C0 (& H201) Жана & H20) / & H20 = 1 Андан кийин Shape2. FillColor = & HC0C0C0 Shape3. Left = H Shape3. Top = VEnd Sub Программа сиздин компьютериңизге тиркелген чыныгы джойстик болсо гана иштейт. Горизонталдык жана Тик Текст кутучалары таякчаңыздын X жана Y кыймылдарына байланыштуу маанини көрсөтөт. Ошондой эле чарчы сиздин кыймылдарыңызды көрсөтүү үчүн чоңураак кутучанын ичинде жылат. А жана В баскычтарын басуу боз чөйрөлөрдү окууга бурулат. EXE файлынын үлгүсү, булак коду жана INPOUT32. DLL китепканасы. RAR файлында.

3 -кадам: Аны DOS астындагы параллель портту колдонуу менен ишке ашыруу

74 LS 123 мен джойстик портуна окшош системаны алуу үчүн колдонулган нерсе. Анын эки RMMи бар. PDF файлында сиз маалымат парагын жана параллель портко тиркөө үчүн жөнөкөй схеманы көрө аласыз. Мен Qbasic күйөрманымын (анткени ал кеңири жеткиликтүү), андыктан код анда жазылган. Процедура VB үлгүсүндөгүдөй: LPTdata = & H378 LPTstatus = LPTdata + 1: LPTcontrol = LPTdata + 2YMAXX = 500SCREEN 2LINE (9, 1)-(630, 170),, B, & H3333VIEW (10, 2)- (629, 169) WINDOW (0, YMAXX)-(620, 0) MAXX = 620DIM D (MAXX) INKEY $ = "" OUT LPTcontrol, & H1 OUT LPTcontrol, & H0 FOR Y = 1 to YMAXX IF (INP (LPTstatus) ЖАНА H10) / & H10 = 1 АНДАН КИЙИНКИ Y ЖЕРДЕН ЧЫГУУ 23, 1 PRINT "####" КОЛДОНУУ; Y LINE (0, 0) - (MAXX, YMAXX), 0, BF FOR I = 1 to MAXX LINE (I, D (I - 1)) - (I, D (I)) D (I - 1) = D (I) КИЙИНКИ ID (MAXX) = YWEND Бир чыгуучу пин, MMRди иштетүү үчүн жана анын чыгышын окуу үчүн бир киргизүү пини колдонулат.

4 -кадам: Цирутту LPTге тиркөө

Система жарымы жабдык жана жарымы программалык камсыздоо катары ишке ашырылат. Убакыттын өтүшү менен өзгөрүлмөлүү каршылыктын айлануусу импульстарды эсептөө үчүн колдонулат жана бул эсептөө биздин каалаган маанибиз.

5 -кадам: Аны колдон

Бул жалпы IC, бирок башка моностабилдер дагы колдонулушу мүмкүн. ADC табуу кыйын болгон жерлерде жашаган көптөгөн адамдар, бул схеманы мектеп проектиси катары температураны же башка нерселерди пландаштыруу үчүн колдонууну каалашат, эгерде сен сенсор болгондо MMR кечигүүсүн өзгөртө аласың.