-
circle77.
User deleted
ciao a tutti belli e brutti
ricordo che se avete bisogno di qualche script, la sezione è disponibile (nel limite del possibile, dato che non siamo geni)
chiedo aiuto a mister J-Gio e all'espertutto 90Thefear o chi volesse
ho fatto uno script da un vecchio listato e ho cercato di
portarlo in spazioscript, ma c'è qualcosa che non mi convince
tutto funziona, ma oltre a prendermi quelle giuste,
me ne prende anche tante altre...
ho fatto delle controprove, ma ho piu dubbi di prima.
l'originale è questo, ho dubbi sulle linee di codice fra i due listati
quelle riquadrate in rosso.
grazie
. -
.
Ciao,
qualcosina con quei linguaggi l'avevo fatto ma saranno passati 30-40 anni (quasi sufficienti alla mia smemoratezza)!
Sono un metodo molto semplice l'unica cosa difficile è sostituire "Then 330"
oppure "GoTo" perché con Spaziometria non sono previsti istruzioni e salti nel programma
ad una specifica linea di codice (che peraltro non hanno numerazione).
Prova ad inviarmi il codice così vedo se riesco a convertirlo.
Edited by J-Gio91 - 8/2/2020, 18:26. -
90TheFear.
User deleted
ti avevo già accennato, quando mi facesti vedere un altro listato simile
che non sempre ti girerà su spazioscript se non fai le adeguate modifiche.
dando uno sguardo ti dico che MOD 9 non mi è nuovo, ma è passato troppo tempo
e non mi ricordo esattamente cosa faccia (cè una divisione di mezzo, ma non solo)
l'altro listato INT se non ricordo male ti chiede il numero intero senza i decimali per intenderci.
ma dovresti già saperle queste cose...o no
altro non mi viene e per il resto non saprei
ciao. -
circle77.
User deleted
grazie
grazie a 90Thefear che saluto
ho fatto lo script, lo mofificato piu volte e poi lo lasciato così.
poi ho messo un accorgimento grafico a video per rendermi conto ma vedo incongruenze
fra quello che dovrebbero dire i listati e quello che ne esce fuori
mi son venuti piu dubbi di prima
ho sbagliato sicuramente qualcosa che non vedo come gli occhiali su la testa
oppure i listati, booo, forse hanno qualcosa che non va, (molti hanno errata corrige...i sbagli sembravano routine)
penultimo e ultimo caso, esposto nella statistica sul giornaleCODICE°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°31
13.08.1994 -- BA - 41.30.39.56.66
13.08.1994 -- CA - 14.51.39.21.48
** Ambata : 78
Se questo N° [0] è questo N° [0] Sono Uguali La previsione è valida !
Attenzione !
In caso questo N° [0] è ZERO La Previsione NON è Valida !
Se questo N° [7] è questo N° [7,09090909090909] Sono Uguali La previsione NON è valida !
********************************************************************************
Estrazione generatrice del pronostico 06449 [ 33 - 13/08/1994]
G 0001 Numeri in gioco : 78 su BA CA per Estratto
V N. [78 ] [BA] [.. 78 .. .. ..] C. 3 Estratto 06452 [ 36 - 03/09/1994]
Interrotta per esito verificato
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°41
22.10.1994 -- BA - 49.31.58.87.30
22.10.1994 -- CA - 13.41.49.18.64
** Ambata : 17
Se questo N° [0] è questo N° [0] Sono Uguali La previsione è valida !
Attenzione !
In caso questo N° [0] è ZERO La Previsione NON è Valida !
Se questo N° [1] è questo N° [1,54545454545455] Sono Uguali La previsione NON è valida !
********************************************************************************
Estrazione generatrice del pronostico 06459 [ 43 - 22/10/1994]
G 0001 Numeri in gioco : 17 su BA CA per Estratto
V N. [17 ] [BA] [.. .. .. .. 17] C. 3 Estratto 06462 [ 46 - 12/11/1994]
Interrotta per esito verificato
questa è la presentazione del metodo, ma non dice nulla in fatto di calcoli da fare
questo è lo scriptCODICESub Main()
' Ambata Rapida di Gaetano Toti
Dim es Dim Ini
Dim Fin
Dim ruote(10)
Dim posta(10)
Dim r1,r2,a,b,k,k1,k2,k3,k4,k5,k6,k7,co,ok,c1,c2,c3,c4,c5,c6,c7,c8,c1b,c5b,k1b,k5b
Dim isi
Dim k
Dim am(1)
posta(1) = 1
r1 = 1
r2 = 2
isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))' ho impostato fine range a 06469 per vedere le ultime prev. giuste del giornale
k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - isi
Fin = EstrazioneFin
co = 0
ok = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
ruote(2) = r2
a = Estratto(es,r1,3)
b = Estratto(es,r2,3)
c1 = a / 9
c1b = c1 * 10
c2 = Decina(c1b)
c3 = c1 * 9
c4 = a - c3
c5 = b / 9
c5b = c5 * 10
c6 = Decina(c5b)
c7 = c5 * 9
c8 = b - c7
k = Fuori90(a + b)
k1 = k /10
k1b = k1 * 10
k2 = Decina(k1b)
k3 = k1 * 10
k4 = k - k3
If k4 = 0 Then
ok = 0
End If
k5 = k / 11
k5b = k5 * 10
k6 = Decina(k5b)
k7 = k / 11
If k6 = k7 Then
ok = 0
End If
If k < 17 Then
ok = 0
End If
If c4 = c8 Then
ok = 1
am(1) = k
End If
If ok = 1 Then
ruote(1) = r1
ruote(2) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
Scrivi " ** " & " Ambata : " & k,1
Scrivi "Se questo N° [" & c4 & "] è questo N° [" & c8 & "] Sono Uguali La previsione è valida !",1
Scrivi " Attenzione !",1
Scrivi "In caso questo N° [" & k4 & "] è ZERO La Previsione NON è Valida !",1
Scrivi "Se questo N° [" & k6 & "] è questo N° [" & k7 & "] Sono Uguali La previsione NON è valida !",1
Scrivi String(80,"*"),1
ImpostaGiocata 1,am,ruote,posta,k,1
Gioca es,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" SCRIPT BY CIRCLE77 "),1,3,0
ScriviResoconto
End Sub.