۱۸-تير-۱۳۸۸, ۰۳:۳۴:۵۷
سلام.دوستانی که مشکلاتی در زمینه های مشترک avr و دات نت دارن اینجا بیان کنن تا اینگونه مطالب منسجم تر بشن.ممنون
سلام. اولین سوال هم خودم میپرسم !
من میخوام یه داده رو از دات نت به avr (میکرو) از طریق پورت سریال ارسال کنم و میکرو هم داده منو بشناسه و یه کاری رو انجام بده.
کد های زیر رو هم برای avr و دات نتم نوشتم ولی کار نمیده و میکرو چیزی نمی گیره . کسی پیشنهادی کمکی چیزی داره ؟؟؟
این کد دانت:
البته من کامپوننت serialport رو به فرمم اضافه کردم ..
ابن هم دستورات بسکامم:
سلام. اولین سوال هم خودم میپرسم !
من میخوام یه داده رو از دات نت به avr (میکرو) از طریق پورت سریال ارسال کنم و میکرو هم داده منو بشناسه و یه کاری رو انجام بده.
کد های زیر رو هم برای avr و دات نتم نوشتم ولی کار نمیده و میکرو چیزی نمی گیره . کسی پیشنهادی کمکی چیزی داره ؟؟؟
این کد دانت:
کد:
Public Class Form1
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = "com1"
SerialPort1.DataBits = 8
SerialPort1.BaudRate = 4800
SerialPort1.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Write("3")
End Sub
End Classالبته من کامپوننت serialport رو به فرمم اضافه کردم ..
ابن هم دستورات بسکامم:
کد:
$regfile = "m16def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 4800 ' use baud rate
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5
Cursor Off
Dim V As String * 1
Config Portb = Output
Cls
Do
Locate 2 , 1
Lcd "salam hamidi"
Locate 1 , 1
Lcd V
Reset Portb.1
Input V
If V = "3" Then Goto Led
Loop
Led:
Cls
Do
Locate 1 , 1
Lcd V
Locate 2 , 1
Lcd "yuhooo"
Set Portb.1
Loop