Навигация
 
Главная
Для начинающих
Паскаль/Pascal
Bash

Визуальное программирование
• Visual Basic
• Delphi/Делфи
• C++/Си++/Си
• документация
• Компоненты

WEB программирование
• MySQL/мускул
• Web-дизайн
•• Шрифты
• PHP/Пхп
• Документация PHP
• JavaScript
•• библиотека jquery
•  Документация
Прочее

 
 
Поиск по сайту
 




 
 
О нас
  У нас Вы можете скачать исходники, скачать скрипты, найти исходники, исходники delphi, документация по JQeury, исходники си, учебник HTML  
 
Теги
  codeserfercom, nbspnbsp, Private, Visual, Возможность, Пример, Рассмотрим, Сегодня, Теперь, будет, данных, значение, который, может, можно, написать, например, очень, переменной, переменных, пользователя, помощью, программа, программирования, программы, просто, работы, разработки, решил, сделать, скрипт, строки, строку, также, только, функции, число, этого, языка, языков

Показать все теги
 
 
Счетчики
 
 
 
Реклама
   
 
Лучшие коды
   
   
 
Переворот строки
 Категория: Визуальное программирование » Visual Basic (VB) | автор: Codeserfer | 6 августа 2008 | Просмотров: 3565  



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

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

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

итак, начнем.

1. запустим VB
2. выберем "Standart EXE":
Переворот строки

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

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


Теперь займемся программной частью crazy
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. пробуем yep должно все получиться!

ну а кому лень все это делать могут скачать готовый проект - perevertysh.rar [1.16 Kb] (cкачиваний: 25)
Но всеже ленивцам рекомендую:
если вы действительно хотите стать хорошим программистом, то наберите все вручную, не качайте готовый проект. сделайте все сами. при этом у вас могут возникнуть ошибки. именно умение находить и устранять их сделает из Вас настоящего программиста! thumbs_up ну а позже можно скачать и сверить с нагим кодом.
 
 

Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним!
Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:


Своё Спасибо, еще не выражали.
 
  Просьбы перезалить в комментариях принимаются
 
 (голосов: 1)
 
 
 
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
 
  Другие коды по теме:  
 
  • количество вхождений подстроки в строку
  • Узнать свой IP
  • Свой текстовый редактор
  • шифровка текста под пароль
  • текущие дата / время
  •  
    Комментарии (0) Распечатать




    © 2008 - 2010. Копирование материалов запрещено!
    Мой аккаунт
     
    Логин
    Пароль
     
     
     
    Опрос
     
    Чего нам не хватает?

    Ничего, все прекрасно и так!
    Другого дизайна
    Больше кодов
    Больше комментариев
    Посещаемости
    Дополнительных сервисов для удобства пользователей
    Другое (напишите, пожалуйста, что)
     
     
    Друзья
     
    serial, crack, keygen
    cool-archive.ru
    ABC-IT.lv - истиному ИТишнику!
     
     
    Архив кодов
      Август 2011 (1)
    Июль 2011 (4)
    Июнь 2011 (3)
    Апрель 2011 (2)
    Февраль 2011 (5)
    Январь 2011 (3)
     
     
     
    Реклама