| R E V I S I O N E D E L L A D I S C U S S I O N E |
| franca46 |
Posted - 21 giugno 2025 : 16:30:58
buon pomeriggio a chi potrà darci una mano , ma qui da noi c'è solo djnomade che potrebbe aiutarci
dunque :
Marylu ha costruito questo metodo , ma con carta e penna è un pò complicato
La ruota di ricavo è Palermo /
Per due estrazioni consecutive prendere il 5° estratto di Palermo e fare la loro somma
Al risultato sommare +3/
Sommare tra loro i due numeri ricavati
Esempio
Numeri in 5° posizione di Palermo (76+44)=30 (1° somma)
30 ( +3)= 33 (2° somma)
(30+33)= 63 ( 3° somma ( tra i numeri ricavati)
Da giocare i numeri della 3° somma come capigioco
ed anche come ambo secco (33-63)
Gli abbinamenti sono i numeri della 1° Somma (76-44-30)
Oppure giocare la cinquina
76-44-30-33-63
Le ruote di gioco sono
(Cagliari-Firenze-Tutte)
oppure
Napoli-Palermo-Roma
E' un metodo che è ancora in verifica.
Qualche volta esce anche il terno. Non è a colpo.
Alcune volte i risultati si hanno anche dopo due mesi, altre volte di meno
2° Parte del metodo ( in realtà è solo un'altra opzione del procedimento)
Oltre che dal 5°+5° di Palermo, la previsione può essere ricavata anche da altre ruote e
da estratti di posizione diversa, ad esempio da Firenze in 1° posizione.
Il 1° e 3 aprile 2025 troviamo in 1° posizione, in estrazioni consecutive 2-33
Abbiamo pertanto (2+33) = 35 (35 +3)= 38 ( 35+38) =73
Cinquina da giocare 2-33-35-38-73
(capigioco ed ambo secco 38-73) Abbinamenti 2-33-35
(al 3° colpo Terno su Firenze 35-38-33
su Tutte- Napoli / Quaterna 38-73-33-2 e poi ambi su Ca-su BA ecc.
--------------------------------------------------------------------------------
In data 3 e 4 aprile troviamo in 1° posizione su Firenze il 70-15
La cinquina ricavata è 70-15-85-88-83
Oltre a qualche ambo sparso, sono stati estratti due terni: a Milano 70-85-83 ed a
Palermo 88-85-15
-------------------------------------------------------------------------------------------------------------------
In data 8 e10 aprile troviamo in 1° posizione 60-35
La cinquina è 60-35-5-8-13
Ambo 5-13 su Firenze, 60-13 su Cagliari e su Genova 60-13 e su Milano 13-60 e su
Palermo 35-13 e terno su Roma dopo oltre un mese e mezzo 8-60-13
-------------------------------------------------------
Chiaramenti non sempre c'è il terno e non sempre risultati eccellenti.
io ho modificato un listato che avevo ma non è perfetto , |
| 9 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 24 giugno 2025 : 16:58:22
citazione:
Inviato in origine da franca46
citazione:
Inviato in origine da milionario
chiedo come si scelgono le ruote di gioco;ci si basa sulla precedente e successiva rispetto alla ruota di calcolo o c'è un calcolo preciso non scritto? ci si basa sull'indice di probabilita'? grazie!!!!
Buongiorno milions , lo dobbiamo chiedere a marylu
ho riletto la risposta di marylu ,
dice non avendo strumenti adatti lei opta per la ruota di calcolo e la ruote laterali ,
quindi se scegli pa si giocherebbe na pa ro
come ti ho detto per telefono puoi applicarlo anche su altre ruote e
altre posizioni isotope |
| franca46 |
Posted - 24 giugno 2025 : 05:56:31
citazione:
Inviato in origine da milionario
chiedo come si scelgono le ruote di gioco;ci si basa sulla precedente e successiva rispetto alla ruota di calcolo o c'è un calcolo preciso non scritto? ci si basa sull'indice di probabilita'? grazie!!!!
Buongiorno milions , lo dobbiamo chiedere a marylu |
| milionario |
Posted - 23 giugno 2025 : 22:17:58
senza farsi illusioni sembra promettere bene su tutte le ruote di gioco....... |
| milionario |
Posted - 23 giugno 2025 : 22:10:38
chiedo come si scelgono le ruote di gioco;ci si basa sulla precedente e successiva rispetto alla ruota di calcolo o c'è un calcolo preciso non scritto? ci si basa sull'indice di probabilita'? grazie!!!! |
| DjNomade |
Posted - 23 giugno 2025 : 21:03:09
Prova cosi
Sub main()
Dim ruota(10)
Dim ruo(2)
Dim posta(5)
Dim poste(5)
Dim n1(2)
Dim n2(5)
p1=CInt(InputBox("SCEGLI Posizione Estratto ",">",5))
posta(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
For es=10600 To EstrazioneFin
Messaggio es
For r=1 To 12
If r=11 Then r=12
ruota(1)=r
'For p1=5 To 5
a=Estratto(es-1,r,p1)
'For p2=5 To 5
b=Estratto(es,r,p1)
ColoreTesto 1
Scrivi "-------------------------------------------"
Scrivi DataEstrazione(es-1)& " "& NomeRuota(r)& " " & Format2(a) & " Posizione " & (p1)&"°"
Scrivi DataEstrazione(es)& " "& NomeRuota(r)& " " & Format2(b)& " Posizione " & (p1)&"°"
Scrivi
ColoreTesto 0
a1=Estratto (es-1,r,1)
a2=Estratto (es,r,1)
'r1=r+1
ruota(1)=r : ruota(2)=12
ruo(1)=12 : ruo(2)=11
n1(1)=Fuori90(a+b)
n1(2)=Fuori90(n1(1)+3)
ImpostaGiocata 1,n1,ruota,posta,12,0
n2(1)=n1(1)
n2(2)=n1(2)
n2(3)=a
n2(4)=b
n2(5)=Fuori90(n1(1)+n1(2))
ImpostaGiocata 2,n2,ruo,poste,12,0
Gioca es
'End If
Next
Next
'Next
'Next
'ScriviResoconto 1
'ScriviResoconto 2
Scrivi
Scrivi "Ramco by www.Ramcolotto.it <http://www.Ramcolotto.it> ",1
Scrivi
ColoreTesto 1
Scrivi Now,1
End Sub |
| franca46 |
Posted - 23 giugno 2025 : 18:24:25
fatto |
| franca46 |
Posted - 22 giugno 2025 : 09:06:41
buon giorno dj , ho provato il listato e naturalmente funziona , è ottimo anche perchè possiamo scegliere estratti - posizione ed estrazioni.
io non essendo brava come ne ho adattato uno che avevo , che adesso ti mostro ,
mi analizza tutte le ruote ad estrazioni consecutive , gioca sulla stessa ruota di ricerca e su tutte , ma per me va bene
non mi riesce però di cambiare posizione dell'estratto da analizzare ,
appena cambio non risponde a dovere , se pensi che si può aggiustare , ti ringrazio
Sub main()
Dim ruota(10)
Dim ruo(2)
Dim posta(5)
Dim poste(5)
Dim n1(2)
Dim n2(5)
posta(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
For es=10600 To EstrazioneFin
Messaggio es
For r=1 To 10
ruota(1)=r
For p1=5 To 5
a=Estratto(es-1,r,p1)
For p2=5 To 5
b=Estratto(es,r,p2)
ColoreTesto 1
Scrivi "-------------------------------------------"
Scrivi DataEstrazione(es-1)& " "& NomeRuota(r)& " " & Format2(a) & " Posizione " & (p1)&"°"
Scrivi DataEstrazione(es)& " "& NomeRuota(r)& " " & Format2(b)& " Posizione " & (p2)&"°"
Scrivi
ColoreTesto 0
a1=Estratto (es-1,r,1)
a2=Estratto (es,r,1)
'r1=r+1
ruota(1)=r : ruota(2)=12
ruo(1)=12 : ruo(2)=11
n1(1)=Fuori90(a+b)
n1(2)=Fuori90(n1(1)+3)
ImpostaGiocata 1,n1,ruota,posta,12,0
n2(1)=n1(1)
n2(2)=n1(2)
n2(3)=a
n2(4)=b
n2(5)=Fuori90(n1(1)+n1(2))
ImpostaGiocata 2,n2,ruo,poste,12,0
Gioca es
'End If
Next
Next
Next
Next
'ScriviResoconto 1
'ScriviResoconto 2
Scrivi
Scrivi "Ramco by www.Ramcolotto.it <http://www.Ramcolotto.it> ",1
Scrivi
ColoreTesto 1
Scrivi Now,1
End Sub
buona giornata
|
| franca46 |
Posted - 21 giugno 2025 : 23:29:51
Ciao dj grazie sempre della tua disponibilità.
domani mattina lo provo , ma sicuramente andrà bene.
Io ho provato adattandone uno che ho ,che mi analizza tutte le ruote , magari te lo mostro
Grazie mille e buona serata
|
| DjNomade |
Posted - 21 giugno 2025 : 22:22:55
Controllate questo
Ciauz
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46833
'21-06-2025
ColoreTesto 2: Scrivi
Scrivi String(30," ") & "LASCIO O RADDOPPIO BY MARYLU ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
ColoreTesto 0: Scrivi
Sub main()
Dim amb(2),ambo1(4),ambo2(5),ambo3(6),ambo4(2),lg(10),nc(4),nr(1)
Dim ruote(11),ruota(11),posta(10),poste1(5),poste2(5),poste(5)
t=0
EST=CInt(InputBox("Quante estrazioni di ricerca ? ",">",100))
im=CInt(InputBox("Pronostico dall'estrazione mensile numero? ( Scrivi 0=ultima estrazione mese Scrivi da 1 a 19= indice mensile Scrivi 20= ad ogni estrazione )",">",1))
r=CInt(InputBox("SCEGLI RUOTA DI RICERCA ",">",7))
p1=CInt(InputBox("SCEGLI Posizione Estratto ",">",5))
r1=CInt(InputBox("SCEGLI 1° Ruota di gioco ",">",2))
r2=CInt(InputBox("SCEGLI 2° Ruota di gioco ",">",3))
r3=CInt(InputBox("SCEGLI 3° Ruota di gioco ",">",11))
cl=CInt(InputBox("COLPI DI GIOCO ( )",">",13))
posta(1)=1
posta(2)=1
poste(2)=1
poste1(2)=1.2
poste1(3)=1.6
poste1(4)=.20
ini=EstrazioneFin-EST
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If eval(im)<20 Or eval(im)=0 Or eval(im)= 20 Then
If (eval(im)=0 And IsUltimaDelMese(es))Or (eval(im)>0 And Indicemensile(es)=eval(im))Or (eval(im)=20 And es=es) Then
a1=Estratto(es-1,r,p1)'76
a2=Estratto(es,r,p1)'44
a3=Fuori90(a1+a2)'76+44 30
a4=Fuori90(a3+3)'30+3 33
a5=Fuori90(a3+a4)'30+33 63
'*********************************
ruota(1)=r1
ruota(2)=r2
ruota(3)=r3
If r3=11 Then ruota(1)=r1:ruota(2)=r2:ruota(3)=0
ruote(1)=r1
ruote(2)=r2
ruote(3)=r3
If r3=11 Then ruote(1)=1:ruote(2)=2:ruote(3)=3:ruote(4)=4:ruote(5)=5:ruote(6)=6:
If r3=11 Then ruote(7)=7:ruote(8)=8:ruote(9)=9:ruote(10)=10:
t=t+1
Scrivi "------------------------------------------------------------",1
If (eval(im)=0 And IsUltimaDelMese(es)) Then Scrivi "---------------------------Ultima del Mese --- Giocata n° "& Format2(t),1
If (eval(im)>0 And Indicemensile(es)=eval(im)) Then Scrivi "---------------"&IndiceMensile(es)&"° ESTRAZIONE del Mese Giocata n° "& Format2(t),1
If (eval(im)=20 And es=es) Then Scrivi "---------------"&IndiceMensile(es)&"° ESTRAZIONE del Mese Giocata n° "& Format2(t),1
Scrivi DataEstrazione(es-1)&" "&(SiglaRuota(r))&" -> "& StringaEstratti(es-1,r)&" -> "&a1 ,1
Scrivi DataEstrazione(es)&" "&(SiglaRuota(r))&" -> "& StringaEstratti(es,r)&" -> "&a2 ,1
Scrivi
Scrivi
ColoreTesto 0
amb(1) = a4
amb(2) = a5
ImpostaGiocata 1,amb,ruota,posta,cl
ambo3(1) = a4
ambo3(2) = a5
ambo3(3) = a1
ambo3(4) = a2
ambo3(5) = a3
ImpostaGiocata 2,ambo3,ruote,poste1,cl
Gioca es
End If
End If
Next
ScriviResoconto
End Sub
'
Function IsUltimaDelMese (idEstr)
Dim sData , sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr) , "." , "/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay (sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti =2
Case vbThursday ' giovedi
gMancanti = 1 '2 provare con 2
Case vbFriday ' venerdi ' non c'era
gMancanti = 1 ' non c'era
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd( "d" , gMancanti ,sData)
If Month (sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function |
|
|
