לוגו אתר Fresh          
 
 
  אפשרות תפריט  ראשי     אפשרות תפריט  צ'אט     אפשרות תפריט  מבזקים     אפשרות תפריט  צור קשר     חץ שמאלה ‎print ‎"Hello World!"; if‎ ‎not rules.‎know ‎then rules.‎read(); חץ ימינה  

לך אחורה   לובי הפורומים > מחשבים > תכנות ובניית אתרים
שמור לעצמך קישור לדף זה באתרי שמירת קישורים חברתיים
תגובה
 
כלי אשכול חפש באשכול זה



  #2  
ישן 06-11-2011, 01:05
  שימיadmin שימי אינו מחובר  
מנהל פורומי "תכנות ובניית אתרים" ו"חומרה ורשתות"
 
חבר מתאריך: 25.10.01
הודעות: 42,775
בתגובה להודעה מספר 1 שנכתבה על ידי mike_s שמתחילה ב "עזרה בקוד לקריאת מידע סריאלי"

מה זו השפה הזו? VB? (אני חושד בגלל ה Dim-ים...)

בכל אופן, אני בעצמי לא מצליח לקרוא את ה IF שלך - אולי אני מפספס משהו (כי אני לא מכיר את השפה, אבל אני מכיר לא מעט שפות, וכך עוד לא ראיתי...) - בד"כ בודקים ביטוי מסויים, שמחזיר ערך מסויים - אם הערך הוא true, הפעולה של ה if תתבצע. אתה מוכן בבקשה להסביר למה יש לך עוד 9 סימני = אחרי ה = הראשון של הביטוי?

אולי רצית להציב מידע לתוך ה byte לפני ה if ואז להשוות את מה שנקלט ב read ל stopArray, ואם הם שווים, להקפיץ את החלון שאתה רוצה?
_____________________________________
תמונה שהועלתה על ידי גולש באתר ולכן אין אנו יכולים לדעת מה היא מכילה
נמאס לכם לזכור סיסמאות? לחצו כאן!

תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
  #3  
ישן 06-11-2011, 08:24
  mike_s mike_s אינו מחובר  
 
חבר מתאריך: 08.05.10
הודעות: 65
בתגובה להודעה מספר 2 שנכתבה על ידי שימי שמתחילה ב "מה זו השפה הזו? VB? (אני חושד..."

זה אכן VB 2008 EXPRESS אני מצטער שלא ציינתי קודם.
אני אנסה להסביר, אני מנסה לקבל פקודה מהסריאל פורט שבנויה מ 9 בייטים. זו פקודה אחת.
כשחיפשתי באינטרנט זו השיטה שמצאתי.

חשוב לציין שכאשר אני שולח את המידע זה עובד מצוין הבעיה היא בלקבל אותו.
זה הקוד של שליחת המידע שממש עובד ושולט במכשיר שמחובר סריאלית:
קוד:
Imports System.IO.Ports Public Class Test1 Dim ComPort As New SerialPort("COM3", 9600, Parity.None, 8, 1) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComPort.Open() End Sub Private Sub Button1_KeyDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseDown Dim stopArray(9) As Byte stopArray(1) = &H81 stopArray(2) = &H1 stopArray(3) = &H6 stopArray(4) = &H1 stopArray(5) = &HF stopArray(6) = &H12 stopArray(7) = &H3 stopArray(8) = &H1 stopArray(9) = &HFF ComPort.Write(stopArray, 1, 9) End Sub


לחיצה על הלחצן מבצעת את השליחה של תשעת הבייטים.

איך אני עושה ההפך, שכאשר תשעת הבייטים האלה מתקבלים בסריאל אני מקבל חיווי בתוכנה?

תודה
תגובה ללא ציטוט תגובה עם ציטוט חזרה לפורום
תגובה

כלי אשכול חפש באשכול זה
חפש באשכול זה:

חיפוש מתקדם
מצבי תצוגה דרג אשכול זה
דרג אשכול זה:

מזער את תיבת המידע אפשרויות משלוח הודעות
אתה לא יכול לפתוח אשכולות חדשים
אתה לא יכול להגיב לאשכולות
אתה לא יכול לצרף קבצים
אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל
קוד [IMG] פעיל
קוד HTML כבוי
מעבר לפורום



כל הזמנים המוצגים בדף זה הם לפי איזור זמן GMT +2. השעה כעת היא 00:44

הדף נוצר ב 0.06 שניות עם 10 שאילתות

הפורום מבוסס על vBulletin, גירסא 3.0.6
כל הזכויות לתוכנת הפורומים שמורות © 2024 - 2000 לחברת Jelsoft Enterprises.
כל הזכויות שמורות ל Fresh.co.il ©

צור קשר | תקנון האתר