اطلاعیه

Collapse
No announcement yet.

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

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

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

    با سلام خدمت اساتید محترم.
    میخواستم بپرسم که آیا امکان داره یه چنین برنامهای با VB نوشت که بتونه نوشته های زیر رو از طریق یک تکست باکس بگیره و نوشته های بین AAAA تا BBBB رو که اضافی هستند رو حذف کنه و همچنین عبارات قبل و بعد از پرانتز را نیز حذف کنه و سپس اعداد داخل پرانتز را که بیانگر یک مختصات در محور دکارتی هست رو به پورت سریال کامپیوتر بفرسته و داخل یک EEPROM خارجی ذخیره کنه . و نحوه ذخیره اعداد داخل پرانتز هم به داخل EEPROM بدین صورت باشه که دوبایت اول حافظه EEPROM عدد X را ذخیره کنه و دوبایت بعدی حافظه EEPROM عدد Y داخل پرانتز رو در خودش ذخیره کنه و X و Yهای بعدی نیز به صورت متوالی در آدرس بایتهای 5 و6 ونیز 7 و 8 و الی آخر در EEPROM ذخیره شوند.
    ممنون میشم اگه راهنماییم کنید.

    کد:
    AAAA
    
    LABCENTER PROTEUS TESTPOINT INFORMATION FILE
    ==================--------==================
    
    Testpoint positions for Digitaly-Power-Supply.LYT
    
    Fields: ID, Type, X, Y, Net
    Units: X, Y - thou
    Notes: This file lists pads which are accessible from the bottom side of the board.
        The X, Y value is the centre of drill hole or pad origin.
        Vias are only listed if they are exposed through the solder resist.
    
    
    BBBB
    
    "U2:14",(10.2,5.44){NC}"
    "U2:13",(28.8,75.87)D7"
    "U2:12",(254.44,44.57)D6"
    "U2:11",(55.42,98.44)D5"
    "U2:10",(102.4,54.53)LCD_D7"
    "U2:9",(77.85,54.02)LCD_D6"
    http://www.sharjweb.com/

    #2
    پاسخ : سوال در باره نوشتن یگ کامپایلر

    کسی نیست کمکم کنه؟؟
    http://www.sharjweb.com/

    دیدگاه


      #3
      پاسخ : سوال در باره نوشتن یگ کامپایلر

      اولا چه رربطی داره به یک کامپایلر
      بله میشه همچین برنامه ای رو نوشت
      کار نشد نداره
      هرچه سعی کنیم لایه های نرم افزاری زیاد کرده و از سخت افزار دور کنیم مشکلات(باگ ها) کمتر خواهد شد(امنیت بیشتری خواهید داشت)
      بهترین جواب دهنده برای سوال شما، خود شما هستید البته بعد تلاش،پشتکار و مطالعه بیشتر
      میدونی مشکل ما کجاست؟سرمایه و مغز ها رو نمیتونیم یکجا جمع کنیم...

      تعدادی ماژول GPS GP5MX1513F1 با بالاتریت حساسیت -170db به قیمت خرید بفروش میرسد

      دیدگاه


        #4
        پاسخ : سوال در باره نوشتن یگ کامپایلر

        این کار شدنیه ولی خودش یه پروژست
        ما زنده به آنیم که آرام نگیریم موجیم که آسودگی ما عدم ماست

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

        r.babazadeh@yahoo.com

        دیدگاه


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

          خواندن یک فایل Text و یا محتوای TextBox و جداکردن بخش دلخواه متن به راحتی توسط VB6 قابل انجام است و بعد از جداکردن اطلاعات مورد نظر از متن، ارسال از طریق پورت سریال به یک میکروکنترلر و نوشتن اطلاعات روی EEPROM خارجی هم قابل انجام است. اما انتخاب عبارت "نوشتن یک کامپایلر" برای چنین کاری مصداق ندارد و این کار یک Application ساده VB محسوب می شود.
          اوژن: به معنای افکننده و شکست دهنده است
          دانایی، توانایی است-Knowledge is POWER
          برای حرفه ای شدن در الکترونیک باید با آن زندگی کرد
          وضعمان بهتر می شود، اگر همه نسبت به جامعه و اطراف خود مسوول باشیم و نگوئیم به ما چه
          قوی شدن و خوب ماندن - خوبی کردن به دیگران یک لذت ماندگار است
          اگر قرار باشد نفت و منابع خام را بدهیم و چرخ بگیریم، بهتر است چرخ را از نو اختراع کنیم
          ساعت کار بدن اکثر انسان ها کمتر از 800000 ساعت است و بعد از آن از کار می افتد

          دیدگاه


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

            ممنون از پاسخهاتون . از اینکه پاسخمو دادین بسیار سپاسگذارم .
            میشه اسم دستوراتی که این عمل را انجام میدهند و روال کاری کلی نوستن این برنامه رو برام توضیح بدین. من آخه زیاد با ویژال کار نکردم.
            باز هم ممنون.
            http://www.sharjweb.com/

            دیدگاه


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

              اساتید محترم و محترمه . لطفا کمکم کنید.
              http://www.sharjweb.com/

              دیدگاه


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

                سلام محسن جون

                کل کاری که باید انجام بشه اینه که مکان نما رو به خط و محل و مورد نظر ببری و کارتو انجام بدی

                راهشم استفاده از کتابخانه SendMessage هست

                این نحوه تعریف کردن
                Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
                ByVal lParam As String) As Long
                زندگی یه فرصته

                دیدگاه


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

                  این مثال رو تو vb اجرا کن خیلی واضحه

                  Option Explicit
                  Private Declare Function SendMessage Lib "user32" _
                  Alias "SendMessageA" _
                  (ByVal hwnd As Long, _
                  ByVal wMsg As Long, _
                  ByVal wParam As Long, _
                  ByVal lParam As String) _
                  As Long
                  Private Const EM_GETLINE = &HC4
                  Private Const EM_GETLINECOUNT = &HBA
                  Private Const EM_LINEFROMCHAR = &HC9
                  Private Const EM_LINEINDEX = &HBB
                  Private Const EM_LINELENGTH = &HC1
                  Private Const EM_REPLACESEL = &HC2
                  Private Sub Form_Load()
                  With Command1
                  .Caption = "Insert This Text"
                  .Height = 375
                  .Left = 120
                  .Top = 3000
                  .Width = 1455
                  End With
                  With Form1
                  .Caption = "Enhanced Text Box Sample Project"
                  .Height = 4485
                  .Width = 6990
                  End With
                  With Label1
                  .Height = 195
                  .Left = 120
                  .Top = 240
                  .Width = 3015
                  .WordWrap = True
                  End With
                  With Label2
                  .Height = 255
                  .Left = 1800
                  .Top = 3360
                  .Width = 3135
                  End With
                  With Text1
                  .Height = 2655
                  .Left = 3360
                  .Top = 240
                  .Width = 3375
                  End With
                  With Text2
                  .Height = 285
                  .Left = 1680
                  .Top = 3000
                  .Width = 5055
                  End With
                  End Sub
                  Private Sub Command1_Click()
                  Call SendMessage(Text1.hwnd, EM_REPLACESEL, 0, Text2.Text)
                  Label2.Caption = "Copied text is " + Text2.Text
                  ShowInfo
                  End Sub
                  Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
                  ShowInfo
                  End Sub
                  Private Sub Text1_MouseMove(Button As Integer, _
                  Shift As Integer, _
                  X As Single, _
                  Y As Single)
                  ShowInfo
                  End Sub
                  Private Function ShowInfo()
                  '******************************************** ***********************
                  ' Purpose: Runs all the functions to get the necessary information
                  ' in order to create the information text string. The text
                  ' string is then displayed in the label control.
                  '******************************************** ***********************
                  Dim strInfo As String
                  Dim lCurPos As Long
                  Dim lCurLineNum As Long, lTotLines As Long, lLineLength
                  Dim lNumBChar As Long
                  Dim sCurLine As String * 25
                  'Determine Cursor Position
                  If Text1.SelLength = 0 Then
                  lCurPos = Text1.SelStart
                  Else
                  lCurPos = Text1.SelStart + Text1.SelLength
                  End If
                  'Determine Line Number
                  lCurLineNum = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, lCurPos, 0)
                  'Determine the Line Length
                  lLineLength = SendMessage(Text1.hwnd, EM_LINELENGTH, lCurPos, 0)
                  'Determine the number of characters in lines before current
                  'cursor position. Note that the number of characters includes a
                  'carriage return and line feed characters at the end of each
                  'line.
                  lNumBChar = SendMessage(Text1.hwnd, EM_LINEINDEX, lCurLineNum, 0)
                  'Determine Total number of lines
                  lTotLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
                  'Determine Current Line
                  sCurLine = Space(25)
                  Call SendMessage(Text1.hwnd, EM_GETLINE, lCurLineNum, sCurLine

                  'Display the information
                  strInfo = "Current Line: " + sCurLine + vbLf + _
                  "Line Length: " + CStr(lLineLength) + _
                  " Characters" + vbLf + _
                  "Line Number: " + CStr(lCurLineNum + 1) + _
                  " of " + CStr(lTotLines) + " Total Lines" + vbLf + _
                  "Cursor Position: " + CStr(lCurPos) + vbLf + _
                  "Total Characters in Previous Lines: " + _
                  CStr(lNumBChar) + vbLf + _
                  "Selected Length: " + CStr(Text1.SelLength) + vbLf + _
                  "Selected Text: " + Text1.SelText
                  Label1.Caption = strInfo
                  End Function






                  زندگی یه فرصته

                  دیدگاه


                    #10
                    پاسخ : سوال در باره نوشتن یک کامپایلر

                    توضیح برای کتابخانه sendmassege

                    EM_LINEFROMCHAR شماره سطر و محل مکانمنا را بر می گرداند.

                    EM_LINELENGTH طول سطری که مکانما در ان قرار دارد برمیگرداند

                    EM_LINEINDEX تعداد کاراکترهای تمامی سطرهای قبل از مکانما زا برمیگرداند

                    EM_GETLINECOUNT تعداد کل سطرها مشخص می کند

                    EM_GETLINE متن سطری را که مکانما در ان قرار دارد مشخص می کند
                    زندگی یه فرصته

                    دیدگاه


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

                      ممنون از راهنماییتون آقای خلیلی.
                      http://www.sharjweb.com/

                      دیدگاه

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