اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

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

    سلام
    من ساده ترین برنامه کار با پورت سریالو نوشتم ولی به 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:
    با مردم همون جوری رفتار کن که دوست داری باهات رفتار کنن




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

    سلام، میشه یکم بیشتر توضیح بدی؟ یا کدتو بزاری؟ یا هر دو؟
    ;()((void (*)(void))0x0000))

    دیدگاه


      #3
      پاسخ : مشکل برنامه نویسی در 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 تا کلی هستند که هر کدومو که میزنی باید یه چیزی به خروجی بفرستند
      با مردم همون جوری رفتار کن که دوست داری باهات رفتار کنن



      دیدگاه


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

        اسم کلیدتو تو مشخصه Name الان command1 باید باشه، اگه بخوای به جای command1 یه اسم دیگه بزاری، Name رو باید اول عوض کنی. این کارو کردی؟
        ;()((void (*)(void))0x0000))

        دیدگاه


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

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



          دیدگاه


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

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

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

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

            ممنون میشم اگه کمکم کنید
            با مردم همون جوری رفتار کن که دوست داری باهات رفتار کنن



            دیدگاه


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

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

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

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

              دیدگاه


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

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

                دیدگاه


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

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



                  دیدگاه


                    #10
                    پاسخ : مشکل برنامه نویسی در 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
                    با مردم همون جوری رفتار کن که دوست داری باهات رفتار کنن



                    دیدگاه


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

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



                      دیدگاه


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

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

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

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

                        دیدگاه


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

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


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



                          دیدگاه


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

                            سلام دوست عزیز
                            یک تکس باکس یا کمبو باکس بزار که بشه اعداد را وارد کنی یا انتخاب کنی و با دستور
                            MSComm1.CommPort = 1میتونی شماره پورت را انتخاب کنی
                            هر گاه خداوند تو را به لبه پرتگاه هدايت کرد به خدا اطمينان کن،يا تو را از پشت خواهد گرفت يا به تو پرواز کردن خواهد آموخت.

                            دیدگاه


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

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

                              End Sub

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



                              دیدگاه

                              لطفا صبر کنید...
                              X