Rəqəmsal çeviriciyə sadə və ucuz analoq: 5 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

ADC-nin bahalı və nadir olduğu dövrlərdən etibarən, kompüterlər üçün məlumat əldə etmək üçün bir hardware-proqram həlli gəlir. IBM-ə uyğun köhnə Joystick portuna əsaslanaraq, monostabil bir multivibratoru müqavimətli bir çeviricini (termistor, fotosel, gərginlik ölçmə cihazı və s.) əksər PC platformalarında və əksər dillərdə tətbiq etmək asandır. VisualBasic və Qbasic nümunə faylları göstərilir.

Addım 1: Joystick Limanı

İllərdir bir çox ev IBM uyğun PC, X oxu, Y oxu, A & B düymələri siqnal pinləri olan bir Joystick portu ilə gəlirdi. Kiçik DB-15 bağlayıcısına 200h & 201h ünvanından daxil olmaq mümkündür. Joystickin özü yalnız iki potensiometr və iki düymə idi. PC -nin anakartının içərisində sabit kondansatörlü və IN/OUT pinli iki dəfə təkrar işləyə bilən monostabil multivibratör (qısaca RMM) yerləşirdi. RC vaxt sabitliyi potensiometrlər və kondansatörlər tərəfindən təyin edilmişdir. Siqnal çevirməyə başlamaq üçün, 200h port ünvanına YAZIN yazacaqsınız və sonra 200h port ünvanına READ oxuyaraq bir qədər YÜKSƏK olana qədər saymağa başlayacaqsınız. Bu hər hansı bir dildə (əsas, pascal, c) tətbiq oluna bilər.

Addım 2: VB -də Joystick Portu

Bu, tullantı çubuğu çubuğunu sınamaq üçün istifadə etdiyim nümunə koddur: Şəxsi Sub Timer1_Timer () Dim V, H As Integer Out & H201, & HFF for H = 1 to 3000 If (Inp (& H201) And & H1) / & H1 = 0 Sonra Exit For Next H Horizontal. Text = H Out & H201, & HFF for V = 1 to 3000 If (Inp (& H201) And & H2) / & H2 = 0 Sonra Next V Vertical. Text = V If (Inp (& H201) Və & H10) / & H10 = 0 Sonra Shape1. FillColor = & HFF Əgər (Inp (& H201) Və & H20) / & H10 = 0 Sonra Shape2. FillColor = & HFF If (Inp (& H201) Və & H10) / & H10 = 1 Sonra Shape1. FillColor = & HCp0C0 (& H201) Və & H20) / & H20 = 1 Sonra Shape2. FillColor = & HC0C0C0 Shape3. Left = H Shape3. Top = VEnd Sub Proqram yalnız kompüterinizə qoşulmuş əsl joystick varsa işləyir. Yatay və Şaquli Mətn qutuları, çubuğunuzun X və Y hərəkətləri ilə əlaqəli bir dəyəri göstərəcəkdir. Hərəkətlərinizi ifadə etmək üçün daha böyük bir qutunun içərisində bir kvadrat da hərəkət edəcək. A və B düymələrinə basmaq boz dairələri oxuyacaq. Nümunə tərtib edilmiş EXE faylı, mənbə kodu və INPOUT32. DLL kitabxanası. RAR faylındadır.

Addım 3: DOS altında paralel port istifadə edərək həyata keçirin

74 LS 123, joystick portu ilə eyni sistemi əldə etmək üçün istifadə etdiyim şeydir. İki RMM var. PDF sənədində paralel portunuza əlavə etmək üçün məlumat cədvəlini və sadə bir dövrə görə bilərsiniz. Mən Qbasic fanatıyam (çünki geniş yayılmışdır) buna görə kod yazılmışdır. Prosedur VB nümunəsindəki kimidir: 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 $ = "" Çıxış LPTcontrol, H1 Çıxış LPTcontrol və H0 İÇİN Y = 1-dən YMAXX IF (INP (LPTstatus) VƏ & H10) / & H10 = 1 SONRA NÖVBƏTİ Y YERİNDƏN ÇIX 23, "1####" İSTİFADƏ EDİN; Y LINE (0, 0) - (MAXX, YMAXX), 0, BF I = 1 MAXX LINE (I, D (I - 1)) - (I, D (I)) D (I - 1) = D (I) NEXT ID (MAXX) = YWEND MMR -ni işə salmaq üçün bir çıxış pinindən və çıxışını oxumaq üçün bir giriş pinindən istifadə olunur.

Addım 4: Ciruitin LPT -yə bağlanması

Sistem yarısı hardware və yarısı proqram olaraq həyata keçirilir. Dəyişən müqavimətin vaxt gecikməsinə çevrilməsi nəbzləri saymaq üçün istifadə olunur və bu say bizim istədiyimiz dəyərdir. Qbasic faylı siqnalı ekranlaşdıracaq və sonra sağa sürüşdürəcək.

Addım 5: İstifadə edin

Bu ümumi bir IC -dir, lakin digər monostables da istifadə edilə bilər. ADC -nin tapılması çətin olan yerlərdə yaşayan bir çox insan, temperaturu və ya başqa bir şeyi planlaşdırmaq üçün MMR -ni bir sensor layihə olaraq istifadə etmək istəyə bilər.