Novità

Uno script di somma 91

gennaro52

gennaro52

Super Member >PLATINUM<
SI POTREBBE FARE UNO SCRIPT DI SOMMA 91 ? GRAZIE

RICERCARE SU DUE ESTRAZIONE CONSECUTIVA TROVARE DUE NUMERI DI SOMMA 91 ISOTOPI ALLA STESSA RUOTA

ESEMPIO : 3/5/2012 - 5/5/2012 ......ruote uguali
FI 78 2° posto - FI 13 2° posto - posizioni isotopi

78 + 13 = somma 91

Operazione da seguire

78 - 45 = 33 .............+ o - 45
13 + 45 = 58 ........diametrali 45

PRONOSTICO : 78.13.33.58 x TUTTE

Max 3° Colpi

ESITO FU ECCEZIONALE : TERNO : 78.13.33
al 3° colpo
 
Ciao Gennaro eccoti lo script.
Mi spiace ma gli esiti parlano da soli !!!.

Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(1)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",100))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es + 1,r1,p1)
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     ruote(1) = r1
     rtt(1) = 11
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,rtt,poste,k,3
     co = co + 1
     Gioca es
    End If
    Next:Next:Next
    Scrivi String(65,"=") & " script by maxma62",1
    ScriviResoconto
    Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub
 
salve a tutti del forum un grazie a mike58 per il listato vorrei chiedere se questo si può modificare e farlo girare sulle ruote di ve & pa invece di tutte grazie in anticipo
 
SI.... garcid si può fare con delle semplici correzioni delle variabili ruote.
Bisogna solo capire se la ricerca della somma va fatto su rutte le ruote ed il gioco va fatto solo su PA-VE, oppure se anche la ricerca da fare solo sulle ruote interessate al gioco.

Fammi sapere.
 
grazie mike58 per la solecitudine, se si può fare ruota per ruota con il resoconto detagliato sarebbe il massimo ,invece se è troppo complicato a mè basterebbe anchè solo le due ruote sopra menzionate ciao a tutti
 
Ciao garcid ecco lo script con la ricerca su tutte della somma 91 su tutte le ruote e con il gioco alle sole ruote di pa-ve.

Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(1),ruo(2)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",100))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es + 1,r1,p1)
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     ruote(1) = r1
     'rtt(1) = 11
     ruo(1) = 7
     ruo(2) = 10
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,ruo,poste,k,3
     co = co + 1
     Gioca es
    End If
    Next:Next:Next
    Scrivi String(65,"=") & " script by Mike58 ",1
    ScriviResoconto
    Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub

'------------------------- 2° SCRIPT ricerca su ruota e gioca su 2 ruote-------------------


Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(1),ruo(2)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 qr = CInt(InputBox("Su Quale ruota cerco la somma",,7))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",300))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  
   For p1 = 1 To 5
     r1 = qr
     a = Estratto(es,r1,p1)
     b = Estratto(es + 1,r1,p1)
    
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     
     ruo(1) = 7 ' ruote su cui giocare
     ruo(2) = 10 ' ruote su ci giocare
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,ruo,poste,k,3
     co = co + 1
     Gioca es
    End If
   
   Next
  Next
  Scrivi String(65,"=") & " script by Mike58",1
  ScriviResoconto
  Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub
 
Mike58 ha scritto:
Ciao Gennaro eccoti lo script.
Mi spiace ma gli esiti parlano da soli !!!.

Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(1)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",100))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es + 1,r1,p1)
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     ruote(1) = r1
     rtt(1) = 11
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,rtt,poste,k,3
     co = co + 1
     Gioca es
    End If
    Next:Next:Next
    Scrivi String(65,"=") & " script by maxma62",1
    ScriviResoconto
    Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub
Clicca per espandere...

GRAZIE MiKe58 ...... PER LO SCRIPT E VEDO CHE LA SOMMA LA POSSO VARIARE HO PROVATO CON TUTTE LE SOMME
E HO NOTATO CHE LA SOMMA PIU' EFFICACE E QUELLA 56 HA DATO ADDIRITTURA UNA QUATERNA TE LA POSTO QUI SOTTO + 4 Terni e 29 AMBI su TUTTE
BEATO VOI CHE SAPETE FARE GLI SCRIPT LO VORREI TANTO SAPERLO FARE ANCHIO MA IN MATERIA NON CI CAPISCO NIENTE
COMPLIMENTI A TUTTI BRAVIIN BOCCA AL LUPO

Estrazione generatrice del pronostico 08568 [ 92 - 02/08/2012]
G 0001
Numeri in gioco : 38.18.83.63 su TT per Ambo,Terno
V N. [38.18.83.63 ] [TT] [NA][.. 18 83 38 63] C. 1 Quaterna 08569 [ 93 - 04/08/2012]
Interrotta per esito verificato

 
Ultima modifica:
Ciao GENNARO ho piacere che hai apprezzato lo script e soprattutto grazie della dritta per la somma + conveniente.
Però devo dirti se non usi la somma 91 devi cambiare questa riga di codice

so=FuoriX(a + b,91)

con

so = fuori90(a+b)

altrimenti non vengono calcolate esattamente le dovute somme cercate.

Ciao un Salutone.

 
salve mike58 apprezzato e provato i 2 listati ,e non li ho proprio approfonditi perchè come ha fatto gennaro52 ho fatto tutte le prove cambiando la somma e le ruote ed ho trovato dei riscronti confortanti , oltre aver cambiato quello che ci hai detto ,il risultato delle somme più forti rimangono quasi costanti, per un ulteriore approfondimento mi vorrei collegare alla richiesta di oggi cioè:avere lo stesso listato però ruota per ruota (non tutte assieme) con i risultati detagliati per essempio"la ruota di venezia con la somma91 sono usciti 10 ambi 2 terni" e così per tutte le dieci ruote grazie per averci aiutato ciao
 
Mike58 ha scritto:
Ciao GENNARO ho piacere che hai apprezzato lo script e soprattutto grazie della dritta per la somma + conveniente.
Però devo dirti se non usi la somma 91 devi cambiare questa riga di codice

so=FuoriX(a + b,91)

con

so = fuori90(a+b)

altrimenti non vengono calcolate esattamente le dovute somme cercate.

Ciao un Salutone.
Clicca per espandere...

GRAZIE MILLE
mike58-9669.gif
OK FATTO..... SALUTI ALLA PROSSIMA
 
garcid ha scritto:
salve mike58 apprezzato e provato i 2 listati ,e non li ho proprio approfonditi perchè come ha fatto gennaro52 ho fatto tutte le prove cambiando la somma e le ruote ed ho trovato dei riscronti confortanti , oltre aver cambiato quello che ci hai detto ,il risultato delle somme più forti rimangono quasi costanti, per un ulteriore approfondimento mi vorrei collegare alla richiesta di oggi cioè:avere lo stesso listato però ruota per ruota (non tutte assieme) con i risultati detagliati per essempio"la ruota di venezia con la somma91 sono usciti 10 ambi 2 terni" e così per tutte le dieci ruote grazie per averci aiutato ciao
Clicca per espandere...


Ciao garcid,prova questa soluzione cosi da vedere nel resoconto finale il riscontro esiti su ruote.
Poi con un pò di immaginazione potete variare quello che a voi più vi è necessario utilizzando i 3 script postati.

Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(10)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",100))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es + 1,r1,p1)
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     ruote(1) = r1
     rtt(1) = 1
     rtt(2) = 2
     rtt(3) = 3
     rtt(4) = 4
     rtt(5) = 5
     rtt(6) = 6
     rtt(7) = 7
     rtt(8) = 8
     rtt(9) = 9
     rtt(10) = 10
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,rtt,poste,k,3
     co = co + 1
     Gioca es
    End If
    Next:Next:Next
    Scrivi String(65,"=") & " script by Mike58",1
    ScriviResoconto
    Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub
 
salve, grazie mike58 per l'ennesimo listato ,con quello che hai fatto mi ha fatto risparmiare un sacco di tempo e sicuramente qualche errore , ed un grazie anchè a gennaro52 per aver messo a disposizione un'idea nuova .se può servire il riscontro più grande si ha con le somme 33,56,68 con la somma 90. saluti e grazie ancora
 
Mike58 ha scritto:
Ciao Gennaro eccoti lo script.
Mi spiace ma gli esiti parlano da soli !!!.

Codice: 
Sub Main()
 Dim nu1(4),poste(3),ruote(1),rtt(1)
 poste(2) = 1
 poste(3) = 1
 sm = CInt(InputBox("quale somma?","somma",91))
 ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",100))
 k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",6))
 fin = EstrazioneFin
 ini = fin - ce
 ColoreTesto 2
 Scrivi "script per somma " & Format2(sm) & "  *** by Mike58 ***  " & "  **** Richiesta Forum Lottoced per Gennaro52 ****   ",1
 Scrivi
 ColoreTesto 0
 Scrivi String(110,"="),1
 Scrivi "resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Call Messaggio("elab. estrazione........" & es & "     script by Mike58   ")
  Call AvanzamentoElab(Ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es + 1,r1,p1)
    so = FuoriX(a + b,91)
    If so = sm Then
     casi = casi + 1:Scrivi String(95,"=") & " script by Mike58 ",1
     ColoreTesto 2
     Scrivi "Trovata Somma Richiesta sulla ruota di..." & NomeRuota(r1),1
     ColoreTesto 1
     Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
     Format2(a) & " ] in " &(p1) & "^ pos.",1
     Scrivi DataEstrazione(es + 1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es + 1,r1) & " ] [ " & _
     Format2(b) & " ] in " &(p1) & "^ pos.",1
     ColoreTesto 0
     Scrivi String(100,"-") & " caso n° " &(casi)
     ruote(1) = r1
     rtt(1) = 11
     co = 0
     nu1(1) = a
     nu1(2) = b
     nu1(3) = Diametrale(a)
     nu1(4) = Diametrale(b)
     co = co + 1
     ImpostaGiocata co,nu1,rtt,poste,k,3
     co = co + 1
     Gioca es
    End If
    Next:Next:Next
    Scrivi String(65,"=") & " script by maxma62",1
    ScriviResoconto
    Scrivi "script per somma " & Format2(sm) & " by Mike58 ",1
End Sub
Clicca per espandere...

ESITO x STASERA SOMMA 91

Estrazione generatrice del pronostico 08599 [123 - 13/10/2012]
G 0001
Numeri in gioco : 15.76.60.31 su TT per Ambo,Terno
N. [15.76.60.31 ] [TT] [RO][.. 76 .. .. ..] C. 1 Estratto 08600 [124 - 16/10/2012]
V N. [15.76.60.31 ] [TT] [GE][.. .. 76 60 ..] C. 2 Ambo 08601 [125 - 18/10/2012]
V N. [15.76.60.31 ] [TT] [MI][.. 76 .. .. 31] C. 2 Ambo 08601 [125 - 18/10/2012]
Interrotta per raggiunta durata

due Ambi su tutte nella stessa astrazione
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto