۱۱-شهریور-۱۳۸۹, ۱۱:۴۲:۵۲
صفحهها: 1 2
۱۱-شهریور-۱۳۸۹, ۱۳:۲۷:۰۸
۱۱-شهریور-۱۳۸۹, ۱۵:۵۹:۴۷
مهندس من همه اینها رو دیدم اما من میخوام بدونم به چه شکلی میشه زمانی میکرو یک متنی رو ارسال میکنه اونو تو VB توی یک TEXT نمایش بده!
در ضمن من تونستم ارتباط اونو از طریق ویژوال بیسک برقرار کنم اما ارتباط من فقط یک طرفه هستش!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
لطفا کمکم کنید
در ضمن من تونستم ارتباط اونو از طریق ویژوال بیسک برقرار کنم اما ارتباط من فقط یک طرفه هستش!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
لطفا کمکم کنید
۱۱-شهریور-۱۳۸۹, ۲۲:۵۵:۳۵
خوب از میکرو به ویبی تو میکرو بنویس print"kimiafars"
توی وی بی هم اینو بنویس
text1.text=mscomm1.input
متنو میتونی تو وی بی مشاهده کنی
توی وی بی هم اینو بنویس
text1.text=mscomm1.input
متنو میتونی تو وی بی مشاهده کنی
۱۲-شهریور-۱۳۸۹, ۱۱:۰۰:۳۱
این کارم انجام دادم باز هم نشد
آیا تنظیمات خاصی رو باید انجام بدم؟
آیا تنظیمات خاصی رو باید انجام بدم؟
۱۲-شهریور-۱۳۸۹, ۱۲:۵۳:۴۲
اینو ببین مهندس مشکلش کجایه؟
۱۲-شهریور-۱۳۸۹, ۱۹:۱۴:۵۰
$crystal =8000000
بذار
Config Serialout
Recive = inkey()
برای فرستادن عدد با وی بی $chr(22)
کازکتز عدد رو بفرست بعدشم print debug بذاز
۱۲-شهریور-۱۳۸۹, ۱۹:۲۳:۱۸
خوب مهندس منظورت از print debug چیه؟
چیکار میکنه؟
در ضمن من میخوام که یک سری از اطلاعات را از میکرو تو VB نمایش بده منظورم اینه...
چیکار میکنه؟
در ضمن من میخوام که یک سری از اطلاعات را از میکرو تو VB نمایش بده منظورم اینه...
۱۲-شهریور-۱۳۸۹, ۱۹:۲۸:۱۹
اونو بیخیال شو اصلا چیزی تو تکست باکست نشون میده ؟
عزیزم اولا مهنس خودتی
همون کیمیا کافیه
بعدش با این کدی که نوشتی جوا نخواهی گرفت
یک بار پورتت رو باز کن دیگه نبندش
تو فرم لود
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
اینا رو بنویس
بعد یه تایمر با اینتر 11 درست کن این و توش بذار
Text1.Text = MSComm1.Input
دقیقا کا رمیکنه
بالاخره یه چیز مینویسه اگه اراجیف نوشت اونوقت مرحله دوم دیباگ شروع میشه
شما مخیای هی پورت رو باز میکنی و میبندی بعد توقع داری چی به وی بی برسه
بعد با تامر بگیر نه با چنج
عزیزم اولا مهنس خودتی
همون کیمیا کافیه
بعدش با این کدی که نوشتی جوا نخواهی گرفت
یک بار پورتت رو باز کن دیگه نبندش
تو فرم لود
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
اینا رو بنویس
بعد یه تایمر با اینتر 11 درست کن این و توش بذار
Text1.Text = MSComm1.Input
دقیقا کا رمیکنه
بالاخره یه چیز مینویسه اگه اراجیف نوشت اونوقت مرحله دوم دیباگ شروع میشه
شما مخیای هی پورت رو باز میکنی و میبندی بعد توقع داری چی به وی بی برسه
بعد با تامر بگیر نه با چنج
۱۲-شهریور-۱۳۸۹, ۱۹:۳۳:۲۷
(۱۱-شهریور-۱۳۸۹, ۱۱:۴۲:۵۲)arash67 نوشته است: [ -> ]با سلامبا جاوا مثل آب خوردنه(البته بعد افطار) یه نگاه بنداز :
من قصد یک سری اطلاعات را از پورت کام دریافت کنم و اونو داخل یک Text نمایش بده اما نمیدونم به چهشکلی باید این کارو انجام بدم لطفا منو راهنمایی کنید
با تشکر
http://www.iranled.com/forum/showthread.php?tid=18528
اگه چیزی از جاوا نمی دونی بگو پروژه چیه من قسمتی که قراره اطلاعات رو بخونه نشون بده رو درست می کنم واست!
۱۲-شهریور-۱۳۸۹, ۱۹:۳۴:۵۶
Private Sub Timer1_Timer()
Text1.Text = MSComm1.Input
End Sub
Private Sub Form_Load()
Dim Send As String * 10
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
پلتت رو بذار شاید بدرد بخوره
Text1.Text = MSComm1.Input
End Sub
Private Sub Form_Load()
Dim Send As String * 10
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
نقل قول: RE: برقراری ارتباط با COMعزیزم این سوال وی بی هست میخوای با جاوا جواب بدی کارت خیلی درسته
(ديروز ۱۰:۴۲:۵۲)
arash67 نوشته :
با سلام
من قصد یک سری اطلاعات را از پورت کام دریافت کنم و اونو داخل یک Text نمایش بده اما نمیدونم به چهشکلی باید این کارو انجام بدم لطفا منو راهنمایی کنید
با تشکر
با جاوا مثل آب خوردنه(البته بعد افطار) یه نگاه بنداز :
http://www.iranled.com/forum/showthread.php?tid=18528
اگه چیزی از جاوا نمی دونی بگو پروژه چیه من قسمتی که قراره اطلاعات رو بخونه نشون بده رو درست می کنم واست!
پلتت رو بذار شاید بدرد بخوره
صفحهها: 1 2