Per Rubino - Joe - Salvo50 o altro scripter

[sorujoe]

Vi chiedo gentilmente tali 2 script

PRIMO

Io indico ruota le posizioni dei 2 estratti (singolarmente prima una poi l'altra) e le figure che devono esservi su tali posizioni
esempio Bari 1° posto figura 1 e 2° posto figura 6
Poi immetto la lunghetta previsionale per estratto e superiori (max 10)
e i numeri spia (max 10) nel concorso di analisi dove sono presenti i numeri spia andrà giocata la previsione Nazionale inclusa. La ruota di calcolo va inclusa di diritto.
Ed ovviamente devo immettere data dello spoglio e colpi di gioco.


SECONDO

Io indico ruota una somma di 2 numeri indicando le due posizione della coppia avente somma indicata
esempio Bari 1° e 3° somma 25
Poi immetto la lunghetta previsionale per estratto e superiori (max 10)
e i numeri spia (max 10) nel concorso di analisi dove sono presenti i numeri spia andrà giocata la previsione Nazionale inclusa. La ruota di calcolo va inclusa di diritto.
Ed ovviamente devo immettere data dello spoglio e colpi di gioco.

Vi chiedo gentilmente di aiutarmi in questa analisi voi esperti fate in pochi minuti farlo a mano è mortale GRAZIE

 

[sorujoe]

Se vi puo essere di aiuto
questo script fa tutto ciò ma su un singolo estratto in posizione

Option Explicit
Sub Main
Dim es,r,n,p,lunga,nspia,fine,nue,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito,bb
Dim colpo(18,5)
r = InputBox("Ruota",,2)
fine = InputBox("Estraz.n.",,EstrazioneFin)
n = CInt(InputBox("Ambata",,66))
p = CInt(InputBox("Posizione estratto",,3))
lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
verc = CInt(InputBox("Verifica esito per ncolpi",,18))
nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
''''
For es = 3950 To fine
Messaggio(es)
''cerca estratto sulla ruota di riferimento e nella posizione specificata
nue = Estratto(es,r,p)
If nue = n Then
Scrivi String(89,"=")
Scrivi es & " / " & DataEstrazione(es) & " Ruota " & SiglaRuota(r) & " pos." & p & " Estratto " & nue,1
ColoreTesto(0)
casi = casi + 1
Scrivi FormattaStringa(casi,"000") & " -----> Prev. In gioco su Ruota " & SiglaRuota(r) & " Comb." & lunga & " Per colpi n." & verc,1
Scrivi FormattaStringa(casi,"000") & " -----> Cerca n.Spia su Altre Ruote " & "Numeri " & nspia,1
'''''lunghetta o numeri in gioco e arrays di rif.
ReDim an(0)
Call SplitByChar(lunga,".",an)
x = UBound(an)
ReDim nm(10)
For w = 0 To x
nm(w + 1) = an(w)
Next
'''''''
'''''lunghetta o numeri spia e arrays di altre ruote
ReDim ans(0),MatriceEstrRitorno(11,5)
Call SplitByChar(nspia,".",ans)
x = UBound(ans)
ReDim nms(10)
For w = 0 To x
nms(w + 1) = ans(w)
Next
ReDim ar(12)
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
For a = 1 To 11
If a <> r Then
For b = 1 To 5
For c = 1 To x + 1
If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
ColoreTesto(0)
If a = 11 Then
bb = 12
Else
bb = a
End If
ar(bb) = bb
Scrivi "---- Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
ColoreTesto(0)
End If
Next
Next
End If
Next
''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
esito = " "
For col = 1 To verc + 1
'''call verificaesito
ar(r) = r
Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
esito = Left(retesito,8) & " "
If retesito = "Ambo" Then
esito = "Ambo "
ColoreTesto(2)
End If
If retesito = "Terno" Then
esito = "Terno "
ColoreTesto(1)
End If
If retesito = "Quaterna" Then
esito = "Quaterna "
ColoreTesto(1)
End If
If retesito = "Cinquina" Then
esito = "Cinquina "
ColoreTesto(1)
End If
Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & " " & esito & " " & retestratti,1
If retesito = "Estratto" Then
colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
End If
If retesito = "Ambo" Then
colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
End If
If retesito = "Terno" Then
colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
End If
If retesito = "Quaterna" Then
colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
End If
If retesito = "Cinquina" Then
colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
End If
ColoreTesto(0)
End If
Next
Scrivi
ColoreTesto(0)
End If
Next
'''riepilogo esiti
ColoreTesto(2)
Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
ColoreTesto(0)
ReDim atitoli2(6),avalori2(6)
' preimposto i titoli delle colonne
atitoli2(1) = " n.colpo "
atitoli2(2) = " Estratti "
atitoli2(3) = " Ambi "
atitoli2(4) = " Terni "
atitoli2(5) = " Quaterne "
atitoli2(6) = " Cinquine "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
For z = 1 To 18
avalori2(1) = Format2(z)
avalori2(2) = colpo(z,1)
avalori2(3) = colpo(z,2)
avalori2(4) = colpo(z,3)
avalori2(5) = colpo(z,4)
avalori2(6) = colpo(z,5)
Call AddRigaTabella(avalori2,Bianco_,"center",2)
Next
Call CreaTabella
End Sub

 

[Rubino]

ciao Byron

questo è il primo, devi controllare perchè ho fatto di fretta.

Option Explicit
Sub Main
   Dim es,r,n,p1,p2,f1,f2,lunga,nspia,fine,nup1,nup2,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito
   Dim colpo(19,5)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   ''''''
   p1 = CInt(InputBox("Posizione estratto",,1))
   f1 = CInt(InputBox("1 Figura ",,1))
   p2 = CInt(InputBox("Posizione estratto",,2))
   f2 = CInt(InputBox("2 Figura ",,6))
   ''''''
   lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
   verc = CInt(InputBox("Verifica esito per ncolpi",,18))
   nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
   ''''
   For es = 3950 To fine
      Messaggio(es)
      ''cerca estratto sulla ruota di riferimento e nella posizione specificata
      nup1 = Estratto(es,r,p1)
      nup2 = Estratto(es,r,p2)
   ''''
      If Figura(nup1) = f1 And Figura(nup2) = f2 Then
      Scrivi String(89,"=")
         Scrivi es & " / " & DataEstrazione(es) & "  Ruota " & SiglaRuota(r) & "  pos." & p1 & " e " & p2 & " Estratti  " & nup1 & "  " & nup2 & "    Figure " & f1 & " / " & f2,1
         ColoreTesto(0)
         casi = casi + 1
         Scrivi FormattaStringa(casi,"000") & "   -----> Prev. In gioco su Ruota     " & SiglaRuota(r) & "  Comb." & lunga & "  Per colpi n." & verc,1
         Scrivi FormattaStringa(casi,"000") & "   -----> Cerca n.Spia su Altre Ruote " & "Numeri   " & nspia,1
         '''''lunghetta o numeri in gioco e arrays di rif.
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         '''''''
         '''''lunghetta o numeri spia e arrays di altre ruote
         ReDim ans(0),MatriceEstrRitorno(11,5)
         Call SplitByChar(nspia,".",ans)
         x = UBound(ans)
         ReDim nms(10)
         For w = 0 To x
            nms(w + 1) = ans(w)
         Next
         ReDim ar(11)
         Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
         For a = 1 To 11
            If a <> r Then
               For b = 1 To 5
                  For c = 1 To x + 1
                     If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
                        ColoreTesto(0)
                        ar(a) = a
                        Scrivi "----      Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
                        ColoreTesto(0)
                     End If
                  Next
               Next
            End If
         Next
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         esito = "            "
         For col = 1 To verc
            '''call verificaesito
            ar(r) = r
            Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(0)
               esito = Left(retesito,8) & "  "
               If retesito = "Ambo" Then
                  esito = "Ambo      "
                  ColoreTesto(2)
               End If
               If retesito = "Terno" Then
                  esito = "Terno     "
                  ColoreTesto(1)
               End If
               If retesito = "Quaterna" Then
                  esito = "Quaterna  "
                  ColoreTesto(1)
               End If
               If retesito = "Cinquina" Then
                  esito = "Cinquina  "
                  ColoreTesto(1)
               End If
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & "  " & esito & "     " & retestratti,1
               If retesito = "Estratto" Then
                  colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
               End If
               If retesito = "Ambo" Then
                  colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
               End If
               If retesito = "Terno" Then
                  colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
               End If
               If retesito = "Quaterna" Then
                  colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
               End If
               If retesito = "Cinquina" Then
                  colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
               End If
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
   '''riepilogo esiti
   ColoreTesto(2)
   Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " n.colpo "
   atitoli2(2) = " Estratti "
   atitoli2(3) = " Ambi "
   atitoli2(4) = " Terni "
   atitoli2(5) = " Quaterne "
   atitoli2(6) = " Cinquine "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
   For z = 0 To 17
      avalori2(1) = Format2(z)
      avalori2(2) = colpo(z,1)
      avalori2(3) = colpo(z,2)
      avalori2(4) = colpo(z,3)
      avalori2(5) = colpo(z,4)
      avalori2(6) = colpo(z,5)
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
End Sub

 

[Rubino]

questo è il secondo per somma

Option Explicit
Sub Main
   Dim es,r,n,p1,p2,somma1,somma2,lunga,nspia,fine,nup1,nup2,casi,col,x,w,retestratti,retidestr,retesito,verc,z,a,b,c,esito
   Dim colpo(19,5)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   ''''''
   p1 = CInt(InputBox("Posizione estratto",,1))
   p2 = CInt(InputBox("Posizione estratto",,3))
   somma1 = CInt(InputBox("Somma 2 estratti  ",,25))
   ''''''
   lunga = InputBox("Lunghetta in gioco",,"11.22.33.44.55.66.77.88")
   verc = CInt(InputBox("Verifica esito per ncolpi",,18))
   nspia = InputBox("Nr.Spia ",,"05.52.26.35.33.11.14.15")
   ''''
   For es = 3950 To fine
      Messaggio(es)
      ''cerca estratto sulla ruota di riferimento e nella posizione specificata
      nup1 = Estratto(es,r,p1)
      nup2 = Estratto(es,r,p2)
      somma2 = nup1 + nup2
   ''''
      If somma1 = somma2 Then
      Scrivi String(89,"=")
         Scrivi es & " / " & DataEstrazione(es) & "  Ruota " & SiglaRuota(r) & "  pos." & p1 & " e " & p2 & " Estratti  " & nup1 & "  " & nup2 & "   Somma richiesta " & somma1,1
         ColoreTesto(0)
         casi = casi + 1
         Scrivi FormattaStringa(casi,"000") & "   -----> Prev. In gioco su Ruota     " & SiglaRuota(r) & "  Comb." & lunga & "  Per colpi n." & verc,1
         Scrivi FormattaStringa(casi,"000") & "   -----> Cerca n.Spia su Altre Ruote " & "Numeri   " & nspia,1
         '''''lunghetta o numeri in gioco e arrays di rif.
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         '''''''
         '''''lunghetta o numeri spia e arrays di altre ruote
         ReDim ans(0),MatriceEstrRitorno(11,5)
         Call SplitByChar(nspia,".",ans)
         x = UBound(ans)
         ReDim nms(10)
         For w = 0 To x
            nms(w + 1) = ans(w)
         Next
         ReDim ar(11)
         Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
         For a = 1 To 11
            If a <> r Then
               For b = 1 To 5
                  For c = 1 To x + 1
                     If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
                        ColoreTesto(0)
                        ar(a) = a
                        Scrivi "----      Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
                        ColoreTesto(0)
                     End If
                  Next
               Next
            End If
         Next
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         esito = "            "
         For col = 1 To verc
            '''call verificaesito
            ar(r) = r
            Call VerificaEsitoTurbo(nm,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(0)
               esito = Left(retesito,8) & "  "
               If retesito = "Ambo" Then
                  esito = "Ambo      "
                  ColoreTesto(2)
               End If
               If retesito = "Terno" Then
                  esito = "Terno     "
                  ColoreTesto(1)
               End If
               If retesito = "Quaterna" Then
                  esito = "Quaterna  "
                  ColoreTesto(1)
               End If
               If retesito = "Cinquina" Then
                  esito = "Cinquina  "
                  ColoreTesto(1)
               End If
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & "  " & esito & "     " & retestratti,1
               If retesito = "Estratto" Then
                  colpo(retidestr -(es + 1),1) = colpo(retidestr -(es + 1),1) + 1
               End If
               If retesito = "Ambo" Then
                  colpo(retidestr -(es + 1),2) = colpo(retidestr -(es + 1),2) + 1
               End If
               If retesito = "Terno" Then
                  colpo(retidestr -(es + 1),3) = colpo(retidestr -(es + 1),3) + 1
               End If
               If retesito = "Quaterna" Then
                  colpo(retidestr -(es + 1),4) = colpo(retidestr -(es + 1),4) + 1
               End If
               If retesito = "Cinquina" Then
                  colpo(retidestr -(es + 1),5) = colpo(retidestr -(es + 1),5) + 1
               End If
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
   '''riepilogo esiti
   ColoreTesto(2)
   Scrivi "Riepilogo Esiti SU Ruota Principale di Rilevamento e di gioco -- per n.colpo e per tipo di sorte -- da estr.n.3950 / " & fine & "/" & DataEstrazione(fine),1
   ColoreTesto(0)
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " n.colpo "
   atitoli2(2) = " Estratti "
   atitoli2(3) = " Ambi "
   atitoli2(4) = " Terni "
   atitoli2(5) = " Quaterne "
   atitoli2(6) = " Cinquine "
   ' ' inizializzo la tabella
   SetTableWidth("90%")
   Call InitTabella(atitoli2,1,"center",1.5,5,"Cambria")
   For z = 0 To 17
      avalori2(1) = Format2(z)
      avalori2(2) = colpo(z,1)
      avalori2(3) = colpo(z,2)
      avalori2(4) = colpo(z,3)
      avalori2(5) = colpo(z,4)
      avalori2(6) = colpo(z,5)
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
End Sub

 

[Rubino]

ho lasciato di base sia la lunghetta che nspia che avevi dato l'altra volta.
gemelli etc..
naturalmente sono che modificare o inserire quelli che ritieni opportuni.

così come il nr.di colpi è modificabile.

ciao
fammi sapere se ok.

 

[sorujoe]

Sembra tutto ok
Non è retorica per me hai le mani SANTE grazie di cuore a buon rendere sono tuo debitore.