Novità

script

S

sorujoe

Advanced Member >GOLD<
Ottimizzarlo per spaziometria includendo la nazionale e apportare le seguenti ottimizzazioni:
  1. Il concorso di avvio dello script e i colpi di gioco devo immetterli io senza doverli modificare dal codice
  2. Nelle 3 estrazioni di calcolo nessuna delle ambate deve essere presente a ruota
  3. Non deve includere ambate derivanti da gemelli o cadenza 9. Grazie
HTML: 
Sub Main()
Dim am(10)
Dim ruote(10)
Dim posta(5)
posta(1)=1


fin=EstrazioneFin
ini=9300
For es=ini To fin
For r=1 To 10
For p=1 To 5
For p1=3 To 3
a=Estratto(es,r,p)
If a=<10 Then
b=Estratto(es-2,r,p1)
Scrivi "----------------------------------------------------"
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),10)&" "&CInt(a)
Scrivi DataEstrazione(es-2)&" "&Left(NomeRuota(r),10)&" "&CInt(b)
ruote(1)=r

c=Fuori90(a+b)
d=Vert(c)

am(1)=c
am(2)=d

ImpostaGiocata 1,am,ruote,posta,5


Gioca es

End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
prova a vedere

Codice: 
Sub Main()
   Dim am(10)
   Dim ruote(10)
   Dim posta(5)
   posta(1) = 1
   ini = InputBox("Estrazione di avvio",,9300)
   colpi = InputBox("Quanti Colpi di Gioco",,10)
   fin = EstrazioneFin
   For es = ini To fin
      For r = 1 To 12 ' immessa ruota 12 NZ
         If r = 11 Then r = 12 ' esclusa ruota Tutte
         For p = 1 To 5
            For p1 = 3 To 3
               a = Estratto(es,r,p)
               If a <= 10 Then
                  b = Estratto(es - 2,r,p1)
                  Scrivi "----------------------------------------------------"
                  Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),10) & " " & CInt(a)
                  Scrivi DataEstrazione(es - 2) & " " & Left(NomeRuota(r),10) & " " & CInt(b)
                  ruote(1) = r
                  c = Fuori90(a + b)
                  d = Vert(c)
                  am(1) = c
                  am(2) = d
                  'If SerieFreq(es-2,es,am,ruote,1) > 0 Then
                  If VerificaEsito(am,ruote,es - 2,1,3,,,clp,es1,id) = True Then
                     Scrivi GetInfoEstrazione(id) & vbTab & es1 & vbTab & clp
                     Scrivi "A T T E N Z I O N E . . .  . .  Numeri di Gioco " & StringaNumeri(am) & " Presenti In estrazioni di Calcolo"
                     ElseIf Gemello(c) Or Gemello(d) Or Cadenza(c) = 9 Or Cadenza(d) = 9 Then
                        Scrivi StringaNumeri(am) & vbTab & "Previsione non valida Numeri Gemello o Cadenza 9"
                     Else
                        Scrivi "Ok Previsione Valida",1
                        ImpostaGiocata 1,am,ruote,posta,colpi
                        Gioca es
                     End If
                  End If
              ' End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ciao Mike e grazie del tuo interessamento

mi dice
1017 previsto Then
linea 15
colonna 23

nn va ne su spaziometria ne su lottodesk ..anche se io utilizzo spaziometria
 
Ultima modifica:
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]
LOGOSILOP.gif
[/TD]
[/TR]
[TR]
[TD]SPMT vers. 1.6.31_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Ciao sorujoe ,[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]in attesa che ti risponda Mike58[/TD]
[/TR]
[TR]
[TD]l'ho aggiustato a me funziona prova anche tu con SPMT.[/TD]
[/TR]
[TR]
[TD]Non so fare gli script ma ho visto che ci sono errori [/TD]
[/TR]
[TR]
[TD]dovuti al copia e incolla sul forum, ha aggiunto nelle righe [/TD]
[/TR]
[TR]
[TD]queste "amp;" dopo la "&" e "<" che ho tolto.[/TD]
[/TR]
[TR]
[TD]prova adesso :[/TD]
[/TR]
[TR]
[TD]======================
Sub Main()
Dim am(10)
Dim ruote(10)
Dim posta(5)
posta(1) = 1
ini = InputBox("Estrazione di avvio",,9300)
colpi = InputBox("Quanti Colpi di Gioco",,10)
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 12 ' immessa ruota 12 NZ
If r = 11 Then r = 12 ' esclusa ruota Tutte
For p = 1 To 5
For p1 = 3 To 3
a = Estratto(es,r,p)
If a= 10 Then
b = Estratto(es - 2,r,p1)
Scrivi "----------------------------------------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),10) & " " & CInt(a)
Scrivi DataEstrazione(es - 2) & " " & Left(NomeRuota(r),10) & " " & CInt(b)
ruote(1) = r
c = Fuori90(a + b)
d = Vert(c)
am(1) = c
am(2) = d
'If SerieFreq(es-2,es,am,ruote,1) & 0 Then
If VerificaEsito(am,ruote,es - 2,1,3,,,clp,es1,id) = True Then
Scrivi GetInfoEstrazione(id) & vbTab & es1 & vbTab & clp
Scrivi "A T T E N Z I O N E . . . . . Numeri di Gioco " & StringaNumeri(am) & " Presenti In estrazioni di Calcolo"
ElseIf Gemello(c) Or Gemello(d) Or Cadenza(c) = 9 Or Cadenza(d) = 9 Then
Scrivi StringaNumeri(am) & vbTab & "Previsione non valida Numeri Gemello o Cadenza 9"
Else
Scrivi "Ok Previsione Valida",1
ImpostaGiocata 1,am,ruote,posta,colpi
Gioca es
End If
End If
' End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Clicca per espandere...
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]====================== [/TD]
[/TR]
[TR]
[TD]Buon divertimento.[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Buon sabato a tutto il forum.[/TD]
[/TR]
[TR]
[TD]
stickman.gif
[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD] Silop ;) ;) ;)[/TD]
[/TR]
[/TABLE]

[/TD]
[/TR]
[/TABLE]
 
Si ma ...

non si può cancellare ciò che è "tradotto male"

Perchè si perde tutto il significato di ciò che era il contenuto originale.

sCioè e MaggioreUguale o MinoreUguale sono entrambi tradotti in uguale...

... funziona senza errori ma funziona erroneamente.

Cioè è peggio che non funzionante.

Perchè funzionando non viene evidenziato e

non si sa dove sia l'errore da correggere

producendo peraltro un risultato diverso da quello che era voluto.

:)
 
Come dice Silop,si erano incollati male i separatori <> +/- e gli spaziatori Vbtab (problemi ultimi del forum).
Comunque lo script corretto da Silop sembra funzionale (ma non ho controllato tutto)

Ciao
 
Riprovo a rimettere lo script postato in precedente, sperando che il forum non incolli male i vari separatori.

Codice: 
Sub Main()
   Dim am(10)
   Dim ruote(10)
   Dim posta(5)
   posta(1) = 1
   ini = InputBox("Estrazione di avvio",,9300)
   colpi = InputBox("Quanti Colpi di Gioco",,10)
   fin = EstrazioneFin
   For es = ini To fin
      For r = 1 To 12 ' immessa ruota 12 NZ
         If r = 11 Then r = 12 ' esclusa ruota Tutte
         For p = 1 To 5
            For p1 = 3 To 3
               a = Estratto(es,r,p)
               If a <= 10 Then
                  b = Estratto(es - 2,r,p1)
                  Scrivi "----------------------------------------------------"
                  Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),10) & " " & CInt(a)
                  Scrivi DataEstrazione(es - 2) & " " & Left(NomeRuota(r),10) & " " & CInt(b)
                  ruote(1) = r
                  c = Fuori90(a + b)
                  d = Vert(c)
                  am(1) = c
                  am(2) = d
                  'If SerieFreq(es-2,es,am,ruote,1) > 0 Then
                  If VerificaEsito(am,ruote,es - 2,1,3,,,clp,es1,id) = True Then
                     Scrivi GetInfoEstrazione(id) & vbTab & es1 & vbTab & clp
                     Scrivi "A T T E N Z I O N E . . .  . .  Numeri di Gioco " & StringaNumeri(am) & " Presenti In estrazioni di Calcolo"
                     ElseIf Gemello(c) Or Gemello(d) Or Cadenza(c) = 9 Or Cadenza(d) = 9 Then
                        Scrivi StringaNumeri(am) & vbTab & "Previsione non valida Numeri Gemello o Cadenza 9"
                     Else
                        Scrivi "Ok Previsione Valida",1
                        ImpostaGiocata 1,am,ruote,posta,colpi
                        Gioca es
                     End If
                  End If
              ' End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Mi scuso con Silop ... per il mio intervento precedente, che potrebbe sembrare maleducato,

ma con mezzi di fortuna e connessioni precarie è difficile, spiegare alcune cose.

l'istruzione IF - THEN è una di quelle cardine alla base di tutta l'automazione.

si traduce in SE ... ALLORA-FAI.

Vediamola applicata in un contesto diverso e particolarmente utile a "chiarire".

Supponiamo di avere un sensore di luminosità ed un interruttore-lampadina.

SE c'è BUIO ... ACCENDI (la lampadina).

Il sensore, degno di tale nome, restituisce una serie di valori ...

in funzione della luminosità che rileva.

Supponiamo essere 100 quando colpito dalla intensa luce del sole e

ZERO nella notte più buia.

Dunque noi regoleremo per ipotesi a 30 cosicchè quando

incomincia a far buio la luce si accende.

Ma SE scrivessimo nel programma SE LETTURA del SENSORE UGUALE 30

la nostra lampadina si accenderebbe per pochi minuti all'alba ed al tramonto.

quando il valore della luminosità è appunto 30.

MENTRE se programmiamo <= 30 (MINORE UGUALE 30)

essa rimane accesa per tutto il periodo di buio.

In sintesi e per analogia con tutto questo intendevo dire

che mal tradurre questo "piccolo simbolo" del programma,

crea grosse differenze di comportamento nel programma stesso.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto