Se possibile uno script per favore

[Paki144]

Buonasera a tutti il Forum LottoCed
Vorrei se possibile uno script che possa fare questa elaborazione,
cerco di spiegarmi:
partendo da una qualsiasi Estrazione fino all'ultima Estratta
Esempio: Estrazione del 04/05/2024
1°__2°__3°__4°__5°
BARI 02 31 81 52 21

(90 - 1° = K1) +( 2°) = A1
(90 - 2° = K2) + (3°) = A2
(90 - 3° = K3) + (4°) = A3
(90 - 4° = K4) + (5°) = A4
(90 - 5° = K5) + (1°) = A5

( 90 - 02 = 88) + (2°) 31 = 119 Fuori 90 = 29 (A1)
( 90 - 31 = 59) + (3°) 81 = 140 Fuori 90 = 50 (A2)
( 90 - 81 = 9) + (4°) 52 = 61 Fuori 90 = 61 (A3)
( 90 - 52 = 38) + (5°) 21 = 59 Fuori 90 = 59 (A4)
( 90 - 21 = 69) + (1°) 02 = 71 Fuori 90 = 71 (A5)

vorrei se si potesse eseguire il calcolo
anche sulle altre 9 ruote
senza la ruota Nazionale

Estrazione del 04/05/2024
BARI...........02 31 81 52 21
CAGLIARI...39 88 84 01 67
FIRENZE ....36 30 70 06 41
GENOVA.....59 23 61 22 27
MILANO.....05 17 69 57 39
NAPOLI......81 62 82 43 50
PALERMO..73 55 62 45 18
ROMA........76 70 01 64 15
TORINO.....82 55 35 70 46
VENEZIA.....58 23 61 29 21

Grazie
saluti

 

[BaffoBlù]

Buonasera a tutti il Forum LottoCed
Vorrei se possibile uno script che possa fare questa elaborazione,
cerco di spiegarmi:
partendo da una qualsiasi Estrazione fino all'ultima Estratta
Esempio: Estrazione del 04/05/2024
1°__2°__3°__4°__5°
BARI 02 31 81 52 21

(90 - 1° = K1) +( 2°) = A1
(90 - 2° = K2) + (3°) = A2
(90 - 3° = K3) + (4°) = A3
(90 - 4° = K4) + (5°) = A4
(90 - 5° = K5) + (1°) = A5

( 90 - 02 = 88) + (2°) 31 = 119 Fuori 90 = 29 (A1)
( 90 - 31 = 59) + (3°) 81 = 140 Fuori 90 = 50 (A2)
( 90 - 81 = 9) + (4°) 52 = 61 Fuori 90 = 61 (A3)
( 90 - 52 = 38) + (5°) 21 = 59 Fuori 90 = 59 (A4)
( 90 - 21 = 69) + (1°) 02 = 71 Fuori 90 = 71 (A5)

vorrei se si potesse eseguire il calcolo
anche sulle altre 9 ruote
senza la ruota Nazionale

Estrazione del 04/05/2024
BARI...........02 31 81 52 21
CAGLIARI...39 88 84 01 67
FIRENZE ....36 30 70 06 41
GENOVA.....59 23 61 22 27
MILANO.....05 17 69 57 39
NAPOLI......81 62 82 43 50
PALERMO..73 55 62 45 18
ROMA........76 70 01 64 15
TORINO.....82 55 35 70 46
VENEZIA.....58 23 61 29 21

Grazie
saluti

Chiedi e ti sarà dato...

Option Explicit
Sub Main()
   Dim es,Ini,Fin,r,r1,Isi,Clp,co,ok,a,b,c,d,e,f,g,h,i,l,m,o,p,q,s
   Dim ruota(10)
   Dim ruote(10)
   Dim posta(10)
   Dim poste(10)
   Dim n(5)
   posta(1) = 1
   poste(2) = 1
   r = CInt(InputBox(" Scegli la ruota ",,"1"))
   r1 = 11
   Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
   Ini = EstrazioneFin - Isi
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      ruota(1) = r
      ruote(1) = r1
      a = Estratto(es,r,1)
      b = Estratto(es,r,2)
      c = Estratto(es,r,3)
      d = Estratto(es,r,4)
      e = Estratto(es,r,5)
      '-------------------
      f = ComplAdX(a)
      g = ComplAdX(b)
      h = ComplAdX(c)
      i = ComplAdX(d)
      l = ComplAdX(e)
      '--------------------
      m = Fuori90(f + b)'A1
      o = Fuori90(g + c)'A2
      p = Fuori90(h + d)'A3
      q = Fuori90(i + e)'A4
      s = Fuori90(l + a)'A5
      '--------------------
      ok = 0
      n(1) = m
      n(2) = o
      n(3) = p
      n(4) = q
      n(5) = s
      ok = 1
      '-----------------------------------------------
      ' Spazio per varie ed eventuali...
      '-----------------------------------------------
      If ok = 1 Then
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** " & m & " - " & o & " - " & p & " - " & q & " - " & s,1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n,ruota,posta,Clp
         ImpostaGiocata 2,n,ruote,poste,Clp
         Gioca es,1
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub

 

[Paki144]

Buongiorno BaffoBlù Grazie!!
Per avermi letto e
aver dedicato un pò
del Suo tempo per creare
il programma
Va benissimo
grazie
Buona giornata
saluti

 

[BaffoBlù]

Buongiorno BaffoBlù Grazie!!
Per avermi letto e
aver dedicato un pò
del Suo tempo per creare
il programma
Va benissimo
grazie
Buona giornata
saluti

Prego