| Autore |
 Discussione  |
|
pico2005
Utente Sfegatato
Italy
1653 invii |
 Spedito - 01 novembre 2008 : 11:07:54
|
Sub main()
Scrivi
Scrivi "Ricerca Ambo Consecutivo la cui Somma sia presente su altra ruota in forma isotopa."
Scrivi "Metodo OCCHIDIGIAGA : La mia Triade - elaborato da bentley"
Scrivi
Dim ruota(10),ruote(10)
Dim nu(10),abb(10)
Dim posta(5),poste(5)
posta(1)=1
poste(2)=1
poste(3)=0.5
poste(4)=0.5
tmp=CInt (InputBox ("Quante Estrazioni controllo ?","Controllo Estrazioni - by Bentley",100))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio (es)
k=13
For r=1 To 10
For p=1 To 5
pp=p+1
If p=5 Then pp=1
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
s=(a+b)
If Distanza (a,b)=1 Then
For rr=1 To 10
For q=1 To 5
c=Estratto (es,rr,q)
If c=s And s<90 And (q=p Or q=pp) And r<>rr Then
ruota(1)=r
ruota(2)=rr
ruote(1)=r
ruote(2)=rr
ruote(3)=11
ColoreTesto 2
Scrivi
Scrivi String (80,"*"),1
Scrivi DataEstrazione (es),1
ColoreTesto 1
Scrivi String (80,"_"),1
Scrivi
Scrivi " "& NomeRuota (r)&" "& StringaEstratti (es,r)&space(5)& "Ambo "& a &"."& b&space(3)&"Pos."&p&"-"&pp&space(3)&"Somma Ambo "& s,1
Scrivi " "& NomeRuota (rr)&" "& StringaEstratti (es,rr)&space(5)& s &" trovato isotopo in " & q &" pos. su "& NomeRuota (rr),1
Scrivi String (80,"_"),1
Scrivi
nu(1)=Fuori90 (a+b)
nu(2)=Vert (nu(1))
ImpostaGiocata 1,nu,ruota,posta,k,1
abb(1)=nu(1)
abb(2)=nu(2)
abb(3)=91-a
abb(4)=89-a
abb(5)=91-b
abb(6)=89-b
ImpostaGiocata 2,abb,ruote,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
Next
Scrivi
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi "Metodo: la mia triade - OCCHIDIGIADA - ..by bentley"
End Sub
Questa è la traduzione per L8+ Vers. 5.
Corretto per la posizione 5-1
|
Migliaia di fili d'erba tengon fermo un elefante. |
Modificato da - pico2005 su 01 novembre 2008 11:13:56 |
 |
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 13:41:32
|
grazie pico ne faranno tesoro!!!  |
   |
|
|
|
arcor
Utente Nuovo
8 invii |
Spedito - 02 novembre 2008 : 14:46:41
|
grazie per il listato
saluti arcor |
|
|
|
pico2005
Utente Sfegatato
Italy
1653 invii |
Spedito - 02 novembre 2008 : 16:32:33
|
Salute ARCOR Benvenuto tra noi
 |
Migliaia di fili d'erba tengon fermo un elefante. |
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 18:50:10
|
|
ma questo listato va bene per l8+ 6.1 rev 3 |
|
Modificato da - n/a su 02 novembre 2008 18:50:40 |
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 19:03:36
|
ci ho provato sembra vada bene...ora questo mi da anche le giocate a tutte...e a meno che nn c'e' un errore...questa previsone del 14 10 ha pagato 8 volte a tutte...e' un errore???
mar 14.10.2008 [7973]
G 1: M 29.22 Ca Mi 6/13
M 29 su Mi 6° colpo [7979/28.10.2008]
I6
G 2: ATQ 29.22.76.74.77.75 Ca Mi Tu 7/13
A 76.74 su Tu (Ge) 1° colpo [7974/16.10.2008]
A 76.29 su Tu (Fi) 2° colpo [7975/18.10.2008]
A 75.22 su Tu (Ba) 3° colpo [7976/21.10.2008]
A 74.75 su Tu (Ro) 5° colpo [7978/25.10.2008]
A 74.29 su Tu (Ge) 6° colpo [7979/28.10.2008]
A 75.22 su Ca 7° colpo [7980/30.10.2008]
A 76.74 su Tu (Ba) 7° colpo [7980/30.10.2008]
A 75.22 su Tu (Ca) 7° colpo [7980/30.10.2008]
in corso (7° su 13)
|
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 19:07:27
|
|
nn e' un errore...mah!!!ora capisco perche son rimasti meravigliati di questo metodo...io controllavo solo gli esiti su ruota!! |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 19:11:35
|
|
pero' da questo script....nn c'e' nazionale...e nn mi mi pare che dia tutte le previsioni |
|
|
|
|
n/a
deleted
617 invii |
Spedito - 02 novembre 2008 : 19:28:08
|
Ma questo output di quale listato fa parte?
citazione:
mar 14.10.2008 [7973]
G 1: M 29.22 Ca Mi 6/13
M 29 su Mi 6° colpo [7979/28.10.2008]
I6
G 2: ATQ 29.22.76.74.77.75 Ca Mi Tu 7/13
A 76.74 su Tu (Ge) 1° colpo [7974/16.10.2008]
A 76.29 su Tu (Fi) 2° colpo [7975/18.10.2008]
A 75.22 su Tu (Ba) 3° colpo [7976/21.10.2008]
A 74.75 su Tu (Ro) 5° colpo [7978/25.10.2008]
A 74.29 su Tu (Ge) 6° colpo [7979/28.10.2008]
A 75.22 su Ca 7° colpo [7980/30.10.2008]
A 76.74 su Tu (Ba) 7° colpo [7980/30.10.2008]
A 75.22 su Tu (Ca) 7° colpo [7980/30.10.2008]
in corso (7° su 13)
|
audaces fortuna iuvat
max  |
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 22:47:06
|
quello di bentley che ha corretto pico!!!
pero' nn mi da la nazionale...ed il gioco e' impostato su tutte!!!
sono alle prime armi e puo' darsi che ho fatto qualche errore io!!! |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 22:48:53
|
|
ma se nel programma si chiama script... perche' lo chiamate listato??? |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 02 novembre 2008 : 23:19:43
|
CANZONE DI CADIGIA
(testo di Luisa Zappa, musica di Angelo Branduardi)
volano cinque galline bianche
davanti al mio castello...
e tre corvi lucidi e neri...
ma tu dormi, principe bello...
elios, anemos, tanatos
ma dormi ora figlio mio bello...
dolce e calda la mora ti cullerà
all'inizio di un sogno bello...
buonanotte max!!! |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 11:47:58
|
max...ora ho il programma l8+ ma nn c'ho i listati script o comesichiamano dei miei metodi...questo di bentley nn mi legge nazionale.
ti cucino il pranzo nuziale...dagli antipasti ai dolci...ti preparo la mousse al cioccolato....le mont blanch....ti faccio un alzata di millefoglie di 5 piani...ma dammi una mano!!! |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 12:13:37
|
e in cima alla torta ce metto questi ahahahhahahaha
 |
|
|
|
|
n/a
deleted
617 invii |
Spedito - 03 novembre 2008 : 18:15:15
|
Allora la versione che hai dovrebbe funzionare con la NZ.
Il listato di pico e' fatto solo per 10 ruote
---------------------------
For r=1 To 10 '<<<<
For p=1 To 5
pp=p+1
---------------------------
la giocata 2 e' su le 2 ruote trovate + tutte insieme
Questo sotto e' il listato di pico modificato per funzionare sulla NZ,
la giocata 2 e' solo per le 2 ruote la 3 solo su tutte.
Sub main()
Scrivi
Scrivi "Ricerca Ambo Consecutivo la cui Somma sia presente su altra ruota in forma isotopa."
Scrivi "Metodo OCCHIDIGIAGA : La mia Triade - elaborato da bentley"
Scrivi
Dim ruota(10),ruote(10),ruot(1)
Dim nu(10),abb(10)
Dim posta(5),poste(5)
posta(1)=1
poste(2)=1
poste(3)=0.5
poste(4)=0.5
tmp=CInt (InputBox ("Quante Estrazioni controllo ?","Controllo Estrazioni - by Bentley",100))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio (es)
k=13
For r=1 To 10
For p=1 To 5
pp=p+1
If p=5 Then pp=1
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
s=(a+b)
If Distanza (a,b)=1 Then
For rr=1 To 12
If rr=11 Then rr=12
For q=1 To 5
c=Estratto (es,rr,q)
If c=s And s<90 And (q=p Or q=pp) And r<>rr Then
ruota(1)=r
ruota(2)=rr
ruote(1)=r
ruote(2)=rr
ruot(1)=11
ColoreTesto 2
Scrivi
Scrivi String (80,"*"),1
Scrivi DataEstrazione (es),1
ColoreTesto 1
Scrivi String (80,"_"),1
Scrivi
Scrivi " "& NomeRuota (r)&" "& StringaEstratti (es,r)&space(5)& "Ambo "& a &"."& b&space(3)&"Pos."&p&"-"&pp&space(3)&"Somma Ambo "& s,1
Scrivi " "& NomeRuota (rr)&" "& StringaEstratti (es,rr)&space(5)& s &" trovato isotopo in " & q &" pos. su "& NomeRuota (rr),1
Scrivi String (80,"_"),1
Scrivi
nu(1)=Fuori90 (a+b)
nu(2)=Vert (nu(1))
ImpostaGiocata 1,nu,ruota,posta,k,1
abb(1)=nu(1)
abb(2)=nu(2)
abb(3)=91-a
abb(4)=89-a
abb(5)=91-b
abb(6)=89-b
ImpostaGiocata 2,abb,ruote,poste,k
ImpostaGiocata 3,abb,ruot,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
Next
Scrivi
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi "Metodo: la mia triade - OCCHIDIGIADA - ..by bentley"
End Sub
spero funzioni da te, da me si.
Ciao.
|
audaces fortuna iuvat
max |
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 18:35:59
|
|
evidentemente io nn son capace...poi lo ricontrollo...adesso sto con il portatile e con i capelli ricci |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 18:37:52
|
ma te contattarti in altro modo..no????adesso ho il programma e nn ho gli script dei miei metodi...sto a punto e dacapo!!!!! anche con il programma devo sempre fare i calcoli a mano... |
|
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 18:43:48
|
quasi quasi scrivo a gary e mi faccio dare la tua email...poi ti mando le catene di sant'antonio....ahahahhahahahaha
ciao gnocco a dopo!!! |
|
|
|
|
n/a
deleted
617 invii |
Spedito - 03 novembre 2008 : 19:01:33
|
Fino a qualche mese fa c'erano in rete 3 forum (danilo-ramco-robyca) per imparare a sriptare con L8. Due di questi purtroppo non sono piu' attivi, ne e' rimasto uno. In questo trovi tantissime persone che sono dei maghi con il programma che ti possono aiutare a imparare. Li' trovi anche me con lo stesso nick ed altri che ci sono anche qui.
Se ti interessa ti indico il posto....
|
audaces fortuna iuvat
max |
Modificato da - n/a su 03 novembre 2008 19:07:26 |
|
|
|
n/a
deleted
1108 invii |
Spedito - 03 novembre 2008 : 19:07:01
|
|
posso pure iscrivermi...so' come arrivarci...sfatigato!!!! |
|
|
|
|
Discussione |
|
la mia triade
