Novità

X Mike58 o per chi puo'

rodrigo

Super Member >PLATINUM<
Buonasera, volevo chiedere se possibile uno script che mi vada a cercare su una ruota un ambo che abbia Dist Orizz. o Dist. Vert. o Dist. diagonale 45; ed UN NUMERO IN POSIZIONE ISOTOPA su altra ruota che formi SOMMA 90 in Orizz., Vert, o Diag...faccio un esempio:

70-65
25

dove 70-25 è dist. 45 in vert. e contemporaneamente il 25 isotopo forma col 65 una somma 90.

Inoltre se possibile vorrei che ricercasse ambi somma diametrali SOLO in presenza del numero 45 su altra ruota ovvero:

10-55
45

dove pur non essendoci somma 90, la somma di due numeri, in questo caso 45+10 corrisponde al terzo numero 55 ambo diametrale col 10, oppure

42-45
87

42-87 diam. in vert. e in orizz. 42+45 = 87

Spero non sia troppo complicato da fare, ringrazio comunque in anticipo Mike58 o gli altri bravi scripter che vorranno provarci.

Ciao
 
Ultima modifica:
Ciao Rodrigo, ultimamente non ho molta voglia di scriptare e trovo che da una prima lettura siano troppe le condizioni da mettere insieme in un solo script.

Mi sembra che metterle insieme tutte sia complicato, sarebbe possibile secondo me realizzare per ogni condizione il suo script.

Visto che ci conosciamo per non far rimanere inevasa la tua richiesta ti posto la ricerca della prima condizione
Ambo diametrale distanza 45 stessa ruota + somma 90 in stessa posizione su 2° ruota.

Codice:
Sub Main
 Dim Nu(2),Nn(1),Ru(1),Rr(1)
 Ini = EstrazioneFin - 100
 fin = EstrazioneFin
 Scrivi "Trova ambo diametrale stessa Ruota + Numero 2° Ruota con Somma 90 in posizione",1,,,1,3
 Scrivi
 For es = Ini To fin
  For r1 = 1 To 9
   For r2 = r1 + 1 To 10
    For p1 = 1 To 4
     For p2 = p1 + 1 To 5
      For p3 = 1 To 5
       a = Estratto(es,r1,p1)
       b = Estratto(es,r1,p2)
       c = Estratto(es,r2,p3)
       If Distanza(a,b) = 45 Then
        If a + c = 90 And p1 = p3 Or p2 = p3 And b+c = 90Then
        k = k + 1
         
          Nu(1) = a
          Nu(2) = b
          Nn(1) = c
          Ru(1) = r1
          Rr(1) = r2
          Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & vbTab & StringaNumeri(Nu)
          Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & StringaEstratti(es,r2) & vbTab & StringaNumeri(Nn)
          Scrivi
         
        End If
       End If
      Next
     Next
    Next
   Next
  Next
 Next
End Sub

Le altre condizioni vanno cercate con altro script, ma posso anche sbagliarmi, come ti dicevo non ho molta voglia di scriptare e poi sarei inpegnato in altre forme script.

ciao
 
Ciao Mike, grazie sei sempre molto gentile e disponibile, lo script soddisfa solo in parte la mia richiesta ma mi accontento lo stesso...grazie ancora!! :D Una domanda che non c'entra col lotto e con gli script, tu giochi al calcio scommesse?
 
Ultima modifica:
Con gli script al calcio scommesse ?
Questa mi è nuova, se per te è possibile fammi capire come.
Curiosità.

Ma penso che ci voglia anche il programma dedicato.

Il mio dire che sono impegnato in altro era solo un dire che sono impegnato a capire un altro linguaggio vbnet e fare qualche script in tal senso.

Ciao
 
Ultima modifica:
Ahahahhh!! No, no, non parlo di script al calcio scommesse, anche perché penso sia impossibile,...ti avevo solo chiesto per curiosità se giochi al calcio scommesse... :)
 
Capita anche in quello, ma preferisco il Gioco Live, voglio divertirmi con la diretta.
Ti dirò di più ci sono quote gli ultimi 10 minuti di gioco che superano le possibili Multiple e martingale.
Mentre alte volte se la partita non si sblocca Bhe!! sono dolori.

Quindi la mia risposta è Si, ma sempre con il dovuto controllo.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto