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!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 aggiungere i frequenti si può

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

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 - 01 marzo 2024 : 08:01:16
ciao Dj io guardo molti video in rete, per passatempo

poi provo a fare dei listati , a questo come aggiungo i frequenti dell'ambata?

Sub main()
Dim ruote(10)
Dim ruota(1)
Dim numeri1(3)
Dim numeri2(3)

Dim poste(2)
Dim posta(3)
poste(1)=1
poste(2)=1
posta(2)=0.5
posta(3)=0.5

ruote(1)=2
ruote(2)=12
ruota(1)=11

For n=10000 To EstrazioneFin
If IndiceMensile(n)=2 Then

a=Estratto(n,8,2)

numeri1(1)=Fuori90(a+48) 
numeri1(2)=Vert(numeri1(1))

ImpostaGiocata 1,numeri1,ruote,poste,12,0
ImpostaGiocata 2,numeri1,ruota,posta,12,0


Gioca n
End If
Next
'ScriviResoconto
End Sub


grazie!!!!!!
6     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 29 dicembre 2024 : 06:57:24
Buongiorno dj , visto solo ora , vedo se fa al caso mio.

Grazie
DjNomade Posted - 28 dicembre 2024 : 21:53:38

In archivio ho trovato questo di Cinzia27

' dati 2 cg su ruote cercare gli Abbinamenti più frequenti ( Cinzia27)
Sub Main()
Dim ambi(4005,18), n(2), n1(2),n2(2), n3(2),n4(2), n5(2), n6(2), n7(2), ru(2)

rr=CInt(InputBox(" Scegli la 1° ruota ",,2))
If rr="" Then Exit Sub

rr1=CInt(InputBox(" Scegli la 2° ruota ",,12))
If rr1="" Then Exit Sub

cg=CInt(InputBox(" Scegli il 1° capogioco ",,34))
If rr="" Then Exit Sub

cg1=CInt(InputBox(" Scegli il 2° capogioco ",,43))
If cg1="" Then Exit Sub

yyy=CInt(InputBox(" Quanti abbinamenti cercare? ",,10))
If cg1="" Then Exit Sub


ru(1)=rr
ru(2)=rr1
co=0


ini=1'500
fin=EstrazioneFin
Scrivi
co=0

For y=1 To 90
If cg<>y Then
If cg1<>y Then

co=co+1
n(1)=cg'<<<<<
n(2)=y
n1(1)=cg1'<<<<
n1(2)=y


ambi(co,1)=co
ambi(co,2)=SiglaRuota(rr)
ambi(co,3)=SiglaRuota(rr1)
ambi(co,4)=StringaNumeri(n)
ambi(co,5)=StringaNumeri(n1)

fr=SerieFreq (ini,fin,n,ru,2)
fr1=SerieFreq (ini,fin,n1,ru,2)
 
fre=fr+fr1


ambi(co,6)=fre
End If
End If
Next

OrdinaMatrice ambi,-1,6

For xx=1 To yyy

Scrivi Space(2)& ambi(xx,2)&"."&  ambi(xx,3)&"  "& ambi(xx,4)&"  "& ambi(xx,5)&"  "& ambi(xx,6)
Next


End Sub
franca46 Posted - 28 dicembre 2024 : 14:11:54
Ciao aarbi , benvenuto nel forum, grazie del consiglio
magari lo guardo e chissà che possa aiutarmi.

Buon sabato



Ps : io ogni tanto faccio pensate strane
AARBI Posted - 28 dicembre 2024 : 11:09:54
citazione:
Inviato in origine da franca46

Buongiorno dj , grazie.
Proverò nella mia miriade di listati se c'è qualcosa che mi aiuta.
Buona giornata

Buongiorno, potrebbe esserti di aiuto il listato di DJ che ho postato nella richiesta "Script L8 per DJNOMADE " impostando la ricerca a 150 estrazioni pregresse e non a 300, o magari controllando se ci sono delle ripetizioni di ambi frequenti a 300 e 150.
franca46 Posted - 02 marzo 2024 : 07:07:15
Buongiorno dj , grazie.
Proverò nella mia miriade di listati se c'è qualcosa che mi aiuta.
Buona giornata
DjNomade Posted - 01 marzo 2024 : 21:19:20
Purtroppo con queste ricerche sono negato

Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000