Novità

A volte basta uno script facile per tutti.

M

Master

Advanced Member >PLATINUM<
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
 
M

Master

Advanced Member >PLATINUM<
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 🤞
 
toon

toon

Advanced Member
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.. 💪
 
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
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.
 
Missione Impossibile.

Missione Impossibile.

Advanced Member >PLATINUM<
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.
 
M

Master

Advanced Member >PLATINUM<
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
 
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
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.....)
 
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
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?
 
M

Master

Advanced Member >PLATINUM<
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
 
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
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.....
 
Codicebinario

Codicebinario

Advanced Member >PLATINUM<
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...
 
Missione Impossibile.

Missione Impossibile.

Advanced Member >PLATINUM<
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.
 
Missione Impossibile.

Missione Impossibile.

Advanced Member >PLATINUM<
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.
 
Missione Impossibile.

Missione Impossibile.

Advanced Member >PLATINUM<
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.
 
toon

toon

Advanced Member
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
    sabato 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto