VPF::[Any (Delphi)] Генератор случайных символов

Lupus

Дата 29.9.2006, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Народ! Понимаю, что наглею, но очень надо. Может кто по доброте душевной свояет програмку -- гернератор случайных символов (лат.+русские+цифры и спацсимволы) в вижуале? Просто небольшое окошко с кнопкой, при нажатии на которую в этом же окошке в текстовом поле генерилась последовательность из 30-100 случайных символов с возможностью их копирования в буфер. Для рядового программера это дело получаса, а я не изучал "вижуалов"... Заранее благодарен.

_hunter

Дата 29.9.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98

а самому написать слабо?
для генерации случайных чисел используй rand() (ну и srand())

--------------------

Tempora mutantur, et nos mutamur in illis...

Lupus

Дата 29.9.2006, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Да я ж писал, что вижуалов отродясь не юзал -- только С++ & Pascal под DOS и Linux... Я просто не втыкаю, куда свой код вставлять... Ламерский вопрос, я понимаю... Просто приспичело весьма... Самому разбираться долго...

Это сообщение отредактировал(а) Lupus - 29.9.2006, 18:22

Earnest

Дата 29.9.2006, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5962
Регистрация: 17.6.2005
Где: Рязань

Репутация: 2
Всего: 183

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

--------------------

...

comtat

Дата 30.9.2006, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Какой на каком языке необходимо написать smile

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

MAKCim

Дата 30.9.2006, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 6
Всего: 207

Цитата

и Linux

тогда попробуй /dev/random - генерит действительно случайные числа

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

Damarus

Дата 30.9.2006, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 671
Регистрация: 6.5.2006

Репутация: 7
Всего: 29

Цитата(comtat @ 30.9.2006, 09:56

)

Какой на каком языке необходимо написать

Цитата(Lupus @ 29.9.2006, 18:58

)

в вижуале

А вообще тему перенесли из Visual C++/MFC/WTL.

comtat

Дата 30.9.2006, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Цитата(Damarus @ 30.9.2006, 11:43

)

Visual C++/MFC/WTL

Жалко что на сишнике не пишу smile

так бы написал

Это сообщение отредактировал(а) comtat - 30.9.2006, 19:22

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

Lupus

Дата 2.10.2006, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Цитата

Жалко что на сишнике не пишу
так бы написал

Мужики! Пофиг на каком языке, лишь бы работало! smile

Главное что бы под M$ Windows пахало -- в виде окошка с возможностью выбора числа генерируемых символов (10 - 20 - 100 -- 1000), и возможностью скопировать сгенеринную последовательность в буфер. Это не курсовая и не ДЗ -- этот период моей жизни, когда были эти гадости, минул smile

Вот возникла такая необходимость...

Это сообщение отредактировал(а) Lupus - 2.10.2006, 16:58

Alexeis

Дата 2.10.2006, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

если все равно то вот на делфи

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    btn1: TButton;
    edt1: TEdit;
    lbl1: TLabel;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
            //32 to 125
            //192 to 255

var
  mas : array[0..155] of char;

procedure TForm1.btn1Click(Sender: TObject);
var
  i : byte;
  s : ansistring;
  l : integer;
begin
  s := ' ';
  l := 0;
  TryStrToInt(Edt1.text, l);
  for i := 1 to l
  do
    memo1.Lines.Add(mas[random(156)]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i : byte;
begin
  for i := 32 to 125
  do
    mas[i - 32] := chr(i);

  for i := 192 to 255
  do
    mas[i - 100] := chr(i);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  memo1.SelectAll;
  memo1.CopyToClipboard;
end;

end.

прикрепляю проект

Это сообщение отредактировал(а) alexeis1 - 2.10.2006, 18:18

Присоединённый файл ( Кол-во скачиваний: 17 )

gen.zip 200,16 Kb

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Lupus

Дата 3.10.2006, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

to alexeis1: Супер!!! Большое человеческое спасибо. То, что надо. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »