Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Per Dj Nomade
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

Boris
Utente Fedelissimo

Italy
580 invii

Spedito - 23 gennaio 2024 :  16:31:09  Mostra profilo  Rispondi con citazione
Salve sono Boris
Ho visto che sei bravo a fare le ricerche e anche a costruire Script.
Ti chiedo cortesemente se puoi costruirne uno.
Se si, ti indico la ricerca e la previsione che deve fare lo script.
In attesa di una tua gradita risposta ti auguro buon pomeriggio
Ciao

DjNomade
Utente Appassionato

237 invii

Spedito - 24 gennaio 2024 :  07:12:48  Mostra profilo  Rispondi con citazione

Spiega il tutto poi vediamo

Ciauz
Vai ad inizio pagina

Boris
Utente Fedelissimo

Italy
580 invii

Spedito - 24 gennaio 2024 :  10:46:30  Mostra profilo  Rispondi con citazione
Buon di.
Grazie per aver risposto.
Spero di spiegare bene cosa desidero:
Inserisco DUE ruote (di volta in volta saranno cambiate)
Inserisco DUE numeri che saranno capi gioco;
Inserisco Quattro Numeri che saranno gli abbinamenti ai due capigioco.
A questo punto lo script mi dovrebbe indicare il capo gioco che si abbina in percentuale più alta con un numero dei quattro di abbinamento, e in via decrescento anche l'altro capo gioco .
In modo da poter scommettere in ambo.
Faccio degli esempi su estrazioni.
Concorso 34 del 21/3/23 ruote Roma -Venezia
capi gioco 71----17
numeri in abbinamento 4.-40--45---90
in questo caso lo script mi dovrebbe indicare l'ambo con percentuale più alta
di un capo gioco con uno dei quattro numeri.


avrebbe indicato ??
esito c.n.38 4.71.90.


altro esempio

c.n.53 del 4/5/23 bari venezia
capi gioco 60.....6....
numeri in abbinamento 63.36.45.90

esito c.n. 57 bari 60.90
Se non sono stato chiaro nell'esposizione sono a disposizione per altri chiarimenti
Vai ad inizio pagina

DjNomade
Utente Appassionato

237 invii

Spedito - 24 gennaio 2024 :  19:23:45  Mostra profilo  Rispondi con citazione
Sei stato chiarissimo, purtroppo in questi tipi di ricerche vado in confusione

in archivio ho trovato questi,magari ti possono essere d'aiuto

Ciauz



'===========ricerca FREQUENZA  e  RITARDO di un AMBO per Ruota==========

Sub main()
'ru=InputBox ("Quale ruota vuoi controllare",,5 )' RUOTA DI RICERCA
n1=InputBox("1° NUMERO AMBO DI RICERCA","ricerca ",90)
n2=InputBox("2° NUMERO AMBO DI RICERCA","ricerca ",11)
fin=EstrazioneFin
ini=EstrazioneIni
For ru=1 To 12
If ru=11 Then ru=12
rit=0
ok=0
For es=fin To ini step -1
If Posizione (es,ru,n1)>0 And Posizione (es,ru,n2)>0 Then ok=1 : ra=rit : ex=es Else rit=rit+1
If ok=1 Then Exit For
Next
a=AmboFrequenza(ru,n1,n2,ini,fin)
Scrivi
Scrivi "Dal "&DataEstrazione (ini) &" al " &DataEstrazione (fin) &" a "& SiglaRuota (RU)&" l'AMBO["&(n1)&" "& (n2)&"] FREQUENZA USCITA "& Format2(a)&" VOLTE ",1
Scrivi
Scrivi "Dal "&DataEstrazione (ini) &" al " &DataEstrazione (fin) &" a "& SiglaRuota (RU)&" l'AMBO["&(n1)&" "& (n2)&"]  Ritarda da "& (rit)&" estrazioni ",1
Scrivi
Scrivi" Ultima uscita il "& DataEstrazione (ex)&" = "& StringaEstratti (ex,ru),1
ColoreTesto 2
Scrivi"==================================== ",1
ColoreTesto 0
Scrivi
Next
End Sub


e questo


' Ricava migliori ambate + 4 abbinamenti by Lottopassion
'Ruote gioco: Bari - Cagliari
'Cicli analizzati: 30
'Estrazioni considerate: 9
'Ambata/Capogioco: 8
'Abbinamenti x ambo: 67 - 36 - 25 - 60
'Cinquina x ambo e terno: 8 - 67 - 36 - 25 - 60

                               

                               
Sub main()
Dim ruote(11)
Dim numeri(90),pres(90)
Dim ncicli
Dim cicli
Dim stringa
Dim ns(10)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff,scad,sdec,conta,nsp,cpg
cicli=CLng(InputBox ("Quanti cicli vuoi analizzare ?",,30))
ncicli=CLng(InputBox ("Di quante estrazioni ?",,9))
r1=CLng(InputBox ("Ruota numero 1: (1=Bari 2=Cagliari ...)",,1))
r2=CLng(InputBox ("Ruota numero 2: 0=no",,2))
cpg=CLng(InputBox ("Capogioco: 0=automatico",,0))
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
Erase pres
For es=estr1 To estr2
For e1=1 To 5
If pres(Estratto (es,r1,e1))=0 Then
numeri(Estratto (es,r1,e1))=numeri(Estratto(es,r1,e1))+1
pres(Estratto (es,r1,e1))=1
If numeri(Estratto (es,r1,e1))>nmax Then nmax=numeri(Estratto (es,r1,e1))
End If
If r2>0 Then
If pres(Estratto (es,r2,e1))=0 Then
numeri(Estratto (es,r2,e1))=numeri(Estratto(es,r2,e1))+1
pres(Estratto (es,r2,e1))=1
If numeri(Estratto (es,r2,e1))>nmax Then nmax=numeri(Estratto (es,r2,e1))
End If
End If
Next
Next
Next
stringa= "Ruote gioco: "+NomeRuota (r1)
If r2>0 Then stringa=stringa+" - "+NomeRuota(r2)
Scrivi stringa,True
Scrivi"Cicli analizzati: "&(cicli),1
Scrivi"Estrazioni considerate: "&(ncicli),1
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff  Then
nsp=cc
Exit Do
End If
Next
Loop
If cpg>0 Then nsp= cpg
Scrivi "Ambata/Capogioco: "+CStr(nsp)
Erase numeri
estr1=EstrazioneFin -(ncicli*(cicli+1))
For cc =1 To cicli
estr1=estr1+ncicli
estr2=estr1+ncicli
For es=estr1 To estr2
For e1=1 To 5
If Estratto (es,r1,e1)=nsp Then
For e2= 1 To 5
If Estratto(es,r1,e2)<>nsp Then
numeri(Estratto (es,r1,e2))=numeri(Estratto(es,r1,e2))+1
If numeri(Estratto (es,r1,e2))>nmax Then nmax=numeri(Estratto (es,r1,e2))
End If
Next
End If
If r2>0 Then
If Estratto (es,r2,e1)=nsp Then
For e2=1 To 5
If Estratto(es,r2,e2)<>nsp Then
numeri(Estratto (es,r2,e2))=numeri(Estratto(es,r2,e2))+1
If numeri(Estratto (es,r2,e2))>nmax Then nmax=numeri(Estratto (es,r2,e2))
End If
Next
End If
End If
Next
Next
Next
ff=nmax+1
conta=0
Do
ff=ff-1
If ff=0 Then Exit Do
For cc=1 To 90
If numeri(cc)=ff  Then
conta=conta+1
ns(conta)=cc
If conta>4 Then Exit Do
End If
Next
Loop
Scrivi "Abbinamenti x ambo: "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))
Scrivi "Cinquina x ambo e terno: "+CStr(nsp)+" - "+CStr(ns(1))+" - "+CStr(ns(2))+" - "+CStr(ns(3))+" - "+CStr(ns(4))

End Sub







Vai ad inizio pagina

Boris
Utente Fedelissimo

Italy
580 invii

Spedito - 24 gennaio 2024 :  22:08:26  Mostra profilo  Rispondi con citazione
Ciao.
Grazie per avermi inviato due script.
Li Ho visionati purtroppo non fanno la ricerca che io desideravo
domani farò una ricerca piu approfondita sul secondo, vedrò se lo
posso adattare alla mia ricerca.
Ti ringrazio per la Tua disponibilità e per il tempo che mi hai dedicato per la ricerca.
Gentilissimo.
Ti auguro buona serata.
Saluti
Boris
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000