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
 richiesta script
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore  Discussione Discussione successiva

giorgio60
Utente Molto Appassionato

Italy
388 invii

Spedito - 08 maggio 2018 :  20:04:26  Mostra profilo  Rispondi con citazione
buonasera a tutti è possibile realizzare uno script che rintracci su due ruote uguali o diverse, e su estrazioni diverse, due ambi isotopi distanza 45 la cui somma verticale sia uguale a 90?
esempio
estrazione del 10 aprile Ba 15-60
estrazione del 17 aprile Ba 75-30
ambi isotopi somma verticale 90
oppure
estrazione del 10 aprile Ba 15-60
estrazione del 17 aprile Mi 75-30
ambi isotopi somma verticale 90
in attesa anticipatamente ringrazio

franca46
Amministratore

Italy
18914 invii

Spedito - 22 giugno 2018 :  10:57:55  Mostra profilo  Rispondi con citazione
ciao giorgio , scusa non avevo visto questo post ....
vedi che distratta!!!!
provo a cercare nei miei listati

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

franca46
Amministratore

Italy
18914 invii

Spedito - 23 giugno 2018 :  06:33:59  Mostra profilo  Rispondi con citazione
ciao giorgio , spero sia come lo vuoi tu.

Sub Main()
Scrivi "due ambi isotopi distanza 45 somme verticali =90 ",1
Scrivi
Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),ruota(10),h,y,posta(1),poste(2),postee(4)
posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",60)
y= CInt(InputBox("PER QUANTE ESTRAZIONI INDIETRO ?","",5))
'k = CInt(InputBox("QUANTI COLPI ?","",10))
'ini = EstrazioneFin - EstrazioniLotto
fin = EstrazioneFin
ini = fin - estrazionilotto
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1<>11 then
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For x=1 To Y
ex=es-x
n1 = Estratto(ex,r1,p1)
n2 = Estratto(ex,r1,p2)
For r2 = 1 To 12
If r2<>11 then
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
n5 = Fuori90(n1 + n3)
n6 = Fuori90(n2 + n4)

If Distanza(n1,n2) = 45 And Distanza(n3,n4) = 45 And n5 =90 And n6 =90 Then
'
'
'
'
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(ex,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(ex,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo < " & Format2(n3) & "." & Format2(n4)
Scrivi " > SOMME < " &n5


End If
End If


Next
Next
Next
Next
End If
Next
Next


End Sub


buon sabato

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