> Ho la necessità di scrivere un programma (ho Delphi 3 Pro originale,
> ovviamente)per creare dei turni a caso di 11 persone.
> Mi spiego meglio: Nell'arco dell'anno, 11 persone devono fare dei turni
> settimanali ed ogni turno è composto da 2 persone, che in quella
> settimana devono prolungare l'orario di lavoro il martedì ed il giovedì.
> In più, queste 11 persone devono assicurare il turno del sabato. Quindi,
> ogni 11 settimane,a rotazione, ognuno deve fare anche il turno del sabato.
> Non so neanche da dove cominciare questo programma che dovrebbe generare
> CASUALMENTE questi turni.
> Se qualcuno è così gentile da rispondermi, dovrebbe dirmi da dove
> iniziare,con esempi, considerando che uso BDE con Delphi 3 Pro e che
> sono "programmatore" per diletto.
> Grazie infinite.

> Era martedi`, 29 aprile 2008, alle ore 20:33... quando, guardando il
> dito o seguendo la luna, Mazinga scrisse in
> <6RJRj.26637$o06.19631@tornado.fastwebnet.it>:
>

>> Ho la necessità di scrivere un programma (ho Delphi 3 Pro originale,
>> ovviamente)per creare dei turni a caso di 11 persone.

> // Get an integer random number in the range 1..100
> for i := 1 to 5 do
> begin
> int := 1 + Random(100); // The 100 value gives a range 0..99
> ShowMessage('int = '+IntToStr(int));
> end;
>
>
>

>> settimana | martedi` | giovedi` | sabato
>> ------------------------------------------
>> 1a | AB | CD | EF

>
> La creo con Delphi? Oppure con quale applicativo?

> Era mercoledi`, 30 aprile 2008, alle ore 16:26... quando, guardando il
> dito o seguendo la luna, Raffaele Stabile scrisse in
> <48188193.1030300@fastwebnet.it>:
>

>>> settimana | martedi` | giovedi` | sabato
>>> ------------------------------------------
>>> 1a | AB | CD | EF

>> La creo con Delphi? Oppure con quale applicativo?

>
>
>
> Puoi provarlo facilmente copiandolo direttamente in Delphi 3... ma
> ovviamente va sistemato per le tue esigenze... e sicuramente
> migliorato, se serve...
>
> Ciao ciao
> Claudio
>

> Era mercoledi`, 30 aprile 2008, alle ore 16:26... quando, guardando il
> dito o seguendo la luna, Raffaele Stabile scrisse in
> <48188193.1030300@fastwebnet.it>:
>

>>> settimana | martedi` | giovedi` | sabato
>>> ------------------------------------------
>>> 1a | AB | CD | EF

>>

> E questa e` la procedura di base:
>
> procedure CreaFilePeriodo(nomefile: string; DataIniziale: TDate);
> var
> indice, j, c: Integer;
> // Assegnati conterra` i nomi dei turnisti assegnati con
> // un'estrazione casuale
> Assegnati: array [0..10] of string;
> Data: TDate;
>
> ...

> L'ho provato, ma come output ottengo una form bianca. Coos'altro devo
> fare? Scusami, l'ho già detto, sono un dilettante.
> Grazie ancora per la tua pazienza.

> Era venerdi`, 2 maggio 2008, alle ore 19:37... quando, guardando il
> dito o seguendo la luna, Mazinga scrisse in
> <481B5165.2070909@fastwebnet.it>:
>

>> L'ho provato, ma come output ottengo una form bianca. Coos'altro devo
>> fare? Scusami, l'ho già detto, sono un dilettante.
>> Grazie ancora per la tua pazienza.

>
> Ohi, temo ci sia qualche problema... Vabbe`, credo che si possa
> risolvere... :-)
> Apri un nuovo progetto... inserisci un bottone standard nella form