Novità

X JOE Salvo se puoi intervieni grazie

S

sorujoe

Advanced Member >GOLD<
Vi chiedo gentilmente questo script

Io indico 2 ruote e una posizione
Lo script prende gli estratti isotopi della posizione indicata e li somma (col -90 se è necessario= Otteniamo cosi il valore "K"
"K" NON DEVE essere ne un gemello ne uno cadenza 9
L'ambate da giocare sulle ruote in esame è "K" e il suo vertibile
ABBINAMENTI il +/- "X" lo indico io il valore "X" dei due numeri di partenza cioè gli isotopi
Lo spoglio deve essere dall'ambata in poi per i colpi da me indicati NON FERMARSI alla prima vincita ma per tutti i colpi richiesti

Le ambate vertibili NON DEVONO essere presenti nel concorso di calcolo sulle ruote selezionate

GRAZIE
 
Ultima modifica:
Ciao.

Mi spiace ma non mi aggrada rifare script per ricerche di questo tipo.

:)

​​​​​​
 
L'amico Joe non ne vuol sentire prego gli altri scripter di dedicarmi un po ti tempo a realizzare lo script

Grazie
Giovanni
 
Ciao a Tutti

Spiegami con qualche esempio numerico questa riga

ABBINAMENTI il +/- "X" lo indico io il valore "X" dei due numeri di partenza cioè gli isotopi

non ho capito con il valore X come applicarlo, cioè con questo valore inserito tramite INPUTBOX cosa ci devo fare
 
Mettiamo che indico Bari Cagliari 1° estratto e su Bari e Cagliari 1° estratto ci sia
il 25 e il 15 somma 40 vertibile 4-40 ambate da giocare su Bari e Cagliari non presenti sul concorso di rilevamento (ne gemelli ne cadenza 9)
Abbinamenti al 4-e 40 son il +/- "X" di 25 e 15
Se inputo alla +/- il 5 farà: 20-25-30 e 10-15-20 quindi 6 abbinamenti alle 2 ambate; tale valore "X" lo puoi impostare a 5 ma devo poterlo inserire io quindi a mia scelta variarlo.
Lo spoglio va fatti dall'ambata sino all'ottina per tutti i colpi da me indicati. GRAZIE
 
Ancora ?!?!?

Se non ti si vuole farti uno script ... è perchè non si è masochisti.

O perché non si vuole essere d'aiuto a ciarlatani che poi utilizzano genialate

per turlupinare il loro prossimo.

Eccoti accontentato:

Codice: 
Sub Main
  'Indico 2 ruote e una Posizione
  'SOMMA degli estratti isotopi =  "K"
  'K NON DEVE essere ne un Gemello ne in Cadenza 9.
  'Ambate da giocare sulle ruote in esame: K e il suo vertibile
  'Abbinamenti il +/- "X" dei due numeri di partenza
  'Lo spoglio deve essere dall'ambata in poi per i colpi da me indicati.
  'Le ambate vertibili NON DEVONO essere presenti nel concorso di calcolo sulle ruote selezionate
  Dim Ini,Fin,Es,P,C,X,S,N
  ReDim Ru(12),E(2),K(2),L(6)
  Dim PS(1),PL(5) : PS(1) = 2 : PL(2) = 1 : PL(3) = .7 : PL(4) = .2 : PL(5) = .1
  P = CInt(InputBox("Scegli 1/2/3/4/5"," P O S I Z I O N E ",1))
  X = CInt(InputBox("Valore da aggiungere ? "," S O M M A",44))
  C = CInt(InputBox("Quanti ","C O L P I",9))
  ScegliRuote(Ru)
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  For Es = Ini To Fin Step C + 1
    E(1) = Estratto(Es,Ru(1),P) : E(2) = Estratto(Es,Ru(2),P)
    K(1) = Fuori90(E(1) + E(2)) : K(2) = Vert(K(1))
    If SerieFreq(Es,Es,K,Ru,1) = 0 Then
      If Cadenza(K(1)) <> 9 And Not Gemello(K(1)) Then
      N = N +1 : Scrivi String (106,"=") & FormatSpace(N,4,True),True
        ImpostaGiocata 1,K,Ru,PS,C,1
        L(1) = K(1) : L(2) = K(2)
        L(3) = Fuori90(E(1) + X) : L(4) = Fuori90(90 + E(1) - X)
        L(5) = Fuori90(E(2) + X) : L(6) = Fuori90(90 + E(2) - X)
        EliminaRipetuti L
        ImpostaGiocata 2,L,Ru,PL,C
        Gioca Es,True
      End If
    End If
  Next
  ScriviResoconto
End Sub
 
Puoi mettermi gentilmente il concorso di partenza da cui avviare lo script? GRAZIE

Questa non l'ho capita
"O perché non si vuole essere d'aiuto a ciarlatani che poi utilizzano genialate

per turlupinare il loro prossimo." ...che significa??
 
io mi faccio i miei numeri gioco un euro sopra e finisce li chi inganno fammi capire a casa sanno che io gioco moderatamente non lo nascondo a nessuno. A chi inganno non ti capisco
 
sorujoe;n2184369 ha scritto:
Mettiamo che indico Bari Cagliari 1° estratto e su Bari e Cagliari 1° estratto ci sia
il 25 e il 15 somma 40 vertibile 4-40 ambate da giocare su Bari e Cagliari non presenti sul concorso di rilevamento (ne gemelli ne cadenza 9)
Abbinamenti al 4-e 40 son il +/- "X" di 25 e 15
Se inputo alla +/- il 5 farà: 20-25-30 e 10-15-20 quindi 6 abbinamenti alle 2 ambate; tale valore "X" lo puoi impostare a 5 ma devo poterlo inserire io quindi a mia scelta variarlo.
Lo spoglio va fatti dall'ambata sino all'ottina per tutti i colpi da me indicati. GRAZIE
Clicca per espandere...




Ciao Joe e Sorujoe mi dispiace che non vi siete capiti





6 abbinamenti alle 2 ambate, quindi con gli esempi fatti da te devo cercare

4 e 40 come ambate, senza ambo

ambi

4 - 20
4 - 25
4 - 30
4 - 10
4 - 15
4 - 20

40 - 20
40 - 25
40 - 30
40 - 10
40 - 15
40 - 20

naturalmente questi numeri sono solo d'esempio
 
Puoi mettere una ottina cioè tutto il pronostico e fare lo spoglio per ambata e superiori dell'intera previsione senza specificare ambate e ambi. Lo spoglio deve essere fatto per tutti i colpi indicati non solo alla prima uscita.
Senza distinguo tra ambate e abbinamenti
Prendendo l'esempio
1° colpo esce il 20
2° colpo nulla
3° colpo il 25
4° colpo il 4
e cosi via sino ai colpi indicati
 
Ultima modifica:
sorujoe;n2184377 ha scritto:
Puoi mettere una ottina cioè tutto il pronostico e fare lo spoglio per ambata e superiori dell'intera previsione senza specificare ambate e ambi. Lo spoglio deve essere fatto per tutti i colpi indicati non solo alla prima uscita.
Senza distinguo tra ambate e abbinamenti
Prendendo l'esempio
1° colpo esce il 20
2° colpo nulla
3° colpo il 25
4° colpo il 4
e cosi via sino ai colpi indicati
Clicca per espandere...

Posso mettere l'ottina e cercarli per ambata, e superiori, ma tu me lo devi specificare quando fai la richiesta, ti ho fatto queste domande e ho fatto degli esempi appunto per capire.

Non ho altre domande, appena posso lo faccio.
 
Vedi se può andare

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,E2,S1
   Dim R1,R2,P1,P5,P6,A,B
   Dim VertS1,CaS1,Caso,Casi,PoM
   Dim Posta(5),Ruote(2),Nu(2),Num(8)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9640))
   R1 = CInt(InputBox("Inserisci la 1ª Ruota",,1))
   R2 = CInt(InputBox("Inserisci la 2ª Ruota",,2))
   If R1 <> R2 Then
      P1 = CInt(InputBox("Inserisci la Posizione",,3))
      PoM = InputBox("Inserisci il valore che vuoi aggiungere e sottrarre",,13)
      Clp1 = InputBox("Inserisci i colpi di gioco",,8)
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
      Posta(1) = 1 'POSTA AMBATA
      Posta(2) = 1 'POSTA AMBO
      Posta(3) = 1 'POSTA TERNO
      Posta(4) = 1 'POSTA QUATERNA
      Posta(5) = 1 'POSTA CINQUINA
      For Es = Ini To FIn
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         A = Estratto(Es,R1,P1)
         B = Estratto(Es,R2,P1)
         S1 = Fuori90(A + B)
         CaS1 = Cadenza(S1)
         If Not Gemello(S1)And CaS1 <> 9 Then
            VertS1 = Vert(S1)
            Ruote(1) = R1
            Ruote(2) = R2
            Nu(1) = S1 : Nu(2) = VertS1
            If SerieFreqTurbo(Es,Es,Nu,Ruote,1) = 0 Then
               Num(1) = S1 : Num(2) = VertS1
               Num(3) = Fuori90(90 +(A - PoM)) : Num(4) = A : Num(5) = Fuori90(A + PoM)
               Num(6) = Fuori90(90 +(B - PoM)) : Num(7) = B : Num(8) = Fuori90(B + PoM)
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = A Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R2) & " ",1,0
               For P6 = 1 To 5
                  E2 = Estratto(Es,R2,P6)
                  If E2 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi
               Scrivi " Numero da aggiungere o sottrarre inserito " & Format2(PoM),1,,,2
               Scrivi
               Scrivi Space(16) & " Somma Isotopi e Vertibile " & Format2(S1) & "  " & Format2(VertS1),1,,,1
               Scrivi
               EliminaRipetuti Num
               ImpostaGiocata 1,Num,Ruote,Posta,Clp1
               Gioca Es
            End If
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If R1 = R2 Then Scrivi " HAI INSERITO 2 RUOTE UGUALI",1,,,2
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto