شروع به کار میکرو با PC ?

[sharktech]

پاسخ : شروع به کار میکرو با PC ?

   k=getchar();
   if (k=="A") {
     printf("yes\n\r");
    }
    else {
    printf("no\n\r");
    };

[ahmadmn]

پاسخ : شروع به کار میکرو با PC ?

احتمالا درست کار می کنه اما نوشته ها اونقدر سریع میاد و میره که نمی بینی!!! oo:

[sharktech]

پاسخ : شروع به کار میکرو با PC ?

این چطوری که درست کار میکنه اما نشون نمیده ؟

[sharktech]

پاسخ : شروع به کار میکرو با PC ?

آقا کسی نبود کمک کنه !! :angry:

دوستان یه برنامه ای میخوام بنویسم که وقتی رشته Start توسط PC به میکرو ارسال شد میکرو شروع به کار کنه و وقتی رشته Stop ارسال شد میکرو توی اجرای دستورات ایست کنه یا همون Pause کنه , همین , اگه کمک کنید ممنون میشم.

هر کسی تونست توی برنامه نویسی های Bascom , Codvision , Winavr بهم کمک کنه .

[Ahp_online]

پاسخ : شروع به کار میکرو با PC ?

سلام
شما boud رو در برنامه تون درست تعریف کردید چون باید boad میکرو و کامپیوتر یکی باشد مثلا 9600

[sharktech]

پاسخ : شروع به کار میکرو با PC ?

آره بابا همه چجی درسته !!!! :angry: :angry: :angry:

[Ahp_online]

پاسخ : شروع به کار میکرو با PC ?

آخه اگه همه چی درست باشه باید کار کنه اگه می دونی برنامه ات صددرصد درسته پس سخت افزار تو اشتباه بستی.اگه ممکنه نقشه سخت افزار رو بزار تا ببینیم درست بستی.

[hadi1328]

پاسخ : شروع به کار میکرو با PC ?

[quote author=sharktech link=topic=30195.msg146601#msg146601 date=1250080606]
آقا کسی نبود کمک کنه !! :angry:

دوستان یه برنامه ای میخوام بنویسم که وقتی رشته Start توسط PC به میکرو ارسال شد میکرو شروع به کار کنه و وقتی رشته Stop ارسال شد میکرو توی اجرای دستورات ایست کنه یا همون Pause کنه , همین , اگه کمک کنید ممنون میشم.

هر کسی تونست توی برنامه نویسی های Bascom , Codvision , Winavr بهم کمک کنه .
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
$swstack = 64
$hwstack = 128
$framesize = 24

'-------------------------------------------------------------------------------

Dim S As String * 10
Dim K As Byte
Dim Cnt As Byte

'-------------------------------------------------------------------------------

Enable Interrupts
S = ""
Cnt = 0

Do
If Ischarwaiting() <> 0 Then
K = Waitkey()
S = S + Chr(k)
If S = "start" Then Print "yes"
If S = "stop" Thyen Print "no"
Incr Cnt
If Cnt > 5 Then
S = ""
Cnt = 0
End If
End If
Loop

'-------------------------------------------------------------------------------

End
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

[sharktech]

پاسخ : شروع به کار میکرو با PC ?

من خودم این برنامه رو نوشتم , اما شاید بشه این برنامه رو بهتر از این هم نوشت .

$regfile = "m32def.dat"
$crystal = 4000000

$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40

Declare Sub Ps
Declare Sub Pt

Dim A As Byte , S As String * 2

Do

  A = Ischarwaiting()

  If A = 1 Then

   A = Waitkey()

   If A = 97 Then Call Ps Else If A = 98 Then Call Pt

  End If

Loop

End

'////////////////'
Sub Ps

Do
Print "Program Start ..."

A = Ischarwaiting()

  If A = 1 Then

   A = Waitkey()

   If A = 97 Then Call Ps Else If A = 98 Then Call Pt

  End If

Loop

End Sub
'////////////////////'
Sub Pt

Do

A = Ischarwaiting()

  If A = 1 Then

   A = Waitkey()

   If A = 97 Then Call Ps Else If A = 98 Then Call Pt

  End If
Loop

End Sub