| il Toscano |
| | CITAZIONE (il Toscano @ 21/3/2011, 16:37) Rintracciato l'isotopo...rimetterlo in gioco con il suo vertibile, usandoli come CAPOGIOCO........ Dalla TAVOLA SETTENARIA.....possiamo prendere la QUARTINA dell'isotopo stesso, Ma possiamo anche prendere la QUARTINA del suo vertibile....viene fuori un DECINA su 84 casi di isotopia, mentre in SEI casi viene fuori un'ottina (dai numeri 15 45 75 e 30 60 90) poi sta a ciascuno di noi come impostare la giocata...personalmente preferisco in quartine con dentro sempre i due capogiochi.
Una particolare attenzione, in quanto numeri isotopi ne troviamo tanti.. allora preferisco mettere in gioco l'isotopo su RUOTE VICINE o CONSECUTIVE.
A tal proposito ci sono due listati, uno di DJNOMADE in decine, e l'altro di DRAGO2940 in sestine...che cerco di postarli.
Questo in DECINA dJNOMADE Sub Main() ColoreTesto 2 Scrivi "================================================== TABELLA SETTENARIA===================== ",1 Scrivi "===============================================con numero ripetuto isotopo X Osvaldo1=================== ",1 Scrivi "===============================================Listato DjNomade",1 Scrivi ColoreTesto 0 Dim ruota(2) Dim numeri(5),numeri1(10),numeri2(10),amb(8) Dim posta(2) Dim poste(2),postee(5) posta(1) = 1 posta(2) = 1 poste(2) = 1 postee(2) = 2.5 postee(3) = 1.3 postee(4) = 1 postee(5) = 0.2 tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50)) clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12)) co = 0 ini = EstrazioneFin - tmp For n = ini To EstrazioneFin Messaggio(n) For r1 = 1 To 9 For r2 = r1 + 1 To 10 For p1 = 1 To 5 a = Estratto(n,r1,p1) b = Estratto(n,r2,p1) If(a) =(b) Then n1 = a co = co + 1 Scrivi String(70,"="): ColoreTesto 9 Scrivi NomeRuota(r1) & "-" & NomeRuota(r2) & _ " Numero isotopo " & a & "-" & b & " estratto al " & p1 & "° posto",1 Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ] ",1 Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(n,r2) & " ]",1
Scrivi : ColoreTesto 0 ruota(1) = r1 ruota(2) = r2 If n1 = 1 Then amb(1) = 7:amb(2) = 13:amb(3) = 78:amb(4) = 90 If n1 = 2 Then amb(1) = 14:amb(2) = 26:amb(3) = 65:amb(4) = 89 If n1 = 3 Then amb(1) = 21:amb(2) = 39:amb(3) = 52:amb(4) = 88 If n1 = 4 Then amb(1) = 28:amb(2) = 52:amb(3) = 39:amb(4) = 87 If n1 = 5 Then amb(1) = 35:amb(2) = 65:amb(3) = 26:amb(4) = 86 If n1 = 6 Then amb(1) = 42:amb(2) = 78:amb(3) = 13:amb(4) = 85 If n1 = 7 Then amb(1) = 49:amb(2) = 1:amb(3) = 90:amb(4) = 84 If n1 = 8 Then amb(1) = 56:amb(2) = 14:amb(3) = 77:amb(4) = 83 If n1 = 9 Then amb(1) = 63:amb(2) = 27:amb(3) = 64:amb(4) = 82 If n1 = 10 Then amb(1) = 70:amb(2) = 40:amb(3) = 51:amb(4) = 81 If n1 = 11 Then amb(1) = 77:amb(2) = 53:amb(3) = 38:amb(4) = 80 If n1 = 12 Then amb(1) = 84:amb(2) = 66:amb(3) = 25:amb(4) = 79 If n1 = 13 Then amb(1) = 1:amb(2) = 79:amb(3) = 12:amb(4) = 78 If n1 = 14 Then amb(1) = 8:amb(2) = 2:amb(3) = 89:amb(4) = 77 If n1 = 15 Then amb(1) = 15:amb(2) = 15:amb(3) = 76:amb(4) = 76 If n1 = 16 Then amb(1) = 22:amb(2) = 28:amb(3) = 63:amb(4) = 75 If n1 = 17 Then amb(1) = 29:amb(2) = 41:amb(3) = 50:amb(4) = 74 If n1 = 18 Then amb(1) = 36:amb(2) = 54:amb(3) = 37:amb(4) = 73 If n1 = 19 Then amb(1) = 43:amb(2) = 67:amb(3) = 24:amb(4) = 72 If n1 = 20 Then amb(1) = 50:amb(2) = 11:amb(3) = 11:amb(4) = 71 If n1 = 21 Then amb(1) = 57:amb(2) = 3:amb(3) = 88:amb(4) = 70 If n1 = 22 Then amb(1) = 64:amb(2) = 16:amb(3) = 75:amb(4) = 69 If n1 = 23 Then amb(1) = 71:amb(2) = 29:amb(3) = 62:amb(4) = 68 If n1 = 24 Then amb(1) = 78:amb(2) = 42:amb(3) = 49:amb(4) = 67 If n1 = 25 Then amb(1) = 85:amb(2) = 55:amb(3) = 36:amb(4) = 66 If n1 = 26 Then amb(1) = 2:amb(2) = 68:amb(3) = 23:amb(4) = 65 If n1 = 27 Then amb(1) = 9:amb(2) = 81:amb(3) = 10:amb(4) = 64 If n1 = 28 Then amb(1) = 16:amb(2) = 4:amb(3) = 87:amb(4) = 63 If n1 = 29 Then amb(1) = 23:amb(2) = 17:amb(3) = 74:amb(4) = 62 If n1 = 30 Then amb(1) = 30:amb(2) = 30:amb(3) = 61:amb(4) = 61 If n1 = 31 Then amb(1) = 37:amb(2) = 43:amb(3) = 48:amb(4) = 60 If n1 = 32 Then amb(1) = 44:amb(2) = 56:amb(3) = 35:amb(4) = 59 If n1 = 33 Then amb(1) = 51:amb(2) = 69:amb(3) = 22:amb(4) = 58 If n1 = 34 Then amb(1) = 58:amb(2) = 82:amb(3) = 9:amb(4) = 57 If n1 = 35 Then amb(1) = 65:amb(2) = 5:amb(3) = 86:amb(4) = 56 If n1 = 36 Then amb(1) = 72:amb(2) = 18:amb(3) = 73:amb(4) = 55 If n1 = 37 Then amb(1) = 79:amb(2) = 31:amb(3) = 60:amb(4) = 54 If n1 = 38 Then amb(1) = 86:amb(2) = 44:amb(3) = 47:amb(4) = 53 If n1 = 39 Then amb(1) = 3:amb(2) = 57:amb(3) = 34:amb(4) = 52 If n1 = 40 Then amb(1) = 10:amb(2) = 70:amb(3) = 21:amb(4) = 51 If n1 = 41 Then amb(1) = 17:amb(2) = 83:amb(3) = 8:amb(4) = 50 If n1 = 42 Then amb(1) = 24:amb(2) = 6:amb(3) = 85:amb(4) = 49 If n1 = 43 Then amb(1) = 31:amb(2) = 19:amb(3) = 72:amb(4) = 48 If n1 = 44 Then amb(1) = 38:amb(2) = 32:amb(3) = 59:amb(4) = 47 If n1 = 45 Then amb(1) = 45:amb(2) = 45:amb(3) = 46:amb(4) = 46 If n1 = 46 Then amb(1) = 52:amb(2) = 58:amb(3) = 33:amb(4) = 45 If n1 = 47 Then amb(1) = 59:amb(2) = 71:amb(3) = 20:amb(4) = 44 If n1 = 48 Then amb(1) = 66:amb(2) = 84:amb(3) = 7:amb(4) = 43 If n1 = 49 Then amb(1) = 73:amb(2) = 7:amb(3) = 84:amb(4) = 42 If n1 = 50 Then amb(1) = 80:amb(2) = 20:amb(3) = 71:amb(4) = 41 If n1 = 51 Then amb(1) = 87:amb(2) = 33:amb(3) = 58:amb(4) = 40 If n1 = 52 Then amb(1) = 4:amb(2) = 46:amb(3) = 45:amb(4) = 39 If n1 = 53 Then amb(1) = 11:amb(2) = 59:amb(3) = 32:amb(4) = 38 If n1 = 54 Then amb(1) = 18:amb(2) = 72:amb(3) = 19:amb(4) = 37 If n1 = 55 Then amb(1) = 25:amb(2) = 85:amb(3) = 6:amb(4) = 36 If n1 = 56 Then amb(1) = 32:amb(2) = 8:amb(3) = 83:amb(4) = 35 If n1 = 57 Then amb(1) = 39:amb(2) = 21:amb(3) = 70:amb(4) = 34 If n1 = 58 Then amb(1) = 46:amb(2) = 34:amb(3) = 57:amb(4) = 33 If n1 = 59 Then amb(1) = 53:amb(2) = 47:amb(3) = 44:amb(4) = 32 If n1 = 60 Then amb(1) = 60:amb(2) = 31 If n1 = 61 Then amb(1) = 67:amb(2) = 73:amb(3) = 18:amb(4) = 30 If n1 = 62 Then amb(1) = 74:amb(2) = 86:amb(3) = 5:amb(4) = 29 If n1 = 63 Then amb(1) = 81:amb(2) = 9:amb(3) = 82:amb(4) = 28 If n1 = 64 Then amb(1) = 88:amb(2) = 22:amb(3) = 69:amb(4) = 27 If n1 = 65 Then amb(1) = 5:amb(2) = 35:amb(3) = 56:amb(4) = 26 If n1 = 66 Then amb(1) = 12:amb(2) = 48:amb(3) = 43:amb(4) = 25 If n1 = 67 Then amb(1) = 19:amb(2) = 61:amb(3) = 30:amb(4) = 24 If n1 = 68 Then amb(1) = 26:amb(2) = 74:amb(3) = 17:amb(4) = 23 If n1 = 69 Then amb(1) = 33:amb(2) = 87:amb(3) = 4:amb(4) = 22 If n1 = 70 Then amb(1) = 40:amb(2) = 10:amb(3) = 81:amb(4) = 21 If n1 = 71 Then amb(1) = 47:amb(2) = 23:amb(3) = 68:amb(4) = 20 If n1 = 72 Then amb(1) = 54:amb(2) = 36:amb(3) = 55:amb(4) = 19 If n1 = 73 Then amb(1) = 61:amb(2) = 49:amb(3) = 42:amb(4) = 18 If n1 = 74 Then amb(1) = 68:amb(2) = 62:amb(3) = 29:amb(4) = 17 If n1 = 75 Then amb(1) = 75:amb(2) = 75:amb(3) = 16:amb(4) = 16 If n1 = 76 Then amb(1) = 82:amb(2) = 88:amb(3) = 3:amb(4) = 15 If n1 = 77 Then amb(1) = 89:amb(2) = 11:amb(3) = 80:amb(4) = 14 If n1 = 78 Then amb(1) = 6:amb(2) = 24:amb(3) = 67:amb(4) = 13 If n1 = 79 Then amb(1) = 13:amb(2) = 37:amb(3) = 54:amb(4) = 12 If n1 = 80 Then amb(1) = 20:amb(2) = 50:amb(3) = 41:amb(4) = 11 If n1 = 81 Then amb(1) = 27:amb(2) = 63:amb(3) = 28:amb(4) = 10 If n1 = 82 Then amb(1) = 34:amb(2) = 76:amb(3) = 15:amb(4) = 9 If n1 = 83 Then amb(1) = 41:amb(2) = 89:amb(3) = 2:amb(4) = 8 If n1 = 84 Then amb(1) = 48:amb(2) = 12:amb(3) = 79:amb(4) = 7 If n1 = 85 Then amb(1) = 55:amb(2) = 25:amb(3) = 66:amb(4) = 6 If n1 = 86 Then amb(1) = 62:amb(2) = 38:amb(3) = 53:amb(4) = 5 If n1 = 87 Then amb(1) = 69:amb(2) = 51:amb(3) = 40:amb(4) = 4 If n1 = 88 Then amb(1) = 76:amb(2) = 64:amb(3) = 27:amb(4) = 3 If n1 = 89 Then amb(1) = 83:amb(2) = 77:amb(3) = 14:amb(4) = 2 If n1 = 90 Then amb(1) = 90:amb(2) = 90:amb(3) = 1:amb(4) = 1
If Vert(n1) = 1 Then amb(5) = 7:amb(6) = 13:amb(7) = 78:amb(8) = 90 If Vert(n1) = 2 Then amb(5) = 14:amb(6) = 26:amb(7) = 65:amb(8) = 89 If Vert(n1) = 3 Then amb(5) = 21:amb(6) = 39:amb(7) = 52:amb(8) = 88 If Vert(n1) = 4 Then amb(5) = 28:amb(6) = 52:amb(7) = 39:amb(8) = 87 If Vert(n1) = 5 Then amb(5) = 35:amb(6) = 65:amb(7) = 26:amb(8) = 86 If Vert(n1) = 6 Then amb(5) = 42:amb(6) = 78:amb(7) = 13:amb(8) = 85 If Vert(n1) = 7 Then amb(5) = 49:amb(6) = 1:amb(7) = 90:amb(8) = 84 If Vert(n1) = 8 Then amb(5) = 56:amb(6) = 14:amb(7) = 77:amb(8) = 83 If Vert(n1) = 9 Then amb(5) = 63:amb(6) = 27:amb(7) = 64:amb(8) = 82 If Vert(n1) = 10 Then amb(5) = 70:amb(6) = 40:amb(7) = 51:amb(8) = 81 If Vert(n1) = 11 Then amb(5) = 77:amb(6) = 53:amb(7) = 38:amb(8) = 80 If Vert(n1) = 12 Then amb(5) = 84:amb(6) = 66:amb(7) = 25:amb(8) = 79 If Vert(n1) = 13 Then amb(5) = 1:amb(6) = 79:amb(7) = 12:amb(8) = 78 If Vert(n1) = 14 Then amb(5) = 8:amb(6) = 2:amb(7) = 89:amb(8) = 77 If Vert(n1) = 15 Then amb(5) = 15:amb(6) = 15:amb(7) = 76:amb(8) = 76 If Vert(n1) = 16 Then amb(5) = 22:amb(6) = 28:amb(7) = 63:amb(8) = 75 If Vert(n1) = 17 Then amb(5) = 29:amb(6) = 41:amb(7) = 50:amb(8) = 74 If Vert(n1) = 18 Then amb(5) = 36:amb(6) = 54:amb(7) = 37:amb(8) = 73 If Vert(n1) = 19 Then amb(5) = 43:amb(6) = 67:amb(7) = 24:amb(8) = 72 If Vert(n1) = 20 Then amb(5) = 50:amb(6) = 11:amb(7) = 11:amb(8) = 71 If Vert(n1) = 21 Then amb(5) = 57:amb(6) = 3:amb(7) = 88:amb(8) = 70 If Vert(n1) = 22 Then amb(5) = 64:amb(6) = 16:amb(7) = 75:amb(8) = 69 If Vert(n1) = 23 Then amb(5) = 71:amb(6) = 29:amb(7) = 62:amb(8) = 68 If Vert(n1) = 24 Then amb(5) = 78:amb(6) = 42:amb(7) = 49:amb(8) = 67 If Vert(n1) = 25 Then amb(5) = 85:amb(6) = 55:amb(7) = 36:amb(8) = 66 If Vert(n1) = 26 Then amb(5) = 2:amb(6) = 68:amb(7) = 23:amb(8) = 65 If Vert(n1) = 27 Then amb(5) = 9:amb(6) = 81:amb(7) = 10:amb(8) = 64 If Vert(n1) = 28 Then amb(5) = 16:amb(6) = 4:amb(7) = 87:amb(8) = 63 If Vert(n1) = 29 Then amb(5) = 23:amb(6) = 17:amb(7) = 74:amb(8) = 62 If Vert(n1) = 30 Then amb(5) = 30:amb(6) = 30:amb(7) = 61:amb(8) = 61 If Vert(n1) = 31 Then amb(5) = 37:amb(6) = 43:amb(7) = 48:amb(8) = 60 If Vert(n1) = 32 Then amb(5) = 44:amb(6) = 56:amb(7) = 35:amb(8) = 59 If Vert(n1) = 33 Then amb(5) = 51:amb(6) = 69:amb(7) = 22:amb(8) = 58 If Vert(n1) = 34 Then amb(5) = 58:amb(6) = 82:amb(7) = 9:amb(8) = 57 If Vert(n1) = 35 Then amb(5) = 65:amb(6) = 5:amb(7) = 86:amb(8) = 56 If Vert(n1) = 36 Then amb(5) = 72:amb(6) = 18:amb(7) = 73:amb(8) = 55 If Vert(n1) = 37 Then amb(5) = 79:amb(6) = 31:amb(7) = 60:amb(8) = 54 If Vert(n1) = 38 Then amb(5) = 86:amb(6) = 44:amb(7) = 47:amb(8) = 53 If Vert(n1) = 39 Then amb(5) = 3:amb(6) = 57:amb(7) = 34:amb(8) = 52 If Vert(n1) = 40 Then amb(5) = 10:amb(6) = 70:amb(7) = 21:amb(8) = 51 If Vert(n1) = 41 Then amb(5) = 17:amb(6) = 83:amb(7) = 8:amb(8) = 50 If Vert(n1) = 42 Then amb(5) = 24:amb(6) = 6:amb(7) = 85:amb(8) = 49 If Vert(n1) = 43 Then amb(5) = 31:amb(6) = 19:amb(7) = 72:amb(8) = 48 If Vert(n1) = 44 Then amb(5) = 38:amb(6) = 32:amb(7) = 59:amb(8) = 47 If Vert(n1) = 45 Then amb(5) = 45:amb(6) = 45:amb(7) = 46:amb(8) = 46 If Vert(n1) = 46 Then amb(5) = 52:amb(6) = 58:amb(7) = 33:amb(8) = 45 If Vert(n1) = 47 Then amb(5) = 59:amb(6) = 71:amb(7) = 20:amb(8) = 44 If Vert(n1) = 48 Then amb(5) = 66:amb(6) = 84:amb(7) = 7:amb(8) = 43 If Vert(n1) = 49 Then amb(5) = 73:amb(6) = 7:amb(7) = 84:amb(8) = 42 If Vert(n1) = 50 Then amb(5) = 80:amb(6) = 20:amb(7) = 71:amb(8) = 41 If Vert(n1) = 51 Then amb(5) = 87:amb(6) = 33:amb(7) = 58:amb(8) = 40 If Vert(n1) = 52 Then amb(5) = 4:amb(6) = 46:amb(7) = 45:amb(8) = 39 If Vert(n1) = 53 Then amb(5) = 11:amb(6) = 59:amb(7) = 32:amb(8) = 38 If Vert(n1) = 54 Then amb(5) = 18:amb(6) = 72:amb(7) = 19:amb(8) = 37 If Vert(n1) = 55 Then amb(5) = 25:amb(6) = 85:amb(7) = 6:amb(8) = 36 If Vert(n1) = 56 Then amb(5) = 32:amb(6) = 8:amb(7) = 83:amb(8) = 35 If Vert(n1) = 57 Then amb(5) = 39:amb(6) = 21:amb(7) = 70:amb(8) = 34 If Vert(n1) = 58 Then amb(5) = 46:amb(6) = 34:amb(7) = 57:amb(8) = 33 If Vert(n1) = 59 Then amb(5) = 53:amb(6) = 47:amb(7) = 44:amb(8) = 32 If Vert(n1) = 60 Then amb(5) = 60:amb(6) = 31 If Vert(n1) = 61 Then amb(5) = 67:amb(6) = 73:amb(7) = 18:amb(8) = 30 If Vert(n1) = 62 Then amb(5) = 74:amb(6) = 86:amb(7) = 5:amb(8) = 29 If Vert(n1) = 63 Then amb(5) = 81:amb(6) = 9:amb(7) = 82:amb(8) = 28 If Vert(n1) = 64 Then amb(5) = 88:amb(6) = 22:amb(7) = 69:amb(8) = 27 If Vert(n1) = 65 Then amb(5) = 5:amb(6) = 35:amb(7) = 56:amb(8) = 26 If Vert(n1) = 66 Then amb(5) = 12:amb(6) = 48:amb(7) = 43:amb(8) = 25 If Vert(n1) = 67 Then amb(5) = 19:amb(6) = 61:amb(7) = 30:amb(8) = 24 If Vert(n1) = 68 Then amb(5) = 26:amb(6) = 74:amb(7) = 17:amb(8) = 23 If Vert(n1) = 69 Then amb(5) = 33:amb(6) = 87:amb(7) = 4:amb(8) = 22 If Vert(n1) = 70 Then amb(5) = 40:amb(6) = 10:amb(7) = 81:amb(8) = 21 If Vert(n1) = 71 Then amb(5) = 47:amb(6) = 23:amb(7) = 68:amb(8) = 20 If Vert(n1) = 72 Then amb(5) = 54:amb(6) = 36:amb(7) = 55:amb(8) = 19 If Vert(n1) = 73 Then amb(5) = 61:amb(6) = 49:amb(7) = 42:amb(8) = 18 If Vert(n1) = 74 Then amb(5) = 68:amb(6) = 62:amb(7) = 29:amb(8) = 17 If Vert(n1) = 75 Then amb(5) = 75:amb(6) = 75:amb(7) = 16:amb(8) = 16 If Vert(n1) = 76 Then amb(5) = 82:amb(6) = 88:amb(7) = 3:amb(8) = 15 If Vert(n1) = 77 Then amb(5) = 89:amb(6) = 11:amb(7) = 80:amb(8) = 14 If Vert(n1) = 78 Then amb(5) = 6:amb(6) = 24:amb(7) = 67:amb(8) = 13 If Vert(n1) = 79 Then amb(5) = 13:amb(6) = 37:amb(7) = 54:amb(8) = 12 If Vert(n1) = 80 Then amb(5) = 20:amb(6) = 50:amb(7) = 41:amb(8) = 11 If Vert(n1) = 81 Then amb(5) = 27:amb(6) = 63:amb(7) = 28:amb(8) = 10 If Vert(n1) = 82 Then amb(5) = 34:amb(6) = 76:amb(7) = 15:amb(8) = 9 If Vert(n1) = 83 Then amb(5) = 41:amb(6) = 89:amb(7) = 2:amb(8) = 8 If Vert(n1) = 84 Then amb(5) = 48:amb(6) = 12:amb(7) = 79:amb(8) = 7 If Vert(n1) = 85 Then amb(5) = 55:amb(6) = 25:amb(7) = 66:amb(8) = 6 If Vert(n1) = 86 Then amb(5) = 62:amb(6) = 38:amb(7) = 53:amb(8) = 5 If Vert(n1) = 87 Then amb(5) = 69:amb(6) = 51:amb(7) = 40:amb(8) = 4 If Vert(n1) = 88 Then amb(5) = 76:amb(6) = 64:amb(7) = 27:amb(8) = 3 If Vert(n1) = 89 Then amb(5) = 83:amb(6) = 77:amb(7) = 14:amb(8) = 2 If Vert(n1) = 90 Then amb(5) = 90:amb(6) = 90:amb(7) = 1:amb(8) = 1
numeri1(1) = n1 numeri1(2) = Vert(n1)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2 numeri2(1) = n1 numeri2(2) = Vert(n1) numeri2(3) = amb(1) numeri2(4) = amb(2) numeri2(5) = amb(3) numeri2(6) = amb(4) numeri2(7) = amb(5) numeri2(8) = amb(6) numeri2(9) = amb(7) numeri2(10) = amb(8) ImpostaGiocata 2,numeri2,ruota,postee,clp,3
Gioca n
End If Next Next : Next Next Scrivi : Scrivi "Casi Riscontrati n° " & CInt(co) ScriviResoconto End Sub questo in DUE sestine di DRAGO2940 Sub Main() Dim nu1(10),nu2(10) Dim ruote(10),ruota(10) Dim poste(5) poste(2) = 1 fin = EstrazioneFin ini = fin - 100 For es = ini To fin AvanzamentoElab ini,fin,es For r1 = 1 To 10 For p1 = 1 To 5 n1 = Estratto(es,r1,p1) For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 For p3 = 1 To 5 x = Estratto(es,r2,p3):x1 = Vert(x) If p3 = p1 Then If x = n1 Then a1 = Fuori90(x*7) a2 = Fuori90(x*13) k = Abs(x - 1):a3 = Fuori90(78*x - k) a4 = 91 - x b1 = Fuori90(x1*7) b2 = Fuori90(x1*13) k = Abs(x1 - 1):b3 = Fuori90(78*x1 - k) b4 = 91 - x1 casi = casi + 1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " > Numero uguale... < " & Format2(n1) & "." Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _ " > Numero uguale... < " & Format2(x) & " ." Scrivi String(65,"-") & " caso n° " &(casi) ruote(1) = r1:ruote(2) = r2:ruote(3) = r3: k = 14:co = 0:ruota(1) = 11:co = 0 nu1(1) = x nu1(2) = x1 nu1(3) = a1 nu1(4) = a2 nu1(5) = a3 nu1(6) = a4 co = co + 1 ImpostaGiocata co,nu1,ruote,poste,k nu1(1) = x nu1(2) = x1 nu1(3) = b1 nu1(4) = b2 nu1(5) = b3 nu1(6) = b4 co = co + 1 ImpostaGiocata co,nu1,ruote,poste,k nu2(1) = x nu2(2) = x1 nu2(3) = a1 nu2(4) = a2 nu2(5) = a3 nu2(6) = a4 nu2(7) = b1 nu2(8) = b2 nu2(8) = b3 nu2(10) = b4 co = co + 1 ImpostaGiocata co,nu2,ruote,poste,k Gioca es End If End If Next Next Next Next Next ScriviResoconto End Sub APRE e CHIUDE: Okkietti......... dal 38 Isotopo di PA/RO del 13 dicembre.. a colpo TERNO 38 83 47
..e la TAVOLA SETTENARIA La va!! la va!!!
Alla faccia di chi mi ha tanto criticato e offeso !!!!!!!
CiaooooooooooEdited by il Toscano - 18/12/2011, 11:28
| | |
| |
|