сгенерировать буквы

[Роман Волков]

мен надо так чтобы компьютер выбрал любую букву из данных ему. Допустим есьт букв F,t,e. Из них копм долже выбрать любую. Должно быть здесь вместо букв можно записать и символы, наверное правильно нужно было сказать про символы, но думаю на буквах мне будет понятнее.

[hCORe]

Рома, прочти свою подпись и проникнись

Но, если я понял, то тебе нужно что-то вроде:

случайный символ из перечисления:

Код: Выделить всё

'в модуль
Public Const vbComma = ","

Public Function RandTx(strText As String) As String
On Error Resume Next
Dim arrLetters() As String
Dim lNum As Long
    arrLetters = Split(strText, vbComma)
    Randomize Timer
    lNum = Fix((UBound(arrLetters) - _
    LBound(arrLetters) + 1) * Rnd + LBound(arrLetters))
    RandTx = arrLetters(lNum)
End Function

случайный символ из строки:

Код: Выделить всё

'в модуль
Public Function RandTx(strText As String) As String
On Error Resume Next
Dim arrLetters() As String
Dim lNum As Long
    Randomize Timer
    lNum = Fix((Len(strText) - _
    1 + 1) * Rnd + 1)
    RandTx = Mid(strText, lNum, 1)
End Function

случайный символ из массива:

Код: Выделить всё

'в модуль
Public Function RandTx(arrSymbols() As String) As String
On Error Resume Next
Dim lNum As Long
    Randomize Timer
    lNum = Fix((UBound(arrSymbols) - _
    LBound(arrSymbols) + 1) * Rnd + LBound(arrSymbols))
    RandTx = arrSymbols(lNum)
End Function

[Роман Волков]

Куда это в модуль? Я не понимаю, хотя предполагаю! Много кодов, но мне нужен такой, чтобы его можно было использовать следующим образом: нажимаю по кнопке и в текстбоксе мне отображается выбранная буква(или символ). Мне бы вот такой простой вариант. Но не обижусь если меня научат провернуть более сложный (для меня) вариант с модулями. просто я ещё только с формами работаю и ни с чем больше!

[dr.MIG]

Простой пример с использованием одной из вышеописанных функций:
помещаем на форму два TextBox'а с именами Text1 и Text2, CommandButton с именем Command1 и в модуле формы пишем следующий код:

Код: Выделить всё

Private Sub Command1_Click()
Text2.Text = RandTx(Text1.Text)
End Sub

Private Function RandTx(strText As String) As String
On Error Resume Next
Dim arrLetters() As String
Dim lNum As Long
    Randomize Timer
    lNum = Fix((Len(strText) - _
    1 + 1) * Rnd + 1)
    RandTx = Mid(strText, lNum, 1)
End Function


При этом в Text2 рпри нажатии кнопки отобразится один из символов, написанных в Text1.

[hCORe]

куда это в модуль?

Как куда? Известно куда! В меню Project:arrow:Add Module После создания модуля он сразу же откроется. Задай в окне Properties любое имя. Стандартное имя для главного модуля - mdlMain, basMain или modMain. После чего вставляешь любую из описанных мной функций в модуль и используешь из любого места программы, в т.ч. и формы

[Роман Волков]

Слушай hCORe. Я вот понял где этот модуль взять и как туда запихнуть этот код. Но как теперь мне в форме воспользоваться тем, что написано в модуле. Желательно чтобы использование кода модуля происходило при клике по кнопке.

[Роман Волков]

Спасибо Др.Миг. Я попробовал, то что ты написал. Всё работает! В принципе то, что надо! А как ещё сделать так чтобы генерировался не один символ а несколько?

[hCORe]

Работа с модулем не отличается от работы с формой. Вызывай функцию RandTx и будет тебе счастье

[Роман Волков]

Вызвать функцию? Это интересно! И как её вызвать. Я тут встречал ответ с кодом, где был вызов функции, но мало чего понял. Значит, я так понимаю, вызвав эту функцию, я укажу где находится код ( в каком модуле или форме). Эту функцию я напишу для кнопки. А генератор букв (символов) напишу всё-таки в модуле. Просто интересно, я никогда ещё с модулями не работал.

[Роман Волков]

Вызывай функцию RandTx и будет тебе счастье

С моими то знаниями! Я пробовал химичить с вызовом этой функции и было мне не счастье , а море синтаксических ошибок!

[Qubicz]

Код: Выделить всё

Private Sub Command1_Click()
Tex2.Text=""
For n=0 to 55
Text2.Text = text2.Text & RandTx(Text1.Text)
Next
End Sub

Длина 55 символов

[Роман Волков]

Пробовал. Не идёт.

[KDima]

Роман Волков

А может лучше почитать учебник по VB?