ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Visual Basic
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Visual Basic
  #1  
Старый 24.11.2008, 23:25
getMessage
Новичок
Регистрация: 26.10.2007
Сообщений: 9
Провел на форуме:
44483

Репутация: 2
Post Visual Basic
Код:
ChangeLang.doc
Public Sub ChangeLang()
Dim S$, s1$
S = Selection.Text
Dim i&, c$
For i = 1 To Len(S)
c = Mid$(S, i, 1)
Select Case c
'английские буквы в русские
Код:
Case "q": c = "й"
Case "w": c = "ц"
Case "e": c = "у"
Case "r": c = "к"
Case "t": c = "е"
Case "y": c = "н"
Case "u": c = "г"
Case "i": c = "ш"
Case "o": c = "щ"
Case "p": c = "з"
Case "[": c = "х"
Case "]": c = "ъ"
Case "a": c = "ф"
Case "s": c = "ы"
Case "d": c = "в"
Case "f": c = "а"
Case "g": c = "п"
Case "h": c = "р"
Case "j": c = "о"
Case "k": c = "л"
Case "l": c = "д"
Case ";": c = "ж"
Case "'": c = "э"
Case "z": c = "я"
Case "x": c = "ч"
Case "c": c = "с"
Case "v": c = "м"
Case "b": c = "и"
Case "n": c = "т"
Case "m": c = "ь"
Case ",": c = "б"
Case ".": c = "ю"

Case "Q": c = "Й"
Case "W": c = "Ц"
Case "E": c = "У"
Case "R": c = "К"
Case "T": c = "Е"
Case "Y": c = "Н"
Case "U": c = "Г"
Case "I": c = "Ш"
Case "O": c = "Щ"
Case "P": c = "З"
Case "{": c = "Х"
Case "}": c = "Ъ"
Case "A": c = "Ф"
Case "S": c = "Ы"
Case "D": c = "В"
Case "F": c = "А"
Case "G": c = "П"
Case "H": c = "Р"
Case "J": c = "О"
Case "K": c = "Л"
Case "L": c = "Д"
Case ":": c = "Ж"
Case """": c = "Э"
Case "Z": c = "Я"
Case "X": c = "Ч"
Case "C": c = "С"
Case "V": c = "М"
Case "B": c = "И"
Case "N": c = "Т"
Case "M": c = "Ь"
Case "<": c = "Б"
Case ">": c = "Ю"
'Русские буквы в английские
Код HTML:
Case "й": c = "q"
Case "ц": c = "w"
Case "у": c = "e"
Case "к": c = "r"
Case "е": c = "t"
Case "н": c = "y"
Case "г": c = "u"
Case "ш": c = "i"
Case "щ": c = "o"
Case "з": c = "p"
Case "х": c = "["
Case "ъ": c = "]"
Case "ф": c = "a"
Case "ы": c = "s"
Case "в": c = "d"
Case "а": c = "
Помогите, в чем моя ошибка ?
 
Ответить с цитированием

  #2  
Старый 24.11.2008, 23:28
ruzzer
Познающий
Регистрация: 29.07.2007
Сообщений: 44
Провел на форуме:
532652

Репутация: 28
Отправить сообщение для ruzzer с помощью ICQ
По умолчанию
А в чем именно ошибка? не правильно работает или не компилит?
 
Ответить с цитированием

  #3  
Старый 24.11.2008, 23:35
getMessage
Новичок
Регистрация: 26.10.2007
Сообщений: 9
Провел на форуме:
44483

Репутация: 2
По умолчанию
Знаю) учусь только ) не компилит ((
 
Ответить с цитированием

  #4  
Старый 24.11.2008, 23:44
ruzzer
Познающий
Регистрация: 29.07.2007
Сообщений: 44
Провел на форуме:
532652

Репутация: 28
Отправить сообщение для ruzzer с помощью ICQ
По умолчанию
по моему в конце End Select и Next не хватает...
 
Ответить с цитированием

  #5  
Старый 24.11.2008, 23:51
getMessage
Новичок
Регистрация: 26.10.2007
Сообщений: 9
Провел на форуме:
44483

Репутация: 2
По умолчанию
Это как будет выглядеть ?
Типо:

Case "ф": c = "a"
Case "ы": c = "s"
Case "в": c = "d"
Case "а": c = "
Next
End Select

Так ?
 
Ответить с цитированием

  #6  
Старый 24.11.2008, 23:58
ruzzer
Познающий
Регистрация: 29.07.2007
Сообщений: 44
Провел на форуме:
532652

Репутация: 28
Отправить сообщение для ruzzer с помощью ICQ
По умолчанию
Case "ф": c = "a"
Case "ы": c = "s"
Case "в": c = "d"
Case "а": c = "
End Selecеt
Next

вот так вроде
 
Ответить с цитированием

  #7  
Старый 25.11.2008, 00:00
getMessage
Новичок
Регистрация: 26.10.2007
Сообщений: 9
Провел на форуме:
44483

Репутация: 2
По умолчанию
Блин, забыл что тут ограничено символов (((


Case "а": c = "f"
Case "п": c = "g"
Case "р": c = "h"
Case "о": c = "j"
Case "л": c = "k"
Case "д": c = "l"
Case "ж": c = ";"
Case "э": c = "'"
Case "я": c = "z"
Case "ч": c = "x"
Case "с": c = "c"
Case "м": c = "v"
Case "и": c = "b"
Case "т": c = "n"
Case "ь": c = "m"
Case "б": c = ","
Case "ю": c = "."

Case "Й": c = "Q"
Case "Ц": c = "W"
Case "У": c = "E"
Case "К": c = "R"
Case "Е": c = "T"
Case "Н": c = "Y"
Case "Г": c = "U"
Case "Ш": c = "I"
Case "Щ": c = "O"
Case "З": c = "P"
Case "Х": c = "{"
Case "Ъ": c = "}"
Case "Ф": c = "A"
Case "Ы": c = "S"
Case "В": c = "D"
Case "F": c = "F"
Case "П": c = "G"
Case "Р": c = "H"
Case "О": c = "J"
Case "Л": c = "K"
Case "Д": c = "L"
Case "Ж": c = ":"
Case "Э": c = """"
Case "Я": c = "Z"
Case "Ч": c = "X"
Case "С": c = "C"
Case "М": c = "М"
Case "И": c = "B"
Case "Т": c = "N"
Case "Ь": c = "M"
Case "Б": c = "<"
Case "Ю": c = ">"
End Select
s1 = s1 & c
Next
Selection.TypeText Text:=s1
End Sub
 
Ответить с цитированием

  #8  
Старый 25.11.2008, 00:07
ruzzer
Познающий
Регистрация: 29.07.2007
Сообщений: 44
Провел на форуме:
532652

Репутация: 28
Отправить сообщение для ruzzer с помощью ICQ
По умолчанию
Хочешь верь хочешь не верь. У меня в VB 6.0 все норм компилит и работает. Ты это в ворде писал?
 
Ответить с цитированием

  #9  
Старый 25.11.2008, 01:27
getMessage
Новичок
Регистрация: 26.10.2007
Сообщений: 9
Провел на форуме:
44483

Репутация: 2
По умолчанию
Да ))
 
Ответить с цитированием

  #10  
Старый 25.11.2008, 17:35
ruzzer
Познающий
Регистрация: 29.07.2007
Сообщений: 44
Провел на форуме:
532652

Репутация: 28
Отправить сообщение для ruzzer с помощью ICQ
По умолчанию
Цитата:
Сообщение от getMessage  
Selection.TypeText Text:=s1
Что это?
не паскаль ведь.
Вот так надо:
Selection.TypeText Text=s1
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вышла предварительная версия Visual Basic 9.0 dinar_007 Мировые новости 0 26.01.2006 17:08
С++ В трех вариациях... byte57 С/С++, C#, Delphi, .NET, Asm 30 30.12.2005 06:09
Visual Basic - CheckBox CraF С/С++, C#, Delphi, .NET, Asm 5 25.08.2005 00:37



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ