Prego script un input chissà...

[Paki144]

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]

Prova a vedere una bozza.

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]

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