salvo50
Advanced Member >PLATINUM PLUS<
Ciao Adele
Scusa ma non riesco a capirti
Comunque ti posto lo script con la ricerca dell'ambata, penso che possa esserti utile
perché ti risparmia molti calcoli, e la ricerca della differenza nelle altre ruote
La prima ruota la devi scegliere
	
	
	
		
				
			Scusa ma non riesco a capirti
Comunque ti posto lo script con la ricerca dell'ambata, penso che possa esserti utile
perché ti risparmia molti calcoli, e la ricerca della differenza nelle altre ruote
La prima ruota la devi scegliere
		Codice:
	
	Option Explicit
Sub Main
   Dim Fin,Es,Ini,Caso,Casi,K,Clp
   Dim R1,R2,P1,P2,P3,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,Diam_DCD
   Dim Ruote(2),Posta(1),Amba(1),Terno(3)
   Dim Poste(3)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10400)'
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,16)
   Scrivi Space(5) & " CHIESTO DA ADELEADELE - Script di Salvo50",1,,4,,3,,1
   R1 = ScegliRuota
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            For P3 = 1 To 5
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     C = Estratto(Es,R2,P3)
                     If A > 0 And C > 0 Then
                        DAB = Differenza(A,B)
                        If DAB = C Then
                           D = Estratto(Es,R1,P3)
                           DCD = Differenza(D,C)
                           Diam_DCD = Diametrale(DCD)
                           Amba(1) = Diam_DCD
                           Terno(1) = DAB
                           Terno(2) = DCD
                           Terno(3) = Diam_DCD
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " La Differenza tra " & Format2(A) & " e " & Format2(B) & " = ",1,0
                           Scrivi Format2(DAB),1,,,2
                           Scrivi " La Differenza tra " & Format2(C) & " e " & Format2(D) & " = ",1,0
                           Scrivi Format2(DCD),1,,,2
                           Scrivi " Il Diametrale di " & Format2(DCD) & " = ",1,0
                           Scrivi Format2(Diam_DCD) & " Ambata ",1,,,1
                           Ruote(1) = R1 : Ruote(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           ImpostaGiocata 2,Terno,Ruote,Poste,Clp
                           Gioca Es,,,1
                        End If
                     End If
                      
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
	
			
				Ultima modifica: