Novità

Prego script un input chissà...

Paki144

Super member
Ciao a tutti il Forum, prego uno script da un mio piccolo pensiero, che però è rivolto agli Esperti Programmatori.
Provo a cercare di spiegare comunque
se è possibile: In qualsiasi Ruota ed estrazione, Esempio di numeri a caso
Esempio: Bari 34 - 58 - 73 - 47 - 25
poter fare diventare ogni numero
Esempio: 34 = 9 - (meno) decina 3 = 6
Esempio: 34 = 9 - (meno) unità 4 = 5
Dal 34 avremo = il Numero 65
facendo il fuori 9
della decina e dell'unità.
Potendo fare nei 5 estratti di Bari,
per poi poterlo fare sulle 10 Ruote
e se si può vedere che risultati potrà avere nelle successive Estrazioni.
Grazie a tutti il Forum LottoCed e
Grazie agli Esperti Programmatori che dedicano il loro tempo.
Saluti
 

Mike58

Advanced Member >PLATINUM PLUS<
Prova a vedere una bozza.

Codice:
Sub Main
  Dim Nu(5),aN(5),Ru(1),T
  Ini = EstrazioneFin-10
  fin = EstrazioneFin
  T = "     Data Estrazione           Ruota    EstrattiReali  EstrattiTrasformati VerificaEsito      Colpi" 
  For es = fin To Ini Step - 1
  Scrivi T,1
  For r = 1 To 12
  If r = 11 Then r = 12
  For p = 1 To 5
  Nu(p) = Estratto(es,r,p)
  aN(p) = 9-Decina(Nu(p))& 9-Cadenza(Nu(p))
  Next
  Ru(1) = r
  Call VerificaEsito(aN,Ru,es+1,1,10,,esito,clp,esa,id)
  Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu,,1) & vbTab & StringaNumeri(aN,,1) & vbTab,0,0
  If esito <> "" Then Scrivi esa & vbTab & clp & vbTab & GetInfoEstrazione(id),1,,,2
  If esito = "" Then Scrivi "<> .. .. .. .. .. " & vbTab & clp
  Next
  Scrivi
  Next
End Sub
 

Paki144

Super member
Ciao Mike58 Grazie per il tempo dedicato per lo script, l'ho eseguito su Spaziometria 1.6.34 è Okay.
Grazie Mike58
Saluti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto