Discussion :

[Liberator]

Bonjour,

J’ai tenté, vainement, de transformer le code basic, ci-dessous, en delphi.

Je souhaiterai afficher dans une fenêtre richedit toutes les permutations du mot inscrit dans un edit.

Je ne suis pas programmateur et ne souhaite pas le devenir, je désir simplement utiliser ce petit programme de permutation.

Je sais qu’il en existe d’autres, mais je n’ai pas réussi à les faire fonctionner…( pas doué…).

Je vous remercie d’avoir la bonté de me dépêtrer de mon petit problème.

Voici le code en basic :

Code basic :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
10 cls
20 print
30 input" tapez votre mot ";f$:d$="":n=len(f$):dim a(n):dim p$(n)
50 print chr$(10)
60 if len(f$)=1 then 80
70 d$=d$+left$(f$,1):p=p+1:p$(p)=f$:f$=right$(f$,len(f$)-1):goto 60
80 x=x+1:print d$+f$,x:i=2
90 f$=p$(p):p=p-1:if len(d$)=1 then 110
100 d$=left$(d$,len(d$)-1):goto 120
110 d$=""
120 a(i)=a(i)+1:if a(i)<i then 150
130 a(i)=0:i=i+1:if i>n then print :end
140 goto 90
150 f$=right$(f$,len(f$)-1)+left$(f$,1):goto 60
155 print
160 end

Merci encore et au plaisir de vous lire.

[Ph. B.]

Bonjour,

J’ai tenté, vainement, de transformer le code basic, ci-dessous, en delphi.

Et donc, si vous nous montriez déjà ce que vous avez fait en delphi ?
On pourrait vous indiquer où vous vous êtes trompé.

[Roland Chastain]

Bonsoir !

Il y a longtemps que je n'avais pas vu du Basic avec des numéros de ligne. Par curiosité, de quel dialecte s'agit-il ?

[Liberator]

je ne suis pas parvenu au moindre résultat, c'est pourquoi je fais appel à vous.

d'autre part je ne suis pas vraiment doué car il y à bien des sources en delphi sur le sujet mais je ne suis pas parvenu à les faires fonctionner... ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
1
2 procedure combinaisons(var vecteur : tab;niveau:integer);
3 var i:integer;
4 begin
5 if niveau =high(vecteur)+1 then
6 affichevecteur(vecteur)
7 else
8 for i:= niveau to high(vecteur) do
9 begin
10 permuter(vecteur,niveau,i);
11 combinaisons(vecteur,niveau+1);.
12 permuter(vecteur,niveau,i);
13 end;
14 end;
15 end.

Je pense que ce programme doit fonctionner mais je ne crois qu''il affiche le resultat dans un richedit.

de plus je ne sais pas le mettre en route car il affiche une erreure dès la première ligne.

Merci de m'avoir répondu.

[Liberator]

c'est du très vieux basic...années 80 je pense c'est tout ce que j'ai trouvé...

[Paul TOTH]

Bonsoir !

Il y a longtemps que je n'avais pas vu du Basic avec des numéros de ligne. Par curiosité, de quel dialecte s'agit-il ?

QuickBasic ! avec des lignes numérotées, que du bonheur

ah non, QBasic n'avait pas besoin de n° de ligne...c'est plus vieux encore

[SergioMaster]

c'est le Basic de mes débuts , il y a de cela .... +35 ans avec cependant un petit plus , plusieurs instructions sur une même ligne séparées par des ':' (histoire de rendre la lecture plus difficile , sans parler de la tonne de GOTO)
donc pas tout a fait pour un ZX80 mais presque !
la préhistoire

[popo]

La seule fois où j'ai vu des numéro de ligne comme ça. C'étais lorsque j'avais douze ans quand j'ai voulu m'essayer pour la première fois à la programmation. C'était du basic sur un CPC 464 monocrome vert avec des cassettes.

[Ph. B.]

Cela ressemble furieusement au basic de mon Sharp PC-1350 de 1985

[evarisnea]

c'est fou le nombre de personnes à avoir pratiqué du Basic/QBasic (je pensais être l'un des rares)

@Liberator
tu devrais essayer de décomposer ton code en pseudo code ou algorithme, et poser des questions précises sur les points où tu bloques ou n'arrive pas à traduire/implémenter en delphi.
car comme tu l'as certainement remarqué, nous ne sommes pas là pour coder pour les autres (c'est pas dit méchamment)

[Rayek]

c'est fou le nombre de personnes à avoir pratiqué du Basic/QBasic (je pensais être l'un des rares)

@Liberator
tu devrais essayer de décomposer ton code en pseudo code ou algorithme, et poser des questions précises sur les points où tu bloques ou n'arrive pas à traduire/implémenter en delphi.
car comme tu l'as certainement remarqué, nous ne sommes pas là pour coder pour les autres (c'est pas dit méchamment)

Selon l'age, pas mal on du démarrer le développement avec les ZX et TO, puis Amstrad (1er développement à 11 ans sur cette bête pour ma part )

[Fxg]

Nostalgie quand tu nous tient....

Heureusement qu'Evarisnea est là pour nous ramener sur le droit chemin...

[Rayek]

Je suis d'humeur aujourd'hui donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
  Function Permutte(AValue : String; ALst : TStrings) : Boolean;
  var
    sTmp : String;
    iCount, i : Integer;
    LstTmp : TStringList;
    FirstChar : Char;
  begin
    Result := False;
    LstTmp := TStringList.Create;
    try
    iCount := 0;
    If Length(AValue) <> 1 then
    begin
      sTmp := AValue;
      While iCount< Length(AValue) do
      begin
        lstTmp.Clear;
        If Permutte(Copy(sTmp,2,Length(sTmp) -1),LstTmp) then
        begin
          FirstChar := sTmp[1];
          for i := 0 to lstTmp.Count -1 do
            ALst.Add(FirstChar + lstTmp[i]);
          sTmp := Copy(sTmp,2,Length(sTmp) - 1) + FirstChar;
        end;
        inc(iCount);
      end;
    end
    else
      ALst.Add(AValue);
    Result := True;
    finally
      LstTmp.Free;
    end;
  end;

Dans une forme tu poses un TEdit, TListBox et dans un bouton tu mets

Code :

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

1
2
3
 
  ListBox1.Clear;
  Permutte(Edit1.Text, ListBox1.Items);

Attention, plus il y a de caractères plus c'est long (untruc12 ca mets bien 7s de calcul, untruc123 met 1Mn)

[Caribensila]

Dans l'temps, on savait faire court ! [soupir]

[Lung]

c'est fou le nombre de personnes à avoir pratiqué du Basic/QBasic (je pensais être l'un des rares)

Moi, c'est sous Windows 98 (enfin, sous DOS), que je faisais du QuickBasic.
C'était le bon temps

[tourlourou]

Hi, Hi !

Basic sur mini d'InterTechnique, au lycée, puis sur NewBrain et Apple II.

A ce propos, un copain de Terminale avait eu la calculatrice Sharp en import des USA, en 1980 (précision historique d'importance capitale, le lien de Ph. B. indiquant " année : 198? ").

Bref, je me sens rajeunir...

Par contre, au niveau code, j'ai vieilli et - heureusement - fait des progrès en lisibilité !

[Caribensila]

Mon 1er PC (acheté en kit).
Le plus gros périph' était le transfo et le papier d'imprimante faisait 8 cm de large !

[Roland Chastain]

Je suis d'humeur aujourd'hui

Génial ton exemple !

Je l'ai construit pour moi-même. Comme j'ai cru comprendre que l'auteur de la discussion n'était pas rompu à la programmation Delphi, je me permets de poster le projet complet.

[Liberator]

Je suis heureux d’avoir éveillé en vous de bon vieux souvenir sur les ‘bécanes’ de vos débuts.

Je désespérais de recevoir une réponse à mon problème lorsque Rayek et Roland Chastain ont édités du code.

Je sais, et je comprends, que vous n’êtes pas là pour résoudre et faire tout le travail pour les autres.

Cependant, vous rendez de grands services à ceux qui, comme moi ( 60 ans ), ne souhaites pas entreprendre l’apprentissage d’un langage mais simplement se servir de Delphi pour avoir de petit programme adaptés à leurs besoin.

Je rêve d’une bibliothèque ou serait stocké ( en libre service ) tout les logiciels utiles que vous auriez réalisés à la demande…même si une petite rétribution serait nécessaire.

Voilà, je vais maintenant recopier mon code et voir si c’est ok pour moi…

Un grand merci encore, et à bientôt.

[Liberator]

C'est fait, ça marche impec !

Il est vrai qu’à partir de 10 N° ça rame...mais c'est parfaitement compréhensible !!

Est-ce-que ce serait plus rapide si ont écrivait les résultats dur le disque plutôt que dans la fenêtre listbox ?

Et si oui quelle serait la modif ? ( sans vouloir abuser !)

Merci Rayek et Roland Chastain pour votre aide.

Je valide en cliquant sur ‘résolu’.