Ho scritto una cavolataCiao 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ì <>
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....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
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 |
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.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....
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
CIAO NO,PANDIT MI SI è IMPALLATO ho aspettato 15 minuti ma nulla.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