Per Salvo50 o altro scripter esperto AIUTO

sorujoe · 29 Giugno 2019

Chiedo gentilmente tale script
io immetto un numero su 1 ruota e la posizione di ricerca (ad esempio 1° estratto)
Lo script dovrà analizzare la lunghetta per estratto e ambo terno sino alla cinquina che immetto io.
Il pronostico va ricercato sulla ruota che indico io e su quelle in cui sono presenti i numeri spia da me inseriti per 18 colpi-.

Faccio un esempio
Cagliari 3° estratto 66
Lunghetta di gioco 11.22.33.44.55.66.77.88
Numeri spia (che devono essere presenti nel concorso di calcolo sulle ruote su cui giocherò la previsione): 5.52.26.35.33.11.14.15 max 10

La previsione nei vari casi trovati dallo script andrà giocata sul comparto di origine della ricerca in tal caso cagliari e su quelli in cui sono presenti i numeri spia 5.52.26.35.33.11.14.15
Grazie

sorujoe · 30 Giugno 2019

E' fattibile?

salvo50 · 30 Giugno 2019

Ciao a Tutti.

Ciao Byron, io penso di si, ma purtroppo io mi sono incasinato, non riesco a venirne fuori, quindi ho abbandonato.

sorujoe · 30 Giugno 2019

no ...almeno fammi quest'ultima grazie; ti prego solo questa

sorujoe · 30 Giugno 2019

come faccio a contattarti in privato

salvo50 · 1 Luglio 2019

Ciao a Tutti.

Ciao Byron, non è che se mi contatti in privato mi si sbocca il cervello, nel titolo oltre a me ti sei rivolto anche ad altri, aspetta, può darsi che qualcun altro ti risponda con uno script, facciamo uno a caso RUBINO, che vedo che è molto disponibile e in gambissima, per lui sarà una passeggiata fare lo script da te richiesto

Rubino · 1 Luglio 2019

un passettino, poi ho bisogno di info di alcune cose che non ho capito subito.

Codice:

Option Explicit
Sub Main
   Dim es,r,n,p,lunga,nspia,fine,nue,casi,col,x,w,retestratti,retidestr,retesito,verc
   Dim ar(1)
   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 es & " / " & DataEstrazione(es) & "  Ruota " & SiglaRuota(r) & "  pos." & p & " Estratto " & nue,1
         ColoreTesto(2)
         casi = casi + 1
         Scrivi FormattaStringa(casi,"000") & "   ----->    Prev. In gioco " & SiglaRuota(r) & "  Comb." & lunga & "  Per colpi n." & verc,1
         ReDim an(0)
         Call SplitByChar(lunga,".",an)
         x = UBound(an)
         ReDim nm(10)
         For w = 0 To x
            nm(w + 1) = an(w)
         Next
         For col = 1 To verc
            '''call verificaesito
            ar(1) = r
            Call VerificaEsitoTurbo(an,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(1)
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & "  " & retestratti & "      " & retesito,1
               ColoreTesto(0)
            End If
         Next
         Scrivi
         ColoreTesto(0)
      End If
   Next
End Sub

Rubino · 1 Luglio 2019

1) i numeri spia sono una ulteriore presenza con l'ambata sulla ruota di Rilevamento e di gioco o sono un di più?

2) il verifica esito ti serve per gli estratti o solo dall'ambo in su?

3) ma nell'esempio degli 8 gemelli, da giocare su cagliari, (1ruota) ci può anche stare, ma se i numeri spia li trovi su altre 3 ruote
che ci fai?

4) quanti numeri spia devono essere presenti nell'estrazione Distribuiti sulle 11 ruote?

salvo50 · 1 Luglio 2019

Ciao Rubino, grazie mille.

sorujoe · 1 Luglio 2019

Sulle ruote in cui escono i numeri spia va giocato il pronostico e anche sulla ruota di calcolo ...non devono per forza essere accompagnati dall'ambata.

Verifica esito da ambata in poi

se i numeri spia escono anche su 6 ruote la previsione va giocata su tutte e 6 le ruote

numeri distribuiti sulla 11 ruote quanto c'è ne stanno da 1 sino a X

GRAZIE RAGAZZI

Rubino · 1 Luglio 2019

fin qua ho fatto, controllare se tutto ok nei dati , grazie
a vista d'occhio a me sembra di si.

Manca solo di sapere cosa devo fare per gli esiti su altre ruote, se li devi mettere insieme
alla ruota principale o tenerli separati.

ma intanto prova guardare se tutto è ok e se è quello che vuoi sapere.

non mi chiedere i resoconti perchè non te li faccio o i grafici degli esiti, perchè li ritengo
cose di poca importanza e li lascio a chi li ha inventati.

Codice:

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
   Dim ar(1),colpo(18,5),colpal(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 es & " / " & DataEstrazione(es) & "  Ruota " & SiglaRuota(r) & "  pos." & p & " Estratto " & nue,1
         ColoreTesto(2)
         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
         Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
         For a = 1 To 11
            For b = 1 To 5
               For c = 1 To x + 1
                  If MatriceEstrRitorno(a,b) = Int(nms(c)) Then
                     ColoreTesto(0)
                     Scrivi "----      Estraz.n." & es & "...." & SiglaRuota(a) & " Presente Spia.." & nms(c)
                     ColoreTesto(0)
                  End If
               Next
            Next
         Next
         ''''''''''''''''''''''verifica esito su ruota principale di rilevamento e di gioco
         For col = 1 To verc
            '''call verificaesito
            ar(1) = r
            Call VerificaEsitoTurbo(an,ar,es + col,1,1,,retesito,,retestratti,retidestr)
            If retestratti <> "" Then
               ColoreTesto(1)
               Scrivi "---> " & retidestr & " Colpo n." & Format2(retidestr - es) & "  " & retestratti & "      " & retesito,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,2,"center",1.4,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

sorujoe · 1 Luglio 2019

è ok le ruote su cui sono presenti i numeri spia vanno assemblati alla ruota di calcolo e lo spoglio vincite riguarda sia la ruota di calcolo che le ruote su cui vi sono i numeri spia non a parte un unico spoglio per tali ruote GRAZIE

Rubino · 1 Luglio 2019

Accorpando in un unico verifica esito

Spaziometria fa in questo modo ti va bene?
questo è il prospetto che scrive in automatico

posso migliorarlo un pochino, così forse diventa un pelino più leggibile, ma non si può andare oltre

sorujoe · 1 Luglio 2019

se puoi le ambata in colore nero ambi in rosso terno o superiori con altro colore tipo blu
GRAZIE

sorujoe · 1 Luglio 2019

o fare uno spoglio con ambate e uno solo ambi o superiori questo da impostare all'avvio dello script ...tipo come vuoi lo spoglio con ambata o senza?

Rubino · 1 Luglio 2019

Codice:

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
   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(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 = 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

sorujoe · 1 Luglio 2019

è perfetto unica cosa che nn va è che non include la ruota nazionale come mai?

Rubino · 1 Luglio 2019

E' vero

devo controllare per la nazionale solitamente e,' la 12
nella matriceestrritorno e' la 11

i soliti casini cambiati in corsa a causa delle genialate di qualcuno .

poi ci guardo

adesso c e. temporale in. Zona.

sorujoe · 1 Luglio 2019

ok Rubino appena puoi aspetto tue notizie GRAZIE

Rubino · 1 Luglio 2019

modificato per la nazionale, ed il 18 colpo.

Codice:

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

Per Salvo50 o altro scripter esperto AIUTO

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Rubino

Guest

Rubino

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Rubino

Guest

Advanced Member >GOLD<

Rubino

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Rubino

Guest

Advanced Member >GOLD<

Rubino

Guest

Advanced Member >GOLD<

Rubino

Guest