Chi può aiutarmi con uno script? Grazie !

[mister1729]

Buonasera a tutti , chiedevo se fosse possibile realizzare uno script
che consideri il primo numero sorteggiato sulla ruota di Bari ma contando la decina che l'unità
sotto forma di numero, faccio un esempio: 1° estratto di Bari 45 contando la decina 4 QUATTRO è formato da sette lettere e quindi 7, l'unità e CINQUE e formato da sei lettere, allora e da mettere in giuoco su bari e cagliari 7 , 5 , poi sommare 7+5=12, il vertibile 57 + 10 del vertibile e - 10 del vertibile.
A questo punto l'ambata principale sarebbe il 12, l gli abbinamenti saranno 12 - 7 - 5 - 57 - 47 - 67, ha dato bei risultati in passato magari successivamente modificando tipo inserendo l'ambetto perlomeno considerando l'ambata per chi è amante potrebbe venir comodo.
Spero che ci sia qualche brovo scripter volenteroso che voglia realizzarlo, grazie a tutti!

 

[Master]

Ciao

Questo è lo script

Option Explicit
Sub Main():Scrivi
   Scrivi "1° Esrtatto di Bari in lettere metodo di mister 1729":Scrivi
   'https://forum.lottoced.com/threads/chi-pu%C3%B2-aiutarmi-con-uno-script-grazie.2198834/
   Dim rt(2),pt(1),ptt(2),Ce,clp,es
   Dim n1(1),n3(6),XX1,XX2,Lets,Ini,fin,co
   Dim nLet,D,C,Num,A,X1,X2,X3,X4,X5,X6,X7
   pt(1) = 1: ptt(2) = 1
   Ce = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",30)
   clp = InputBox("per quanti colpi?","Colpi di gioco",9)
   rt(1) = 1
   nLet = Array(4,3,3,3,7,6,3,5,4,4)
   Lets = Array("Zero","Uno","Due","Tre","Quattro","Cinque","Sei","Sette","Otto","Nove")
   Ini = EstrazioneFin - Ce
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio(es)
      ' If IndiceMensile(es) = 1 Then
      co = co + 1
      A = Estratto(es,1,1)
      Scrivi String(80,"=") & " caso n° " &(co)
      Scrivi DataEstrazione(es) & " " & " [" & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & "] ",1
      D = Decina(A) : C = Cadenza(A)
      For Num = 0 To UBound(nLet)
         If D = Num Then X1 = nLet(Num)
         If C = Num Then X2 = nLet(Num)
      Next
      X3 =(X1 + X2) : X4 = X1 & X2 : X5 = Vert(X4) : X6 = Fuori90(X5 + 10) : X7 = Fuori90(X5 - 10)
      Scrivi FormatSpace(Lets(D),10,1) & Space(7) & Format2(A) & Space(5) & Lets(C),1,,,2
      Scrivi Space(3) & X1 & " Lettere  " & Space(7) & X2 & " Lettere",1
      Scrivi
      n1(1) = X3 : ImpostaGiocata 1,n1,rt,pt,clp
      n3(1) = X3:n3(2) = X1:n3(3) = X2:n3(4) = X5:n3(5) = X6:n3(6) = X7
      EliminaRipetuti n3
      ImpostaGiocata 2,n3,rt,ptt,clp
      Gioca es
      ' End If
   Next
   Scrivi : Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[mister1729]

Grazie tante per la tua disponibilità!