 | il Toscano |
| | 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
| | | |
| |
|
