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
 richiesta script

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
giorgio60 Posted - 08 maggio 2018 : 20:04:26
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
2     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 23 giugno 2018 : 06:33:59
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 Posted - 22 giugno 2018 : 10:57:55
ciao giorgio , scusa non avevo visto questo post ....
vedi che distratta!!!!
provo a cercare nei miei listati

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