Per favore uno Script numeri isotopi di unità uguale

[Paki144]

Ciao a tutti il Forum, per Favore si potrebbe fare uno Script, provo a spiegare cosa vorrei fare: Ricercare sulle 10 ruote 2 numeri estratti in posizione isotopi e che abbiano l'unità uguale e che dopo aver rintracciato questa condizione si sommano i numeri isotopi con la unità uguale esempio: 64, 14
sommare i numeri della condizione trovata :
64 + 14 = 78
al risultato sommiamo " + 6 "
78 + 6 = 84
84 sarà l'ambata di previsione sulle ruote dei numeri isotopi con l'unità uguale rintracciati.
Grazie
Saluti

 

[Mike58]

Paki, purtroppo con questa condizioni di casi se ne trovano tantissimi per estrazione.
Io ti metto lo script con apice attivo della sola condizione numero uguale,
se vuoi attivare la tua condizione disattiva
If a = b Then ' numeri uguali
e attiva
'If Cadenza(a) = Cadenza(b) Then ' numeri in cadenza uguale

Sub Main
   Dim Nu(2),Ru(2),aNum(1),T,V,posta(1)
   posta(1) = 1
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   T = Array(T,"K","Es","Numeri","ruote","Posiz","Ambata","Verifica","Colpo","Id","Vincita $","Spesa","Utile","UtileProgress")
   Call InitTabella(T)
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               'If Cadenza(a) = Cadenza(b) Then ' numeri in cadenza uguale
               If a = b Then ' numeri uguali
               k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) + 6)
                  Call VerificaEsitoConGuadagno(aNum,Ru,es + 1,1,10,,,clp,esa,id,,guad)
                  spesa = posta(1) * clp
                  utile = guad - spesa
                  utilePr = utilePr + utile
                  guadPr = guadPr + guad
                  spesaPr = spesaPr + spesa
                  V = Array(V,k,GetInfoEstrazione(es),StringaNumeri(Nu),StringaRuote(Ru),p1,StringaNumeri(aNum),esa,clp,GetInfoEstrazione(id),guad,spesa,utile,utilePr)
                  Call AddRigaTabella(V)
                  ImpostaGiocata 1,aNum,Ru,posta,10,1
                  Gioca es,,,,,False
               End If
            Next
         Next
      Next
   Next
   CreaTabella
   Scrivi "Totale Spesa..... " & spesaPr,1
   Scrivi "Totale Vincita... " & guadPr,1
   Scrivi "Totale Utile..... " & UtilePr,1
   ScriviDistribuzioneEsiti(False)
   'ScriviResoconto
End Sub

 

[Paki144]

Ciao Mike58 ti ringrazio tanto per lo script che mi hai fatto dedicando il tuo tempo per programmare lo script.
Grazie Mike58
Saluti

 

[lla]

Ciao

si può modificare in modo da poter inserire 2 numeri a mia scelta anzichè con la condizione della stessa cadenza?

grazie