osvaldo1 |
|
| prova con gli abbinamenti ...in sestina..... 'prima coppia AMBATE DI OSVALDO 'seconda coppia AMBATE DI DARTBOSS 'terza coppia ABBINAMENTI di OSVALDO
Sub Main() ColoreTesto 2 Scrivi "================================================== TABELLA DARTBOSS & OSVALDO ===================== ",1 Scrivi "===============================================con numero ripetuto isotopo =================== ",1 Scrivi "===============================================La coppia centrale è di DARTBOSS ",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) numeri2(5) = amb(3) numeri2(6) = amb(4)
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 ciao
|
| |