ממיר אנלוגי לדיגיטלי פשוט וזול: 5 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

מהתקופות בהן ADC היו יקרות ונדירות, מגיע פתרון חומרה-תוכנה לרכישת נתונים למחשבים אישיים. בהתבסס על יציאת הג'ויסטיק הישנה מתואמת IBM, טכניקה של הפעלת מולטי-ויברטור חד-יציב מתמר התנגדות (תרמיסטור, תא צילום, מד זן וכו ') ולאחר מכן לספור כמה מחזורים הוא עובר לפני שהפלט של המולטי-ויטור עולה גבוה היא די פשוט ליישום ברוב פלטפורמות המחשב האישי וברוב השפות. מוצגים קובצי דוגמה של VisualBasic ו- Qbasic.

שלב 1: יציאת הג'ויסטיק

במשך שנים הגיעו הרבה מחשבים ביתיים תואמים IBM עם יציאת ג'ויסטיק שהיתה בעלת ציר X, ציר Y, כפתורי A ו- B סיכות. ניתן לגשת למחבר DB-15 הקטן בכתובת 200h & 201h. הג'ויסטיק עצמו היה רק שני פוטנציומטרים ושני כפתורים. בתוך לוח האם של המחשב האישי, נמצאו שני מולטי -ויברטורים חד פעמיים חד פעמיים (RMM בקיצור) עם קבלים קבועים וסיכות IN/OUT. קבוע הזמן RC נקבע על ידי הפוטנציומטרים והקבלים. כדי להתחיל את המרת האותות, היית מבצע כתובת WRITE ליציאה 200 שעות ולאחר מכן מתחילה לספור עד שתקבל קצת HIGH על ידי ביצוע כתובת READ to port 200h. ניתן ליישם זאת בכל שפה (בסיסית, פסקל, ג).

שלב 2: יציאת ג'ויסטיק ב- VB

זהו קוד לדוגמא בו השתמשתי לבדיקת הג'ויסטיק של גרוטאות הגרוטאות שלי: Timer Private1_Timer () Dim V, H כמספר שלם Out & H201, & HFF עבור H = 1 עד 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 הבא אנכי. טקסט = V If (Inp (& H201) ו- & H10) / & H10 = 0 ואז צורה 1. FillColor = & HFF אם (Inp (& H201) And & H20) / & H10 = 0 ואז Shape2. FillColor = & HFF If (Inp (& H201) And & H10) / & H10 = 1 ואז Shape1. FillColor = & HC0C0C0 אם (ב- (& H201) ו- & H20) / & H20 = 1 ואז Shape2. FillColor = & HC0C0C0 Shape3. Left = H Shape3. Top = VEnd Sub התוכנית עובדת רק אם יש לך ג'ויסטיק אמיתי מחובר למחשב האישי שלך. תיבות הטקסט האופקי והאנכי יציגו ערך הקשור לתנועות X ו- Y של המקל שלך. כמו כן ריבוע ינוע בתוך קופסה גדולה יותר לייצוג התנועות שלך. לחיצה על כפתורי A ו- B תגרום לקריאת העיגולים האפורים. קובץ ה- 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)-) AND & H10) / & H10 = 1 אז צא ליציאה הבאה 23, הדפסה אחת באמצעות "####"; 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) מזהה הבא (MAXX) = YWEND סיכת פלט אחת משמשת להפעלת ה- MMR וסיכת קלט אחת לקריאת הפלט ממנה.

שלב 4: הצמדת הסירויט ל- LPT

המערכת מיושמת כחצי חומרה וחצי תוכנה. המרת ההתנגדות המשתנה לעיכוב זמן משמשת לאחר מכן לספירת פולסים וספירה זו היא הערך הרצוי שלנו. הקובץ qbasic ישרטט למסך האות ואז יגלול אותו ימינה.

שלב 5: השתמש בו

זהו IC נפוץ אך ניתן להשתמש גם במונובסטלים אחרים. אנשים רבים שגרים במקומות שקשה למצוא ADC עשויים לרצות להשתמש במעגל זה כפרויקט בית ספרי לזימון טמפרטורה או כל דבר אחר כל עוד אתה יכול לגרום ל- MMR לשנות את העיכוב שלו כאשר החיישן שלך עושה זאת.