Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


SCRIPT X SPAZIOMETRIA

Andare in basso

SCRIPT X SPAZIOMETRIA

Messaggio Da *Olga* il Ven Dic 30, 2016 7:42 am

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

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

Visualizza il profilo

Torna in alto Andare in basso

Re: SCRIPT X SPAZIOMETRIA

Messaggio Da DjNomade il Ven Dic 30, 2016 11:23 am

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
avatar
DjNomade

Messaggi : 283
Data d'iscrizione : 03.07.14

Visualizza il profilo

Torna in alto Andare in basso

Re: SCRIPT X SPAZIOMETRIA

Messaggio Da *Olga* il Ven Dic 30, 2016 11:42 am

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

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

Visualizza il profilo

Torna in alto Andare in basso

Re: SCRIPT X SPAZIOMETRIA

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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