۲۵-فروردین-۱۳۹۰, ۱۹:۰۱:۵۲
۲۵-فروردین-۱۳۹۰, ۲۳:۲۵:۴۱
دوست عزیز سورس برنامتو بزار من یا دوستان دیگه ببینیم مشکل از کجاست
۳۱-اردیبهشت-۱۳۹۰, ۲۲:۰۰:۲۲
سلام دوستان من مشکلی دارم در ارتباط با راه اندازی hm-rبرنامه و سخت افزار مدار صحیح است وباسیم کشی جواب میدهد اما موقع وایرلس کردن فرستنده کار میکند اما گیرنده با تاخیر زیاد.
کسی میتونه من را راهنمایی کند؟
سلام دوستان من مشکلی دارم در ارتباط با راه اندازی hm-rبرنامه و سخت افزار مدار صحیح است وباسیم کشی جواب میدهد اما موقع وایرلس کردن فرستنده کار میکند اما گیرنده با تاخیر زیاد.
کسی میتونه من را راهنمایی کند؟
کسی میتونه من را راهنمایی کند؟
سلام دوستان من مشکلی دارم در ارتباط با راه اندازی hm-rبرنامه و سخت افزار مدار صحیح است وباسیم کشی جواب میدهد اما موقع وایرلس کردن فرستنده کار میکند اما گیرنده با تاخیر زیاد.
کسی میتونه من را راهنمایی کند؟
۲۲-خرداد-۱۳۹۰, ۲۰:۲۰:۲۴
سلام من میخوام اطلاعات روی پورت A رو بفرستم و در گیرنده روی LCD نشون بدم این برنامم هستش:
فرستنده:
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Portb.0 = Input
Config Porta = Input
Portb.0 = 1
Dim B As Byte , S As String * 3 , A As String * 1 , Ro As String * 4
Dim D As Byte
Cls
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
A = "h"
S = Str(b)
Ro = A + S
For D = 1 To 8
Print Ro ; Chr(13);
Waitms 10
Next D
Return
End
گیرنده:
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Porta = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , _
Db7 = Porta.5 , Rs = Porta.0 , E = Porta.1
Dim B As Byte , S As String * 3 , A As String * 1 , Ro As String * 4
Cls
Do
Input Ro
A = Left(ro , 1)
If A = "h" Then
S = Mid(ro , 2 , 2)
B = Val(s)
Locate 1 , 1
Lcd B
End If
Loop
End
من وقتی عدد 1 رو میفرستم عدد 65 روی lcd نشون میده و وقتی در گیرنده lcd پاک شد و دوباره میفرستم عدد 1 نشون داده میشه.وقتی عدد 2 رو میفرستم عدد66 رو نشون میده و همین طور به ترتیب وقتی عدد 7 رو میفرستم عدد 71 رو رویlcd نشون میده.
به نظرتون باید چه تغییری در برنامم بدم؟؟
ممنون میشم
فرستنده:
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Portb.0 = Input
Config Porta = Input
Portb.0 = 1
Dim B As Byte , S As String * 3 , A As String * 1 , Ro As String * 4
Dim D As Byte
Cls
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
A = "h"
S = Str(b)
Ro = A + S
For D = 1 To 8
Print Ro ; Chr(13);
Waitms 10
Next D
Return
End
گیرنده:
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Porta = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , _
Db7 = Porta.5 , Rs = Porta.0 , E = Porta.1
Dim B As Byte , S As String * 3 , A As String * 1 , Ro As String * 4
Cls
Do
Input Ro
A = Left(ro , 1)
If A = "h" Then
S = Mid(ro , 2 , 2)
B = Val(s)
Locate 1 , 1
Lcd B
End If
Loop
End
من وقتی عدد 1 رو میفرستم عدد 65 روی lcd نشون میده و وقتی در گیرنده lcd پاک شد و دوباره میفرستم عدد 1 نشون داده میشه.وقتی عدد 2 رو میفرستم عدد66 رو نشون میده و همین طور به ترتیب وقتی عدد 7 رو میفرستم عدد 71 رو رویlcd نشون میده.
به نظرتون باید چه تغییری در برنامم بدم؟؟
ممنون میشم
۲۴-خرداد-۱۳۹۰, ۰۷:۱۳:۲۹
کسی نمی تونه جواب منو بده؟
به نظرتون مشکل کجاست؟
چرا وقتی میخوام عدد 1 رو بفرستم عدد 65 رو میفرسته؟
ممنون میشم
به نظرتون مشکل کجاست؟
چرا وقتی میخوام عدد 1 رو بفرستم عدد 65 رو میفرسته؟
ممنون میشم
۲۴-خرداد-۱۳۹۰, ۱۱:۵۴:۴۲
سلام
شما بجای پورت A از یه پورت دیگه استفاده کن ببین درست میشه یا نه ...
------------------------------------------------------------------------------
همانا صبورترین شما در برابر بلاها , زاهدترین شماست (امام کاظم (ع))
شما بجای پورت A از یه پورت دیگه استفاده کن ببین درست میشه یا نه ...
------------------------------------------------------------------------------
همانا صبورترین شما در برابر بلاها , زاهدترین شماست (امام کاظم (ع))
۲۴-خرداد-۱۳۹۰, ۱۳:۱۹:۱۸
خب اگه اینجوریه 64 تا ازش کم کن
۲۴-خرداد-۱۳۹۰, ۱۹:۳۶:۳۲
سلام
من از زبان بیسیک چیزی سر در نمیارم
از اول با سی و کد ویژن شروع کردم
ممکنه کسی لطف کنه و این مقاله را به سی هم یاد بده
ممنون
من از زبان بیسیک چیزی سر در نمیارم
از اول با سی و کد ویژن شروع کردم
ممکنه کسی لطف کنه و این مقاله را به سی هم یاد بده
ممنون
۲۶-خرداد-۱۳۹۰, ۲۳:۴۹:۴۴
دوست عزیز شما احتمالا از ماژول های 315mhz استفاده میکنید منم همین مشکل رو داشتم کا تونستم رفع کنم خیلی ساده است و خرجی هم نداره
اول یه اس ام اس بزنید و موزوع کارتون روبنویسید و بعد از 3 دقیقه زنگ بزنید تا کمکتون کنم 09354992570
هرکی تو وصل کردن ماژول های 315mhz مشکل داره اس ام اس بده تا کمکش کنم09354992570
اول یه اس ام اس بزنید و موزوع کارتون روبنویسید و بعد از 3 دقیقه زنگ بزنید تا کمکتون کنم 09354992570
هرکی تو وصل کردن ماژول های 315mhz مشکل داره اس ام اس بده تا کمکش کنم09354992570
۲۷-خرداد-۱۳۹۰, ۱۱:۴۵:۴۴
دوست عزیز سلام
شما لطف بزرگی در حق کاربر ها میکنین ولی اگر ممکن هست اطلاعاتتون رو در همین جا به اشتراک بگذارین تا مکتوب باقی بمونه و کاربر های دیگه که همین مشکلات رو دارن سریع به حل مشکلشون برسن و وقت شما رو نگیرن
تشکر
شما لطف بزرگی در حق کاربر ها میکنین ولی اگر ممکن هست اطلاعاتتون رو در همین جا به اشتراک بگذارین تا مکتوب باقی بمونه و کاربر های دیگه که همین مشکلات رو دارن سریع به حل مشکلشون برسن و وقت شما رو نگیرن
تشکر
۲۷-خرداد-۱۳۹۰, ۲۲:۰۲:۰۶
آقا واسه زبون نفهمی من هم یه کاری بکنید .
من بیسیک بلد نیستم .
کسی نمیتونه استفاده از rs232 را به زبان سی یادم بده .
خواهش میکنم دوستان .
من بیسیک بلد نیستم .
کسی نمیتونه استفاده از rs232 را به زبان سی یادم بده .
خواهش میکنم دوستان .