ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 10 از 10
Like Tree1Likes
  • 1 Post By mr.holmes

موضوع: پردازش متن (فوری)

  1. #1
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0

    پردازش متن (فوری)

    باسلام
    دوستان من میخوام یه برنامه بنویسم که فایل نوت مثل شکل زیر به برنامه بدم
    بعد برنامه بیاد هر خط رو جدا کنه
    بعد از جدا کردن هر خط بیاد مقدار x,y که در هر خط وجود داره رو به طور جداگانه و با فرمانی که از پورت سریال دریافت میکنه بده به خروجی پورت کام
    موضوع اینه که میخوام یه دستگاه سی ان سی بسازم
    این فایل نوت هم مختصات نقاطی هست که دستگاه سی ان سی باید اوجا هارو سوراخکاری کنه
    حالا منم میخوام درکل مقدار های x,y رو جدا کنه و تک تک بفرسته به پورت سریال
    منم با ویژوال بیسیک هیچ اشنایی ندارم
    میخوام ببینم اگه این کار شدنی هست و میشه این برنامه رو مثل یه نرم افزار EXE دراوارد
    که برم دنبالش و یاد بگیرم
    لطفا دوستان کمک کنن
    ممنون
    X443Y783D03*
    X547Y781D03*
    X363Y787D03*
    X368Y858D03*
    X453D03*
    X547Y857D03*
  2. #2
    mr.holmes
    مدیر بخش
    تاریخ عضویت
    2012 Mar
    نوشته ها
    46
    21
    44
    سلام
    بله میشه باید از یک کامپوننتی بنام MSComm استفاده کنید. البته من زیاد با ساختار ارتباط با دستگاه های سی ان سی آشنایی ندارم ولی اگه خواستید در مورد شیوه ارتباط (که اگه اشتباه نکنم rs232 باشه) و هم در مورد بایت های ارسالی (همون مختصات) یکم بیشتر توضیح بدید تا اگه تونستم کمکی کنم.
    اینم یه نمونه سورس خیلی خیلی ساده که برای ارتباط به یه com port حالا به هر طریقی (rs232 , ...) و ارسال بایت به اون پورته.
    شما احتمالا باید یه همچین کدی داشته باشین تا بتونین با cnc ارتباط برقرار کنید.



    Private Sub cmdSend_Click()
    Dim strNCLink As String
    Me.txtCustomer.SetFocus
    strNCLink = "C:\Foldername\" & Me.txtCustomer.Text & "\" & Me.NCName
    On Error GoTo Hell
    Open strNCLink For Input As #1
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    Do While Not EOF(1)
    Line Input #1, Rec
    CharSent = CharSent + Len(Rec)
    MSComm1.Output = Rec & vbCrLf
    lblBytes.Caption = CharSent & " bytes"
    DoEvents
    Loop
    Hell:
    On Error Resume Next
    Close
    MSComm1.PortOpen = False
    MsgBox "Oh, crap. Something bad just happened...", vbCritical, "Error Hit While Transferring"
    End Sub



    با احترام
    Mr.Holmes
    mtz689 likes this.
    If at first you don’t succeed, call it version 1.0
  3. 2
  4. #3
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0
    نقل قول نوشته اصلی توسط mr.holmes [برای نمایش لینک باید عضو شوید. ]
    سلام
    بله میشه باید از یک کامپوننتی بنام MSComm استفاده کنید. البته من زیاد با ساختار ارتباط با دستگاه های سی ان سی آشنایی ندارم ولی اگه خواستید در مورد شیوه ارتباط (که اگه اشتباه نکنم rs232 باشه) و هم در مورد بایت های ارسالی (همون مختصات) یکم بیشتر توضیح بدید تا اگه تونستم کمکی کنم.
    اینم یه نمونه سورس خیلی خیلی ساده که برای ارتباط به یه com port حالا به هر طریقی (rs232 , ...) و ارسال بایت به اون پورته.
    شما احتمالا باید یه همچین کدی داشته باشین تا بتونین با cnc ارتباط برقرار کنید.



    Private Sub cmdSend_Click()
    Dim strNCLink As String
    Me.txtCustomer.SetFocus
    strNCLink = "C:\Foldername\" & Me.txtCustomer.Text & "\" & Me.NCName
    On Error GoTo Hell
    Open strNCLink For Input As #1
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    Do While Not EOF(1)
    Line Input #1, Rec
    CharSent = CharSent + Len(Rec)
    MSComm1.Output = Rec & vbCrLf
    lblBytes.Caption = CharSent & " bytes"
    DoEvents
    Loop
    Hell:
    On Error Resume Next
    Close
    MSComm1.PortOpen = False
    MsgBox "Oh, crap. Something bad just happened...", vbCritical, "Error Hit While Transferring"
    End Sub



    با احترام
    Mr.Holmes
    اقا ممنون که جواب دادای
    راستش من اشنایی ندارم با ویژوال
    این برنامه هم که میخوام خیلی ساده هست
    فکر نکنم برای شما دوست عزیز نوشتنش از 5 دقیقه بیشتر وقت بگیره
    شرح برنامه:
    میخوام یه فایل نوت بدم به نرم افزار اون هم با پیامی که از پورت سریال(rs232) دریافت میکنه(هر پیامی مثلا:A)بیاد خط اول بده به خروجی(به صورت string)و باز منتظر بمونه تا پیام رو دوباره دریافت کنه و اینبار خط دوم رو بفرسته و به همین ترتیب با دریافت هر پیام یک خط رو بده به خروجی.
    برای تنضیمات پورت سریال هم : Baud=9600وDataBits=8
    هیچ چیز اضافی دیگه ای هم نمیخوام
    حالا دوست عزیز امکانش هست این برنامه رو زحمتش رو بکشی و در قالب exe بهم بدی؟؟!!!
  5. #4
    mr.holmes
    مدیر بخش
    تاریخ عضویت
    2012 Mar
    نوشته ها
    46
    21
    44
    بفرمایید اینم یه نمونه (فقط قبل از اجرا اطلاعات فایل ZBAComm.ini مربوط به قسمت par5 را که همان پورتی است که سی ان سی به پی سی وصل شده رو تصحیح کنید)

    par5=Port

    par4=Baud
    par2=Databits



    راستی این برنامه رو سورسشو دارم فقط کانکت میشه و اطلاعاتی رو که از طرف سی ان سی میاد نشون میده.

    Warning ولی باز بهتره حواستون به دستگاه باشه



    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: zip mtz689.zip (66.1 کیلو بایت, این فایل 7 مرتبه دانلود شده است )
    If at first you don’t succeed, call it version 1.0
  6. 1
  7. #5
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0
    نقل قول نوشته اصلی توسط mr.holmes [برای نمایش لینک باید عضو شوید. ]
    بفرمایید اینم یه نمونه (فقط قبل از اجرا اطلاعات فایل ZBAComm.ini مربوط به قسمت par5 را که همان پورتی است که سی ان سی به پی سی وصل شده رو تصحیح کنید)

    par5=Port

    par4=Baud
    par2=Databits



    راستی این برنامه رو سورسشو دارم فقط کانکت میشه و اطلاعاتی رو که از طرف سی ان سی میاد نشون میده.

    Warning ولی باز بهتره حواستون به دستگاه باشه



    دوست عزیز موقع باز کردن برنامه این ارور رو میده!!!
    run-time error:'429':
    activeX component can't ceat object
    مشکل کجاست؟
  8. #6
    mr.holmes
    مدیر بخش
    تاریخ عضویت
    2012 Mar
    نوشته ها
    46
    21
    44
    ببخشید
    این فایل رو تو پوشه برنامه کپی کنید بعد با run as administrator اجراش کنید ببینید درست میشه؟
    فایل های ضمیمه فایل های ضمیمه
    • نوع فایل: zip i.zip (298 بایت, این فایل 3 مرتبه دانلود شده است )
    ویرایش توسط mr.holmes : 2014-03-09 در ساعت 05:04 PM
    If at first you don’t succeed, call it version 1.0
  9. 1
  10. #7
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0
    نقل قول نوشته اصلی توسط mr.holmes [برای نمایش لینک باید عضو شوید. ]
    ببخشید
    این فایل رو تو پوشه برنامه کپی کنید بعد با run as administrator اجراش کنید ببینید درست میشه؟
    اقا دستت درد نکنه
    اجرا شد
    کار هم میکنه
    فقط موندم این فایل نوت (مختصات هارو) رو کجاش کپی کنم تا خط به خط با دریافت هر پیام ارسال کنه؟؟؟؟
  11. #8
    mr.holmes
    مدیر بخش
    تاریخ عضویت
    2012 Mar
    نوشته ها
    46
    21
    44
    خوب حالا اون اطلاعاتو که میفرسته بمن میدین؟ تا من یه جواب برای هرکدام درست کنم
    If at first you don’t succeed, call it version 1.0
  12. #9
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0
    نقل قول نوشته اصلی توسط mr.holmes [برای نمایش لینک باید عضو شوید. ]
    خوب حالا اون اطلاعاتو که میفرسته بمن میدین؟ تا من یه جواب برای هرکدام درست کنم
    کدوم اطلاعات؟
    اگه منظورت اطلاعاتی هست که از طرف سی ان سی میاد هر چی دلم بخواد میتونم بزارم و اصلا مهم نیست
    فقط یه چیزی سی ان سی ارسال میکنه که به نرم افزار شما بفهمونه خط بعدی مختصات رو براش بفرسته
    راستی داداش اگه ای دی یاهو داری بده که چت کنیم(اینطوری بهتره)
    یا هم ای دی مارو ادد کن mtz689
  13. #10
    mtz689
    كاربر عادي
    تاریخ عضویت
    2014 Mar
    نوشته ها
    9
    1
    0
    کسی تو این انجمن نیست؟
نمایش نتایج: از 1 به 10 از 10

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2