Discussion :

[touf54]

bonjour,

J'aimerais un coup de main pour savoir ce que je dois enlever de VB6 ou transformer pour ecrire mon algorithme car je suis debutant.

J'aimerais savoir si le sous programme en public, je le déclare comme un sous programme normale? car il n'est pas dans un arbre d'appel comme un sous programme normale.

J'ai mis en commentaire les lignes de codes que je pense enlever pour écrire l'algorithme.
Pouvez vous me dire si c'est bon ou si j'en ai oublier ou faut simplement les transformer?

Est ce que le randomize, int, Cstr, Instr sont modifier dans le langage algorithmique

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
 
lig = val(Text1.Text) 'obtient le Nbr de ligne
col = val(Text2.Text) 'obtient le Nbr de colonne
'redimensionnes les 2 tableux
ReDim tab_vide(lig - 1, col - 1)
ReDim tab_celule(lig - 1, col - 1)
 
nb = val(Text3.Text) ' je rentre un pourcentage de cellule vivante
nb_max = lig * col 'je calcule le nombre max de case du tableau
 
'elimination eventuel des shapes en trop (sauf l'index 0)
'For T = Shape1.Count - 1 To nb_max - 1 Step -1
' Unload Shape1(T)
'Next T'
'là je divise par 100 puisque tu as parlé de %, ligne au dessus
nb1 = Int((nb * nb_max) / 100) 'j'obtiens le nombres de cellules vivantes par rapport aux nombres de cases'
Text4.Text = nb1
Text5.Text = nb_max - nb1
 
Randomize
V = Int(lig * Rnd)
U = Int(col * Rnd)
ChiffreAleatoire = "|" & CStr(V) & "/" & CStr(U)
T = 0
Do While T < nb1
 V = Int(lig * Rnd)
 U = Int(col * Rnd)
 ChiffrAge = CStr(V) & "/" & CStr(U)
 If InStr(ChiffreAleatoire, ChiffrAge) = 0 Then
  ChiffreAleatoire = ChiffreAleatoire & "|" & ChiffrAge
  T = T + 1
 End If
' DoEvents'
Loop
ChiffreAleatoire = ChiffreAleatoire & "|"
 
V = 0 'pour debug, a remer/supprimer
For T = 0 To lig - 1
 For U = 0 To col - 1
  idx = (T * col) + U 'la je suis pas sûr, lire la suite apres le code
  'Shape1(idx).FillStyle = 0  'a deremer, si pas fait a la construction
  'If idx > Shape1.Count - 1 Then
   'ajout d'une Shape1 qui manque
  ' Load Shape1(idx)
'  End If'
  'placement
  'Shape1(idx).Move Shape1(0).Left + (U * Shape1(0).Width), Shape1(0).Top '+ (Shape1(0).Height * T)
  'Shape1(idx).Visible = True'
 
  ChiffrAge = "|" & CStr(T) & "/" & CStr(U) & "|"
  If InStr(ChiffreAleatoire, ChiffrAge) = 0 Then
   tab_vide(T, U) = False
   tab_celule(T, U) = "Mort"
   'Shape1(idx).FillColor = vbRed'
   Else
   tab_vide(T, U) = True
   tab_celule(T, U) = "Vivant"
   'Shape1(idx).FillColor = vbBlack'
 
  End If
 Next U
Next T
Text4.Text = nb1
Text5.Text = nb_max - nb1

Merci

[PRomu@ld]

Je n'ai pas exactement compris ce que tu veux. Transcrire un programme VB en un pseudo-code ?

Explique nous ce que fais ton algorithme.

[touf54]

j'aimerais transcrire ce code VB6 en langage algorithmique
Mais je suis pas sur comme avec les load shapes ou des chose comme sa, si sa existe en algorithmique.
Je c pas ce que je dois enlever ou transformer!

[PRomu@ld]

En fait, comme il n'y a rien de normalisé en algorithmique, tu peux te prendre ta propre notation. Ensuite, suivant le niveau d'abstraction que tu désires, rien ne t'empêche de garder des fonctions (comme ce load shape)

[touf54]

ok merci

en revanche pouvez vous me dire par quoi je traduis en algorithmique un do while ?

[PRomu@ld]

Plusieurs choix.

Soit tu le gardes tel quel soit tu le traduis en français.

FAIRE
...
TANT QUE