LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
SCRIPT X SPAZIOMETRIA EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
SCRIPT X SPAZIOMETRIA EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
SCRIPT X SPAZIOMETRIA EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
SCRIPT X SPAZIOMETRIA EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
SCRIPT X SPAZIOMETRIA EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
SCRIPT X SPAZIOMETRIA EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
SCRIPT X SPAZIOMETRIA EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
SCRIPT X SPAZIOMETRIA EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
SCRIPT X SPAZIOMETRIA EmptyMar 2 Apr - 20:57:27 Da DjNomade


SCRIPT X SPAZIOMETRIA

2 partecipanti

Andare in basso

SCRIPT X SPAZIOMETRIA Empty SCRIPT X SPAZIOMETRIA

Messaggio 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    
*Olga*
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 61
Località : Lazio VT

Torna in alto Andare in basso

SCRIPT X SPAZIOMETRIA Empty Re: SCRIPT X SPAZIOMETRIA

Messaggio Da DjNomade Ven 30 Dic - 12:23:55

Prova cosi

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
DjNomade

Messaggi : 335
Data d'iscrizione : 03.07.14

Torna in alto Andare in basso

SCRIPT X SPAZIOMETRIA Empty Re: SCRIPT X SPAZIOMETRIA

Messaggio Da *Olga* Ven 30 Dic - 12:42:13

WAW...
SEI PIU VELOCE DELLA LUCE, COME SEMPRE...
GRAZIE, FABRIZIO...
BUON ANNO ANCHE A TE....
santa
*Olga*
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 61
Località : Lazio VT

Torna in alto Andare in basso

SCRIPT X SPAZIOMETRIA Empty Re: SCRIPT X SPAZIOMETRIA

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.