Генерация случайным образом

[Golovastik]

Подскажите, если кто знает:
1)Как можно сгенерировать случайным образом с учётом ограничений телефонный номер абонента.
Тоесть номер начинается вот так 8103861+.........(7 чисел номера только сгенерировать нужно).
2)Сгенерировать время начала и конца разговора случайным образом,длительность разговора должна измерятся в минутах.

[Sazary]

Номер:
вариант 1:

#include <time.h>
#include <stdlib.h>
#include <iostream>
using namespace std;

int main()
{
 int i;
 srand(time(NULL));
 cout<<"Your number: 8103861+";
 for(i=0; i<7; i++)
  cout << rand()%10;
 cout<<endl;
 
 cin.get();
 return 0;
}

вариант 2:

#include <time.h>
#include <stdlib.h>
#include <iostream>
using namespace std;

int main()
{
 int i;
 long k;
 srand(time(NULL));
 k = (rand()*rand())%10000000L;
 cout<<"Your number: 8103861+";
 cout.width(7);
 cout.fill('0');
 cout <<k<<endl;
 cin.get();
 return 0;
}

Про время:
генерируете часы и минуты для начала, конца. Потом можете написать свою функцию преобразования в число, чтобы можно было найти разность.

[ds.Dante]

Про время разговора: есди нужен реализм - используй распределение Максвелла. Более простой вариант - по Гауссу:

int n=0;
for (int i=0; i<10; i++) // вместо 10 поставь среднее время разговора умноженное на 2
    if (rand()%2)
        n++;

Если момент начала разговора тоже должен быть реалистичным, поищи статистику звонков.

[Golovastik]

Спасибо большое Sazary вы не подскажете,как переделать на билдере ваш вариант,так как сказали с использованием формы. Суть такова. При нажатии на кнопку Button1 генерируется телефонный номер + количество минут(минуты тоже генерировать), например

8-10-386-1(...сгенерированный 7-значный номер)    3,24 минуты
8-10-386-1(...сгенерированный 7-значный номер)    8,22 минуты
8-10-386-1(...сгенерированный 7-значный номер)    3,15 минуты
8-10-386-1(...сгенерированный 7-значный номер)    2,22 минуты

Вот это выводится через Мемо1 и через Мемо2 одновременно.
Button1- Это кнопка ПУСК, Button2 - СТОП
Генерировать и выводить это всё,гдето до 1000 где-то строк.
Если я нажал Button2, генерация остановилась, нажал на Баттон1, генерация продолжилась.
Вывод в Мемо1 и В Мемо2 должен быть как в виде 2 потоков выполняющихся одновременно.


Вот что я смог, но не думаю,что оно правильно:

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
srand(time(0));
}
//---------------------------------------------------------------------------
    AnsiString GenerateNumber()
{
    AnsiString s = "8103861";
    int n = 14 - s.Length();
    for(int i = 0; i < n; ++i)
        s += (char)((rand()%10)+'0');
    return s;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
(AnsiString)Memo1 = GenerateNumber();
}
//---------------------------------------------------------------------------

[Golovastik]

Может вот так, но тоже вроде не то:

//---------------------------------------------------------------------------
#include <time.h>
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool bStart = false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
srand(time(0));
}
//---------------------------------------------------------------------------
     String GenerateNumber()
{
    String s = "8-10-386-1-";
    int n = 18 - s.Length();
    for(int i = 0; i < n; ++i)
        s += (char)((rand()%10)+'0');
    return s;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Caption = GenerateNumber();
if(bStart)
    {
        MessageBeep(0);
        return;
    }
    bStart = true;
    while(bStart)
    {
        // генерация номера
        // ...
        // передача управления форме, чтобы можно было нажать кнопку "stop"
        Application->ProcessMessages();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if(!bStart)
    {
        MessageBeep(0);
        return;
    }
    bStart = false;
}
//---------------------------------------------------------------------------

Вывод в Мемо1 и В Мемо2 должен быть как в виде 2 потоков выполняющихся одновременно.

[Sazary]

Что-нибудь такое:

void __fastcall TForm1::Button1Click(TObject *Sender)
{

if(bStart)
    {
        MessageBeep(0);
        return;
    }
    bStart = true;
    while(bStart)
    {
     Memo1->Lines->Add(GenerateNumber());
     Memo2->Lines->Add(FloatToStr(((rand()*rand())%100)/((double)(rand()%20)+1.0)));  // замените на свою функцию генерацию времени
     Application->ProcessMessages();
    }

}

[Golovastik]

Останавливается на месте:
if(bStart)
Выдаёт неизвестный идентификатор.
Вы не может подсказать,как сделать это добавив класс Thred,так как сказали,чтоб его тоже использовать в этой задаче. Вот код,который у меня на данный момент.

//---------------------------------------------------------------------------
#include <time.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
srand(time(0));
}
//---------------------------------------------------------------------------
     String GenerateNumber()
{
    String s = "8-10-386-1-";
    int n = 18 - s.Length();
    for(int i = 0; i < n; ++i)
        s += (char)((rand()%10)+'0');
    return s;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(bStart)
    {
        MessageBeep(0);
        return;
    }
    bStart = true;
    while(bStart)
    {
     Memo1->Lines->Add(GenerateNumber());
     Memo2->Lines->Add(FloatToStr(((rand()*rand())%100)/((double)(rand()%20)+1.0)));  // замените на свою функцию генерацию времени
     Application->ProcessMessages();
    }


}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(!bStart)
    {
        MessageBeep(0);
        return;
    }
    bStart = false;

}
//---------------------------------------------------------------------------

[Sazary]

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

Останавливается на месте:
if(bStart)
Выдаёт неизвестный идентификатор.

Я привел только измененную функцию. Все остальное из вашего кода в посте #5.

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

Вы не может подсказать,как сделать это добавив класс Thred,так как сказали,чтоб его тоже использовать в этой задаче.

Еще не имел с ним дело.

[Golovastik]

Но код мой также не компилируется, и вывод в Мемо1 и Мемо2 одновременно не происходит. Помогите пожалуйста скомпилировать код.

[Golovastik]

Вот ещё переделка с использованием класса Thread. Помогите пожалуйста собрать, не покидайте меня.

//---------------------------------------------------------------------------
#include <time.h>
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

class MyThread : public TThread {
 AnsiString l1, l2;
 void __fastcall send_data()
  {
    Form1->Memo1->Lines->Add(l1);
    Form1->Memo2->Lines->Add(l2);
    l1=""; l2="";
  }
public:
 MyThread() : TThread(false)
  {
   FreeOnTerminate=true;
  }
 virtual __fastcall Execute()
   {
     while(!Terminated)
      {
        l1=GenerateNumber();
        l2=FloatToStr(((rand()*rand())%100)/((double)(rand()%20)+1.0));
        Synchronize(&send_data);
        Sleep(500);
      }
   }
};

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
srand(time(0));
}
//---------------------------------------------------------------------------
     String GenerateNumber()
     class MyThread* generator;
{
    String s = "8-10-386-1-";
    int n = 18 - s.Length();
    for(int i = 0; i < n; ++i)
        s += (char)((rand()%10)+'0');
    return s;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (generator) MessageBeep(0);
 else generator = new MyThread;
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (!generator) MessageBeep(0); else
  {
   generator->Terminate();
   generator=NULL;

}
//---------------------------------------------------------------------------