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.
che seguo da tempo ma non ho avuto la possibilità di avere script inerenti il suo metodo ....Salve scusa se mi permetto,siccome ho letto che hai fatto uno script leggendo il lavoro di Kentalotto,
Ciao @Serpico 90 , purtroppo non sono mai riuscito a leggere tra le sue righe per capire quando bisognava mettere in gioco gli ambi (o l'ambo), anche se passavano più di 20 estrazioni.che seguo da tempo ma non ho avuto la possibilità di avere script inerenti il suo metodo ....
potresti essere cosi gentile da darmi ulteriori informazioni e se non chiedo troppo magari avere una copia dello script e se non puoi, mi potresti dare notizie su come fai per indovinare le ruote di gioco dove spesso esce l'ambo previsto.
scusami al primo messaggio che hai inserito in questa pagina fai vedere uno script ......è quello che usi per individuare le previsioni de GRANDE KENTALOTTO? Poi FREDERIK E ALRTRI NIK NIME ..........
i n attesa di una gradita risposta invio saluti
Grazie che hai risposto, si questo UOMO con i suoi diversi Nik Name riusciva ad indovinare le ruote e l'ambo .Ciao @Serpico 90 , purtroppo non sono mai riuscito a leggere tra le sue righe per capire quando bisognava mettere in gioco gli ambi (o l'ambo), anche se passavano più di 20 estrazioni.
Mi pare di ricordare che a lui non servissero script, faceva tutto a mano e dava anche molta importanza anche al fattore visivo.
Gli script che ho fatto io, sono leggermente diversi dalle impostazioni che dava lui e alcuni non sono neanche completi. Per lo più mi dilettavo nel farli.
Gio.
ps: lo screen che ho postato si riferisce al caso A del metodo richiesto da ufolotto
@Serpico 90 , lo script è già lì, devi cliccare su Anticipazione spoiler .Grazie che hai risposto, si questo UOMO con i suoi diversi Nik Name riusciva ad indovinare le ruote e l'ambo .
Ha sicuramente una preparazione e una dote fuori dal comune,come dici tu ,riusciva a trovare le previsioni sia con acume visivo e anche riusciva a trovare LE SPIE PER POTERE GIOCARE SULLE RUOTE.
Ti chiedo se lo ritieni mi potresti inviare lo script che si riferisce al caso A che hai postato nel primo messaggio?
Mi faresti un bel regalo di Natale .
Se non sara possibile pazienza .
Grazie di avermi risposto
In attesa di una tua gradita risposta ti saluto
Ok.Grazie .@Serpico 90 , lo script è già lì, devi cliccare su Anticipazione spoiler .
Ciao a tutti, impostando la ricerca su una 1 ruota, 150 estrazioni, 1 estrazione di differenza, distanza 45 e colpi 20 abbiamo il seguente resoconto:Ciao @salvo50 , ciao @ufolotto e ciao a tutti,
ho modificato uno script che avevo fatto leggendo un post di Kentalotto..
Codice:Sub Main() Scrivi " ***** LA DINAMICA DELLE DISTANZE di Ciro Vitale -- listato GioRyuKen72 ***** ",1,,RGB(143,0,255),5,4 Scrivi "richiesta di ufolotto" Scrivi "https://forum.lottoced.com/threads/script-su-metodi-cabalistici-ciclometrici-c.2089682/post-2477920" Scrivi ColoreTesto 0 Dim rt(3),Nn(4),P1,P2,E1,E2,P5,P6,R1,R2,RuoteAmbata(2),Colpi Dim Ambata1(2),PostaABT(1),Terzina1(3),Terzina2(3),Terzina3(3),Terzina4(3),Sestina1(6) Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),Ambo5(2),PostaA(2),PostaS(5),PostaT(3) Dim Ambata,AmbataSecondaria,Num1,Num2,Num3,Num4,Num5,Num6 ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150)) estra = CInt(InputBox("Quante estrazioni di differenza ricerco? inserire 0 per ricercare nella stessa estrazione, NON FUNZIONA per la ricerca su una RUOTA","RANGE ESTRAZIONI",1)) Dist = CInt(InputBox("Quale distanza si ricerca?","Distanza",45)) Colpi = CInt(InputBox("Per quanti colpi di gioco?","Colpi di gioco",20)) ini = EstrazioneFin - ex fin = EstrazioneFin For es = ini To fin Messaggio es '---------------------------------------- per fare la ricerca su 2 RUOTE---------------- For R1 = 1 To 10 For R2 = R1 + 1 To 12 If R2 = 11 Then R2 = 12 '------------------------------------------------------------------------------- ' ----------------------------------- per fare la ricerca solo su RUOTA ------------- ' For R1 = 1 To 12 'R2= R1 'in questo caso, bisogna disabilitare un NEXT verso la fine dello script '------------------------------------------------------------------------------- For P1 = 1 To 4 For P2 = P1 + 1 To 5 Nn(1) = Estratto(es -(estra),R1,P1) : Nn(2) = Estratto(es -(estra),R1,P2) Nn(3) = Estratto(es,R2,P1) : Nn(4) = Estratto(es,R2,P2) S2 = "" ' If(R2 = R1 + 1) Or(R2 = RuotaDiametrale(R1))Or(R2 = RuotaGemella(R1)) Then If R2 = R1 + 1 Then S2 = S2 & "Ruote consecutive " If R2 = RuotaDiametrale(R1) Then S2 = S2 & "Ruote Diametrali " If R2 = RuotaGemella(R1) Then S2 = S2 & "Ruote Gemelle " If Distanza(Nn(1),Nn(3)) = Dist Then '22 If Distanza(Nn(2),Nn(4)) = Dist Then '22 Ambata = Fuori90(Nn(1) + Nn(4)) 'NUMERO BASE forte AmbataSecondaria = Fuori90(Nn(1) + Nn(2)) 'NUMERO BASE debole Num3 = Nn(1) Num4 = Nn(2) Num5 = Nn(3) Num6 = Nn(4) '------------------------------------------------------- rt(1) = R1 rt(2) = R2 rt(3) = TT_ RuoteAmbata(1) = R1 RuoteAmbata(2) = R2 PostaABT(1) = 2 'posta ambata PostaA(2) = 1 'posta ambo in ambo PostaT(2) = 1 'posta ambo in terzina PostaT(3) = 0.5 'posta terno in terzina 'PostaS(2) = 1.50 'posta ambo in sestina PostaS(3) = 0.75 'posta terno in sestina PostaS(4) = 0.20 'posta quaterna in sestina PostaS(5) = 0.05 'posta cinquina in sestina k = Colpi ng = 0 '----------------------------------------------------- Ambata1(1) = Ambata Ambata1(2) = AmbataSecondaria ImpostaGiocata 1,Ambata1,RuoteAmbata,PostaABT,k ambo1(1) = Ambata ambo1(2) = AmbataSecondaria ImpostaGiocata 2,ambo1,rt,PostaA,k,2 Terzina1(1) = Ambata Terzina1(2) = AmbataSecondaria Terzina1(3) = Nn(1) ImpostaGiocata 3,Terzina1,RuoteAmbata,PostaT,k,2 Terzina2(1) = Ambata Terzina2(2) = AmbataSecondaria Terzina2(3) = Nn(2) ImpostaGiocata 4,Terzina2,RuoteAmbata,PostaT,k,2 Terzina3(1) = Ambata Terzina3(2) = AmbataSecondaria Terzina3(3) = Nn(3) ImpostaGiocata 5,Terzina3,RuoteAmbata,PostaT,k,2 Terzina4(1) = Ambata Terzina4(2) = AmbataSecondaria Terzina4(3) = Nn(4) ImpostaGiocata 6,Terzina4,RuoteAmbata,PostaT,k,2 Sestina1(1) = Ambata Sestina1(2) = AmbataSecondaria Sestina1(3) = Num3 Sestina1(4) = Num4 Sestina1(5) = Num5 Sestina1(6) = Num6 OrdinaMatrice Sestina1,1 ImpostaGiocata 7,Sestina1,RuoteAmbata,PostaS,k,3 casi = casi + 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1 ColoreTesto 0 Scrivi("Estrazione n." & Format2(Es -(estra)) & " del " & DataEstrazione(Es -(estra))),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P5 = 1 To 5 E1 = Estratto(Es -(estra),R1,P5) If E1 = Nn(1) Or E1 = Nn(2) Or E1 = Nn(3) Or E1 = Nn(4) Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For P6 = 1 To 5 E2 = Estratto(Es,R2,P6) If E2 = Nn(3) Or E2 = Nn(4) Or E2 = Nn(1) Or E2 = Nn(2) Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi String(99,"-"),1 ColoreTesto 1 ' OrdinaMatrice Nn,1 Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " - " & Format2(Nn(2)) & " - " & Format2(Nn(3)) & " - " & Format2(Nn(4)) & " Differenza nr. estrazioni: " & Format2(estra) & " su RUOTE: " & Format2(S2),1,0 Scrivi ColoreTesto 0 Scrivi String(99,"-"),1 Scrivi Gioca es,True,,1 End If 'End If End If Next Next Next Next ' questo è il NEXT da disabilitare se si vuole fare la ricerca su una RUOTA sola If ScriptInterrotto Then Exit For Next Scrivi Scrivi "Casi totali (" & casi & ")",1 TestoInBandaPassante " ***** LA DINAMICA DELLE DISTANZE di Ciro Vitale -- listato GioRyuKen72 ***** ",1,RGB(143,0,255),5 ScriviDistribuzioneEsiti(True) ScriviDistribuzioneCasiInCorso(True) ScriviResoconto End Sub
La ricerca delle ruote, della distanza, delle estrazioni e dei colpi di gioco sono modificabili dall'utente.
Così come è impostato ora fa la ricerca su 2 ruote. E' possibile fare la ricerca su ruota abilitando e disabilitando alcune righe che ho segnalato.
Fammi sapere
Gio.
Ciao a tutti,Dato che siamo in tema poi provare fare che trovi la distanza 45 i diagonale .
E ho trovato questo https://insiemeinarmonia.forumfree.it/?t=78417123
vai con il listato grazie.
Sub Main()
Scrivi " ***** Teoria e Teorie di EnzoB -- listato GioRyuKen72 ***** ",1,,RGB(143,0,255),5,4
Scrivi "richiesta di ufolotto"
Scrivi "https://forum.lottoced.com/threads/script-su-metodi-cabalistici-ciclometrici-c.2089682/post-2478362"
Scrivi
ColoreTesto 0
Dim rt(4),Nn(4),P1,P2,E1,E2,P5,P6,R1,R2,RuoteAmbata(2),Colpi,RuoteZ(3)
Dim Ambata1(2),PostaABT(1),Terzina1(3),Terzina2(3),Terzina3(3),Terzina4(3),Quartina1(4)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),Ambo5(2),PostaA(2),PostaQ(4)
Dim Ambata,AmbataSecondaria,Num1,Num2,Num3,Num4,Num5,Num6
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
estra = CInt(InputBox("Quante estrazioni di differenza ricerco? inserire 0 per ricercare nella stessa estrazione, NON FUNZIONA per la ricerca su una RUOTA","RANGE ESTRAZIONI",0))
Dist = CInt(InputBox("Quale distanza si ricerca?","Distanza",45))
Colpi = CInt(InputBox("Per quanti colpi di gioco?","Colpi di gioco",13))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
'---------------------------------------- per fare la ricerca su 2 RUOTE----------------
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
'-------------------------------------------------------------------------------
' ----------------------------------- per fare la ricerca solo su RUOTA -------------
'For R1 = 1 To 12
'R2 = R1
'in questo caso, bisogna disabilitare un NEXT verso la fine dello script
'-------------------------------------------------------------------------------
For P1 = 1 To 4
For P2 = P1 + 1 To 5
Nn(1) = Estratto(es -(estra),R1,P1) : Nn(2) = Estratto(es -(estra),R1,P2)'31-9
Nn(3) = Estratto(es,R2,P1) : Nn(4) = Estratto(es,R2,P2)'76-54
S2 = ""
' If(R2 = R1 + 1) Or(R2 = RuotaDiametrale(R1))Or(R2 = RuotaGemella(R1)) Then
If R2 = R1 + 1 Then S2 = S2 & "Ruote consecutive "
If R2 = RuotaDiametrale(R1) Then S2 = S2 & "Ruote Diametrali "
If R2 = RuotaGemella(R1) Then S2 = S2 & "Ruote Gemelle "
If Distanza(Nn(1),Nn(4)) = Dist Then
If Distanza(Nn(2),Nn(3)) = Dist Then
Ambata = Fuori90(Nn(1) + Nn(3))
AmbataSecondaria = Fuori90(Ambata *2)
Num3 = Diametrale(Ambata)
Num4 = Diametrale(AmbataSecondaria)
'-------------------------------------------------------
rt(1) = R1
rt(2) = R2
rt(3) = TT_
rt(4) = NZ_
RuoteAmbata(1) = R1
RuoteAmbata(2) = R2
RuoteZ(1) = R1
RuoteZ(2) = R2
RuoteZ(3) = NZ_
PostaABT(1) = 2
PostaA(2) = 1
PostaQ(2)=1.25
PostaQ(3) = 0.65
PostaQ(4) = 0.10
k = Colpi
ng = 0
'-----------------------------------------------------
Ambata1(1) = Ambata
Ambata1(2) = AmbataSecondaria
ImpostaGiocata 1,Ambata1,RuoteAmbata,PostaABT,k
ambo1(1) = Ambata
ambo1(2) = AmbataSecondaria
ImpostaGiocata 2,ambo1,rt,PostaA,k,2
ambo2(1) = Num3
ambo2(2) = Num4
ImpostaGiocata 3,ambo2,rt,PostaA,k,2
Quartina1(1) = Ambata
Quartina1(2) = AmbataSecondaria
Quartina1(3) = Num3
Quartina1(4) = Num4
OrdinaMatrice Quartina1,1
ImpostaGiocata 4,Quartina1,RuoteZ,PostaQ,k,3
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es -(estra)) & " del " & DataEstrazione(Es -(estra))),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es -(estra),R1,P5)
If E1 = Nn(1) Or E1 = Nn(2) Or E1 = Nn(3) Or E1 = Nn(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = Nn(3) Or E2 = Nn(4) Or E2 = Nn(1) Or E2 = Nn(2) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(123,"-"),1
ColoreTesto 1
Scrivi "Numeri Ricercati in Diagonale: " & Format2(Nn(1)) & "-" & Format2(Nn(4)) & " e " & Format2(Nn(2)) & "-" & Format2(Nn(3)) & " con Distanza " & Format2(Dist) & " Differenza nr. estrazioni: " & Format2(estra) & " su RUOTE: " & Format2(S2),1,0
Scrivi
ColoreTesto 0
Scrivi String(123,"-"),1
Scrivi
Gioca es,True,,1
End If
'End If
End If
Next
Next
Next
Next ' questo è il NEXT da disabilitare se si vuole fare la ricerca su una RUOTA sola
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " ***** Teoria e Teorie di EnzoB -- listato GioRyuKen72 ***** ",1,RGB(143,0,255),5
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub
Grazie salvo50 per la risposta. Scusatemi troverò il topic da te indicatoCiao a Tutti
Ciao tigre62, benvenuto in LottoCed,
Ma l'hai letto il titolo di questo topic?
Per chiedere aiuto apri un topic tuo, se non sai come si fa chiedi aiuto qualcuno sicuramente ti risponderà, oppure potresti andare alla pasticceria di Tom, Tom's Bakery, che se non mi sbaglio ha aperto quel topic proprio per aiutare chi ne ha bisogno
Avevo scritto degli appunti più chiari su blocco note , se li trovo li metto ...Troppo incasinato non riesco a capirlo.