Autore |
Discussione  |
|
piermarco
Utente Sfegatato
    
3800 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
24715 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
24715 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
24715 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  |
|