Discussion :

[patdu26]

Bonjour,

Je vous propose un nouvel élément à utiliser : Tirage au sort de nombres dans une liste

Cette interface permet de définir une liste de nombre de 1 à n1 (n1

Qu'en pensez-vous ?

[Roland Chastain]

Bonjour ! Merci pour cette contribution. Utilisant habituellement Linux, je n'ai pas encore eu le temps d'essayer le programme.

La description est un peu énigmatique. Vous avez toujours la possibilité d'éditer la page de téléchargement.

[patdu26]

bonjour et merci pour la remarque.

Le contenu du texte a été tronqué et je ne pensais pas qu'on pouvais y revenir.
C'est mieux à présent, même si cela reste sans prétention.
Bonne journée!

[SergioMaster]

Bonjour,

Côté interface, j'avoue être un peu déstabilisé par le fait de devoir absolument appuyer sur la touche "Entrée" pour valider les deux nombres. P.S. Note le "Entrée" et non "ENTRER" comme indiqué dans le mémo d'explication qui n'est pas en lecture seule. À l'ère de la souris c'est un peu dommage, suggestion utiliser l'événement OnExit, le onKeypress ne servant qu'à sortir de la zone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm11.EditKeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then
    begin
       Key:=#0;
       SelectNext(Sender as TWinControl,true,true);
    end;
end;

Bonus le même code sert pour les deux TEdit

En second, l'utilisation d'un TMemo pour les résultats, là cela me gêne énormément. Trop compliqué, pourquoi ne pas explorer l'utilisation d'un TListBox avec des colonnes à la place ?

[Edit] Enfin en y pensant un peu plus, les StringLists pourraient peut-être être remplacée par des piles (System.generics.collections), ce serait une piste intéressante et "moderne" sur laquelle je n'ai pas le temps de me pencher

[patdu26]

Bien vu SergioMaster!

J'étais moi_même peu à l'aise, à devoir valider chaque fois avec "Entrée" pour "checker" les infos entrantes, mais je n'ai pas eu l'idée, qui à présent me semble une évidence, d'employer les fonctions de la souris qui sont tellement pratiques! Désolé, j'étais trop dans ma routine à faire tourner pour y penser. La différence est grande entre amateur et pro.....

Le coup du TMEmo est en effet à supprimer également je pense.

Cette routine vise plutôt à être incluse dans un programme plus complet, présentée ici en une (pseudo??) application élémentaire, si elle peut être utilisée, voire améliorée par d'autres.

Merci pour les remarques!

Au plaisir.







mé

[SergioMaster]

Bonjour,

Ce matin, je me suis pris au jeu voulant voir ce que pouvait donner un TListBox et si une pile pouvait faire l'affaire.
Pour la pile, j'ai encore un doute donc je suis resté sur un TList<Integer>

Après quelques petits arrangements (taille de la liste, nombre de colonnes, etc.) voilà ma proposition en PJ.

En faire un Loto, en modifiant quelques lignes est largement envisageable, une petite version FMX me tente ...

[SergioMaster]

En faire un Loto, en modifiant quelques lignes est largement envisageable, une petite version FMX me tente ...

Du Loto c'est passé au Bingo mais c'est du pareil au même ou presque je ne suis pas un joueur de Loto il m'était plus facile de me pencher sur le Bingo.
J'utilise les mêmes principes que déjà débattu.

Voilà quelques images

et je ne suis pas peu fier de vous montrer le même programme sous Linux, un Linux sous Windows (WSL) sans machine virtuelle SVP


En PJ, le source.

À améliorer : la présentation (je n'aime pas trop le bouton [Boule]), l'ajout d'un style (facile), le tri dans l'affichage des résultats (vraiment facultatif) , l'annonce des boules via haut-parleurs (ça, ça me tente) et, @gbebgreg, la même version mais 3D

[patdu26]

Bonjour, le code est mieux pensé le résultat est efficace. Il est important d'avoir du recul sur tous les objets disponibles pour choisir les plus appropriés, (TMemo, TList, TSpinEdit, TListBox) c'est là aussi que la différence se fait entre les novices et les pros...
Je n'ai pas abordé encore le fmx mais cela se fera surement quand je me dépatouillerai mieux déjà en vcl.
Merci pour le boulot et les idées!