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
 x dj nomade numeretti a passo 3
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

franca46
Amministratore

Italy
24411 invii

Spedito - 30 agosto 2024 :  17:41:42  Mostra profilo  Rispondi con citazione
ciao dj tu questo metodo lo hai applicato su estrazioni consecutive ,
ho provato a modificarlo per la ricerca nella stessa estrazione ,
ma sbaglio , mi aiuti?

la 2° versione del metodo cerca i numeretti in un unica estrazione, capisco anche che entra in gioco un'altra ruota , ma non fa nulla

grazie

'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub



Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico

DjNomade
Utente Molto Appassionato

314 invii

Spedito - 03 ottobre 2024 :  22:09:08  Mostra profilo  Rispondi con citazione
Urca leggo solo ora
ma dici cosi? ricerca stessa estrazione su 2 ruote?



'https://www.youtube.com/watch?v=yoEQNhpavL8
'ricerca stessa estrazione su 2 ruote

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA  Modif. x fraca46",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 10


For r1=r+1 To 12
If r1=11 Then r1=12

For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:
Next:

ScriviResoconto

End Sub
Vai ad inizio pagina

franca46
Amministratore

Italy
24411 invii

Spedito - 03 ottobre 2024 :  22:59:27  Mostra profilo  Rispondi con citazione
Ciao dj , tranquillo , grazie

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
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