Sisukord:
2025 Autor: John Day | [email protected]. Viimati modifitseeritud: 2025-01-13 06:57
Aegadest, mil ADC oli kallis ja haruldane, tuleb arvutitele andmete hankimiseks riistvara-tarkvaralahendus. Tuginedes IBM-i ühilduvale vana juhtkangi pordile, on tehnika, millega monostabiilne multivibraator käivitatakse takistusmuunduriga (termistor, fotoelement, pingutusmõõtur jne) ja seejärel loendatakse, mitu tsüklit see möödub, enne kui multivibraatori väljund suureneb. lihtne rakendada enamikul arvutiplatvormidel ja enamikus keeltes. Kuvatakse VisualBasic ja Qbasic näidisfailid.
Samm: juhtkangi port
Aastaid oli paljudel IBM -iga ühilduvatel arvutitel kaasas juhtkangi port, millel oli X -telg, Y -telg, A- ja B -nuppude signaaliotsikud. Väikesele DB-15 pistikule pääseb ligi aadressidel 200h & 201h. Juhtkang ise oli vaid kaks potentsomeetrit ja kaks nuppu. Arvuti emaplaadi sees paiknesid kaks taaskäivitatavat monostabiilset multivibraatorit (lühidalt RMM), millel on fikseeritud kondensaatorid ja IN/OUT kontaktid. RC ajakonstant määrati potentsomeetrite ja kondensaatorite abil. Signaali teisendamise alustamiseks teeksite KIRJUTAMISE pordi aadressiks 200h ja hakkaksite siis loendama, kuni saate natuke KÕRGE, tehes READ to port address 200h. Seda saab rakendada mis tahes keeles (põhi, pascal, c).
2. samm: juhtkangi port VB -s
See on näidiskood, mida kasutasin oma rämpsposti juhtkangi testimiseks: Private Sub Timer1_Timer () Dim V, H As Integer Out & H201, & HFF H = 1 kuni 3000 If (Inp (& H201) Ja & H1) / & H1 = 0 Siis Exit Järgmine H horisontaalne. Tekst = H Out & H201, & HFF V = 1 kuni 3000 If (Inp (& H201) Ja & H2) / & H2 = 0 Seejärel välju järgmise V vertikaali jaoks. Text = V If (Inp (& H201) ja & H10) / & H10 = 0 Siis kuju (& H201) Ja & H20) / & H20 = 1 Seejärel Shape2. FillColor = & HC0C0C0 Shape3. Left = H Shape3. Top = VEnd Sub Programm töötab ainult siis, kui teie arvutiga on ühendatud tõeline juhtnupp. Tekstiväljad Horisontaalne ja Vertikaalne näitavad väärtust, mis on seotud teie pulga X ja Y liigutustega. Samuti liigub ruut suuremas kastis, et näidata teie liigutusi. A- ja B -nuppude vajutamine loeb hallid ringid. Näidis kompileeritud EXE -fail, lähtekood ja teek INPOUT32. DLL asuvad failis. RAR.
Samm: rakendage see DOS -i paralleelpordi abil
74 LS 123 on see, mida ma kasutasin, et saada sama süsteem nagu juhtkangi pordil. Sellel on kaks RMM -i. PDF -failis näete andmelehte ja lihtsat vooluringi, mida saate oma paralleelpordi külge kinnitada. Olen Qbasicu fänn (kuna see on laialdaselt saadaval), nii et kood on sellesse kirjutatud. Protseduur on sama mis VB proovis: 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) WHEE INKEY $ = "" OUT LPTcontrol, & H1 OUT LPTcontrol, & H0 Y = 1 kuni YMAXX IF (INP (LPTstatus) JA & H10) / & H10 = 1 SIIS VÄLJUGE JÄRGMISEKS Y LOCATE 23, 1 PRINT KASUTADA "####"; Y LINE (0, 0) - (MAXX, YMAXX), 0, BF FOR I = 1 kuni MAXX LINE (I, D (I - 1)) - (I, D (I)) D (I - 1) = D (I) JÄRGMINE ID (MAXX) = YWEND MMR -i käivitamiseks kasutatakse ühte väljundnuppu ja selle väljundi lugemiseks ühte sisendnõela.
Samm: vooluringi kinnitamine LPT -le
Süsteem on rakendatud poole riistvara ja poole tarkvarana. Seejärel kasutatakse impulsside loendamiseks muutuva takistuse teisendamist ajaviiteks ja see arv on meie soovitud väärtus. Qbasic -fail joonistab signaali ekraanile ja kerib seda paremale.
Samm: kasutage seda
See on tavaline IC, kuid kasutada saab ka teisi monostabeleid. Paljud inimesed, kes elavad kohtades, kus ADC on raske leida, võivad soovida kasutada seda vooluringi kooliprojektina temperatuuri või muu kraami joonistamiseks, kui saate panna MMR -i oma viivitust muutma, kui teie andur seda teeb.