SUPER LOTTO

FIRENZE-ROMA

« Older   Newer »
  Share  
Pink_Panther
CAT_IMG Posted on 2/4/2012, 17:56




CODICE
Sub Main()
       Dim ruote(11)
       Dim n1(4)
       Dim ambata(1)
       Dim posta(1)
       Dim poste(10)
       posta(1) = 1
       poste(2) = 1
       'poste(3) = 1
       ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50)
       k = InputBox("per quanti colpi?","colpi di gioco",12)
       ini = EstrazioneFin - ce
       fin = EstrazioneFin
       casi = 0
       ok = 0
       For es = ini To fin
               Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
               Call AvanzamentoElab(Ini,fin,es)
               For r1 = 1 To 9
                       For r2 = r1 + 1 To 11
                               If r2 = 11 Then
                                       r2 = 12
                               End If
                               For p1 = 1 To 4
                                       For p2 = p1 + 1 To 5
                                               For p3 = 1 To 4
                                                       For p4 = p3 + 1 To 5
                                                               a = Estratto(es,r1,p1)
                                                               b = Estratto(es,r1,p2)
                                                               c = Estratto(es,r2,p3)
                                                               d = Estratto(es,r2,p4)
                                                               '---------------------------------------------
                                                               If r1 = 3 And r2 = 8 Then
                                                                       If Decina(a) = Decina(b) And Decina(c) = Decina(d) Then
                                                                               ok = 1
                                                                               '-----------------------------------------------
                                                                               If ok = 1 Then
                                                                                       nu1 = Fuori90(a + b)
                                                                                       nu2 = Fuori90(c + d)
                                                                                       nu3 = Abs(nu1 - nu2)
                                                                                       nu4 = ComplAdX(nu3)
                                                                                       ambata(1) = nu4
                                                                                       n1(1) = nu4
                                                                                       n1(2) = nu1
                                                                                       n1(3) = nu2
                                                                                       ruote(1) = r1
                                                                                       ruote(2) = r2
                                                                                       ColoreTesto 0
                                                                                       ImpostaGiocata 1,ambata,ruote,posta,k,1
                                                                                       ImpostaGiocata 2,n1,ruote,poste,k,2
                                                                                       Gioca es,1
                                                                               End If
                                                                       End If
                                                               End If
                                                       Next
                                               Next
                                       Next
                               Next
                       Next
               Next
       Next
       Scrivi
       Scrivi String(100,"*")
       ColoreTesto 2
       Scrivi" casi trovati : " & casi,1
       ColoreTesto 0
       Scrivi String(100," * ")
       ColoreTesto 0
       ScriviResoconto
End Sub
 
Top
archangel
CAT_IMG Posted on 3/4/2012, 13:55




non funziona pink ...pesce d'aprile ? :P
 
Top
giorgiamattia
CAT_IMG Posted on 6/4/2012, 19:48




funziona fin troppo bene!!!!

Estrazione generatrice del pronostico 08496 [ 19 - 14/02/2012]
G 0001
Numeri in gioco : 13 su FI RM per Estratto
V N. [13 ] [RM] [13 .. .. .. ..] C. 2 Estratto 08498 [ 21 - 18/02/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 13.83.06 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08497 [ 20 - 16/02/2012]
G 0001
Numeri in gioco : 74 su FI RM per Estratto
V N. [74 ] [FI] [.. .. .. .. 74] C. 6 Estratto 08503 [ 26 - 01/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 74.41.25 su FI RM per Ambo
V N. [74.41.25 ] [FI] [.. 41 .. .. 74] C. 10 Ambo 08507 [ 30 - 10/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08497 [ 20 - 16/02/2012]
G 0001
Numeri in gioco : 72 su FI RM per Estratto
V N. [72 ] [FI] [.. 72 .. .. ..] C. 7 Estratto 08504 [ 27 - 03/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 72.43.25 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08497 [ 20 - 16/02/2012]
G 0001
Numeri in gioco : 73 su FI RM per Estratto
V N. [73 ] [FI] [.. .. 73 .. ..] C. 2 Estratto 08499 [ 22 - 21/02/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 73.42.25 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08498 [ 21 - 18/02/2012]
G 0001
Numeri in gioco : 83 su FI RM per Estratto
V N. [83 ] [FI] [.. 83 .. .. ..] C. 7 Estratto 08505 [ 28 - 06/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 83.65.72 su FI RM per Ambo
V N. [83.65.72 ] [RM] [.. .. 65 72 ..] C. 9 Ambo 08507 [ 30 - 10/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08500 [ 23 - 23/02/2012]
G 0001
Numeri in gioco : 80 su FI RM per Estratto
V N. [80 ] [RM] [.. .. .. 80 ..] C. 3 Estratto 08503 [ 26 - 01/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 80.78.68 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08501 [ 24 - 25/02/2012]
G 0001
Numeri in gioco : 32 su FI RM per Estratto
V N. [32 ] [FI] [.. .. .. 32 ..] C. 11 Estratto 08512 [ 35 - 22/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 32.59.01 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08502 [ 25 - 28/02/2012]
G 0001
Numeri in gioco : 70 su FI RM per Estratto
V N. [70 ] [RM] [.. .. 70 .. ..] C. 8 Estratto 08510 [ 33 - 17/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 70.62.82 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08502 [ 25 - 28/02/2012]
G 0001
Numeri in gioco : 77 su FI RM per Estratto
V N. [77 ] [FI] [.. .. .. .. 77] C. 8 Estratto 08510 [ 33 - 17/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 77.62.75 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08502 [ 25 - 28/02/2012]
G 0001
Numeri in gioco : 73 su FI RM per Estratto
V N. [73 ] [RM] [.. .. 73 .. ..] C. 11 Estratto 08513 [ 36 - 24/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 73.62.79 su FI RM per Ambo
Interrotta per raggiunta durata

Estrazione generatrice del pronostico 08507 [ 30 - 10/03/2012]
G 0001
Numeri in gioco : 51 su FI RM per Estratto
V N. [51 ] [RM] [.. 51 .. .. ..] C. 3 Estratto 08510 [ 33 - 17/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 51.81.42 su FI RM per Ambo
V N. [51.81.42 ] [RM] [81 42 .. .. ..] C. 5 Ambo 08512 [ 35 - 22/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08507 [ 30 - 10/03/2012]
G 0001
Numeri in gioco : 85 su FI RM per Estratto
In corso per altre 1 estrazioni
G 0002
Numeri in gioco : 85.81.86 su FI RM per Ambo
In corso per altre 1 estrazioni
Estrazione generatrice del pronostico 08507 [ 30 - 10/03/2012]
G 0001
Numeri in gioco : 53 su FI RM per Estratto
V N. [53 ] [FI] [53 .. .. .. ..] C. 2 Estratto 08509 [ 32 - 15/03/2012]
V N. [53 ] [RM] [.. .. 53 .. ..] C. 2 Estratto 08509 [ 32 - 15/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 53.79.42 su FI RM per Ambo
In corso per altre 1 estrazioni
Estrazione generatrice del pronostico 08507 [ 30 - 10/03/2012]
G 0001
Numeri in gioco : 83 su FI RM per Estratto
V N. [83 ] [RM] [.. .. .. 83 ..] C. 3 Estratto 08510 [ 33 - 17/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 83.79.86 su FI RM per Ambo
In corso per altre 1 estrazioni
Estrazione generatrice del pronostico 08508 [ 31 - 13/03/2012]
G 0001
Numeri in gioco : 32 su FI RM per Estratto
V N. [32 ] [FI] [.. .. .. 32 ..] C. 4 Estratto 08512 [ 35 - 22/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 32.65.07 su FI RM per Ambo
V N. [32.65.07 ] [FI] [.. 07 .. 32 ..] C. 4 Ambo 08512 [ 35 - 22/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 59 su FI RM per Estratto
V N. [59 ] [FI] [.. .. .. 59 ..] C. 3 Estratto 08513 [ 36 - 24/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 59.27.58 su FI RM per Ambo
In corso per altre 4 estrazioni
Estrazione generatrice del pronostico 08510 [ 33 - 17/03/2012]
G 0001
Numeri in gioco : 87 su FI RM per Estratto
In corso per altre 4 estrazioni
G 0002
Numeri in gioco : 87.61.58 su FI RM per Ambo
V N. [87.61.58 ] [RM] [.. .. .. 61 58] C. 5 Ambo 08515 [ 38 - 29/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08511 [ 34 - 20/03/2012]
G 0001
Numeri in gioco : 58 su FI RM per Estratto
V N. [58 ] [RM] [.. .. .. .. 58] C. 4 Estratto 08515 [ 38 - 29/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 58.33.65 su FI RM per Ambo
V N. [58.33.65 ] [FI] [.. .. 33 .. 58] C. 5 Ambo 08516 [ 39 - 31/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08511 [ 34 - 20/03/2012]
G 0001
Numeri in gioco : 82 su FI RM per Estratto
V N. [82 ] [FI] [.. .. .. .. 82] C. 1 Estratto 08512 [ 35 - 22/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 82.33.25 su FI RM per Ambo
In corso per altre 5 estrazioni
Estrazione generatrice del pronostico 08511 [ 34 - 20/03/2012]
G 0001
Numeri in gioco : 71 su FI RM per Estratto
V N. [71 ] [FI] [.. 71 .. .. ..] C. 2 Estratto 08513 [ 36 - 24/03/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 71.84.65 su FI RM per Ambo
V N. [71.84.65 ] [FI] [65 71 .. .. ..] C. 2 Ambo 08513 [ 36 - 24/03/2012]
Interrotta per esito verificato

Estrazione generatrice del pronostico 08511 [ 34 - 20/03/2012]
G 0001
Numeri in gioco : 31 su FI RM per Estratto
In corso per altre 5 estrazioni
G 0002
Numeri in gioco : 31.84.25 su FI RM per Ambo
In corso per altre 5 estrazioni
Estrazione generatrice del pronostico 08518 [ 41 - 05/04/2012]
G 0001
Numeri in gioco : 78 su FI RM per Estratto
In corso per altre 12 estrazioni
G 0002
Numeri in gioco : 78.54.66 su FI RM per Ambo
In corso per altre 12 estrazioni

****************************************************************************************************
 
Top
CAT_IMG Posted on 7/4/2012, 17:36

Group:
Member
Posts:
62

Status:


ciao buona pasqua tutti ho scontrato errore nel listato firenze roma nu4 = ComplAdX(nu3)io uso l8+6.10 mi puoi correggere errore grazie
 
Top
Pink_Panther
CAT_IMG Posted on 7/4/2012, 20:23




CITAZIONE (arlecchino @ 7/4/2012, 18:36) 
ciao buona pasqua tutti ho scontrato errore nel listato firenze roma nu4 = ComplAdX(nu3)io uso l8+6.10 mi puoi correggere errore grazie

Ciao arlechino,
in quella stringa,correggi scrivendo:
nu4 = 90-(nu3)

 
Top
archangel
CAT_IMG Posted on 10/4/2012, 18:20




io inserisco questa su lottodesk ma quando la eseguo mi da' zero previsioni cosa c'è di sbagliato ?qualcuno sa' darmi una mano ?
Sub Main()
Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
'poste(3) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
'---------------------------------------------
If r1 = 3 And r2 = 8 Then
If Decina(a) = Decina(b) And Decina(c) = Decina(d) Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
nu1 = Fuori90(a + b)
nu2 = Fuori90(c + d)
nu3 = Abs(nu1 - nu2)
nu4 = 90-(nu3)
ambata(1) = nu4
n1(1) = nu4
n1(2) = nu1
n1(3) = nu2
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
 
Top
5 replies since 2/4/2012, 17:56   372 views
  Share