یک مجموعه کد من درآوردی_خلاقیت یعنی این!

شروع موضوع توسط hemmattby ‏21 ژوئن 2013 در انجمن منطق و الگوریتم برنامه‌نویسی

  1. hemmattby

    hemmattby New Member

    ارسال‌ها:
    21
    تشکر شده:
    1
    امتیاز دستاورد:
    1
    سلام.
    این برنامه، فقط به یک textbox نیاز داره. و می شه از اون در برنامه های
    مختلف استفاده کرد.

    اگه کسی بتونه بهینش بکنه برام، که خیلی ازش ممنون میشم.
    ولی بیشتر برای این گذاشتم که نظرتون رو بگید.

    برنامه ی محاسبه ی تعداد کل کاراکتر های وارد شده در تکست باکس و درآوردن
    متن آخرین خط وارد شده در تکست باکس.
    (من، این کد رو برای یک پروژه ی ساخت کامپایلر نوشتم.)

    Visual Basic Code:

    Option Explicit
    Dim a As Boolean
    Dim b As Long
    Dim
    c As Long
    Dim line_ As String
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    a = False
    b = 0
    Do
    a = Len(Text1.Text) = b
    If
    a = True Then
    Print a
    Print
    b
    Else

    Print a
    b = b + 1
    End
    If
    Loop
    Until a = True
    End If
    End Sub
    Private
    Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
    Text1.SelStart = c
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
    line_ = Text1.SelText
    Text1.SelText = Text1.SelText
    Print line_
    c = b + 2
    Print
    c
    End If
    End Sub
     
    آخرین ویرایش: ‏23 ژوئن 2013
    نوشته شده توسط hemmattby در ‏21 ژوئن 2013

به اشتراک بگذارید