Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> перевод английских букв в русские, как перевести "ghbdtn" в "привет"? 
:(
    Опции темы
userXP
  Дата 14.8.2006, 04:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.8.2006

Репутация: нет
Всего: нет



Напишите, пожалуйста, код программы на Бейсике для перевода английских букв в русские. Т.е., когда клавиатура на английском, а ты набираешь что-нибудь по русски, например, "Привет", то получается "Ghbdtn". Сделайте программу, чтобы в одно окно пишешь это "Ghbdtn", а в другом появлялось слово "Привет". [надеюсь, объяснил понятно]
PM MAIL   Вверх
mihanik
Дата 14.8.2006, 06:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Давай лучше сделаем так. smile 
Подобная программа довольно проста для написания.
Ты наверняка сам справишься с подобгым заданием.
Ты попробуй, а уж мы поможем идеями, советами...

Ну, вот например. smile 

Создай форму и размести на ней два текстовых поля.
Не забудь для них установить свойство, которое бы позволяло размещать текст не в одну строчку, а в  несколько.
(По свойствам объекта пробегись, там всё понятно)
Ниже расположи кнопочку, при нажатии на которую будет производиться "перевод".
Ну, и, собственно, небольшой код для кнопочки.
Типа "если это "Q", то печатай "Й"".
Будут вопросы, - пиши.
Поможем!!! smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 14.8.2006, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Что-нить типа:
Код
'Extremely draft code!
Const Eng = "QWE..."
Const Rus = "ЙЦУ..."

for i=1 to len(xStr)
   mid(xStr,i,1)=mid(Rus,instr(Eng,mid(xStr,i,1)),1)
next

Однако лучше использовать автопереключатель клавиатуры (Ninja, Punto), чем заниматься подобным делом...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0491 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.