Как сгенерировать случайную букву?

[PAVEL_USER]

Подскажите пожалуйста, как сгенерировать случайный буквенный символ?

[Konst_One]

Rnd + твоя фантазия в рамках диапазона числового представления нужных букв

[alibek]

Совместив Chr и Rnd.

[PAVEL_USER]

А можно точнее, как именно это сделать?

[alibek]

Точнее некуда.
Дальше только думать.

[Konst_One]

Точнее некуда.
Дальше только думать.

надо в цитаты повесить

[alleonid]

[quote="PAVEL_USER"]Подскажите пожалуйста, как сгенерировать случайный буквенный символ?[/quote]

1. Генерируете псевдослучайное число X, равномерно-распределенное в интервале - лучше сразу от 0 до 32 (или сколько их там?).
2. Далее пишете код суть которого:
If 0<=X<1 Then Y="а"
If 1<=X<2 Then Y="б"
If 2<=X<3 Then Y="в"
...
Или все тоже самое в цикле одной строкой.

[Денис Победря]

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

randomize
chr$(rnd*кол_во_русских_букв+номер_первой_буквы)

[PAVEL_USER]

Еще можно так:

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

Dim massiv(10) As String
Dim x as String
'
'
'

massiv(0) = "я"
massiv(1) = "a"
massiv(2) = "б"
massiv(3) = "в"
'и так далее....
x = massiv(Int(Rnd * 10))

[Хакер]

[вырезано самим же собой]

x = Chr(Int(Rnd * 32) + Asc("а"))

Кстати, можно ещё так:
Делаете на экране надпись "Press any key"
Случайнее некуда

[MIT]

Генерирование много чего...
Целый модуль, с функциями по генерированию
1 маленьких и больших англ. букв
2 HEX букв
3 CLSID
4 Генерация по заданному формату (моя любимая, над ней сидел несколько часов)
5 Цифр

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

Attribute VB_Name = "mdlGenerate"
Private Const HEXletter = "ABCDEFabcdef"

Public Function GenerateID() As String
    GenerateID = FormatGenerator(6, 5, " - ")
End Function
Public Function GenerateLetter() As String
    'Randomize
    Dim temp As Integer
   
    Do Until (temp > 65) And (temp <> 91) And (temp <> 92) And (temp <> 93) And (temp <> 94) And (temp <> 95) And (temp <> 96) And (temp < 122)
        temp = Int(Rnd() * 1000)
    Loop
    GenerateLetter = Chr(temp)
End Function
Public Function Generate_A_Z_1() As String
    'Randomize
    Dim temp As Integer
   
    Do Until (temp > 65) And (temp < 91)
        temp = Int(Rnd() * 1000)
    Loop
    Generate_A_Z_1 = Chr(temp)
End Function
Public Function Generate_a_z_2() As String
    'Randomize
    Dim temp As Integer
   
    Do Until (temp > 96) And (temp < 122)
        temp = Int(Rnd() * 1000)
    Loop
    Generate_a_z_2 = Chr(temp)
End Function
Public Function GenerateHEXletter() As String
'Randomize
Dim temp As String
On Error Resume Next
temp = "!"
    Do Until InStr(1, HEXletter, temp) > 0
        temp = Chr(Rnd() * 255)
    Loop
GenerateHEXletter = temp
End Function

Public Function GenerateNumber() As Byte
    'Randomize
    GenerateNumber = Int(Rnd() * 10)
End Function

Public Function TextToNumber(Text As String) As String
    Dim i As Long
    Dim letter As String
        For i = 1 To Len(Text)
            letter = Mid(Text, i, 1)
            TextToNumber = TextToNumber & Asc(letter)
        Next
End Function

Public Function FormatGenerator(SectorsInCode As Long, CharsInSector As Long, Separator As String, Optional Numbers As Boolean = True, Optional BigChars As Boolean = True, Optional SmallChars As Boolean = True, Optional HEXchars As Boolean = False) As String
If Numbers = False And BigChars = False And SmallChars = False And HEXchars = False Then Exit Function
    Randomize
    If SectorsInCode > 100 Then Exit Function
    Dim temp As Integer
    Dim temp2 As String
    Dim code As String
    Dim CIS(1 To 100)  As String
    Dim i As Long, j As Long
   
    For j = 1 To SectorsInCode
        For i = 1 To CharsInSector
go1:
            Do
                temp = CInt(Rnd() * 10)
            Loop Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4)
           
            If temp = 1 And BigChars = True Then
                temp2 = temp2 & Generate_A_Z_1
            ElseIf temp = 4 And SmallChars = True Then
                temp2 = temp2 & Generate_a_z_2
            ElseIf temp = 2 And Numbers = True Then
                temp2 = temp2 & GenerateNumber
            ElseIf temp = 3 And HEXchars = True Then  ' Then '
                temp2 = temp2 & GenerateHEXletter
            Else
                GoTo go1
            End If
            temp = 0
        Next
        CIS(j) = temp2
        temp2 = ""
        If code <> "" Then
            code = code & Separator & CIS(j)
        Else
            code = CIS(j)
        End If
    Next
   
    FormatGenerator = code
End Function

Public Function NumberAndText(Number As Long) As String
If Right(Number, 1) = Number Then
    If Right$(Number, 1) = 0 Or Right$(Number, 1) = 5 Or Right$(Number, 1) = 6 Or Right$(Number, 1) = 7 Or Right$(Number, 1) = 8 Or Right$(Number, 1) = 9 Then NumberAndText = Number & " частей"
    If Right$(Number, 1) = 1 Then NumberAndText = Number & " часть"
    If Right$(Number, 1) = 2 Or Right$(Number, 1) = 3 Or Right$(Number, 1) = 4 Then NumberAndText = Number & " части"
Else
    NumberAndText = Number & " частей"
End If
End Function

Public Function GenerateCLSID() As String
    Randomize
    Dim i As Byte
    Dim Gen As String
    Dim temp As Integer
   
    'Gen = "{"
   
    For i = 1 To 8
        Do Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4) ' Or (temp = 5) Or (temp = 6)
            temp = CByte(Rnd() * 10)
        Loop
        If temp = 1 Then
            Gen = Gen & GenerateHEXletter
        Else
            Gen = Gen & GenerateNumber
        End If
        temp = 0
    Next
    'XXXXXXXX
    i = 0
    Gen = Gen & "-"
   
    For i = 1 To 4
        Do Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4) 'Or (temp = 5) Or (temp = 6)
            temp = CByte(Rnd() * 10)
        Loop
        If temp = 1 Then
            Gen = Gen & GenerateHEXletter
        Else
            Gen = Gen & GenerateNumber
        End If
        temp = 0
    Next
    'XXXXXXXX-XXXX
    i = 0
    Gen = Gen & "-"
   
    For i = 1 To 4
        Do Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4) 'Or (temp = 5) Or (temp = 6)
            temp = CByte(Rnd() * 10)
        Loop
        If temp = 1 Then
            Gen = Gen & GenerateHEXletter
        Else
            Gen = Gen & GenerateNumber
        End If
        temp = 0
    Next
    'XXXXXXXX-XXXX-XXXX
    i = 0
    Gen = Gen & "-"
   
    For i = 1 To 4
        Do Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4) 'Or (temp = 5) Or (temp = 6)
            temp = CByte(Rnd() * 10)
        Loop
        If temp = 1 Then
            Gen = Gen & GenerateHEXletter
        Else
            Gen = Gen & GenerateNumber
        End If
        temp = 0
    Next
    'XXXXXXXX-XXXX-XXXX-XXXX
    i = 0
    Gen = Gen & "-"
   
    For i = 1 To 12
        Do Until (temp = 1) Or (temp = 2) Or (temp = 3) Or (temp = 4) 'Or (temp = 5) Or (temp = 6)
            temp = CByte(Rnd() * 10)
        Loop
        If temp = 1 Then
            Gen = Gen & GenerateHEXletter
        Else
            Gen = Gen & GenerateNumber
        End If
        temp = 0
    Next
   
    GenerateCLSID = Gen '& "}"
End Function



[Хакер]

Для генерации CLSID есть вообщето специальная API-функция.

[MIT]

когда писал - не знал, а кстати какая?

[alibek]

Во-первых, не CLSID это, а GUID.
А во-вторых, Хакер, я бы сообщение на твоем месте откорректировал. Не верю я в "не сдержался" там, где текст пишется, а не произносится.

[Хакер]

Например эта:

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

Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long

[alibek]

MIT, например такая:

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

Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type
Declare Function CoCreateGuid Lib "OLE32.DLL" (pGUID As GUID) As Long
Declare Function StringFromGUID2 Lib "OLE32.DLL" (pGUID As GUID, ByVal sGUID As String, ByVal MaxLength
As Long) As Long
...
Function CreateGUID2() As String
Dim G As GUID, S As String, I As Long
Call CoCreateGuid(G)
S = Space$(128)
I = StringFromGUID2(G, S, Len(S))
If I = 0 Then Exit Function
CreateGUID2 = Left$(StrConv(S, vbFromUnicode), I - 1)
End Function


Твоя же функция будет создавать набор символов, но никак не GUID.

[MIT]

Круто, но я все равно этого не знал. Извиняйте.

[Хакер]

alibek
Поскольку автор использовал CLSID я и стал его писать не произвольно. А в действительности да, это guid.

[Glyckmen]

Я когда то делал так:
a=int(rnd*x)+y
в этом случае диапозон получаемых случайных значений 'a'(в нашем случае код символа) будет от 'y' до 'x+y'
если надо исключить определенные
символы (имеется ввиду коды символов), то делаем IF THEN, получить символ из кода CHR$(код символа), а узнать код символа ASC("символ")

[alibek]

Вообще Chr(Rnd) редко имеет практический смысл. Гораздо более полезно Mid(Rnd).

[MIT]

А что дает Mid(Rnd) ?

По моему так лучше всего

[vb]
Public Function GenerateLetter() As String
'Randomize
Dim temp As Integer

Do Until (temp > 65) And (temp <> 91) And (temp <> 92) And (temp <> 93) And (temp <> 94) And (temp <> 95) And (temp <> 96) And (temp < 122)
temp = Int(Rnd() * 1000)
Loop
GenerateLetter = Chr(temp)
End Function
[\vb]

[Viper]

как все запущено то...

1. Создается строка S с необходимыми символами, длиной N.
2. Далее генерится целое число из диапазона 1 - N, по формуле rndN = Int((N*Rnd) + 1)
3. Функцией Mid вырезаем нужный символ rndChar = Mid$(S, rndN, 1)

и всех делов....

З.Ы. А вопрос этот пора в FAQ

[GAGArin]

Ну и еще два разных способа генерации английской буквы.

chr (Int(Rnd() * 26) + 32 * (Int(Rnd() * 2) + 1) + 33)
И
chr((Int(Rnd() * 26) + 3.5) * (Int(Rnd() * 2) * 2 - 1) + 93.5)

При этом в коде обязательно стоит оставить комментарий типа:
"А теперь попробуй понять что я тут и нафига делаю"


PS Придумать идею оказывается гораздо проще, чем подогнать коэффициенты.

[alibek]

GAGArin, не зачтено.
Были бы гиперболические функции, или хотя бы тригонометрические.

[RayShade]

Сто лет назад, у меня была такая проблема.

Я ее решил так:

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



const alphabet as string="abcdefghijklmnopqrstuvwyz"

function randchar as string

randchar=mid(alphabet,round(rnd*len(alphabet)),1)

end function



[Amed]

Поправочка: не round, а rnd*

[GAGArin]

alibek
Хотел бы я посмотреть на геперболическую функцию, которая несла бы смысл. Тоесть не простая добавка и сокращение, а логичное использование в генерации буковок.

Лично мне второй мой способ пришел в голову сразу после постановки проблемы.

[alibek]

GAGArin, да легко.
Например для модуляции распределения (когда нужно не равномерное, а другое).

[RayShade]

Amed

Поправочка, и round и rnd

[yaklit]

Хм. какая огромная тема и какой маленький вопрос.