Enplein* |
|
| Ciao Zetrix, con Spaziometria il codice MinimoV(B) mi da =0, mentre con LottoDesk funziona... CODICE 16.09.2017 - Nz: 67.29.56.22.48
numero massimo: 67
numero minimo : 22
sab 16.09.2017 [9368]
G 1: A 67.22 Nz 0/1 Premetto che non uso Spaziometria quindi devo escogitare un'altra soluzione....o aspettare qualcun'altro che lo usa con frequenza. Ciao, Enplein. ...ecco la mia soluzione... Sub Main()
Dim ruote(10)
Dim numero1(10),A(5)
Dim posta(5)
Dim poste(5)
'posta(1) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
rx = CInt(InputBox("Quante estrazioni controllo?",,0))
'cl = InputBox("Inserisci i colpi di gioco",,6)
cl = 0
'co = 0
For es =(EstrazioneFin - rx) To EstrazioneFin
Messaggio DataEstrazione(es)
For r = 1 To 12
'r = r + 1
If r = 11 Then r = 12 End If
'parte corretta
'-------------------------
For p = 1 To 5
A(p)=Estratto (es,r,p)
Next
OrdinaMatrice A,1
mv = A(5)
mv1= A(1)
'----------------------------
'xx = Fuori90 ()
'numero1(1) = mv
'numero1(2) = mvx
'mv = Massimo(a,b)
'--------------------------------
'c = mv
'---------------------------------
ruote(1) = r
'ruote(2) = r1
'casi = casi + 1
Scrivi "-------------------------------------------"
ColoreTesto 0
'Scrivi String(68,"-") & " Caso n° " & casi,1
'co = co + 1
ColoreTesto 0
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ": " & StringaEstratti(es,r) & "",1
ColoreTesto 0
'Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ": " & StringaEstratti(es,r1) & " - " & Format2(b)
'ColoreTesto 0
'Scrivi "--------------------------------------------"
ColoreTesto 2
Scrivi "numero massimo: " & Format2(mv),1
ColoreTesto 1
Scrivi "numero minimo : " & Format2(mv1),1
'-----------------------------------------------------------
numero1(1) = mv
numero1(2) = mv1
'numero1(3) = 31
'numero1(4) = 55
ImpostaGiocata 1,numero1,ruote,poste,cl
'-----------------------------------------------------------
'ImpostaGiocata 4,numero4,ruote,poste,k,2
'-----------------------------------------------------------
Gioca es
'End If
'End If
'Next
Next
Next
Scrivi
'Scrivi "Casi Rilevati " & CInt(co)
'ScriviResoconto
End Sub |
| | |
