Créer un jeu d'essai en 2 secondes

    Bonjour la communauté,

     

    Je partage avec vous une fonctionnalité que je viens de découvrir pour créer un jeu d'essai en 2 secondes.

     

    Pour cela :

    - créer une nouvelle application

    - enregistrer l'application

    - ctrl + e pour ouvrir l'éditeur de script

    - enfin faire ctrl + q + q

     

    Un jeu d'essai comme ci-dessous se créé :

     

    Characters:

    Load Chr(RecNo()+Ord('A')-1) as Alpha, RecNo() as Num autogenerate 26;

     

    ASCII:

    Load

    if(RecNo()>=65 and RecNo()<=90,RecNo()-64) as Num,

    Chr(RecNo()) as AsciiAlpha,

    RecNo() as AsciiNum

    autogenerate 255

    Where (RecNo()>=32 and RecNo()<=126) or RecNo()>=160 ;

     

    Transactions:

    Load

    TransLineID,

    TransID,

    mod(TransID,26)+1 as Num,

    Pick(Ceil(3*Rand1),'A','B','C') as Dim1,

    Pick(Ceil(6*Rand1),'a','b','c','d','e','f') as Dim2,

    Pick(Ceil(3*Rand()),'X','Y','Z') as Dim3,

    Round(1000*Rand()*Rand()*Rand1) as Expression1,

    Round(  10*Rand()*Rand()*Rand1) as Expression2,

    Round(Rand()*Rand1,0.00001) as Expression3;

    Load

    Rand() as Rand1,

    IterNo() as TransLineID,

    RecNo() as TransID

    Autogenerate 1000

    While Rand()<=0.5 or IterNo()=1;

     

     

    Comment Field Dim1 With "This is a field comment";

     

     

    Kevin CHEVRIER