Cerca
ESTRAZIONI LOTTO
Ultimi argomenti attivi
SCRIPT X SPAZIOMETRIA
2 partecipanti
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
SCRIPT X SPAZIOMETRIA
Da *Olga* Ven 30 Dic - 8:42:26
AVREI BISOGNO DI UNO SCRIPT
che rileva la condizione ::::
gli ambi di ::
... DISTANZA 30 in orizzontale ( della stessa estrazione )
e DISTANZA 18 in senso DIAGONALE...
ad es...
6-36.....
18-78...
GRAZIEEE MILLE
che rileva la condizione ::::
gli ambi di ::
... DISTANZA 30 in orizzontale ( della stessa estrazione )
e DISTANZA 18 in senso DIAGONALE...
ad es...
6-36.....
18-78...
GRAZIEEE MILLE
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
Re: SCRIPT X SPAZIOMETRIA
Da DjNomade Ven 30 Dic - 12:23:55
Prova cosi
Ciauz Buon Anno
Ciauz Buon Anno
- Codice:
ColoreTesto 2
Scrivi String(37,32) & "Ambi Distanza 30 in Orizzontale e 18 in Diagonale X Olga",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
poste(1) = 1
poste(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = fin - 70
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
n5 = Distanza(n1,n4)'distanza diag
n6 = Distanza(n2,n3)'distanza diag
If n5=n6 And n5=18 Then
n7 = Distanza(n1,n2)'distanza orizz
n8 = Distanza(n3,n4)'distanza orizz
If n7=n8 And n7=30 Then
n9 = Fuori90(n6+n7)'ambata
n10 = n9-Minimo(n6,n7)'abbinamneto
n11 = 90-Vert(n10)
n12 = Vert(n10)
'If n5=n6 And n7=n8 And n7=30 And n5 =18 Then
casi = casi + 1
Scrivi
Scrivi String(75,"=") & " caso n° " &(casi)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo Distanza "& Format2(n7) & " Orizzontale < " & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo Distanza "& Format2(n6) & " Diagonale < " & Format2(n3) & "." & Format2(n4) & " >"
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
k = 9
co = 0
End If
End If
Next
Next
Next
Next
Next
Next
Next
'ScriviResoconto
ColoreTesto 2
Scrivi String(37,32) & "Ambi Distanza 30 in Orizzontale e 18 in Diagonale X Olga",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
End Sub
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Re: SCRIPT X SPAZIOMETRIA
Da *Olga* Ven 30 Dic - 12:42:13
WAW...
SEI PIU VELOCE DELLA LUCE, COME SEMPRE...
GRAZIE, FABRIZIO...
BUON ANNO ANCHE A TE....
SEI PIU VELOCE DELLA LUCE, COME SEMPRE...
GRAZIE, FABRIZIO...
BUON ANNO ANCHE A TE....
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
Argomenti simili» HO PROBLEMI SU SPAZIOMETRIA
» Aggiornamento Archivio manuale Spaziometria
» Richista script
» Script Statistico
» aiuto x questo script
» Aggiornamento Archivio manuale Spaziometria
» Richista script
» Script Statistico
» aiuto x questo script
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
» Ultima del Mese BARI
» N°Spia 50 R.S. Genova R.G. Torino
» il forum si è trasferito
» il forum si è trasferito
» il forum si è trasferito
» N°Spia 50 R.S. Genova R.G. Torino
» Ho aperto un nuovo sito
» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi