aiuto stringa

[roy]

Salve a tutti,non riesco a capire come fare la stringa x individuare il numero maggiore dei 5 estratti in una estrazione su ruota.grazie

 

[joe]

Ciao Roy.


Prova questo:

Option Explicit
Sub Main
Dim Es,R,Se,Nu
Es = EstrazioneFin
Scrivi DataEstrazione(Es),True
For R = 1 To 10
Scrivi SiglaRuota(R) & " ",1,0
Se = StringaEstratti(Es,R)
Nu = Split("0." & Se,".")
OrdinaMatrice Nu,True
Scrivi Se & " <<< ",0,0
Scrivi Format2(Nu(1)),True
Next
End Sub

 

[Master]

Questa potrebbe essere una soluzione (individua il maggiore o il minore)

Sub Main
 Dim a,b
 Dim es,Ini,fin
 fin = EstrazioneFin
 For es = fin - 5 To fin
  a = MassimoE(es,1) '<---- Individua il maggiore degli estratti
  b = MinimoE(es,1) '<---- Individua il minore degli estratti
  Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1),1,0
  Scrivi " il maggiore é " &(a),1,0,,2
  Scrivi " il minore é " &(b),1,,,1
 Next
End Sub

Scusami Joe abbiamo risposto assieme.. lo lascio xkè potrebbe essere un altra soluzione

 

[roy]

Ciao JOE,MASTER,grazie....accidenti mi ero perso...x questa sciocchezza,grazie