Novità

X JOE Salvo se puoi intervieni grazie

sorujoe

Advanced Member
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:

joe

Advanced Member >PLATINUM PLUS<
Ciao.

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

:)

​​​​​​
 

sorujoe

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

Grazie
Giovanni
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

sorujoe

Advanced Member
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
 

joe

Advanced Member >PLATINUM PLUS<
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
 

sorujoe

Advanced Member
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??
 

sorujoe

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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




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
 

sorujoe

Advanced Member
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:

salvo50

Advanced Member >PLATINUM PLUS<
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

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.
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
Alto