• برنامه پالیندروم در ویژوال بیسیک 6
    #1
    Note 
    پالیندروم یعنی رشته ای که اگر اون رو از هر طرف بخونی همون میشه مثل 35653

    خوب برای این کار ما رشته رو برعکس میکنیم و اون رو با رشته اول مقایسه میکنیم اگر مثل هم بودن پس پالیندرومه!
    [VB]
    Private Sub Command1_Click()
    On Error Resume Next
    Dim inputWord As String
    Dim testWord As String
    Dim reverseWord As String
    Dim testChar As String
    Dim i As Integer
    Dim maxIndex As Integer
    maxIndex = 0
    i = 1
    '--Get input from the user.
    inputWord = InputBox("Please enter your word")

    '--Record the input in lower case and remove spaces (you can
    '--add checks for tabs, linefeeds, etc).
    maxIndex = Len(inputWord)
    For j = 0 To maxIndex
    testChar = Mid(inputWord, j, 1)
    If testChar <> " " Then
    testWord = testWord & LCase(testChar)

    End If

    Next
    Print testWord;

    '--Reverse testWord.
    maxIndex = Len(testWord)
    For i = maxIndex To 0 Step -1
    reverseWord = reverseWord & Mid(testWord, i, 1)
    Next
    Print " = " & reverseWord & "?"

    '--Compare reverseWord to testWord and output the results.
    If testWord = reverseWord Then
    MsgBox "Yes, it's a palindrome"
    Cls
    Else
    MsgBox "No, it's not a palindrome"
    Cls
    End If
    End Sub
    [/VB]


    روش دیگه: تو کد بالا ما کد برعکس کردن رشته رو هم نوشتیم اما این تابع بصورت اماده در Vb6 وجود داره

    [VB]Private Sub Command1_Click()
    Dim inputWord As String
    Dim reverseWord As String

    inputWord = InputBox("Please enter your word")
    reverseWord = StrReverse(inputWord)
    If inputWord = reverseWord Then
    MsgBox "Yes, it's a palindrome"
    Cls
    Else
    MsgBox "No, it's not a palindrome"
    Cls
    End If
    End Sub[/VB]

    پاسخ
    #2
    Note 
    بسیار ممنون Confusedmile12:

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note دانلود نمونه سولات ویژوال بیسیک SOFTAFZAR 1 2,664 18-12-2015 ساعت 11:30
    آخرین ارسال: majidvajih
    Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,945 28-01-2015 ساعت 16:36
    آخرین ارسال: xMAN
    Note space در ویژوال بیسیک 6 شهره 1 848 04-10-2014 ساعت 10:42
    آخرین ارسال: Comodo
    Note ویژوال بیسیک amir7519 1 801 19-07-2014 ساعت 17:36
    آخرین ارسال: C0der
    Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 883 18-05-2014 ساعت 19:28
    آخرین ارسال: VBProgrammer
    Note ایجاد لوزی با ویژوال بیسیک 6 Nastaran 2 936 07-04-2014 ساعت 14:25
    آخرین ارسال: Nastaran
    Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 3,040 29-03-2014 ساعت 09:44
    آخرین ارسال: Stack OverFlow
    Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 817 14-03-2014 ساعت 22:37
    آخرین ارسال: Daniel
    Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,441 13-03-2014 ساعت 19:32
    آخرین ارسال: Daniel
    Note دانلود 105 پروژه ویژوال بیسیک SOFTAFZAR 6 5,313 23-02-2014 ساعت 18:21
    آخرین ارسال: Daniel

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان