Novità

CERCASI CON URGENZA TOON

Alien.

Advanced Premium Member
sindrome-diogene-e1531463713514.jpg


CIAO sto usando i tuoi script prima tutto ok adesso mi da errore di sintassi come mai ?


> < & Format2(e),1


grazie.
 
Ciao a Tutti.

Sembrerebbe che devi eliminare quello spazio che c'è tra i due > <
cioè dovresti farli così >< però non ricordo se c'è un'istruzione
di questo genere, perché per indicare diverso è così <>
 
Ciao salvo ho provato ma non è quello ,
Ciao Pandit :unsure: 🤣 grazie è questo ne ho 3/4 script tutti con lo stesso errore ma mi ripeto l'ho sviluppato una volta ed l'ha fatto perfettamente 2 giorni fa l'ho ripreso ma mi da errore eppure non ho fatto nulla.


ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
> < & Format2(e),1.................................................................................................................errore di sintassi
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
> < & Format2(f),1.....................................................................................................................errore di sintassi

Scrivi


forse perchè ho eliminato ' rimessa ma nulla da fare.................
 
Bisogna chiudere la condizione For es = ini To fin con Next

Poi > < & Format2(e),1 o lo elimini o lo chiudi tra gli apici "> < " & Format2(e),1
 
Option Explicit

Sub Main()
Dim w, x, y, poste(5), posta(2), ini, fin, es, r1, r2, a, b, c, e, f, g, h, i, ok, casi

w = InputBox("Quanti colpi di gioco per l'Ambata?", , 10)
x = InputBox("Quanti colpi di gioco per la lunghetta?", , 14)
y = InputBox("Quante estrazioni di ricerca?", , 500)

posta(1) = 1
poste(2) = 1
poste(3) = 1

ini = EstrazioneFin - y
fin = EstrazioneFin

For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
r1 = 1
r2 = 2
a = Estratto(es, r1, 1)
b = Estratto(es, r2, 3)

If b > 5 Then
b = b - 5
End If

c = Estratto(es, r2, 4)

If Cadenza(c) = 0 Then
c = c - 5
End If

e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a), Cadenza(a))
h = Figura(Estratto(es, r1, 3))
i = Fuori90(g & h)
ok = 0

ColoreTesto 1
casi = casi + 1

Scrivi String(75, "=") & " caso n° " & (casi), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es, r1) & " > < " & Format2(e), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es, r2) & " > < " & Format2(f), 1
End If
Next

Scrivi ""
End Sub
 
Ultima modifica:
Option Explicit

Sub Main()
Dim w, x, y, poste(5), posta(2), ini, fin, es, r1, r2, a, b, c, e, f, g, h, i, ok, casi

w = InputBox("Quanti colpi di gioco per l'Ambata?", , 10)
x = InputBox("Quanti colpi di gioco per la lunghetta?", , 14)
y = InputBox("Quante estrazioni di ricerca?", , 500)

posta(1) = 1
poste(2) = 1
poste(3) = 1

ini = EstrazioneFin - y
fin = EstrazioneFin

For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
r1 = 1
r2 = 2
a = Estratto(es, r1, 1)
b = Estratto(es, r2, 3)

If b > 5 Then
b = b - 5
End If

c = Estratto(es, r2, 4)

If Cadenza(c) = 0 Then
c = c - 5
End If

e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a), Cadenza(a))
h = Figura(Estratto(es, r1, 3))
i = Fuori90(g & h)
ok = 0

ColoreTesto 1
casi = casi + 1

Scrivi String(75, "=") & " caso n° " & (casi), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es, r1) & " > < " & Format2(e), 1
Scrivi DataEstrazione(es, 1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es, r2) & " > < " & Format2(f), 1
End If
Next

Scrivi ""
End Sub
UEHHHHH ! Ciao .....ma sei tu? TU sai che sono un attento osservatore...e il tuo modo di scrivere mi ricorda tanto un "amico",persona a modo e con cervello....dimmi solo se sei tu....ricorda...se dovesse succedere che hai bisogno davvero...fisicamente.....puoi sempre contare su di me....e tu sai che non scherzo su queste cose.....rispondi solo si o no ,io sapro' ...non faro' il tuo nome o nick...e sei hai bisogno davvero,rivolgiti a Giuseppa con la quale sono in contatto ...chiedi di avere la mail mia....
 
Grazie

Delphi ma non so molto trafficare con lo script​

Osymen ottimo script per ambate ma non è quello che avevo chiesto ma è questo ::::
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
> < & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
> < & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub
 
UEHHHHH ! Ciao .....ma sei tu? TU sai che sono un attento osservatore...e il tuo modo di scrivere mi ricorda tanto un "amico",persona a modo e con cervello....dimmi solo se sei tu....ricorda...se dovesse succedere che hai bisogno davvero...fisicamente.....puoi sempre contare su di me....e tu sai che non scherzo su queste cose.....rispondi solo si o no ,io sapro' ...non faro' il tuo nome o nick...e sei hai bisogno davvero,rivolgiti a Giuseppa con la quale sono in contatto ...chiedi di avere la mail mia....
mi spiace ma non sono chi credi che io sia, fisicamente sto apposto non ho problemi di alcun tipo ,probabilmente la persona alla quale ti riferisci si (spiace per lui)è un altra o abbiamo un modo di esprimerci simile nello scrivere.
 
E' per caso questo? ;)
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,14)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,200)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub
 
Codice:
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
"> <" & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
"> <" & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub
 
E' per caso questo? ;)
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,14)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,200)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub
CIAO NO,PANDIT MI SI è IMPALLATO ho aspettato 15 minuti ma nulla.
 
perfetto Ciao Oscar lieto di risentirti è un "secolo" fa si lo script va bene l'ho controllato ma è uguale ma senza errore mha...
 
Ultima modifica:
Ho corretto quello de post #9

Codice:
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
   Dim n(10),ruote(12),poste(5),posta(2),n1(2)
   w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
   x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
   y = InputBox("Quante estrazioni di ricerca?",,500)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
      If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
         r1 = 1
         r2 = 2
         a = Estratto(es,r1,1)
         b = Estratto(es,r2,3)
         If b > 5 Then
            b = b - 5
         End If
         c = Estratto(es,r2,4)
         If Cadenza(c) = 0 Then
            c = c - 5
         End If
         e = Fuori90(a + b)
         f = Fuori90(a + c)
         g = Differenza(Decina(a),Cadenza(a))
         h = Figura(Estratto(es,r1,3))
         i = Fuori90(g & h)
         ok = 0
         ColoreTesto 1
         casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "> <" & Format2(e),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "> <" & Format2(f),1
         Scrivi
         ColoreTesto 0
         ruote(1) = r1
         ruote(2) = r2
         'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
         k = x
         col = w
         co = 0
         n1(1) = e
         n1(2) = Vert(e)
         '...
         n(1) = e
         n(2) = Vert(e)
         n(3) = f
         n(4) = Vert(f)
         n(5) = i
         n(6) = Vert(i)
         ImpostaGiocata 1,n1,ruote,posta,col
         ImpostaGiocata 2,n,ruote,poste,k
         Gioca es,1
      End If 'Togliere l'apostrofo per la prima o ultima del mese
   Next
   ScriviResoconto
End Sub
 
Ho corretto quello de post #9

Codice:
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
   Dim n(10),ruote(12),poste(5),posta(2),n1(2)
   w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
   x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
   y = InputBox("Quante estrazioni di ricerca?",,500)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   ini = EstrazioneFin - y
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
      If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
         r1 = 1
         r2 = 2
         a = Estratto(es,r1,1)
         b = Estratto(es,r2,3)
         If b > 5 Then
            b = b - 5
         End If
         c = Estratto(es,r2,4)
         If Cadenza(c) = 0 Then
            c = c - 5
         End If
         e = Fuori90(a + b)
         f = Fuori90(a + c)
         g = Differenza(Decina(a),Cadenza(a))
         h = Figura(Estratto(es,r1,3))
         i = Fuori90(g & h)
         ok = 0
         ColoreTesto 1
         casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "> <" & Format2(e),1
         Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "> <" & Format2(f),1
         Scrivi
         ColoreTesto 0
         ruote(1) = r1
         ruote(2) = r2
         'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
         k = x
         col = w
         co = 0
         n1(1) = e
         n1(2) = Vert(e)
         '...
         n(1) = e
         n(2) = Vert(e)
         n(3) = f
         n(4) = Vert(f)
         n(5) = i
         n(6) = Vert(i)
         ImpostaGiocata 1,n1,ruote,posta,col
         ImpostaGiocata 2,n,ruote,poste,k
         Gioca es,1
      End If 'Togliere l'apostrofo per la prima o ultima del mese
   Next
   ScriviResoconto
End Sub
GRAZIE SALVO.
 
perfetto Ciao Oscar lieto di risentirti è un "secolo" fa si lo script va bene l'ho controllato ma è uguale ma senza errore mha...
Ciao Alien non mi vedevi da quando ti avevo dato la mia mail , pur essendo sempre rimato sul forum , eravamo stati ignorati entrambi , io non vedevo te e tu non vedevi mè , me ne sono accorto poco tempo fà , quindi ho rimosso ignora selezionando segui

Presto mi cancello definitivamente per sempre
 
Acc...ed io pensavo che forse ti avevo fatto qualche torto e non ti ho più sentito ma non è il mio caso mha ......senti la mia e mail è stata cancellata da LIBERO non so perchè...ma la tua è oscarglm ecc. Cosa vuoi dire per "sempre" hai problemi di salus ? Un abbraccio.
 
Acc...ed io pensavo che forse ti avevo fatto qualche torto e non ti ho più sentito ma non è il mio caso mha ......senti la mia e mail è stata cancellata da LIBERO non so perchè...ma la tua è oscarglm ecc. Cosa vuoi dire per "sempre" hai problemi di salus ? Un abbraccio.
Ciao Alien no sto benissimo , solo meno tempo
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44

Ultimi Messaggi

Indietro
Alto