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
![](images/lightgreen/icon_smile.gif) ![](images/lightgreen/icon_smile.gif) |
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 ![](images/lightgreen/icon_smile.gif)
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? |
|
|