مشکل برنامه نویسی در vb لطفا کمکم کنید

[galaxyking]

سلام
من ساده ترین برنامه کار با پورت سریالو نوشتم ولی به exe تبدیل نمیشه و ارور میده :angry:
من یه دکمه دارم که اگه زده بشه یه رقمی به پورت سریال میره
ولی اگه تو این دستور
()Private Sub Command1_Click
به جای command1 اسم همون کلیدی رو که گذاشتم بذارم با این پیغام روبه رو میشم
compile error
procedure declaration does not match description of event or procedure having the same name
ولی اگه commandکه گذاشتم با اون هم اسم نباشن ارور نمیده و بهexe هم تبدیل میشه oo:
لطفا هر کی هر چی در این باره میدونه کمک کنه :redface:

[SAJAD-G]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام، میشه یکم بیشتر توضیح بدی؟ یا کدتو بزاری؟ یا هر دو؟

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
این برنامه داخل vb هستش
Option Explicit

Dim s As Byte
Dim x As Byte
Dim w As Byte

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
End Sub

Private Sub Text_Change()
s = MSComm1.Input
Text.Text = s
End Sub
Private Sub Command1_Click()
MSComm1.Output = "w"
Text1.Text = "w"
End Sub

Private Sub Command2_Click()
MSComm1.Output = "x"
Text1.Text = "x"
End Sub


تو این برنامه 2 تا کلی هستند که هر کدومو که میزنی باید یه چیزی به خروجی بفرستند

[SAJAD-G]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

اسم کلیدتو تو مشخصه Name الان command1 باید باشه، اگه بخوای به جای command1 یه اسم دیگه بزاری، Name رو باید اول عوض کنی. این کارو کردی؟

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
ممنون که جواب میدین
آره من تو قسمت name همون command1 و command2 رو نوشتم نمیدونم واسه چی ارور میده

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

اگه لطف کنید برنام رو برام بنویسید و بفرستید
فکر میکنم یکسری از ابهامات برطرف بشه
چون این اولین برنامه من هستش خیلی مشکل دارم
اگر کسی فایل آمادشو upload کنه که دیگه ترکونده

کل برنامه قراره این کارارو بکنه
1 با فشار دادن یک دکمه عدد 1 به پورت سریال بره
2 با فشار دادن یک دکمه عدد 0 به پورت سریال بره

3 هر کدوم از عددها هم که قراره به سریال بره توی یه تکست نشون داده بشه
4 و هر عددی که به پورت سریال اومد روی یه تکست دیگه نمایش داده بشه

ممنون میشم اگه کمکم کنید

[jn_1983]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
دوست عزیز برنامه شما مشکلی به لحاظ کد نویسی نداره!!
ولی بهتره یه پروژه دیگه باز کنی!! بعد همین کد ها رو با توجه به کلیدهایی که درست میکنی توی رویدادهاش قرار بده!!
جناب سجاد درست میگه!! باید اسم ها یکی باشه!!
این ارور فقط بخاطر همین عدم تطابق اسم کلیدها با کد موجود در برنامه میباشد.

در ضمن سعی کن در حین دریافت اطلاعات از سریال در vb از متغیر string استفاده کنی!!در ضمن رویداد text_change برای اینکاری که گذاشتی مناسب نیست!! در vb برای دریافت اطلاعات از سریال انتراپتی وجود نداره پس برای این کار یه تایمر با زمان 100 میلی بذار که بره محتوای ورودی سریال رو بخونه و در تکست باکست نمایش بده!!

وگرنه برنامه نویسیت نقصی نداره!! کار خاصی نمیخاد!!

[balabe]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
اینم لینک فایل exe می تونی از اینجا دانلودش کنی
http://www.4shared.com/file/ni4607KZ/RS232.html

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
با تشکر فراوان از همتون
مشکل من بی تجربگی بود که حل شد
اونم با مساعدت دوستان
موقع اوردن command ها من اسم نمی دادم و خودش اسم واسشون انتخاب میکرد که من هم توجه نمی کردم
و فقط اون قسمت name رو command 1 یا 2 می ذاشتم
در صورتی که اسمی که تو برنامه انتخاب شده بود همون command1 یا 2 بود ولی جلوشون تو پرانتز عدد0 و 1 نوشته شده بود
بازم از همتون ممنونم
در مورد اون تایمر که گفتی یه مقاله پیدا کردم که حتما اونو انجام میدم و با میکرو هم تست میکنم اگه مشکلی نبود به عنوان یه پروژه در سطح ابتدایی میذارم تا هر کس خواست استفاده کنه

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام
همونطور که گفتم مشکل قبلیم حل شد حالا یه مشکل دیگه
من توی vb نوشتم که هرچی توی text نوشتم به میکرو بره و روی lcd نشونش بده ولی روی lcd یه سری عدد نشون میده
کد vb :
Option Explicit

Dim A As Byte

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub stc_Click()
MSComm1.Output = Text.Text
End Sub

Private Sub Timer_Timer()
If A = 0 Then
Text1.Text = MSComm1.Input
A = 1
ElseIf A = 1 Then
Text1.Text = vbNewLine + MSComm1.Input
End If
End Sub

و برنامه میکرو :
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600

Enable Interrupts
Enable Urxc
On Urxc Data_received

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pinc.5 , E = Pinc.4

Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input
Config Pind.7 = Input
Config Pinb.0 = Output

Dim X As Integer

Print "plase wait"
Wait 2

Do
Cls
Locate 1 , 1
Lcd "shoru"

If Pind.4 = 0 Then
Print "Pind.4 = 0"

Elseif Pind.5 = 0 Then
Print "Pind.5 = 0"

Elseif Pind.6 = 0 Then
Print "Pind.6 = 0"

Elseif Pind.7 = 0 Then
Print "Pind.7 = 0"

Else
Cls
Locate 2 , 1
Lcd "No Button"
End If
Loop
End

Data_received:
X = Udr
Cls
Locate 1 , 1
Lcd X
Toggle Portb.0
Wait 1
Cls

Return

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام به همه دوستان
من یه چیزی فهمیدم شاید بتونه کمک کنه هر چی که من تو تکست برنامه vb مینویسم به عنوان کاراکتر اسکی هستش و
اون شماره ای که توی lcd میبینم دسیمال همون کده :applause:
حالا چکار کنم که اولا از vb به صورت دسیمال بفرسته یا اینکه میکرو دقیقا همون کاراکتر رو نشونم بده
راستی اگه بخوام یه کلمه بفرستم باید چکار کنم :cry2:

[jn_1983]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

برای اینکه کاراکتر اسکی یک حرف رو بفرستی باید از دستور Chr() استفاده کنی!!

اگه بخوای خود کاراکتر رو بصورت کد اسکی ارسال کنی باید از دستور asc() استفاده کنی!!

اگه بخوای یه جمله رو بفرستی باید اون جمله رو در یک متغیر از نوع String بنویسی و ارسال کنی!! فقط توی برنامه میکرو یادت باشه که برای هر نوع ارسال که به میکرو میکنی تو میکرو کد تبدیلش رو بنویسی!! مثلا اگر از دستور asc() استفاده میکنی اونور (تو میکرو) باید از تبدیل کد به کاراکتر استفاده کنی!!

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام این سوالمو ظاهرا باید تو این پست میذاشتم


سلام بیخیال eeprom
من یه برنامه vb دارم که قبلا با آیسی max232 ارتباط برقرار میکردم ولی وقتی ft232 رو میزنم شماره پورت کام تغییر میکنه
چطور تو برنامه vb تعریف کنم که می خوام با کدوم پورت کار کنم
مثلا یه منو کشویی باشه که من پورت مورد نظرمو انتخاب کنم یا یدونه فیلد باشه که بشه توش بنویسی که می خوای با کدوم پورت کار کنی
تو رو خدااین یکیو جواب بدین
بازم ممنون

[ehsanarn]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام دوست عزیز
یک تکس باکس یا کمبو باکس بزار که بشه اعداد را وارد کنی یا انتخاب کنی و با دستور
MSComm1.CommPort = 1میتونی شماره پورت را انتخاب کنی

[galaxyking]

پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید

سلام احسان جان ممنون از اینکه راهنمایی کردی
ولی من کلا برنامه نویسی vb بلد نیستم میشه ببیشتر توضیح بدی
من یه دونه combo box گذاشتم
که تو قسمت کد این اضافه شد
Private Sub Combo1_Change()

End Sub

حالا باید اون وسط چی بنویسم که پورتها رو تغییر بده