Novità

metodo visivo per ambata su ba fi

cari amici dato l'alto numero di ambate che si vanno a formare con questo metodo ho deciso di attuarlo solo su cagliari e firenze come in origine anche per non mettere troppa carne al fuoco e solo per quanto riguarda i primi e secondi estratti.
quindi giochero' solo l'ambata 85 da previsione del 29 novembre

a questa ambata abbinero' 68 86 20 64 a formare 8 ambi secchi oppure in lunghetta detti numeri sono ambate di riserva che potrebbero abbinarsi col capogioco
 
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " ---->
chiedo scusa ringrazio per il listato sei stato veramente bravo pero' non capisco perche' mi da l'errore
 
Mi scusi sign. disaronno senza togliere niente alla sua bravura nel fare i listati ho notato che molti listati suoi postati mi danno errore come e' possibile?
 
Buona sera ho copiato e ricopiato ma l'errore e' sempre quello mi dice
errore 13: tipo non corrispondente:'getinfoestrazione'(riga 40)
pero' mi errore anche in altri listati fatti da lei non capisco perche'
 
i listati di Disaronno funzionano benissimo per Spaziometria, se portano ad errore, può essere che o è attivo option explicit o che le verisioni di spaziometria non sono aggiornate o meglio che si commette errore a copiarli ed incollarli.

Copiato dal forum questo funziona.

solo per conferma.

Ciao
 
Mike58 ha scritto:
i listati di Disaronno funzionano benissimo per Spaziometria, se portano ad errore, può essere che o è attivo option explicit o che le verisioni di spaziometria non sono aggiornate o meglio che si commette errore a copiarli ed incollarli.

Copiato dal forum questo funziona.

solo per conferma.

Ciao
Clicca per espandere...
Sub Main()
Scrivi " metodo visivo per ambata su ba fi di bibbolotto ",1 ' - http://forum.lottoced.com/f8/metodo-visivo-per-ambata-su-ba-fi-116456/ -
Dim ruota1(02),n1(01),posta1(01)
posta1(01) = 1
klp1 = 03
casi = 00
fin = EstrazioneFin
ini = 8912
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
r1 = CA_
p1 = 01
p2 = 02
c1 = Estratto(es,r1,p1)
c2 = Estratto(es,r1,p2)
r2 = FI_
p3 = 01
p4 = 02
f1 = Estratto(es,r2,p3)
f2 = Estratto(es,r2,p4)
'-----------------------------------------
trasp01 = Fuori90(Cadenza(c1) & Cadenza(f1))
'------------------------------------------
trasp02 = Fuori90(Cadenza(c1) & Decina(c2))
trasp03 = Fuori90(Cadenza(c1) & Decina(f2))
trasp04 = Fuori90(Decina(c1) & Cadenza(c2))
trasp05 = Fuori90(Decina(c1) & Cadenza(f2))
'-----------------------------------------
trasp06 = Fuori90(Cadenza(f1) & Decina(f2))
trasp07 = Fuori90(Cadenza(f1) & Decina(c2))
trasp08 = Fuori90(Decina(f1) & Cadenza(f2))
trasp09 = Fuori90(Decina(f1) & Cadenza(c2))
'-----------------------------------------
If trasp01 = trasp02 Or trasp01 = trasp03 Or trasp01 = trasp04 Or trasp01 = trasp05 Or trasp01 = trasp06 Or trasp01 = trasp07 Or trasp01 = trasp08 Or trasp01 = trasp09 Then
casi = casi + 1
Scrivi String(85,"=") & " Caso n° " & Format2(casi),1
ColoreTesto 1
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " ----> " & Cadenza(c1),1
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,(r2)) & " ----> " & Cadenza(f1),1
ColoreTesto 0
ruota1(01) = r1
ruota1(02) = r2
rit01 = RitardoEstrattoTurbo(trasp01,es,r1)
rit02 = RitardoEstrattoTurbo(trasp01,es,r2)
If rit01 = 0 Or rit02 = 0 Then Scrivi " PREVISIONE RAFFORZATA AMBATA PRESENTE NELL' ESTRAZIONE DI PARTENZA",3,3,3
n1(01) = trasp01
ImpostaGiocata 1,n1,ruota1,posta1,klp1,1
Gioca es,True,,True
End If
Next
ScriviResoconto
End Sub
io non voglio dire che i suoi listati non funzionano anzi magari sapessi farli io pero' a me non girano e non capisco il perche'
 
Ciao Lupo Bianco, era solo una conferma al listato postato che sia Disaronno o io stesso non ha importanza.
Avendolo copiato dal forum e funzionante, devi avere qualche problema con il programma, se magari ci dici che programma usi e quale versione e magari anche con il supporto di immagine, possiamo anche dare qualche consiglio risolutore.

Non vedo anche funzioni di nuove implementazioni e pertanto deve funzionare anche con versioni non recenti
ho copiato ed incollato anche il tuo post e funziona.....



Ciao
 
Mike58 ha scritto:
Ciao Lupo Bianco, era solo una conferma al listato postato che sia Disaronno o io stesso non ha importanza.
Avendolo copiato dal forum e funzionante, devi avere qualche problema con il programma, se magari ci dici che programma usi e quale versione e magari anche con il supporto di immagine, possiamo anche dare qualche consiglio risolutore.

Non vedo anche funzioni di nuove implementazioni e pertanto deve funzionare anche con versioni non recenti
ho copiato ed incollato anche il tuo post e funziona.....



Ciao
Clicca per espandere...

lottodesk 1.2.2
 
Adesso è tutto chiaro del perché non funzionante.
Ci sono un po' di codici funzionanti solo con spaziometria, di per sé non è difficile adattarlo a lottoDesk se prorpio ti interessa posso anche vedere se riesco ad adattarlo in quanto ho una vecchia versione di lottodesk che non uso, solo se veramente interessato al metodo.

Ciao
 
essendo la prima volta che mi cimento con lottodesk prova a vedere se cosi è funzionante.

Ciao

Codice: 
Sub Main()
 Scrivi " metodo visivo per ambata su ba fi di bibbolotto ",1 ' - metodo visivo per ambata su ba fi -
 Dim ruota1(02),n1(01),posta1(01),nn1(1),nn2(1)
 posta1(01) = 1
 klp1 = 03
 casi = 00
quante = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,100))
 fin = EstrazioneFin
 ini = EstrazioneFin-quante
 For es = ini To fin
' Messaggio es
' AvanzamentoElab ini,fin,es
 r1 = CA_
 p1 = 01
 p2 = 02
 c1 = Estratto(es,r1,p1)
 c2 = Estratto(es,r1,p2)
 r2 = FI_
 p3 = 01
 p4 = 02
 f1 = Estratto(es,r2,p3)
 f2 = Estratto(es,r2,p4)
 '-----------------------------------------
 trasp01 = Fuori90(Cadenza(c1) & Cadenza(f1))
 '------------------------------------------
 trasp02 = Fuori90(Cadenza(c1) & Decina(c2))
 trasp03 = Fuori90(Cadenza(c1) & Decina(f2))
 trasp04 = Fuori90(Decina(c1) & Cadenza(c2))
 trasp05 = Fuori90(Decina(c1) & Cadenza(f2))
 '-----------------------------------------
 trasp06 = Fuori90(Cadenza(f1) & Decina(f2))
 trasp07 = Fuori90(Cadenza(f1) & Decina(c2))
 trasp08 = Fuori90(Decina(f1) & Cadenza(f2))
 trasp09 = Fuori90(Decina(f1) & Cadenza(c2))
 '-----------------------------------------
 If trasp01 = trasp02 Or trasp01 = trasp03 Or trasp01 = trasp04 Or trasp01 = trasp05 Or trasp01 = trasp06 Or trasp01 = trasp07 Or trasp01 = trasp08 Or trasp01 = trasp09 Then
 casi = casi + 1
 Scrivi String(85,"=") & " Caso n° " & Format2(casi),1
 ColoreTesto 1
 Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " ----> " & Cadenza(c1),1
 Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,(r2)) & " ----> " & Cadenza(f1),1
 ColoreTesto 0
 ruota1(01) = r1
 ruota1(02) = r2
nn1(1) = trasp01
nn2(1) = trasp02
rit01 = SerieFreq(es,es,nn1(1),ruota1(1),1)
rit02 = SerieFreq(es,es,nn2(1),ruota1(2),1)
 'rit01 = EstrattoRitardo(r1,trasp01,es,es)
 'rit02 = EstrattoRitardo(r2,trasp02,es,es)

 If rit01 = 0 Or rit02 = 0 Then Scrivi " PREVISIONE RAFFORZATA AMBATA PRESENTE NELL' ESTRAZIONE DI PARTENZA",1
 n1(01) = trasp01
 ImpostaGiocata 1,n1,ruota1,posta1,klp1,1
 Gioca es
 End If
 Next
 ScriviResoconto
End Sub
 

ciao BIBBOLOTTO

credo che si sia presentato il caso dell'ambata perfetta

sortito
ca 54 15 21 29 9
fir 41 72 18 87 64
si legge chiaramente 41 e il 41 e' presente quindi dovrebbe sortire
l'ambata a colpo secondo il tuo metodo

:o
 
Si anche io ho notato :D questa situazione è perfetta, abbiamo anche il 41 su FI che rafforza il tutto
 
Ultima modifica:
Mike58 ha scritto:
essendo la prima volta che mi cimento con lottodesk prova a vedere se cosi è funzionante.

Ciao

Codice: 
Sub Main()
 Scrivi " metodo visivo per ambata su ba fi di bibbolotto ",1 ' - metodo visivo per ambata su ba fi -
 Dim ruota1(02),n1(01),posta1(01),nn1(1),nn2(1)
 posta1(01) = 1
 klp1 = 03
 casi = 00
quante = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,100))
 fin = EstrazioneFin
 ini = EstrazioneFin-quante
 For es = ini To fin
' Messaggio es
' AvanzamentoElab ini,fin,es
 r1 = CA_
 p1 = 01
 p2 = 02
 c1 = Estratto(es,r1,p1)
 c2 = Estratto(es,r1,p2)
 r2 = FI_
 p3 = 01
 p4 = 02
 f1 = Estratto(es,r2,p3)
 f2 = Estratto(es,r2,p4)
 '-----------------------------------------
 trasp01 = Fuori90(Cadenza(c1) & Cadenza(f1))
 '------------------------------------------
 trasp02 = Fuori90(Cadenza(c1) & Decina(c2))
 trasp03 = Fuori90(Cadenza(c1) & Decina(f2))
 trasp04 = Fuori90(Decina(c1) & Cadenza(c2))
 trasp05 = Fuori90(Decina(c1) & Cadenza(f2))
 '-----------------------------------------
 trasp06 = Fuori90(Cadenza(f1) & Decina(f2))
 trasp07 = Fuori90(Cadenza(f1) & Decina(c2))
 trasp08 = Fuori90(Decina(f1) & Cadenza(f2))
 trasp09 = Fuori90(Decina(f1) & Cadenza(c2))
 '-----------------------------------------
 If trasp01 = trasp02 Or trasp01 = trasp03 Or trasp01 = trasp04 Or trasp01 = trasp05 Or trasp01 = trasp06 Or trasp01 = trasp07 Or trasp01 = trasp08 Or trasp01 = trasp09 Then
 casi = casi + 1
 Scrivi String(85,"=") & " Caso n° " & Format2(casi),1
 ColoreTesto 1
 Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " ----> " & Cadenza(c1),1
 Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,(r2)) & " ----> " & Cadenza(f1),1
 ColoreTesto 0
 ruota1(01) = r1
 ruota1(02) = r2
nn1(1) = trasp01
nn2(1) = trasp02
rit01 = SerieFreq(es,es,nn1(1),ruota1(1),1)
rit02 = SerieFreq(es,es,nn2(1),ruota1(2),1)
 'rit01 = EstrattoRitardo(r1,trasp01,es,es)
 'rit02 = EstrattoRitardo(r2,trasp02,es,es)

 If rit01 = 0 Or rit02 = 0 Then Scrivi " PREVISIONE RAFFORZATA AMBATA PRESENTE NELL' ESTRAZIONE DI PARTENZA",1
 n1(01) = trasp01
 ImpostaGiocata 1,n1,ruota1,posta1,klp1,1
 Gioca es
 End If
 Next
 ScriviResoconto
End Sub
Clicca per espandere...

Site veramente formidabili e gentilissimi il listato va alla grande funziona.
Mi dispiace solo che tutti gli altri listati che ho trovato fatti da Saronno non mi vanno.
Grazieeeeeeeeeeeeee grazieeeeeeeee grazieeeeeeeeeeeeeeeeeeeee
 
Ciao Lupo Bianco, purtroppo la maggior parte di Noi usa Spaziometria con la quale abbiamo in tanti ed io stesso contribuito con Richieste varie a far ampliare i codici VBscript all 'autore LuigiB. e siamo cresciuti con questi e molti codici non sono leggibili da lottoDesk e ti assicuro che anche tanti miei script non riusciresti a leggerli con lottoDesk.

Per questo un consiglio, almeno per gli script usa Spaziometria.

Poi ognuno è libero di fare quello che è meglio per se stesso.

Ciao e mi scuso con Bibbolotto per l'invasione del suo post.
 
figurati nessuna invasione
con l'occasione posto una cinquina a cagliari
con il capogioco 41
20 41 45 52 59
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto