Our Blog

Переворот строки на Visual Basic

Иногда ради интереса, а может и нет надо перевернуть строку задом наперед строку (текст). Например:
имеем:
мы рулим!
Надо получить:
!милур ым

Может быть в данной ситуации текст перевернуть проблем не составит… А вот если это не 2 слова, а килобайты текста?

Тут нас на помощь приходит программирование. В данном случае программа будет на VB (Visual Basic). Никто не говорит, что надо именно на нем, просто мне так захотелось.

Итак, начнем. Сделаем переворот строки!

1. Запустим VB
2. Выберем «Standart EXE»:

3. Поставим на форму элемент text box

4. Поставим на форму command button:

Теперь займемся программной частью
1. Давайте дважды щелкнем по полю (не по кнопке и не по текстовой область, а именно по девственно чистой форме)
2. Щелкнули, видим:

Private Sub Form_Load()End Sub

Давайте между Private Sub Form_Load и End Sub напишем небольшой программный код:

text1.MultiLine = True
Text1.text = ""
Command1.Caption = "Перевернуть"

вместо «Перевернуть» можете написать свое.

3. Вернемся на форму и щелкним дважды на command button
появилось:

Private Sub Command1_Click()End Sub

Давайте посередине вставим:

Dim S, S1 As String
S1 = ""
S = Text1.Text
For I = Len(S) To 1 Step -1
S1 = S1 + Mid(S, I, 1)
Text1.Text = S1
Next I

4. Пробуем должно все получиться!

ну а кому лень все это делать могут скачать готовый проект — 

  perevertysh.rar (1,2 KiB, 832 hits)


Но все же ленивцам рекомендую:
если вы действительно хотите стать хорошим программистом, то наберите все вручную, не качайте готовый проект. Сделайте все сами. При этом у вас могут возникнуть ошибки. Именно умение находить и устранять их сделает из Вас настоящего программиста!  Ну а позже можно скачать и сверить с нагим кодом.

Comments ( 0 )
    -->