B
Baffoblu
Guest
Ciao Baffo,
funziona benissimo anche con W7
Allora rimane la seconda opzione.....
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
X Baffo
- Creatore Discussione morena59
- Data di inizio
Allora rimane la seconda opzione.....
paomultipla
Member
Salve a tutti,
ho scoperto il perchè dell'errore, non era per le estrazioni ma perchè la configurazione dei premi era sbagliata e non di poco (era tutto impostato a 42000000 e spicci).
I listati funzionano perfettamente.
GRAZIE BAFFOBLU
Saluti Paolo
ho scoperto il perchè dell'errore, non era per le estrazioni ma perchè la configurazione dei premi era sbagliata e non di poco (era tutto impostato a 42000000 e spicci).
I listati funzionano perfettamente.
GRAZIE BAFFOBLU
Saluti Paolo
B
Baffoblu
Guest
Scusa, ma la domanda nasce spontanea :
Chi ti ha impostato la configurazione
dei premi in quel modo ?
paomultipla
Member
Salve a tutti,
a dire il vero non lo so, non sono mai andato in quella finestra, io pensavo che fossero impostati di default in installazione, il dubbio mi è venuto col tuo script che si piantava con la ricerca di due estrazioni, e siccome fa l'uso della posta in giocata, un lampo e scoccato e sono andato a curiosare. Ok W7 non centra, probabilmente si deve tenere conto di tante cose che magari noi non pensiamo servano.
Saluti Paolo
a dire il vero non lo so, non sono mai andato in quella finestra, io pensavo che fossero impostati di default in installazione, il dubbio mi è venuto col tuo script che si piantava con la ricerca di due estrazioni, e siccome fa l'uso della posta in giocata, un lampo e scoccato e sono andato a curiosare. Ok W7 non centra, probabilmente si deve tenere conto di tante cose che magari noi non pensiamo servano.
Saluti Paolo
B
Baffoblu
Guest
Dalla descrizione di quello che ti capita
non è una situazione normale.
Devi avere qualche problema
con il PC,
Perchè non ti dovrebbe creare quelle anomalie,
che altri non riscontrano.....
Per me è normale amministrazione!Ciao,c'è ancora in gioco la quartina 32-33-64-65
sono appena tornato dall'incasso e....ho vinto più del previsto.
Per tutto il mese di marzo l'ambo su TT viene pagato a 28 VLP con puntata
di 5 euro,quindi la posta in gioco non è più di 3.91 ma di 4,66
Si chiude qui...la parentesi previsionistica
B
Baffoblu
Guest
Ciao Baffone,
per me...tutto il resto è noia!
Ormai mi sono buttato in questo nuovo business.
Tra l'altro la Lottomatta è in omaggio.
Per tutto il mese di Marzo mette la vincita su TT a 28Vlp
sull'ambo quindi sono 4.666 per questo gioco.
Speriamo che promuova anche per Aprile
per me...tutto il resto è noia!
Ormai mi sono buttato in questo nuovo business.
Tra l'altro la Lottomatta è in omaggio.
Per tutto il mese di Marzo mette la vincita su TT a 28Vlp
sull'ambo quindi sono 4.666 per questo gioco.
Speriamo che promuova anche per Aprile
fefo.1979
Member
cacchio bravissimo! io invece stavolta ho mollato e non seguito,perdendo..
ma se trovi qualcosa di nuovo e interessabìnte come le ultime di questo periodo..posta che io ti seguo,quando ne ho la possibilità
ciao e complimenti
Ciao Baffo,
sono sicuro che in primo momento mi mandera a quel paese ma poi...
ti metterai a fare qualcosa. In parole povere ho provato a modificare
il tuo script (quello fatto su mia richiesta sui radicali) con un mio cavallo
di battaglia.In primo momento sembrava facile ma poi ho impallato SPAZIOMETRIA
la ricerca viene fatta sui ambi in figura,se in una ruota trovo un ambo in figura 1,
su un altra devo trovarne un altro in figura 6.Ti metto la tabella dei ricerca ambi:
Figura1 con figura 6
Figura 2 con figura 7
Figura 3 con figura 8
Figura 4 con figura 9
Il conteggio va in diagonale con i suoi vertibili
e in verticale con i suoi vertibili
Esempio casuale:
BA 2-38
TO 16-70
1° quartina 72-27-45-54
2° quartina 18-81 (questo caso solo 2 numeri)
Volendo anche una ottina x recupero spese
PS:
se i conti danno un numero già presente in estrazione,
la condizione non è valida
E ora.....Pedalareeeeeeee
sono sicuro che in primo momento mi mandera a quel paese ma poi...
ti metterai a fare qualcosa. In parole povere ho provato a modificare
il tuo script (quello fatto su mia richiesta sui radicali) con un mio cavallo
di battaglia.In primo momento sembrava facile ma poi ho impallato SPAZIOMETRIA
la ricerca viene fatta sui ambi in figura,se in una ruota trovo un ambo in figura 1,
su un altra devo trovarne un altro in figura 6.Ti metto la tabella dei ricerca ambi:
Figura1 con figura 6
Figura 2 con figura 7
Figura 3 con figura 8
Figura 4 con figura 9
Il conteggio va in diagonale con i suoi vertibili
e in verticale con i suoi vertibili
Esempio casuale:
BA 2-38
TO 16-70
1° quartina 72-27-45-54
2° quartina 18-81 (questo caso solo 2 numeri)
Volendo anche una ottina x recupero spese
PS:
se i conti danno un numero già presente in estrazione,
la condizione non è valida
E ora.....Pedalareeeeeeee
B
Baffoblu
Guest
Ciao Baffo,
sono sicuro che in primo momento mi mandera a quel paese ma poi...
ti metterai a fare qualcosa. In parole povere ho provato a modificare
il tuo script (quello fatto su mia richiesta sui radicali) con un mio cavallo
di battaglia.In primo momento sembrava facile ma poi ho impallato SPAZIOMETRIA
la ricerca viene fatta sui ambi in figura,se in una ruota trovo un ambo in figura 1,
su un altra devo trovarne un altro in figura 6.Ti metto la tabella dei ricerca ambi:
Figura1 con figura 6
Figura 2 con figura 7
Figura 3 con figura 8
Figura 4 con figura 9
Fin qui tutto ok...
****************************
Questi passaggi sotto me li devi spiegare
dettagliatamente, perchè non mi sono
chiari
Il conteggio va in diagonale con i suoi vertibili
e in verticale con i suoi vertibili
Esempio casuale:
BA 2-38
TO 16-70
1° quartina 72-27-45-54
2° quartina 18-81 (questo caso solo 2 numeri)
Volendo anche una ottina x recupero spese
PS:
se i conti danno un numero già presente in estrazione,
la condizione non è valida
E ora.....Pedalareeeeeeee
Fai un esempio con tutti i passaggi
e non tralasciare nulla....
Ciao Baffo,scusa il ritardo ma...ieri ho lavorato "solo" 16 ore.
Venendo al metodo,si basa sui ambi in figura diametrali tra loro,
fig 1 con fig 6.....fig 2 con fig 7....fig 3 con fig 8 ....fig 4 con fig 9
Purtroppo il listato non riuscirà a avvalorare del tutto il metodo perchè
molte condizioni non escono per i soliti vari motivi, numeri già presenti
nella medesima estrazione,ambi usciti nei 2/3 colpi precedenti e via dicendo.
Vengo subito al dunque:
Estrazione 04/02/2012
BA 12-39 ambo in fig 3
CA 89-80 ambo in figura 8
1° quartina
somma 1° elemento del 1° ambo con il 2° elemento del 2° ambo 12+80=2
somma 2° elemento del 1° ambo con il 1° elemento del 2° ambo 39+89=38
aggiungere i vertibili delle somme(2-20-38-83)
2° quartina
somma del 1° elemento del 1° ambo con il 1° elemento del 2° ambo 12+89=11
somma del 2° elemento del 1° ambo con il 2° elemento del 2° ambo 39+80=29
aggiungere i vertibili delle somme (11-19-22.29)
esito a colpo con il terno 11-19-29 su CA
Se deve avvenire la vincita lo fa nei primissimi colpi (al massimo 5/6)
Venendo al metodo,si basa sui ambi in figura diametrali tra loro,
fig 1 con fig 6.....fig 2 con fig 7....fig 3 con fig 8 ....fig 4 con fig 9
Purtroppo il listato non riuscirà a avvalorare del tutto il metodo perchè
molte condizioni non escono per i soliti vari motivi, numeri già presenti
nella medesima estrazione,ambi usciti nei 2/3 colpi precedenti e via dicendo.
Vengo subito al dunque:
Estrazione 04/02/2012
BA 12-39 ambo in fig 3
CA 89-80 ambo in figura 8
1° quartina
somma 1° elemento del 1° ambo con il 2° elemento del 2° ambo 12+80=2
somma 2° elemento del 1° ambo con il 1° elemento del 2° ambo 39+89=38
aggiungere i vertibili delle somme(2-20-38-83)
2° quartina
somma del 1° elemento del 1° ambo con il 1° elemento del 2° ambo 12+89=11
somma del 2° elemento del 1° ambo con il 2° elemento del 2° ambo 39+80=29
aggiungere i vertibili delle somme (11-19-22.29)
esito a colpo con il terno 11-19-29 su CA
Se deve avvenire la vincita lo fa nei primissimi colpi (al massimo 5/6)
Ultima modifica:
B
Baffoblu
Guest
Credevo che....con somme "diagonali" e somme " verticali"
fosse chiaro.
Cmq molte volte Spaziometria mi s'impalla,anche con i listati
più banali:Va in in ..."lo script non risponde" per poi funzionare.
Secondo me,Windows7 finchè non è aggiornato a pennello,mi darà
delle complicazioni,come lo era Vista ai primi tempi.
Questo listato lo avevo fatto anch'io ma probabilmente sbagliando un "if"
ho mandato in catalessi il programma
fosse chiaro.
Cmq molte volte Spaziometria mi s'impalla,anche con i listati
più banali:Va in in ..."lo script non risponde" per poi funzionare.
Secondo me,Windows7 finchè non è aggiornato a pennello,mi darà
delle complicazioni,come lo era Vista ai primi tempi.
Questo listato lo avevo fatto anch'io ma probabilmente sbagliando un "if"
ho mandato in catalessi il programma
B
Baffoblu
Guest
Credevo che....con somme "diagonali" e somme " verticali"
fosse chiaro.
Cmq molte volte Spaziometria mi s'impalla,anche con i listati
più banali:Va in in ..."lo script non risponde" per poi funzionare.
Secondo me,Windows7 finchè non è aggiornato a pennello,mi darà
delle complicazioni,come lo era Vista ai primi tempi.
Questo listato lo avevo fatto anch'io ma probabilmente sbagliando un "if"
ho mandato in catalessi il programma
Lo so, ma ho voluto aspettare te
per i chiarimenti, così non si scrivono
linee di codice inutili.
Non so se quel maledetto W7 centri
qualcosa.
Ma se spaziometria va in pallone,
la causa è quasi sempre uno sbaglio....
Lo provato sul campo......
Basta una fesseria e non funziona....
B
Baffoblu
Guest
Senza dubbio se Spaziometria non funziona è a causa di eventuale errore.
Prima però! con Vista,bastava resettare la finestra,ora devo riavviare il PC
perchè il programma s'insabbia
Addirittura !
Devi usare Task manager !
In W7 non mi ricordo come si chiama
forse Gestioni applicazioni....
Se lo usi, sblocchi il programma impallato
e te lo chiude.
Senza riavviare....
Adesso esco.....
a piu tardi....
Ultima modifica di un moderatore:
B
Baffoblu
Guest
Ciao antelao
Vedi se cosi va bene....
Per le troppe "IF", da gestire
ci metteva un tempo interminabile....
Ho trovato una via d'uscita
inserendo le due inputbox,
dove inserisci le 2 figure.
Almeno cosi sai l'andamento di
una coppia di figure....
Cosi è velocissimo.....
Fammi sapere...
Vedi se cosi va bene....
Per le troppe "IF", da gestire
ci metteva un tempo interminabile....
Ho trovato una via d'uscita
inserendo le due inputbox,
dove inserisci le 2 figure.
Almeno cosi sai l'andamento di
una coppia di figure....
Cosi è velocissimo.....
Fammi sapere...
Codice:
Sub Main()
Dim ruote(11)
Dim n1(4)
Dim n2(4)
Dim fi1
Dim fi2
Dim poste(10)
poste(2) = 1
fi1 = CInt(InputBox(" Inserisci la prima Figura ",,"1"))
fi2 = CInt(InputBox(" Inserisci la seconda Figura ",,"6"))
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",30)
k = InputBox("per quanti colpi?","colpi di gioco",9)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
d = Estratto(es,r2,p2)
'---------------------------------------------
If Figura(a) = fi1 And Figura(b) = fi1 Then
If Figura(c) = fi2 And Figura(d) = fi2 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * Figure : " & " [ " & Figura(a) & " - " & Figura(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * Figure : " & " [ " & Figura(c) & " - " & Figura(d) & " ] ",1
ruote(1) = r1
ruote(2) = r2
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,poste,k,2
ImpostaGiocata 2,n2,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubCiao Baffo,
è più o meno quello che avevo fatto io,probabilmente ho sbagliato qualche virgola.
Unica nota,non è vitale inportanza la forma isotopa da te messa,le condizioni
non hanno una forma d'uscita ben specifica.Io ci ho aggiunto anche l'ottina con la funzione
"elimina ripetuti"
è più o meno quello che avevo fatto io,probabilmente ho sbagliato qualche virgola.
Unica nota,non è vitale inportanza la forma isotopa da te messa,le condizioni
non hanno una forma d'uscita ben specifica.Io ci ho aggiunto anche l'ottina con la funzione
"elimina ripetuti"
Ho messo la modifica,con l'aggiunta della della ottina
Codice:
Sub Main() Dim ruote(11)
Dim n1(4)
Dim n2(4)
Dim n3(8)
Dim fi1
Dim fi2
Dim poste(10)
poste(2) = 1
fi1 = CInt(InputBox(" Inserisci la prima Figura ",,"1"))
fi2 = CInt(InputBox(" Inserisci la seconda Figura ",,"6"))
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",30)
k = InputBox("per quanti colpi?","colpi di gioco",9)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
'---------------------------------------------
If Figura(a) = fi1 And Figura(b) = fi1 Then
If Figura(c) = fi2 And Figura(d) = fi2 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
'--------------------------
n3(1) = Fuori90(a + d)
n3(2) = Fuori90(b + c)
n3(3) = Vert(n1(1))
n3(4) = Vert(n1(2))
n3(5) = Fuori90(a + c)
n3(6) = Fuori90(b + d)
n3(7) = Vert(n2(1))
n3(8) = Vert(n2(2))
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * Figure : " & " [ " & Figura(a) & " - " & Figura(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * Figure : " & " [ " & Figura(c) & " - " & Figura(d) & " ] ",1
ruote(1) = r1
ruote(2) = r2
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
'--------------------------
n3(1) = Fuori90(a + d)
n3(2) = Fuori90(b + c)
n3(3) = Vert(n1(1))
n3(4) = Vert(n1(2))
n3(5) = Fuori90(a + c)
n3(6) = Fuori90(b + d)
n3(7) = Vert(n2(1))
n3(8) = Vert(n2(2))
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,poste,k,2
ImpostaGiocata 2,n2,ruote,poste,k,2
EliminaRipetuti n3
ImpostaGiocata 3,n3,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 gennaio 2025Bari1087772360Cagliari7533602415Firenze4534664117Genova0565155386Milano2084747601Napoli9029385268Palermo3336022068Roma6812590774Torino0322299028Venezia8124351803Nazionale0631358974Estrazione Simbolotto
Bari
1424171308
