Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Chi riesce in piccola modifica?
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

santani
Utente Nuovo

1 invio

Spedito - 10 novembre 2017 :  10:13:25  Mostra profilo  Rispondi con citazione

Questo script mette in gioco gli ambi bivalenti che raggiungono un ritardo di 600 estrazioni.
Si può fare in modo che lo script metta in gioco solo i 10 ambi bivalenti in maggior ritardo indipendentemente da quale esso sia?
Gentilmente qualcuno mi può aiutare?
Grazie!

Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = 7440
For es = fin To ini Step - 1
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)

If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then

For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub

Modificato da - santani su 30 novembre 2017 16:48:51

franca46
Amministratore

Italy
17660 invii

Spedito - 10 novembre 2017 :  17:29:38  Mostra profilo  Rispondi con citazione
Ciao santani , benvenuto nel forum.

Questa sezione e' stata creata per permettere a chi vuole inserire listati per il beneficio di tutti.

Per la tua richiesta di modifica spero che qualcuno possa aiutarti.

Purtroppo io non so farlo.

Buona permanenza nel forum.

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
   Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000