Генератор случайных символов

@Gonchut · Регистрация: 30.01.2013

Студворк — интернет-сервис помощи студентам

Как создать генератор символов: английские буквы (как строчные, так и прописные).
Схема такая:
1) Пользователь выбирает количество генерируемых символов в text1.text (например, 5)
2) нажимаем на кнопку
3) text1.text="GsdIu"

mobile · 01.02.2013, 18:04

Функция сгенерирует случайную последовательность английских строчных и прописных букв.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Function genSimbol(n As Integer) As String
    Dim i As Integer, k1 As Integer, k2 As Integer, s As String
    For i = 1 To n
        k1 = Int(Rnd(Timer) * 26)
        k2 = Rnd(Timer) * 2
        s = Chr(65 + k1)
        If k2 > 1 Then s = LCase(s)
        genSimbol = genSimbol & s
    Next
End Function

@Апострофф · 01.02.2013, 18:07

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim u As Long
u = Val(TextBox1.Text)
TextBox1.Text = ""
Randomize
For i = 1 To u
  TextBox1.Text = TextBox1.Text & Chr$(Int(Rnd * 26) + Int(Rnd * 2) * 32 + 65)
Next i
End Sub

Не по теме:

Не мой сегодня день:wall:

@Gonchut · 01.02.2013, 19:24 **[ТС]**

что-то у меня ничего не работает...
отправьте в виде форму.

SoftIce · 01.02.2013, 20:20

Сообщение от Gonchut

что-то у меня ничего не работает...
отправьте в виде форму.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function genSimbol(n As Integer) As String
    Dim i As Integer, k1 As Integer, k2 As Integer, s As String
    For i = 1 To n
        k1 = Int(Rnd(Timer) * 26)
        k2 = Rnd(Timer) * 2
        s = Chr(65 + k1)
        If k2 > 1 Then s = LCase(s)
        genSimbol = genSimbol & s
    Next
End Function
 
Private Sub Command1_Click()
    Text2.Text = genSimbol(Val(Text1.Text))
End Sub

Randomize забыл воткнуть

@Апострофф · 01.02.2013, 20:25

Gonchut, имена контролов поправь, и всё получится

@antonboom · 01.02.2013, 22:04

Кто-нибудь может на естественном языке объяснить любой из представленных кодов, если не сложно?

@Казанский · 01.02.2013, 22:52

antonboom, Basic и так почти естественный английский

Магические числа: 26 - число букв в англ. алфавите, 65 - код буквы "А", т.е. asc("A")
32 - разность кодов букв "а" и "А", т.е. asc("a")-asc("A")

@Апострофф · 01.02.2013, 23:23

И

Сообщение от Апострофф

Int(Rnd * 2)

это 0 или 1 с почти равной вероятностью

Dragokas · 02.02.2013, 04:03

Я хотел выложить свой ~~более понятный~~ быдлокод, но сдержался.

antonboom, откройте таблицу символов (лист "Chr") - все вопросы должны отпасть.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Генератор случайных символов

Решение

Решение

Решение

Решение

@Gonchut 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 16

	Генератор случайных символов 01.02.2013, 17:41. Показов 10409. Ответов 9 Метки нет (Все метки) Как создать генератор символов: английские буквы (как строчные, так и прописные). Схема такая: 1) Пользователь выбирает количество генерируемых символов в text1.text (например, 5) 2) нажимаем на кнопку 3) text1.text="GsdIu" 0

@Gonchut 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 16
	01.02.2013, 19:24 [ТС]
	что-то у меня ничего не работает... отправьте в виде форму. 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	01.02.2013, 20:25
	Gonchut, имена контролов поправь, и всё получится 2

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	01.02.2013, 22:04
	Кто-нибудь может на естественном языке объяснить любой из представленных кодов, если не сложно? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.02.2013, 22:52
	Сообщение было отмечено как решение Решение antonboom, Basic и так почти естественный английский Магические числа: 26 - число букв в англ. алфавите, 65 - код буквы "А", т.е. asc("A") 32 - разность кодов букв "а" и "А", т.е. asc("a")-asc("A") 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	02.02.2013, 04:03
	Я хотел выложить свой ~~более понятный~~ быдлокод, но сдержался. antonboom, откройте таблицу символов (лист "Chr") - все вопросы должны отпасть. 1