| 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 |
| piermarco |
Posted - 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 |
| 7 U L T I M E R E P L I C H E (Newest First) |
| neriana |
Posted - 16 marzo 2015 : 16:12:49
grazie |
| franca46 |
Posted - 02 marzo 2015 : 15:57:15
 |
| Rosemary |
Posted - 02 marzo 2015 : 07:56:10
Grazie! :)
|
| franca46 |
Posted - 27 febbraio 2015 : 16:04:50
ciao rosemary
certo che puoi metti, un apostrofo cosi
'poste(1) = 1
buon pomeriggio |
| Rosemary |
Posted - 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 |
Posted - 10 febbraio 2015 : 07:17:12
ciao Alasque benvenuto nel forum
quello sopra è uno script per il programma L8
buona giornata |
| Alasque |
Posted - 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? |
|
|
