برنامه پالیندروم در ویژوال بیسیک 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,210 18-12-2015 ساعت 11:30
آخرین ارسال: majidvajih
Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,133 28-01-2015 ساعت 16:36
آخرین ارسال: xMAN
Note space در ویژوال بیسیک 6 شهره 1 675 04-10-2014 ساعت 10:42
آخرین ارسال: Comodo
Note ویژوال بیسیک amir7519 1 602 19-07-2014 ساعت 17:36
آخرین ارسال: C0der
Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 594 18-05-2014 ساعت 19:28
آخرین ارسال: VBProgrammer
Note ایجاد لوزی با ویژوال بیسیک 6 Nastaran 2 747 07-04-2014 ساعت 14:25
آخرین ارسال: Nastaran
Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,113 29-03-2014 ساعت 09:44
آخرین ارسال: Stack OverFlow
Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 609 14-03-2014 ساعت 22:37
آخرین ارسال: Daniel
Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,010 13-03-2014 ساعت 19:32
آخرین ارسال: Daniel
Note دانلود 105 پروژه ویژوال بیسیک SOFTAFZAR 6 4,396 23-02-2014 ساعت 18:21
آخرین ارسال: Daniel

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