اطلاعیه

Collapse
No announcement yet.

فعال سازی وقفه پورت سریال در VB

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    فعال سازی وقفه پورت سریال در VB

    سلام
    دوستان من توی VB زیاد مهارت ندارم و چندتا سوال برام پیش اومده
    1-چطور میشه وقفه پورت سریال رو توی ویژال بیسیک فعال کرد ( دوستان توضیحات خواهشا کامل باشه + صفر کیلومترم ) :redface:
    2- اطلاعات خونده شده از ورودی رو چطور توی یه ارایه از نوع بایت یا اینتجر ذخیره کنم و روی TEXT نمایش بدم ؟ ؟ ؟
    برچسب ها: پورت, در, سازی, سریال, فعال, وقفه
    #2
    پاسخ : فعال سازی وقفه پورت سریال در VB

    با سلام
    توی مجله Pmm 1 صفحه 24 هستش.
    http://www.iranmicro.ir/category/book/persianmicrocontrollermagazine/page/4
    یادش بخیر یه وقتایی هر روز میومدم اینجا !

    دیدگاه

      #3
      پاسخ : فعال سازی وقفه پورت سریال در VB

      سلام
      من منظورم از سوال این بود که ایا دستوری وجود داره که بتونه مثل اینتراپت avr وقتی بافر داده از ورودی سریال داده دریافت کرد وقفه رخ بده و به زیر روال مربوطه بره ؟ ؟؟
      مطالب مجله زیاد کارم و راه ننداخت در ضمن اگه کتابی سراغ دارید که در رابطه با پورت سریال و کلا ویژال بیسیک هست دریغ نکنید .. ... .. .

      دیدگاه

        #4
        پاسخ : فعال سازی وقفه پورت سریال در VB

        سلام دوست عزیز
        از کد زیر استفاده کن

        Private Sub Form_Load()
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.RThreshold = 45
        MSComm1.InputLen = 45
        End Sub
        Private Sub MSComm1_OnComm()
        Select Case MSComm1.CommEvent
        Case comEvReceive
        buf = MSComm1.Input

        End Select
        End Sub
        هر گاه خداوند تو را به لبه پرتگاه هدایت کرد به خدا اطمینان کن،یا تو را از پشت خواهد گرفت یا به تو پرواز کردن خواهد آموخت.

        دیدگاه

          #5
          پاسخ : فعال سازی وقفه پورت سریال در VB

          دوست عزیز جواب نمیده منظورم اینه که چیزی روی text1 نشون داده نمیشه این برنامه من هست ......

          Option Explicit
          Dim a As Byte
          Dim x As Byte
          Private Sub MSComm_OnComm()
          Select Case MSComm1.CommEvent
          Case comEvReceive
          buf = MSComm1.Input
          Text1.Text = MSComm1.Input
          End Select

          End Sub

          Private Sub Command_Click()
          End
          End Sub

          Private Sub Command1_Click()
          MSComm1.Output = Text2.Text
          End Sub

          Private Sub Form_Load()
          MSComm1.Settings = "9600,N,8,1"
          MSComm1.RThreshold = 45
          MSComm1.InputLen = 45
          End Sub

          دیدگاه

            #6
            پاسخ : فعال سازی وقفه پورت سریال در VB

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

            دیدگاه

              #7
              پاسخ : فعال سازی وقفه پورت سریال در VB

              مقاله زیر به طور کامل به این موضوع پرداخته است :

              http://www.4shared.com/file/5F3BpaY6/serialC.html




              دیدگاه

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