עד היום, כל התקשורת בין המחשב שלי לארדואינו הסתכמה בתכנות הארדואינו דרך סביבת הפיתוח, וב-Serial Monitor. זה די והותר כאשר הארדואינו מיועד לפעול לבדו, אבל מה עושים אם רוצים שהוא יעבוד בשיתוף עם תוכנה משלנו במחשב?

חברים בקהילת המפתחים המקומית כבר הצליחו ליצור את החיבור הנחשק באמצעות שפת התכנות פייתון, אך אני רציתי לעבוד דווקא עם Object Pascal (בסביבת הפיתוח Delphi) שאני מכיר ואוהב. ידעתי שבסופו של דבר, שפת התכנות הספציפית חסרת חשיבות – מה שחשוב באמת זה למצוא את הדרך שלה לתקשר עם יציאה טורית (Serial Port), כי זה בעצם מה שכבל ה-USB של הארדואינו נותן.

החיפוש אחר רכיב מתאים ל-Delphi שלי לא היה פשוט, וגם אחרי שמצאתי סוף כל סוף משהו והתקנתי אותו, לא היה ברור איך להשתמש בו כי התיעוד אפסי. לשמחתי, בסופו של דבר הסתבר שזה הרבה יותר פשוט ממה שחשבתי. מרגע שתפסתי את הפרנציפ, יצרתי תוך דקות ספורות ממש את היישום המשולב ארדואינו/מחשב הבא:

הקוד של הארדואינו קורא את הערך מהפוטנציומטר חמש פעמים בשניה ומשדר אותו דרך ה-Serial שלו, ככה:

void setup() {
  Serial.begin(9600);
}

void loop() {
  Serial.write(map(analogRead(A0), 0, 1023, 0, 255));  
  delay(200);
}

והנה קוד הפסקל של התוכנה במחשב. לא הבאתי את כולו, כי יש שם דברים לא רלוונטיים שרק יבלבלו אתכם, ושסביבת הפיתוח מטפלת בהם ממילא בעצמה. במקום זאת, הנה העיקר – הפרוצדורה שרצה מרגע שהמשתמש לוחץ על הכפתור "Connect":

procedure TForm1.ConnectClick(Sender: TObject);
var
  c : Byte;

begin

  // Start Serial Connection
  ApdComPort1.Baud := 9600;
  ApdComPort1.Output := 'ATZ';

  repeat
    application.ProcessMessages;
    if ApdComPort1.CharReady then
     begin

       c := Ord(ApdComPort1.GetChar);
       Gauge1.Progress := c;
       case c of
         0..205 : Gauge1.Color := clGreen;
         206..229 : Gauge1.Color := clYellow;
         230..255 : Gauge1.Color := clRed;
       end;

     end;
  until ExitLoop;

end;

לא הגדרתי את מספר היציאה בתוכנה, אך הסתבר שאין כלל צורך: בעת ההפעלה (הפקודה ATZ המוזרה ההיא), התוכנה פשוט מקפיצה את החלון המוכר מסביבת הפיתוח של הארדואינו ושואלת לאיזה Port לפנות.

בינתיים, התוכנה שכתבתי רק קוראת ערכים. השלב הבא הוא כמובן לכתוב ערכים בחזרה לארדואינו, וכן למצוא דרך (אם יש כזו) לדלג על שלב הבחירה הידנית ולאתר אוטומטית את הארדואינו המחובר. אפשר אמנם להגדיר לרכיב ישירות בקוד את מספר ה-Port, אך אם במקרה הארדואינו שמחובר כרגע למחשב מוגדר ב-Port אחר, קופצת הודעת שגיאה מכוערת. הפתרון מן הסתם לא מסובך במיוחד, אלא שהשעה הרבה יותר מדי מאוחרת בשביל לחפש אותו, אז המשך יבוא…