Novità

A volte basta uno script facile per tutti.

Ho modificato il codice eliminando già ,1 nella seconda soluzione..
Missione Impossibile ti interessa ancora il codice con le decine naturali chiesto al #1.190 ?
buona serata
 
Nel gioco delle ambate si può anche fare in altro modo cioè separare i 2 numeri
metto qua sotto l'esempio
Codice: 
Sub Main()
   Dim n(1),n2(1),ru(1),pta(1),A,B,R,es
   pta(1) = 1 'posta ambata
   R = 5 'ruota dove sono uscite le spie  = Milano
   ru(1) = 5 ' ruota dove giocare la previsione = Milano
   For es = EstrazioneFin - 15 To EstrazioneFin ' estrazioni a ritroso da controllare,qui' 139
      A = Estratto(es,5,1) '  prima spia presa in considerazione
      B = Estratto(es,5,2) '  seconda spia spia presa in considerazione
      If A = 56 And B = 48 Then ' se trovo le spie spia 56 e 48 allora...
         n(1) = 21'  gioco
         n2(1) = 70 '  gioco
         ImpostaGiocata 1,n,ru,pta,9,1 ' < ----  in questo caso si ferma al primo colpo vincente primo numero
         ImpostaGiocata 2,n2,ru,pta,9,1 ' <---- < ----  in questo caso si ferma al primo colpo vincente secondo numero
         Scrivi "--------------------------------------------------------------------",1
         : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " " & "] ",1
         : Scrivi "--------------------------------------------------------------------",1
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

Mentre qua sotto il codice delle decine naturali

Codice: 
Sub Main()
   Dim Nu(90,2),ru(1),nx(1),d,periodo,periodi
   Dim Ini,Fin,ruo,x,rig1,rig2,Es
   periodi = 1'<-------------------------numero di periodi
   periodo = 19'<-------------------------durata periodo
   Fin = EstrazioneFin
   Ini = Fin -(periodo * periodi) + 1'<-----------------------Tot estr. esaminate
   For ruo = 1 To 11
      If ruo = 11 Then ruo = 12
      For Es = Ini To Fin Step periodo
         AvanzamentoElab Ini,Fin,Es
         ru(1) = ruo
         For d = 0 To 8
            For x = 1 To 90
               If DecinaNaturale(x) = d Then
                  nx(1) = x
                  Nu(x,1) = x
                  Nu(x,2) = Nu(x,2) + SerieFreqTurbo(Es,Es + periodo - 1,nx,ru,1)
               End If
            Next
            OrdinaMatrice Nu,- 1,2
            For x = 1 To 90
               If Nu(x,2) <> 0 Then
                  rig1 = rig1 + Format2(Nu(x,1)) & " "
                  rig2 = rig2 + Format2(Nu(x,2)) & " "
               End If
            Next
            Scrivi "Dalla " & Es & " alla " & Es + periodo - 1 & " Num: " & rig1,1
            Scrivi SiglaRuota(ru(1)) & Space(4) & "Dec - Nat " & d,1,0,,1
            Scrivi Space(5) & "Pres: " & rig2
            Scrivi
            ReDim Nu(90,2)
            rig1 = ""
            rig2 = ""
         Next ' d
         Scrivi String(60,"-"),1,,,7
      Next 'Es
      Scrivi String(60,"="),1,,,2
      Scrivi
   Next 'ruo
End Sub

Buona fortuna nelle ricerche 🤞
 
Grazie Master....tu hai messo gli esempi di come si possa eseguire la richiesta...ma io sono un somaro,e alla mia eta' non ho'il cervello pronto,non piu....Grazie comunque del tuo tempo a me dedicato...ancora Grazie ...ma io non ci riesco ad arrivare,scusami....tutti qui sanno
che sono sempre stato un pippone con gli script...sono avvezzo a ricerche e idee...che ho' sempre messo a disposizione di tutti le cose mie...ma se mi chiedi di modificare,capire,come modificare uno script con esempi...ebbene ,sono un "piccolo piccolo"(non faccio testo).Continuo nel mio piccolo piccolo....bene uguale.Grazie ancora del tuo tempo.
 
toon ha scritto:
Grazie Master, non a caso questo nome.
Non ero a casa per leggere la richiesta, sto effettuando accertamenti per problemini di salute e non potevo usare neppure il telefono.
Ma Master è un risolutore e certamente molto meglio di me come scripter.
Nuovamente Grazie.. 💪
Clicca per espandere...
Ue' stammi bene Toon la salute in primis. Il lotto è solo un gioco, la salute è più importante.
 
Grazie toon.. ma i miei codici li definisco scarabocchi :rolleyes:
Ti auguro tanta salute e che i tuoi problemini si risolveranno presto.
grazie Codicebinario per il pollicione
Mi spiace che non riesci ma se metti il tuo codice con numeri diversi forse posso risolvere.
vedi tu.
Buona serata
 
toon ha scritto:
Grazie Master, non a caso questo nome.
Non ero a casa per leggere la richiesta, sto effettuando accertamenti per problemini di salute e non potevo usare neppure il telefono.
Ma Master è un risolutore e certamente molto meglio di me come scripter.
Nuovamente Grazie.. 💪
Clicca per espandere...
TOON.....che cazzo ti succede? OHHHHH , non fare scherzi e'!!!!!! Se hai problemi di salute seri,dillo, posso aiutarti qui in Brianza....seriamente.....per indagini,visite,diagnostiche,con tempistiche accettabili....(fidati di me,sò quello che dico.....)
 
Master ha scritto:
Grazie toon.. ma i miei codici li definisco scarabocchi :rolleyes:
Ti auguro tanta salute e che i tuoi problemini si risolveranno presto.
grazie Codicebinario per il pollicione
Mi spiace che non riesci ma se metti il tuo codice con numeri diversi forse posso risolvere.
vedi tu.
Buona serata
Clicca per espandere...
Che intendi per "il mio codice"? Lo script per intero?
 
Si lo script intero modificando i numeri così non si riesce a risalire alla tua personale ricerca
poi decidi tu, altrimenti non so come fare aiutarti
 
TOON.....se hai problemi seri di salute posso aiutarti....e non esiterò mettere il mio cell a disposizione...se cosi' fosse,aggiungimi a whatsapp e dimmi che sei tu....a costo del ban.....
 
Missione Impossibile. ha scritto:
Azz... Codiceb,tu hai un cuore ENORME verso gli amici,Da oggi ti ammiro di piu' .
Clicca per espandere...
IO SO CHE COSA E' LA SOFFERENZA FISICA....la conosco...e onestamente,NON LA AUGURO A NESSUNO...e se posso aiutare io,aiuto,a costo del ban(che onestamente non mi frega un cazz) importante è aiutare,qualcuno che magari stà male ...tu dici "amici".....io Tunn non lo conosco....ma....se ha' bisogno non mi interessa ....cerco di aiutarlo...
 
Master ha scritto:
Nel gioco delle ambate si può anche fare in altro modo cioè separare i 2 numeri
metto qua sotto l'esempio
Codice: 
Sub Main()
   Dim n(1),n2(1),ru(1),pta(1),A,B,R,es
   pta(1) = 1 'posta ambata
   R = 5 'ruota dove sono uscite le spie  = Milano
   ru(1) = 5 ' ruota dove giocare la previsione = Milano
   For es = EstrazioneFin - 15 To EstrazioneFin ' estrazioni a ritroso da controllare,qui' 139
      A = Estratto(es,5,1) '  prima spia presa in considerazione
      B = Estratto(es,5,2) '  seconda spia spia presa in considerazione
      If A = 56 And B = 48 Then ' se trovo le spie spia 56 e 48 allora...
         n(1) = 21'  gioco
         n2(1) = 70 '  gioco
         ImpostaGiocata 1,n,ru,pta,9,1 ' < ----  in questo caso si ferma al primo colpo vincente primo numero
         ImpostaGiocata 2,n2,ru,pta,9,1 ' <---- < ----  in questo caso si ferma al primo colpo vincente secondo numero
         Scrivi "--------------------------------------------------------------------",1
         : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " " & "] ",1
         : Scrivi "--------------------------------------------------------------------",1
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

Mentre qua sotto il codice delle decine naturali

Codice: 
Sub Main()
   Dim Nu(90,2),ru(1),nx(1),d,periodo,periodi
   Dim Ini,Fin,ruo,x,rig1,rig2,Es
   periodi = 1'<-------------------------numero di periodi
   periodo = 19'<-------------------------durata periodo
   Fin = EstrazioneFin
   Ini = Fin -(periodo * periodi) + 1'<-----------------------Tot estr. esaminate
   For ruo = 1 To 11
      If ruo = 11 Then ruo = 12
      For Es = Ini To Fin Step periodo
         AvanzamentoElab Ini,Fin,Es
         ru(1) = ruo
         For d = 0 To 8
            For x = 1 To 90
               If DecinaNaturale(x) = d Then
                  nx(1) = x
                  Nu(x,1) = x
                  Nu(x,2) = Nu(x,2) + SerieFreqTurbo(Es,Es + periodo - 1,nx,ru,1)
               End If
            Next
            OrdinaMatrice Nu,- 1,2
            For x = 1 To 90
               If Nu(x,2) <> 0 Then
                  rig1 = rig1 + Format2(Nu(x,1)) & " "
                  rig2 = rig2 + Format2(Nu(x,2)) & " "
               End If
            Next
            Scrivi "Dalla " & Es & " alla " & Es + periodo - 1 & " Num: " & rig1,1
            Scrivi SiglaRuota(ru(1)) & Space(4) & "Dec - Nat " & d,1,0,,1
            Scrivi Space(5) & "Pres: " & rig2
            Scrivi
            ReDim Nu(90,2)
            rig1 = ""
            rig2 = ""
         Next ' d
         Scrivi String(60,"-"),1,,,7
      Next 'Es
      Scrivi String(60,"="),1,,,2
      Scrivi
   Next 'ruo
End Sub

Buona fortuna nelle ricerche 🤞
Clicca per espandere...
Ti faccio i migliori complimenti perche'hai saputo cogliere e capire cio'che volevo,e per questo da tutti che seguono questa sezione GRAZIE.
 
Codicebinario ha scritto:
IO SO CHE COSA E' LA SOFFERENZA FISICA....la conosco...e onestamente,NON LA AUGURO A NESSUNO...e se posso aiutare io,aiuto,a costo del ban(che onestamente non mi frega un cazz) importante è aiutare,qualcuno che magari stà male ...tu dici "amici".....io Tunn non lo conosco....ma....se ha' bisogno non mi interessa ....cerco di aiutarlo...
Clicca per espandere...
Grande altruista come me,L'amicizia e' piu'grande il lotto e' solo piccole emozioni.
 
Per Master i numeri in decina in ordine reale se vogliamo fare una cosa piu' professionale in presenze,ti faccio un esempio:

Bari
Decina 81-90 caso non reale!

dec. 81-82-83-84-85-86-87-88-89-90
pres. 10-09-11-13-08-15-09-12-11-07

Ora mi sbilancio un pochettino,se io ho un ambata tipo 86 uscito in 180 estrazioni 15 volte, ed il suo vicino 85 uscito solo 8 volte io li prendo in considerazione come ambate prossime 85 uscito 8 volte e 86 il capolista di tutta la decina con 87 uscito 9 volte. Cosi' per tutte le decine in ordine consecutive.
 
Grazie Mille Codice, ma ho cambiato medico di base e la nuova dott.sa vuole conoscermi nelle mie problematiche, molto apprezzabile, e mi sta rivoltando come un calzini, calcolate che l'ultima volta che ho fatto qualche esame era il 2012, quindi approfitto dell'occasione per avere delle certezze che mi facciano stare tranquillo, anche se questa sanità Ci costa na cifra.. 🙈
Grazie ancora, non avevo dubbi sulla Vodtra amicizia, vista anche l'onestà intellettuale con cui scrivete anche i vostri post..
Grazie..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 ottobre 2025
    Bari
    71
    36
    81
    10
    35
    Cagliari
    42
    69
    62
    52
    35
    Firenze
    03
    80
    38
    54
    11
    Genova
    88
    41
    18
    07
    45
    Milano
    48
    43
    11
    17
    57
    Napoli
    18
    55
    10
    15
    04
    Palermo
    67
    26
    33
    49
    45
    Roma
    14
    77
    10
    05
    54
    Torino
    79
    87
    42
    55
    40
    Venezia
    62
    18
    85
    74
    01
    Nazionale
    61
    45
    38
    34
    62
    Estrazione Simbolotto
    44
    34
    11
    25
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto