| Autore |
 Discussione  |
|
|
piermarco
Utente Sfegatato
3752 invii |
 Spedito - 26 gennaio 2015 : 10:53:54
|
Sub Main()
Dim nr(2),d(6)
Dim nr1(4)
Dim ruote(2),rt(3)
Dim poste(2),post(5)
poste(1) = 1
post(2) = 1
post(3) = 0.5
cn = CInt(InputBox("Quante estrazioni controlliamo ?",,14))
ini = EstrazioneFin - cn
fin = EstrazioneFin
For es = ini To fin
Messaggio es
For r1 = 1 To 9
For r2 = r1 + 1 To 10
ruote(1) = r1
ruote(2) = r2
For p1 = 1 To 5
For p2 = p1 + 1 To 5
For p3 = 1 To 5
For p4 = p3 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
d1 = Distanza(n1,n2)
d2 = Distanza(n1,n3)
d3 = Distanza(n1,n4)
d4 = Distanza(n2,n3)
d5 = Distanza(n2,n4)
d6 = Distanza(n3,n4)
If(d1 = 30 And d6 = 30)Or(d2 = 30 And d5 = 30)Or(d3 = 30 And d4 = 30) Then
sn1 = Fuori90((n1 + n2 + n3 + n4)*2)
Scrivi "____________________________________________________________________________________________"
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & NomeRuota(r1) & " Ambo " & Format2(n1) & "-" & Format2(n2) & ".....Dist. Or1 = " & d1 & " ...Vert_1 = " & d2 & " ...Diag_1 = " & d3,1
Scrivi DataEstrazione(es) & " " & NomeRuota(r2) & " Ambo " & Format2(n3) & "-" & Format2(n4) & ".....Dist. Or2 = " & d6 & " ...Vert_2 = " & d5 & " ...Diag_2 = " & d4,1
nr(1) = Diametrale(sn1)
ImpostaGiocata 1,nr,ruote,poste,14,1
rt(1) = r1
rt(2) = r2
rt(3) = 11
nr1(1) = Diametrale(sn1)
nr1(2) = sn1
nr1(3) = Fuori90(nr(1) + 30)
nr1(4) = Fuori90(nr(1) + 60)
ImpostaGiocata 2,nr1,rt,post,14,2
Gioca es
End If
Next : Next : Next
Next : Next : Next
Next
ScriviResoconto
End Sub |
|
|
Alasque
Utente Nuovo
2 invii |
Spedito - 09 febbraio 2015 : 16:24:47
|
Ciao a tutti,
giusto per presentarmi e provare un po.
Premetto che non conosco l'argomento Macro... abbiate pietà di me 
ho provato ad incollare lo script all'interno di una macro apena creata ma mi se la esegui dice:
Errore di compilazione:
Sub o Function non definita.
Mi sapete dire qualcosa? |
Alasque |
 |
|
|
franca46
Amministratore
Italy
24542 invii |
Spedito - 10 febbraio 2015 : 07:17:12
|
ciao Alasque benvenuto nel forum
quello sopra è uno script per il programma L8
buona giornata |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
Rosemary
Utente Nuovo
2 invii |
Spedito - 27 febbraio 2015 : 15:01:46
|
ciao franca, se io volessi eliminare dal metodo la giocata per estratto, si potrebbe fare?
Grazie in anticipo, ciao. |
|
|
|
franca46
Amministratore
Italy
24542 invii |
Spedito - 27 febbraio 2015 : 16:04:50
|
ciao rosemary
certo che puoi metti, un apostrofo cosi
'poste(1) = 1
buon pomeriggio |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
Rosemary
Utente Nuovo
2 invii |
Spedito - 02 marzo 2015 : 07:56:10
|
Grazie! :)
|
|
|
|
franca46
Amministratore
Italy
24542 invii |
Spedito - 02 marzo 2015 : 15:57:15
|
|
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
neriana
Utente Fedelissimo
Italy
755 invii |
Spedito - 16 marzo 2015 : 16:12:49
|
|
grazie |
sincerità |
|
|
| |
Discussione |
|
LOTTO FACILE 4
