B
Baffoblu
Guest
Io per fare gli script mi baso su quello che mi dicono.......
Ripeto che se le regole vengono cambiate ogni giorno lo script rimane sempre lo stesso.....
camaleonte
- Creatore Discussione aldini
- Data di inizio
Io per fare gli script mi baso su quello che mi dicono.......
Ripeto che se le regole vengono cambiate ogni giorno lo script rimane sempre lo stesso.....
aldini
Senior Member
SCUSAMI BAFFO LESEMPIO CHE HAI EVIDENZIATO DICE CHE SE NOI ABBIAMO UN NUMERO RIPETUTO SU UNA RUOTA IN QUEL CASO
HO PRESO ESEMPIO IL 2--------------------E COME LATERALI IL 10 E IL 29
NON SI PUO' IN QUESTO CASO PERCHE I DUE LATERALI SONO UNO DISPARI E UNO PARI
LAMBO 2-10 SOMMA------------------12 DISTANZA----------------8
LAMBO 2-29 SOMMA------------------31 DISTANZA----------------27
NELLAMBO DI SOMMA 12 NON POSSO INCLUDERE UNA DISTANZA DISPARI PERCHE NON E DIVISIBILE
12+27=39
39:2=18,5 NON VALIDA----------------------------------------------
31+8=39
39:2=18,5
unica regola tassativa che ha questo metodo che i suoi laterali devono essere ho tutti e 2 pari o dispari
non ci sono altre regole
HO PRESO ESEMPIO IL 2--------------------E COME LATERALI IL 10 E IL 29
NON SI PUO' IN QUESTO CASO PERCHE I DUE LATERALI SONO UNO DISPARI E UNO PARI
LAMBO 2-10 SOMMA------------------12 DISTANZA----------------8
LAMBO 2-29 SOMMA------------------31 DISTANZA----------------27
NELLAMBO DI SOMMA 12 NON POSSO INCLUDERE UNA DISTANZA DISPARI PERCHE NON E DIVISIBILE
12+27=39
39:2=18,5 NON VALIDA----------------------------------------------
31+8=39
39:2=18,5
unica regola tassativa che ha questo metodo che i suoi laterali devono essere ho tutti e 2 pari o dispari
non ci sono altre regole
Scusa Enplein, ma forse non ho capito proprio bene bene il metodo perchè a me risulta: Ambata 32 - ambi 32.27 // 32.1
B
Baffoblu
Guest
......Non ci sono altre regole.......
è questa non è un altra regola ?
Lo script lo deve sapere come comportarsi in certi casi.
Queste cose le deve dire chi richiede lo script.....
Mica lo scripter se le inventa da solo...
Ripeto io faccio lo script solo secondo istruzioni,
se le istruzioni sono frammentarie o da interpretare ogni volta,
io non posso saperlo.
All'inizio avevate detto che andava bene così......
poi sono uscite altre cose.
Non sto li a vedere se il metodo e buono o meno,
non sta a me deciderlo, e non sta nemmeno allo scripter decidere come eseguire
un certo calcolo....
Adesso se le regole sono finite, metto lo script con le nuove regole,
Attendo.....
B
Baffoblu
Guest
La regola dei tutti e due pari o tutti e due dispari,
lo script gia la segue,
io sono stato fuorviato da altre spiegazioni,
che ho dovuto interpretare.....
ripeto, come ho detto nel messaggio precedente,
....non ci sono altre regole.....
ma allora per quello che riguarda questo calcolo ?
"non puoi sottrarre al 31 il 32 quando la somma
e inferiore devi agiungere il 90
questo succede quando una distanza
e superiore alla somma"
Questa è una regola che non sapevo,
e che non era saltata fuori fino adesso.
Potevo benissimo sottrarre il maggiore al minore....
Perchè non è scritto da nessuna parte che il calcolo
va fatto in un modo anzichè in un altro....
I metodi sono degli autori che li inventano,
gli scripter si limitano ad inserire le istruzioni
che ricevono, ma se le informazioni non sono chiare,
neppure lo script lo sarà.....
Spero che sia chiaro che se io non ho istruzioni
precise, nemmeno lo script ne avrà.
Già è un impegno fare uno script, figuriamoci se
nelle istruzioni date, c'è qualche dimenticanza,
Lo scripter non ha la bacchetta magica per interpretarle,
esegue solo istruzioni senza curarsi se siano buone,
perchè l'idea è data dall'autore del metodo, a cui
sta l'onere di spiegare le regole, sopratutto in casi
particolari se ce ne sono......
Comunque, tutto questo può servire in futuro per
chi richiede script :
1°)- Spiegare il metodo in tutti i passaggi,
senza lasciare nulla da interpretare.
2°)- Fare degli esempi reali con tutti i calcoli
senza omettere nulla.
3°)- Spiegare come procedere in casi particolari.
4°)- Offrire una birra allo scripter.....
lo script gia la segue,
io sono stato fuorviato da altre spiegazioni,
che ho dovuto interpretare.....
ripeto, come ho detto nel messaggio precedente,
....non ci sono altre regole.....
ma allora per quello che riguarda questo calcolo ?
"non puoi sottrarre al 31 il 32 quando la somma
e inferiore devi agiungere il 90
questo succede quando una distanza
e superiore alla somma"
Questa è una regola che non sapevo,
e che non era saltata fuori fino adesso.
Potevo benissimo sottrarre il maggiore al minore....
Perchè non è scritto da nessuna parte che il calcolo
va fatto in un modo anzichè in un altro....
I metodi sono degli autori che li inventano,
gli scripter si limitano ad inserire le istruzioni
che ricevono, ma se le informazioni non sono chiare,
neppure lo script lo sarà.....
Spero che sia chiaro che se io non ho istruzioni
precise, nemmeno lo script ne avrà.
Già è un impegno fare uno script, figuriamoci se
nelle istruzioni date, c'è qualche dimenticanza,
Lo scripter non ha la bacchetta magica per interpretarle,
esegue solo istruzioni senza curarsi se siano buone,
perchè l'idea è data dall'autore del metodo, a cui
sta l'onere di spiegare le regole, sopratutto in casi
particolari se ce ne sono......
Comunque, tutto questo può servire in futuro per
chi richiede script :
1°)- Spiegare il metodo in tutti i passaggi,
senza lasciare nulla da interpretare.
2°)- Fare degli esempi reali con tutti i calcoli
senza omettere nulla.
3°)- Spiegare come procedere in casi particolari.
4°)- Offrire una birra allo scripter.....
Ultima modifica di un moderatore:
B
Baffoblu
Guest
Adesso dovrebbe essere tutto giusto......
Sperando che non esca fuori qualche altro intoppo.....
Sperando che non esca fuori qualche altro intoppo.....
Codice:
Sub Main()
Scrivi " Script per laterali a destra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(1)
Dim am(4)
posta(1) = 1
poste(2) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,5)
b2 = Estratto(idEstr,r,5)
p1 = 5
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
am(1) = k1
am(2) = k2
am(3) = k3
am(4) = k4
EliminaRipetuti am
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° Ambo di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° Ambo di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi "1° Ambo : " & k1 & " - " & k2,1
Scrivi "2° Ambo : " & k3 & " - " & k4,1
ColoreTesto 2
Scrivi "Ho preferito la messa in gioco della quartina ricavata, per ovvi motivi.",1
Scrivi "Quando nella quartina vi è un Num. ripetuto, diventa una terzina.",1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco,1
ImpostaGiocata 2,am,ruote,poste,nColpiDiGioco,2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
Codice:
Sub Main()
Scrivi " Script per laterali a sinistra",1
Scrivi
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(1)
Dim am(4)
posta(1) = 1
poste(2) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,1)
b2 = Estratto(idEstr,r,1)
p1 = 1
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
k1 = a5 / 2
k2 = a3 - k1
If a3 < k1 Then
k2 =(90 + a3) - k1
End If
k3 = b5 / 2
k4 = b3 - k3
If b3 < k3 Then
k4 =(90 + b3) - k3
End If
ok = 1
End If
End If
If ok = 1 Then
n(1) = k1
am(1) = k1
am(2) = k2
am(3) = k3
am(4) = k4
EliminaRipetuti am
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° Ambo di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° Ambo di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi "1° Ambo : " & k1 & " - " & k2,1
Scrivi "2° Ambo : " & k3 & " - " & k4,1
ColoreTesto 2
Scrivi "Ho preferito la messa in gioco della quartina ricavata, per ovvi motivi.",1
Scrivi "Quando nella quartina vi è un Num. ripetuto, diventa una terzina.",1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco,1
ImpostaGiocata 2,am,ruote,poste,nColpiDiGioco,2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End SubNon mi sono spiegato bene.Intendevo dire, se il doppio numero nelle due estrazioni si trova come primo estratto la condizione è valida? Lo stesso dicasi se il numero doppio si trova in quinta posizione. Dico questo, in quanto si avrebbe un solo laterale. Grazie.
B
Baffoblu
Guest
L'esatta risposta al tuo quesito, l'autore la già data a me,
la trovi nei messaggi precedenti......
oppppsssss! non mi dire che è nuovamente sbagliato!!!!! Pensavo che così fosse giusto!
ho preso in considerazione l'uscita del 5 il 12/05 e il 17/05
19 5 = 24 dist 14 = 56 / 2 = 28 24-28= 4 ( quindi 86 )
37 5 = 42 dist 32 = 56 / 2 = 28 42-28 = 14
Mi dici dove ho nuovamente interpretato male?
ho preso in considerazione l'uscita del 5 il 12/05 e il 17/05
19 5 = 24 dist 14 = 56 / 2 = 28 24-28= 4 ( quindi 86 )
37 5 = 42 dist 32 = 56 / 2 = 28 42-28 = 14
Mi dici dove ho nuovamente interpretato male?
aldini
Senior Member
onnea secondo il mio parere 27 89 uscito ambo preso adesso esce l'ambata al 1° colpo il 28 presa anche lambata ma dobbiamo anche dare uno sguardo ai nimeri sortiti a cagliari esce 14 27 85 secondo me mordi e fuggi chiudi tutto attendiamo un paio di colpi a bari con il 54 domani mattina vedro' meglio la situazione numerica . un saluto a tutti
scusa aldini, ma faccio un pò fatica a seguirti.... in poche parole i calcoli che ho fatto sono corretti o no?
Dalla tua risposta capisco che quindi ritieni chiusa sia la previsione con il 27-32-89 che quella 86-14-28
è corretto?
In ultimo ti chiedo da dove salta fuori il 54 a bari? A che previsione si riferisce?
Dalla tua risposta capisco che quindi ritieni chiusa sia la previsione con il 27-32-89 che quella 86-14-28
è corretto?
In ultimo ti chiedo da dove salta fuori il 54 a bari? A che previsione si riferisce?
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 24 agosto 2024Bari6141042969Cagliari1763137447Firenze6957015545Genova8408727633Milano5484728288Napoli4345106459Palermo7522531042Roma1672060880Torino2212388947Venezia6758265951Nazionale6373825410Estrazione Simbolotto
Nazionale
1124423638
