CERCASI CON URGENZA TOON

[Alien.]

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


> < & Format2(e),1


grazie.

 

[Pandit]

Io li ho quasi tutti, dimmi quale...
e vedo se scopro il problema...

 

[salvo50]

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ì <>

 

[Alien.]

Ciao salvo ho provato ma non è quello ,
Ciao Pandit 🤣 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.................

 

[Delphi]

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

 

[Osyman]

Anticipazione (Spoiler): guarda se cosi va bene

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

 

[salvo50]

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ì <>

Ho scritto una cavolata

 

[Codicebinario]

Anticipazione (Spoiler): guarda se cosi va bene

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....

 

[Alien.]

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

 

[Osyman]

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.

 

[Pandit]

E' per caso questo?

Anticipazione (Spoiler)

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

 

[Delphi]

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

 

[Alien.]

E' per caso questo?

Anticipazione (Spoiler)

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.

 

[Alien.]

perfetto Ciao Oscar lieto di risentirti è un "secolo" fa si lo script va bene l'ho controllato ma è uguale ma senza errore mha...