Novità

Per favore uno Script numeri isotopi di unità uguale

Paki144

Super member
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
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
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

Codice:
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

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

lla

Advanced Member >PLATINUM PLUS<
Ciao

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

grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto