ISOTOPI di DARTBOSS

Sub Main()
ColoreTesto 2
Scrivi "================================================== TABELLA DARTBOSS & OSVALDO ===================== ",1
Scrivi "===============================================con numero ripetuto isotopo =================== ",1
Scrivi "============================================== ",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",9))
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) = 80:amb(2) = 69:amb(3) = 2:amb(4) = 16
If n1 = 2 Then amb(1) = 79:amb(2) = 19:amb(3) = 56:amb(4) = 90
If n1 = 3 Then amb(1) = 13:amb(2) = 60:amb(3) = 4:amb(4) = 5
If n1 = 4 Then amb(1) = 87:amb(2) = 15:amb(3) = 56:amb(4) = 79
If n1 = 5 Then amb(1) = 6:amb(2) = 62:amb(3) = 12:amb(4) = 13
If n1 = 6 Then amb(1) = 84:amb(2) = 72:amb(3) = 8:amb(4) = 13
If n1 = 7 Then amb(1) = 89:amb(2) = 48:amb(3) = 24:amb(4) = 25
If n1 = 8 Then amb(1) = 55:amb(2) = 67:amb(3) = 15:amb(4) = 17
If n1 = 9 Then amb(1) = 15:amb(2) = 44:amb(3) = 12:amb(4) = 15
If n1 = 10 Then amb(1) = 3:amb(2) = 11:amb(3) = 24:amb(4) = 26
If n1 = 11 Then amb(1) = 39:amb(2) = 81:amb(3) = 60:amb(4) = 61
If n1 = 12 Then amb(1) = 40:amb(2) = 32:amb(3) = 16:amb(4) = 20
If n1 = 13 Then amb(1) = 85:amb(2) = 18:amb(3) = 84:amb(4) = 78
If n1 = 14 Then amb(1) = 72:amb(2) = 83:amb(3) = 48:amb(4) = 50
If n1 = 15 Then amb(1) = 35:amb(2) = 36:amb(3) = 20:amb(4) = 25
If n1 = 16 Then amb(1) = 64:amb(2) = 55:amb(3) = 30:amb(4) = 34
If n1 = 17 Then amb(1) = 35:amb(2) = 45:amb(3) = 63:amb(4) = 65
If n1 = 18 Then amb(1) = 55:amb(2) = 46:amb(3) = 24:amb(4) = 30
If n1 = 19 Then amb(1) = 71:amb(2) = 19:amb(3) = 68:amb(4) = 44
If n1 = 20 Then amb(1) = 64:amb(2) = 36:amb(3) = 21:amb(4) = 29
If n1 = 21 Then amb(1) = 68:amb(2) = 89:amb(3) = 28:amb(4) = 35
If n1 = 22 Then amb(1) = 40:amb(2) = 51:amb(3) = 72:amb(4) = 75
If n1 = 23 Then amb(1) = 46:amb(2) = 23:amb(3) = 48:amb(4) = 52
If n1 = 24 Then amb(1) = 71:amb(2) = 49:amb(3) = 32:amb(4) = 40
If n1 = 25 Then amb(1) = 19:amb(2) = 90:amb(3) = 60:amb(4) = 65
If n1 = 26 Then amb(1) = 12:amb(2) = 86:amb(3) = 70:amb(4) = 74
If n1 = 27 Then amb(1) = 88:amb(2) = 43:amb(3) = 36:amb(4) = 45
If n1 = 28 Then amb(1) = 14:amb(2) = 72:amb(3) = 5:amb(4) = 75
If n1 = 29 Then amb(1) = 85:amb(2) = 28:amb(3) = 72:amb(4) = 78
If n1 = 30 Then amb(1) = 2:amb(2) = 82:amb(3) = 40:amb(4) = 50

If n1 = 31 Then amb(1) = 65:amb(2) = 83:amb(3) = 21:amb(4) = 84
If n1 = 32 Then amb(1) = 88:amb(2) = 84:amb(3) = 71:amb(4) = 79
If n1 = 33 Then amb(1) = 70:amb(2) = 9:amb(3) = 44:amb(4) = 55
If n1 = 34 Then amb(1) = 12:amb(2) = 47:amb(3) = 56:amb(4) = 65
If n1 = 35 Then amb(1) = 74:amb(2) = 85:amb(3) = 48:amb(4) = 60
If n1 = 36 Then amb(1) = 72:amb(2) = 9:amb(3) = 77:amb(4) = 85
If n1 = 37 Then amb(1) = 88:amb(2) = 75:amb(3) = 52:amb(4) = 65
If n1 = 38 Then amb(1) = 57:amb(2) = 6:amb(3) = 56:amb(4) = 70
If n1 = 39 Then amb(1) = 3:amb(2) = 71:amb(3) = 68:amb(4) = 85
If n1 = 40 Then amb(1) = 47:amb(2) = 28:amb(3) = 1:amb(4) = 89
If n1 = 41 Then amb(1) = 13:amb(2) = 46:amb(3) = 2:amb(4) = 88
If n1 = 42 Then amb(1) = 87:amb(2) = 30:amb(3) = 44:amb(4) = 46
If n1 = 43 Then amb(1) = 89:amb(2) = 40:amb(3) = 49:amb(4) = 47
If n1 = 44 Then amb(1) = 66:amb(2) = 26:amb(3) = 42:amb(4) = 48
If n1 = 45 Then amb(1) = 58:amb(2) = 86:amb(3) = 14:amb(4) = 31
If n1 = 46 Then amb(1) = 16:amb(2) = 75:amb(3) = 61:amb(4) = 51
If n1 = 47 Then amb(1) = 89:amb(2) = 43:amb(3) = 17:amb(4) = 61
If n1 = 48 Then amb(1) = 53:amb(2) = 19:amb(3) = 18:amb(4) = 81
If n1 = 49 Then amb(1) = 84:amb(2) = 59:amb(3) = 25:amb(4) = 42
If n1 = 50 Then amb(1) = 45:amb(2) = 8:amb(3) = 27:amb(4) = 62
If n1 = 51 Then amb(1) = 10:amb(2) = 19:amb(3) = 28:amb(4) = 72
If n1 = 52 Then amb(1) = 51:amb(2) = 78:amb(3) = 12:amb(4) = 23
If n1 = 53 Then amb(1) = 78:amb(2) = 5:amb(3) = 21:amb(4) = 32
If n1 = 54 Then amb(1) = 43:amb(2) = 88:amb(3) = 13:amb(4) = 24
If n1 = 55 Then amb(1) = 18:amb(2) = 72:amb(3) = 31:amb(4) = 42
If n1 = 56 Then amb(1) = 81:amb(2) = 36:amb(3) = 14:amb(4) = 25
If n1 = 57 Then amb(1) = 85:amb(2) = 62:amb(3) = 41:amb(4) = 52
If n1 = 58 Then amb(1) = 6:amb(2) = 56:amb(3) = 15:amb(4) = 26
If n1 = 59 Then amb(1) = 56:amb(2) = 5:amb(3) = 61:amb(4) = 72
If n1 = 60 Then amb(1) = 6:amb(2) = 38:amb(3) = 17:amb(4) = 28

If n1 = 61 Then amb(1) = 41:amb(2) = 81:amb(3) = 1:amb(4) = 31
If n1 = 62 Then amb(1) = 72:amb(2) = 42:amb(3) = 5:amb(4) = 35
If n1 = 63 Then amb(1) = 45:amb(2) = 86:amb(3) = 9:amb(4) = 39
If n1 = 64 Then amb(1) = 86:amb(2) = 19:amb(3) = 1:amb(4) = 41
If n1 = 65 Then amb(1) = 88:amb(2) = 70:amb(3) = 7:amb(4) = 52
If n1 = 66 Then amb(1) = 17:amb(2) = 89:amb(3) = 12:amb(4) = 57
If n1 = 67 Then amb(1) = 81:amb(2) = 44:amb(3) = 17:amb(4) = 62
If n1 = 68 Then amb(1) = 56:amb(2) = 23:amb(3) = 2:amb(4) = 47
If n1 = 69 Then amb(1) = 10:amb(2) = 77:amb(3) = 8:amb(4) = 53
If n1 = 70 Then amb(1) = 71:amb(2) = 19:amb(3) = 13:amb(4) = 58
If n1 = 71 Then amb(1) = 85:amb(2) = 24:amb(3) = 22:amb(4) = 67
If n1 = 72 Then amb(1) = 12:amb(2) = 8:amb(3) = 45:amb(4) = 90
If n1 = 73 Then amb(1) = 5:amb(2) = 38:amb(3) = 22:amb(4) = 52
If n1 = 74 Then amb(1) = 85:amb(2) = 33:amb(3) = 4:amb(4) = 9
If n1 = 75 Then amb(1) = 11:amb(2) = 53:amb(3) = 16:amb(4) = 25
If n1 = 76 Then amb(1) = 89:amb(2) = 20:amb(3) = 36:amb(4) = 49
If n1 = 77 Then amb(1) = 74:amb(2) = 38:amb(3) = 64:amb(4) = 90
If n1 = 78 Then amb(1) = 74:amb(2) = 3:amb(3) = 10:amb(4) = 19
If n1 = 79 Then amb(1) = 76:amb(2) = 29:amb(3) = 28:amb(4) = 37
If n1 = 80 Then amb(1) = 69:amb(2) = 33:amb(3) = 46:amb(4) = 55
If n1 = 81 Then amb(1) = 66:amb(2) = 23:amb(3) = 64:amb(4) = 73
If n1 = 82 Then amb(1) = 36:amb(2) = 18:amb(3) = 17:amb(4) = 26
If n1 = 83 Then amb(1) = 60:amb(2) = 16:amb(3) = 35:amb(4) = 44
If n1 = 84 Then amb(1) = 82:amb(2) = 12:amb(3) = 50:amb(4) = 59
If n1 = 85 Then amb(1) = 57:amb(2) = 31:amb(3) = 79:amb(4) = 88
If n1 = 86 Then amb(1) = 57:amb(2) = 53:amb(3) = 75:amb(4) = 84
If n1 = 87 Then amb(1) = 72:amb(2) = 18:amb(3) = 32:amb(4) = 41
If n1 = 88 Then amb(1) = 32:amb(2) = 14:amb(3) = 44:amb(4) = 53
If n1 = 89 Then amb(1) = 27:amb(2) = 8:amb(3) = 20:amb(4) = 29
If n1 = 90 Then amb(1) = 81:amb(2) = 77:amb(3) = 40:amb(4) = 49




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)


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