اطلاعیه

Collapse
No announcement yet.

راهنمایی در مورد ارتباط سریال( Rs232)

Collapse
X
Collapse
 
  • صفحه of 6
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 3 4 5 6 template بعدی
    #46
    پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

    این هم برنامه سمت کامپویتر با VB6 :angry: :angry:
    Private Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
    HScroll1.Value = 0
    MSComm1.Settings = "9600,n,8,1"
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    MSComm1.PortOpen = False
    End Sub

    Private Sub HScroll1_Change()
    text1 = HScroll1.Value
    MSComm1.Output = text1.Text
    End Sub


    Private Sub HScroll1_Scroll()
    text1 = HScroll1.Value
    MSComm1.Output = text1.Text
    End Sub
    معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
    اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
    آموزش Modelsim

    دیدگاه

      #47
      پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

      خوب
      2 3 تا کاره باید تست کنی
      نمیدونم چی به چیه ولی بازم من راه خودمو میرم
      1 pwm میکرو رو چک کن از کل سیستم یوزارت و pc جداش کم 4 5 تا مقدار به pwm بده
      ببین سیستم میکرو درست کار میکنه
      2
      ببین دیتا شما از pc به درستی به میکرو ارسال میشه
      3 چی میفرستی ؟
      استرینگ؟
      یا یک کاراکتر
      البته فکر کنم استرینگه چون txt1 رو ارسال میکنی !!
      مبدل max232
      درست کار میکنه ؟
      [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

      دیدگاه

        #48
        پاسخ : راهنما در مورد ارتباط سرال( Rs232)

        نوشته اصلی توسط حامد رحم
        خوب
        2 3 تا کاره باد تست کن
        نمدونم چ به چه ول بازم من راه خودمو مرم
        1 pwm مکرو رو چک کن از کل سستم وزارت و pc جداش کم 4 5 تا مقدار به pwm بده
        ببن سستم مکرو درست کار مکنه
        2
        ببن دتا شما از pc به درست به مکرو ارسال مشه
        3 چ مفرست ؟
        استرنگ؟
        ا ک کاراکتر
        البته فکر کنم استرنگه چون txt1 رو ارسال مکن !!
        مبدل max232
        درست کار مکنه ؟
        ببخشید که دیر جواب دادم به اینترنت دسترسی نداشتم
        اقا رحیمی ممنون که راهنمایی می کنید
        موردو را قبلا تست کردم درسته مورد هم من text1.textرا ارسال می کنم و فکرکنم کن string باشه حالا نمی دونم ایراد از کجاست من ledروشن می کنم با سریال ولی نمی تونم نورش را تغییر بدم
        معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
        اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
        آموزش Modelsim

        دیدگاه

          #49
          پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

          سلام دوباره خدمت دوستان گرامی
          این داستان کارکردن ما باپورت سریال به عید خورد و متوقف شده بود و الان دوباره نشستم پاش ولی هنوز مشکلاتم حل نشده از دوستان خواهش می کنم بنده را راهنمایی کنید
          برای برنامه سمت میکرو عبارت ''=S را در یک مثالی دیدم و علت گذاشتنش را نمی دونم
          می خواهم توسط Scroll نور LED را کم وزیاد کنم ولی از همان اولش نورش زیاد وثابته :angry: :angry: :angry: :angry:
          برنامه VB هم در ادامه گذاشتم
          کد:
          $regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Portd = Output
Config Timer0 = Timer , Prescale = 1
Dim Receive As Byte , G As Byte
Dim S As String * 20
Dim P As Byte
S = ""
G = 0
'----------------------------------------
Enable Interrupts
Enable Ovf0
Enable Urxc
On Ovf0 Makepwm
On Urxc Lable
Stop Timer0
Start Timer0
G = 0
'-------------------------------------
Do
Enable Serial
Loop
'----------------------------------
Lable:
P = Val(s)
S = ""
Return
'-----------------------------------
Makepwm:
If P = 255 Then P = 0
If P = G Then Set Portd.5
If P < G Then Reset Portd.5
Incr P
Return
          این هم برنامه VB
          کد:
          Private Sub Form_Load()
 MSComm1.CommPort = 1
 MSComm1.PortOpen = True
 HScroll1.Value = 0
 MSComm1.Settings = "9600,n,8,1"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Sub HScroll1_Change()
 text1 = HScroll1.Value
 MSComm1.Output = text1.Text
' MSComm1.Output = Chr$(10)
End Sub


Private Sub HScroll1_Scroll()
 text1 = HScroll1.Value
 MSComm1.Output = text1.Text
 MSComm1.Output = Chr$(10)
End Sub
          معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
          اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
          آموزش Modelsim

          دیدگاه

            #50
            پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

            کسی نظری نداره :cry2: :cry2: :cry2: :cry2: :angry: :angry: :angry: :cry2: :cry2: :cry2:
            معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
            اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
            آموزش Modelsim

            دیدگاه

              #51
              پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

              درود
              دوست عزیز نمیدونم برنامه و مدارت رو چطوری تست میکنی
              پیشنهاد میکنم مرحله به مرحله انجام بده و زمانیکه از هر کدام به طور جداگانه جواب گرفتی ، کل مدار رو تست کن
              به طور مثال :
              1- مقدار تغییرات scroll رو داخل یک textbox بریز و تغییرات رو ببین
              2- در سمت میکرو از lcd استفاده کن و ارتباط سریال رو چک کن
              3- در میکرو pwm رو تعریف و نور led رو تغییر بده
              4- . . .
              سپس
              1- مقدار تغییرات scroll رو از طریق ارتباط سریال به میکرو بفرست و با lcd درست بودن مقادیر رو چک کن
              2- بازه تغییرات scroll رو به 0 تا 255 تبدیل و برابر با مقدار pwm قرار بده
              حالا کل مدار رو تست کن
              در روزگاری که لبخند آدم ها بخاطر شکست توست برخیز تا بگریزند. کورش کبیر
              شاد بودن، تنها انتقامی است که میتوان از زندگی گرفت. ارنستو چه گوارا

              دیدگاه

                #52
                پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                نوشته اصلی توسط پویا تیموریان
                درود
                دوست عزیز نمیدونم برنامه و مدارت رو چطوری تست میکنی
                پیشنهاد میکنم مرحله به مرحله انجام بده و زمانیکه از هر کدام به طور جداگانه جواب گرفتی ، کل مدار رو تست کن
                به طور مثال :
                1- مقدار تغییرات scroll رو داخل یک textbox بریز و تغییرات رو ببین
                2- در سمت میکرو از lcd استفاده کن و ارتباط سریال رو چک کن
                3- در میکرو pwm رو تعریف و نور led رو تغییر بده
                4- . . .
                سپس
                1- مقدار تغییرات scroll رو از طریق ارتباط سریال به میکرو بفرست و با lcd درست بودن مقادیر رو چک کن
                2- بازه تغییرات scroll رو به 0 تا 255 تبدیل و برابر با مقدار pwm قرار بده
                حالا کل مدار رو تست کن
                ممنون از راهنمایتان
                من مورد 1و3 را انجام داده ام هرچه هست برمی گرده به اینکه از طرف کامپیوتر که رشته می یاد به عدد تبدیل می شه یا نه که باید برم سراغ LCD
                معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                آموزش Modelsim

                دیدگاه

                  #53
                  پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                  یکی از ایراد ها را پیدا کردم ولی نمی دونم چرا برنامه ساخت PWM با تایمر صفرم جواب نمی ده دوستان یک نگاهی بکنند
                  کد:
                  $regfile = "m32def.dat"
$crystal = 8000000

Config Portd = Output
Config Timer0 = Timer , Prescale = 1
Dim P As Long
Dim B As Long

Enable Interrupts
Enable Int0
Enable Ovf0
On Ovf0 Makepwm

Start Timer0
'-------------------------------------------
Do
B = 100
Loop
End
'-------------------------------------------
Makepwm:
B = 100
If P = 255 Then P = 0
 If P = B Then Set Portd.6
 If P < B Then Reset Portd.6
Incr P
Return
                  معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                  اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                  آموزش Modelsim

                  دیدگاه

                    #54
                    پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                    نوشته اصلی توسط skiboys
                    بچه ها کسی راهنمایی نمی کنه :twisted:
                    آخر من نفهمیدم فرمت اطلاعاتی که تز کامپیوتر به میرو فرستاده می شه چیه؟ :eek:
                    برعکس چی من نمیتونم به هگز یا باینری اطلاعات را از میکرو به کامگیوتر بفرستم یا اینکه باید حواسم باشه که اسکی آن چی میشه بعد بفرستم
                    آیا این برنامه من حداقل نباید ی چیزی تو ترمینال نشون می داد
                    کسی یه برنامه با BAscom برای ارتباط سریال برای نمونه میگذاره oo: :angry: تا مشکل من رفع شه :angry: :angry:
                    شما باید اول عددتون رو به رشته تبدیل کنید، تو زبان بیسیک فکر کنم دستور format این کار رو بکنه.
                    تقدیر تقویم انسانهای عادی ، تغییر تدبیر انسانهای عالیست.

                    دیدگاه

                      #55
                      پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                      من برنامه شما را در پروتئوس تست کردم مشکلی نداشت کار میکنه

                      دیدگاه

                        #56
                        پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                        نوشته اصلی توسط mohammad_6910
                        شما باید اول عددتون رو به رشته تبدیل کنید، تو زبان بیسیک فکر کنم دستور format این کار رو بکنه.
                        سلام دوست عزیز مگه الان فرمتش رشته نیست ؟ پس چیه؟ :eek:
                        الان گیر این برنامه ساخت PWM باتایمر صفرم نمی دونم چرا جواب نمی ده :angry: :angry:
                        معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                        اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                        آموزش Modelsim

                        دیدگاه

                          #57
                          پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                          نوشته اصلی توسط زوار
                          من برنامه شما را در پروتئوس تست کردم مشکلی نداشت کار میکنه
                          اره جالبه توی پروتئوس جواب می ده منم تست کردم ، بعدش به مدار مشکوک شدم با یه برنامه دیگه تست کردم درسته،نمی دونم ایراد ازکجاست :angry:
                          معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                          اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                          آموزش Modelsim

                          دیدگاه

                            #58
                            پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                            برنامه را به صورت زیر تغییر دادم PULL UP داخلی هم اضافه کردم ولی رووووشن نمی شه :cry2: :cry2: :angry: :angry: :eek: :eek:
                            کد:
                            $regfile = "m32def.dat"
$crystal = 8000000

Config Portd = Output
Config Timer0 = Timer , Prescale = 1

Ddrd.6 = 1

Enable Interrupts
Enable Int0
Enable Ovf0
On Ovf0 Makepwm

Start Timer0
'-------------------------------------------
Do

Loop
End
'-------------------------------------------
Makepwm:
Ddrd.6 = 1
Portd.6 = 1
Return
                            معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                            اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                            آموزش Modelsim

                            دیدگاه

                              #59
                              پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                              دوستان نظری ندارید نمی دونم چرا این طوری هستش انگار روتین اینتراپت اجرا نمی شه ولی من وقتی میام از PWM تایمر 1داخل روتین اینتراپت صفر استفاده می کنم جواب می ده :angry: :angry: :angry:
                              به برنامه زیر نگاه کنید
                              کد:
                              $regfile = "m32def.dat"
$crystal = 8000000
Config Portd = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear down , Prescale = 256
Config Timer0 = Timer , Prescale = 1024
Dim P As Word
Enable Interrupts
Enable Ovf0
On Ovf0 Makepwm
Stop Timer0
Start Timer0
Do

Loop
End

Makepwm:
If P = 255 Then P = 0
Pwm1a = P

Incr P
Return
                              معجزه این است که هرچه داشته هایت را بیشتر با دیگران سهیم شوی،داراتر می شوی (لئونارد نیموی)
                              اگر مغزانسان،چنان ساده می بود که ما از آن سر در می آوردیم،هنوز چنان احمق بودیم که هیچ از آن سر در نمی آوردیم!
                              آموزش Modelsim

                              دیدگاه

                                #60
                                پاسخ : راهنمایی در مورد ارتباط سریال( Rs232)

                                نوشته اصلی توسط skiboys
                                سلام دوست عزیز مگه الان فرمتش رشته نیست ؟ پس چیه؟ :eek:
                                الان گیر این برنامه ساخت PWM باتایمر صفرم نمی دونم چرا جواب نمی ده :angry: :angry:
                                نه، شما متغیر sumتون از نوع عدده، اول باید به رشته تبدل کنید که بتونید به پورت سریال یا lcd ارسال کنید، مثل مثال زیر:
                                B = Format(a , "000&quot
                                Home
                                Lcd "Level: " ; B
                                تقدیر تقویم انسانهای عادی ، تغییر تدبیر انسانهای عالیست.

                                دیدگاه

                                قبلی 1 2 3 4 5 6 template بعدی
                                لطفا صبر کنید...
                                X