با سلام
اگه درست متوجه شده باشم :
در قسمت project قسمت components رو انتخاب کن گزینه microsoft comm control 6 رو تیک بزن و ok کن در قسمت ابزار یه آیکن به شکل تلفن اضافه میشه که مخصوص کار با پرت سریال هست
موفق باشی
اید تو avr تنظیمات مربوط یه اون اعم از BAUD RATE , STOPBIT و غیره رو بکنی بعد تو ویژال بیسیک هم یه یه component درست کنی و پورتو com1 معرفی کنی . باود ریت و بقیه تنظیماتو هم همونی بکنی که تو avr کرده بودی . بعدش اطلاعاتو بگیری . اگه گیر کردی بگو کدشو بذلرم :NO:
// USART initialization
// Communication Parameters: 8 Data, 2 Stop, No Parity
// USART Receiver: Off
// USART Transmitter: On
// USART Mode: Asynchronous
// USART Baud rate: 110
UCSRA=0x00;
UCSRB=0x08;
UCSRC=0x8E;
UBRRH=0x00;
UBRRL=0x33;
اینم که یه آرایه رو میفرسته
char e[4];
puts(e);
اینم کد vb که با رسیدن دیتا اونو تو i میریزه . بعدش اونو تو listboxنشون میده
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
Dim i As String
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Control.CheckForIllegalCrossThreadCalls = False
i = SerialPort1.ReadExisting
ListBox1.Items.Add("temprature " & n & " = " & i)
این کل برنامه نبود . اینو بنویسی شاید اجرا نشه .
شما اون قسمت serialport.open() رو تو روتین لود شدن برنامه بنویسین . بعد اون یکی event هم اونت رسیدن دیتا هستش . به محض رسیدن دیتا اون اونت اجرا میشه و اونو تو listbox اجرا میکنه .
کجای برنامتون مشکل میده .
دیدگاه