Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Несобственный интеграл (численные методы) Доброго времени суток. Имеется вот такое задание : нужно решить с использованием численных методов. Судя по по тому , что задано нормальное распределение, то решать придется методом Симпсона. Идея есть следующая...тупо по формуле просуммировать значения функции от точки d через какой-нибудь шаг (в соответствии с формулой умножать значение функции либо на 4 либо на 2 , для четного/нечетного... https://www.cyberforum.ru/ visual-basic/ thread818214.html	Админка для модема через VB6 VB Хотелось бы узнать как можно обратиться к сайту ? то есть на форме есть несколько кнопок например "перезагрузить модем" (для перезагрузки надо: заходим на сайт, логинемся, переходим по ссылке в меню и нажимай на кнопку(на сайте)) Это одно из применений. А то надоедает либо бегать к модему , либо логинется. заранее спасибо :)
VB загрузить файл на сервер Я написал программу которая скачивает некий текстовый файл из интернета и отображает его. Надо теперь изменив его сохранить на сервере. Как это сделать? https://www.cyberforum.ru/ visual-basic/ thread818012.html	VB Как увеличить элементы указанного столбца матрицы на значение минимального элемента последней строки Разработать ИТ, позволяющую увеличить элементы матрицы произвольной размерности, разположенные в столбце, номер которого задается вводом, на значение минимального элемента последней строки матрицыю размерность массива произвольная. Добавлено через 10 часов 39 минут Visual basic 6.0 https://www.cyberforum.ru/ visual-basic/ thread817670.html
VB Как продолжить работу программы после включения компьютера? Допустим у меня идут вычисления и у меня свет отрубили...Комп выключится..Как сделать, чтобы после включения, программа продолжила работу? :)	VB Найти максимальный элемент среди первых 10 элементов массива и его номер напишите пожалуйста код, для того чтобы найти максимальный элемент среди первых 10 элементов массива и его номер. массив x = (-10; 12; 24; -3; 25; 0; -34; -13; 7; 22; 44; -10; 21; -5; -6; -27; 5; -9; -12; 4; ) очень надо. заранее спасибо!) https://www.cyberforum.ru/ visual-basic/ thread817552.html
VB Перевод кода на VB 6.0 Форумчане переведите пожалуйста на вб этот код написанный наверное в паскале(!) Код взят из учебника Ю.С.ДЕОРДИЦА Ю.М.НЕФЕДОВ ИССЛЕДОВАНИЕ ОПЕРАЦИЙ В ПЛАНИРОВАНИИ И УПРАВЛЕНИИ Киев «Выща школа» 1991 Глава 5 Большая просьба перевести на VB 6 https://www.cyberforum.ru/ visual-basic/ thread817224.html	VB Строка JSON и Visual Basic - как их породнить? В процессе написания программы для одного настольного приложения, возникла проблема при работе со строками формата JSON такого плана: {"mr":"","s":{"x":null,"a":true,"i":"text","t":0,"u":"link","p":null,"d":";;null;null;0;;","n":"text","l":null},"f":,"i":"cm0","l":"text,api_server=link,web_server=link","s":{"a":true,"d":";;null;ru_RU;0;;","i":"text","l":"ru-RU","n":"text","u":"link","x":null}}...
VB Подгрузка картинки в базу данных access https://www.cyberforum.ru/ visual-basic/ thread817125.html Подскажите, пожалуйста, как прикрепить картинку к базе данных. Мне нужно к личной карточке студента прикрепить его ксерокопию паспорта и чтобы они хранились все в одном месте. Заранее спасибо.	VB вывести в label значение из текущей ячейки recordset Помогите! Нужно вывести в Label значение из текущей ячейки Recordset. Вот код: Private Sub Command1_Click() Dim cmd As String, sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim noc As Integer cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Education\programm\bd1.mdb" Set cn = New ADODB.Connection cn.ConnectionString = cmd https://www.cyberforum.ru/ visual-basic/ thread816652.html
*Вычислить значение функции: z = 1 / (Exp(1)) Cos((Sqr(p ^ 2 + r ^ 2)) / k) VB** Нужна помощь с одной задачей: Вычислить значение функции: z = 1 / (Exp(1)) * Cos((Sqr(p ^ 2 + r ^ 2)) / k), где: Р,k - соответственно произведение и количество элементов массива, которые имеют значения кратные 3. R-максимальный по модулю элемент массива. Очень признателен за помощь! +дан массив x=(-10,12,24,-3,25,0,-34,-13,7,22,44,-10,21,-5,-6,-27,5,-9,-12,4)	VB Проблемы совместимости VB6 и Windows 7 https://www.cyberforum.ru/ visual-basic/ thread816443.html На семерке очень сильно подлагивает форма. а именно работа с объектами , что с этим можно сделать ? (виртуалку и вторую винду не предлагать )

~~Апострофф~~

Заблокирован

26.03.2013, 08:40

Зашифровать строку методом Цезаря - VB - Ответ 4310414

26.03.2013, 08:40. Показов 2382. Ответов 4

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Visual Basic

Option Explicit
 
Function Coder(s As String, Shift As Integer) As String
Const abc As String = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
Dim c As String, I As Long, U As Boolean, Pos As Long
For I = 1 To Len(s)
  c = Mid$(s, I, 1)
  Pos = InStr(1, abc, c, vbTextCompare)
  If Pos Then
    U = c = UCase(c)
    Pos = (Pos + Shift) Mod Len(abc)
    If Pos = 0 Then Pos = Len(abc)
    c = Mid$(abc, Pos, 1)
    c = IIf(U, LCase(c), UCase(c))
  End If
  Coder = Coder & c
Next I
End Function
 
Sub Coder_Example()
Dim s1 As String, s2 As String, s3 As String
s1 = "ёПробаЯ1, ЯПробаЁ2"
s2 = Coder(s1, 1): MsgBox s2, , "Зашифровали " & s1
s3 = Coder(s2, -1): MsgBox s3, , "Расшифровали " & s2
End Sub

Вернуться к обсуждению:
Зашифровать строку методом Цезаря VB

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.03.2013, 08:40

Готовые ответы и решения:

Зашифровать введенную строку
Помогите с решением задач, я сама что то не могу! 1.Зашифровать введенную строку символов с...

Чем зашифровать строку?
Нада строку закодить, подскажите как и чем ето можно сделать. Сенкс

Зашифровать строку, записав все ее символы в обратном порядке
Дана фраза. Зашифровать ее, записав все ее символы в обратном порядке. Помогите написать программу...

Зашифровать, расшифровать текст методом сдвига алфавита
Всем привет, вот до утра надо написать программу:(что то не получается. Помогите пожалуйста! вот...

	26.03.2013, 08:40

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.03.2013, 08:40

Помогаю со студенческими работами здесь

Зашифровать фразу методом Цезаря и расшифровать
задание-помогите кто может надо зашифровать методом цезаря фразу, ну еще и разшифровать(это вообще...

Зашифровать строку шифром Цезаря в зависимости от введенного пользователем значения сдвига
Всем привет. Хочу написать программу на Джаве, которая работала бы с введенным текстом, а именно...

Зашифровать файл шифром цезаря
Зашифруйте данный текстовый файл шифром Цезаря, при этом символы первой строки файла должны...

Зашифровать слово по способу Цезаря в Delphi
Шифры простой замены. Система шифрования Цезаря частный случай шифра простой замены. Метод основан...

Зашифровать сообщение, используя шифр Цезаря со сдвигом k
В шифре Цезаря алфавит размещается на круге по часовой стрелке. За последней буквой алфавита идет...

Наверх