سلام. اولین سوال هم خودم میپرسم !
من میخوام یه داده رو از دات نت به 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