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 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto