per i nostri scripter

LuigiB · 24 Ottobre 2010

ecco lo script corretto.

Esse c'era un erase di troppo durante un ciclo quindi l'array DA veniva eliminato anzitempo

Codice:

Sub main()
	Dim so(4)
	Dim ruote(11)
	Dim rt(8) 
	Dim ruor(6),lun(6)
	ReDim ne(4),num(4),de(4),ca(4)
	Dim SA(6)
	Dim DA(12)
	
	ReDim TS(3),TSC(3) 
	
	Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
	
	Dim nu(2),na(8),na1(8)
	poambata(1) = 1 
	poambo(2) = 1 
	poterno(3) = 1
	poquaterna(4) = 1
	
	
	
	ColoreTesto 2
	Scrivi String(75,"*"),1
	ColoreTesto 0
	Scrivi String(25," ") & "Ambi Simmetrici in decina",1
	ColoreTesto 1
	Scrivi String(15," ") & "°°°esselotto°°° per ***arcor*** LottoCed",1
	ColoreTesto 2
	Scrivi String(75,"*"),1
	ColoreTesto 0
	Scrivi String(75,"_"),1
	Scrivi String(75,"_"),1
	
	
	
	indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","Simmetrici",100))
	If indietro = False Then Exit Sub
	colpis = CInt(InputBox("Colpi di gioco?..","Simmetrici",9))
	If colpis = False Then Exit Sub
	clp = colpis
	co = 0
	ini = EstrazioneFin - indietro
	fin = EstrazioneFin
	
	For es = ini To fin 
		Messaggio "elaborazione. estraz. " &(es)
		
		For r = 1 To 10
			rt(1) = r
			
			For p = 1 To 4
				For pp = p + 1 To 5
					ne(1) = Estratto(es,r,p) 
					ne(2) = Estratto(es,r,pp)
					di1 = Abs(ne(1) - ne(2))
					d1 = Decina(ne(1))
					d2 = Decina(ne(2))
					
					
					If di1 = 3 Or di1 = 6 Then 
						If d1 = d2 Then 
							
							
							
							num(1) = ne(1)
							num(2) = ne(2)
							Call OrdinaMatrice(num,1,1) 
							If di1 = 3 Then man1 = num(1) + 6
							d3 = Decina(man1)
							If d3 <> d1 Then 
								man1 =(num(1) - 3)
								d3 = Decina(man1)
							End If ' If d3 <> d1 Then ...
							If di1 = 6 Then man1 = num(1) + 3
							d3 = Decina(man1) 
							
							com1 =(90 - ne(1))
							com2 =(90 - ne(2))
							com3 =(90 - man1)
							
							TSC(1) = com1
							TSC(2) = com2
							TSC(3) = com3
							
							
							TS(1) = ne(1)
							TS(2) = ne(2)
							TS(3) = man1
							
							
							
							t1 = 0
							t2 = 0
							For rr = 1 To 10
								If rr <> r Then 
									k = p
									kk = pp
									a = Estratto(es,rr,k) 
									b = Estratto(es,rr,kk)
									If a = ne(1) Or a = ne(2)Or a = man1 Then t1 = 1
									ruos = rr
									ne(3) = a 'rilevo isotopismo
									If b = ne(1) Or b = ne(2)Or b = man1 Then t1 = 1
									ruos = rr
									ne(3) = b
									If a = com1 Or a = com2 Or a = com3 Then t2 = 1
									ruot = rr
									ne(4) = a 
									If b = com1 Or b = com2 Or b = com3 Then t2 = 1
									ruot = rr
									ne(4) = b
									
									
									If t1 = 1 And t2 = 1 Then 
										t1 = 0
										t2 = 0
										'''' inizio calcolo 
										
										'''''' ordino le due matrici
										Call OrdinaMatrice(TS,1)
										Call OrdinaMatrice(TSC,1)
										s1 = Fuori90(TS(1) + TS(2))
										SA(1) =(90 - s1)
										Call Scrivi (DA(1))
										DA(1) =(TS(1) - SA(1)) 
										DA(2) =(TS(2) - SA(1))
										s2 = Fuori90(TS(1) + TS(3))
										SA(2) =(90 - s2)
										DA(3) =(TS(1) - SA(2)) 
										DA(4) =(TS(3) - SA(2))
										s3 = Fuori90(TS(2) + TS(3))
										SA(3) =(90 - s3)
										DA(5) =(TS(2) - SA(3)) 
										DA(6) =(TS(3) - SA(3))
										
										s4 = Fuori90(TSC(1) + TSC(2))
										SA(4) =(90 - s4)
										DA(7) =(TSC(1) - SA(4)) 
										DA(8) =(TSC(2) - SA(4))
										s5 = Fuori90(TSC(1) + TSC(3))
										SA(5) =(90 - s5)
										DA(9) =(TSC(1) - SA(5)) 
										DA(10) =(TSC(3) - SA(5))
										s6 = Fuori90(TSC(2) + TSC(3))
										SA(6) =(90 - s6)
										DA(11) =(TSC(2) - SA(6)) 
										DA(12) =(TSC(3) - SA(6))
										For j = 1 To 12 
											If DA(j) < 1 Then DA(j) = DA(j) + 90
										Next 
										Call OrdinaMatrice(DA,1)
										EliminaRipetuti(DA) 
										StringaNumeri(DA) 
										ss = 0
										For j = LBound(DA) To UBound(DA)
											If DA(

scoglio2 · 24 Ottobre 2010

che nessuno si offenda .....sei un grande luigi

fillotto · 25 Ottobre 2010

Ho letto e messo sul blocco note per poi riversarlo sull'editor (si dice così?) di spaziometria script il su lavoro di Luigi , una faticaccia per copiarlo su blocco note ,a piccoli pezzi alla volta, in quanto solo così riuscivo senza essere sbattuto fuori da lottoced (a questo punto considerato che il mio precedente post " Che cosa ho combinato?" non ha avuto risposte , avessi qualche virus?)
Comunque sia dopo parecchi tentativi sono riuscito a copiarlo e farlo girare !!
Sono perplesso x il risultato:
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 56 |
| Casi vincenti : 30 |
| Percentuale pos. : 53,57 % |
| Giocate in corso : 6 |
| Giocate terminate : 106 |
| Bollette giocate : 1.884 |
| Bollette vincenti : 56 |
| Attesa media : 3 |
| Spesa : 1.884,00 € |
| Vincita : 931,26 € |
| Guadagno : -952,74 € |
| Perc. Rendimento : -50,57 % |
| Estratto su ruota : 92 |
| Estratto su tutte : 18 |
| Ambo su ruota : 52 |
| Ambo su tutte : 18 |
| Terno su ruota : 4 |
| Terno su tutte : 6 |
+---------------------------------------+

non è affatto incoraggiante, è pur vero che non è un metodo che io Chiamo FURBO cioè che va a vedere a ritroso una cosa che è già nota tipo, per intenderci quello che ho provato io e che si intravede nel post " Che cosa ho combinato?" in questo script che riscrivo di seguito il guadagno è positvo ma rappresenta una FURBATA in quanto
so già che andata cosi perchè prima l'ho fatto sempre con il programma di Luigi con l'autocomposizione del metodo sommativo eil portarlo su script l'ho preso come eseercitazione ecco il listato :

Sub main()
' in effetti l'ho tratto dal sommativo automatico del programma
Dim rt(1) 'la ruota è una(1)
Dim nr(2) ' i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'estratto(1)

pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una(1) è 1 ovvero BA
k = 5 ' i Kolpi in gioco sono 5
For n = 7788 To EstrazioneFin
If IndiceMensile

= 1 Then
ng = 0
nr(1) = Fuori90(Estratto(n,1,4) + 21)'1° numero
nr(2) = Fuori90(Estratto(n,1,4) + 49)' 2° numero

ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la
' stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 38 |
| Casi vincenti : 28 |
| Percentuale pos. : 73,68 % |
| Giocate in corso : 0 |
| Giocate terminate : 38 |
| Bollette giocate : 140 |
| Bollette vincenti : 28 |
| Attesa media : 3 |
| Spesa : 140,00 € |
| Vincita : 152,66 € |
| Guadagno : 12,66 €
| Perc. Rendimento : 9,04 % |
| Estratto su ruota : 29 |
| Ambo su ruota : 1 |
+---------------------------------------+

Un metoto che io non considero furbo è il seguente è semplice positivo e si basa non su una cosa che è già nota ma su un'intuizione è commentato spero di essere chiaro:
Sub main()
'vede se il 1° di bari è = vertibile del 5° di venezia
Dim rt(2),pta(2),nr(2) ' le ruote sono 2
'pta significa faccio la puntata "Ambo"(2) puntate,nr significa che i numeri sono 2
ex = InputBox("Quante estrazioni contr

esselotto · 25 Ottobre 2010

quote:Originally posted by esselotto

La prossima volta lo posto in visal basic

intendevo senza usare le funzioni di spaziometria e L8
tipo fuori90 diametrale ecc.................

esselotto · 25 Ottobre 2010

PER LUIGI

Scusa luigi ma quell'errore indicato da SCOGLIO
Sulla mia versione non lo rileva Come mai?

Vi posto il risultato della mia versione
Forse saranno sbagliati i rilevamenti
le giocate ma non errore sullo script
per questo ho detto di controllare.

esselotto · 25 Ottobre 2010

Codice:

***************************************************************************
                         Ambi Simmetrici in decina
               °°°esselotto°°° per ***arcor*** LottoCed
***************************************************************************
___________________________________________________________________________
___________________________________________________________________________
***************************************************************************Caso 1
---------------------------------------------------------------------------
01.12.2009( FI ) - [ 66.72.09.41.78 ] 
01.12.2009( BA ) - [ 12.72.61.64.18 ] 
01.12.2009( BA ) - [ 12.72.61.64.18 ] 
Ambi Rilevati     [ 72 78 ]  [ 72 18 ]  pos < 2° 5°  > 

Terz. Simmetrica in dec.   [ 72  78  75 ]
Terz. Simmetrica complem.  [ 18  12  15 ]
Numeri da verificare --->39.42.48.51
In Data ( 19.12.2009 ) al 8° colpo Rilevati Numeri-->  39  48 Ruota di NA
1
Estrazione generatrice del pronostico 08151 [144 - 01/12/2009]
G 0001
Numeri in gioco : 72.75.78.12.15.18 su BA FI NA per Ambo
  N. [72.75.78.12.15.18             ] [BA]     [.. .. .. .. ..] C.   1            08160 [153 - 22/12/2009]
  N. [72.75.78.12.15.18             ] [FI]     [.. .. .. .. ..] C.   1            08160 [153 - 22/12/2009]
  N. [72.75.78.12.15.18             ] [NA]     [.. .. .. .. ..] C.   1            08160 [153 - 22/12/2009]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 72.75.78.12.15.18 su TT per Terno
  N. [72.75.78.12.15.18             ] [TT] [RM][.. .. .. 18 ..] C.   1 Estratto   08160 [153 - 22/12/2009]
Interrotta per raggiunta durata

***************************************************************************Caso 2
---------------------------------------------------------------------------
09.12.2009( VE ) - [ 66.83.89.19.80 ] 
09.12.2009( TO ) - [ 42.89.20.59.78 ] 
09.12.2009( MI ) - [ 73.18.07.47.04 ] 
Ambi Rilevati     [ 83 89 ]  [ 89 07 ]  pos < 2° 3°  > 

Terz. Simmetrica in dec.   [ 83  89  83 ]
Terz. Simmetrica complem.  [ 07  01  07 ]
Numeri da verificare --->09.15.21.69.75.81
In Data ( 10.12.2009 ) al 1° colpo Rilevati Numeri-->  21  81 Ruota di FI
In Data ( 10.12.2009 ) al 1° colpo Rilevati Numeri-->  21  81 Ruota di RM
2
Estrazione generatrice del pronostico 08154 [147 - 09/12/2009]
G 0001
Numeri in gioco : 83.83.89.01.07.07 su FI MI RM TO VE per Ambo
  N. [83.83.89.01.07.07             ] [FI]     [.. .. .. .. ..] C.   1            08156 [149 - 12/12/2009]
  N. [83.83.89.01.07.07             ] [MI]     [.. .. .. .. 01] C.   1 Estratto   08156 [149 - 12/12/2009]
  N. [83.83.89.01.07.07             ] [RM]     [.. .. .. .. 07] C.   1 Estratto   08156 [149 - 12/12/2009]
  N. [83.83.89.01.07.07             ] [TO]     [.. .. .. .. ..] C.   1            08156 [149 - 12/12/2009]
  N. [83.83.89.01.07.07             ] [VE]     [.. .. 89 .. ..] C.   1 Estratto   08156 [149 - 12/12/2009]
  N. [83.83.89.01.07.07             ] [FI]     [.. .. .. .. ..] C.   2            08157 [150 - 15/12/2009]
  N. [83.83.89.01.07.07             ] [MI]     [.. .. .. .. ..] C.   2            08157 [150 - 15/12/2009]
V N. [83.83.89.01.07.07             ] [RM]     [01 .. .. 07 ..] C.   2 Ambo       08157 [150 - 15/12/2009]
  N. [83.83.89.01.07.07             ] [TO]     [.. .. .. .. ..] C.   2            08157 [150 - 15/12/2009]
  N. [83.83.89.01.07.07             ] [VE]     [.. .. .. .. ..] C.   2            08157 [150 - 15/12/2009]
  N. [83.83.89.01.07.07             ] [FI]     [.. .. .. .. ..] C.   3            08158 [151 - 17/12/2009]
  N. [83.83.89.01.07.07             ] [MI]     [.. 07 .. .. ..] C.   3 Estratto   08158 [151 - 17/12/2009]
  N. [83.83.89.01.07.07             ] [RM]     [.. .. .. .. ..] C.   3            08158 [151 - 17/12/2009]
  N. [83.83.89.01.07.07             ] [TO]     [.. .. .. .. ..] C.   3            08158 [151 - 17/12/2009]
  N. [83.83.89.01.07.07             ] [VE]     [.. 89 .. .. ..] C.   3 Estratto   08158 [151 - 17/12/2009]
  N. [83.83.89.01.07.07

esselotto · 25 Ottobre 2010

Questo E' ciò che rilevava lo script prima di postarlo

Dov'è lerrore?

non è l'errore che indica Scoglio.....

esselotto · 25 Ottobre 2010

io uso una versione scaricata prelevata da questo forum

ho già scritto Versione 1.1.8

esselotto · 25 Ottobre 2010

La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

LuigiB · 25 Ottobre 2010

ciao Esse , non so cosa sia capitato pero sono sicuro che se copi e incolli lo script preso dal forum prima della mia modifica da proprio l'errore segnalato da scoglio.

L'errore era dovuto ad un array , l'array DA che veniva eliminato dall'Erase (che io ho remmato).
' giusto cancellare dalla memoria gli array pero poi nello script l'array DA veniva riutilizzato è per quello che dava errore.
Andava fatto l'erase eventualmente al di fuori del ciclo.

esselotto · 25 Ottobre 2010

Allora luigi io ti spiego.
Dopo che posto qualcosa di mio.
specialmente, script che ho scritto per il forum

Vado su
Internet Explorer
File
Salva con nome

Quindi dopo che ho postato lo script
ho fatto salva con nome quindi ho salvato la pagina
sul mio computer

il copia incolla, lo fatto dalla pagina salvata.
ho incollato su spaziometria 1.1.8
il risultato è quello che ho postato.

Forse sbaglia imposta giocate ma non da quell'errore.

°°°esselotto°°°

esselotto · 25 Ottobre 2010

forse è meglio controllare la versione del programma che ha usato
scoglio.

scoglio2 · 25 Ottobre 2010

esselotto con la modifica di luigi lo script gira prima no non è il programma
ciao

LuigiB · 25 Ottobre 2010

ciao Essse non metto assolutamente in dubbio, potresti verificare se nello script che hai tu e che ti gira è presente l'istruzione Erase
come da codice che riporto ?

Codice:

 										ImpostaGiocata 1,na,rt,poambo,clp,0,q
										ImpostaGiocata 2,na,ruote,poterno,clp,0,q
										
										
										
										Gioca es
										Erase ruor
										Erase lun 
								----->	'Erase DA
										
									End If ' If cr > 0 Then ...
								End If ' If rr <> r Then ...
							End If ' If d1 = d2 Then ...
							
						Next

esselotto · 26 Ottobre 2010

Codice:

il mio è cosi'


ImpostaGiocata 1,na,rt,poambo,clp,0,q
ImpostaGiocata 2,na,ruote,poterno,clp,0,q



Gioca es
Erase ruor    <-------- questo l'ho aggiunto dopo richiesta di miky vedi 1° pagina Script per L8
Erase lun 
Erase DA

End If
End If
End If

Next   

End If
End If
Next
Next
Next
Next 
ScriviResoconto 

ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Ambi simmetrici in decina",1
Scrivi"Autore...* (arcor)",1

End Sub

Ne ho fatti di errori sui miei script, e nessuno si e preso la briga
di rispondermi tranne il mio primo script (Metodo 9+9 fatto ad un utente di questo forum). Errori che si

commettono, quando si programma uno script,la fretta,
e il non controllare esiti alla fine del lavoro.
Infatti in ogni mio script, ho sempre chiesto, di verificarne la sua funzionalità. (esiti compresi).
Pensando che, chiunque chiedesse, uno script di un metodo. Avesse di sicuro fatto qualche prova con carta e
penna. Per poi verificarlo, con il risultato dello script.

esselotto · 26 Ottobre 2010

Per Scoglio........e luigiB

Vedendo che il programma spaziometria è in fase di miglioramento.
vedi diametrali decina. Allora mi sono permesso di pensare e dire <<forse è la copia del programma che non và>>

Non era questo il punto, che volevo chiarire.

La domanda è questa............................
da dove salta fuori quella schermata di scoglio ??????????????????????????????????????????

Se la copia del suo programma funziona.................

Posso rispondere io per lui.(ipoteticamente) e senza offesa per nessuno

il sig. Scoglio, ha usato un'editor di immagini, fatto un cattura immagine del primo script.
E dopo quando ho rimodificato per spaziometria.
lui non l'ha neanche controllato.

esselotto · 26 Ottobre 2010

Per Lugi e chi legge

So cosa significa, creare un programma (software), come Spaziometria.
le difficolta che si incontrano.

Trasformare idee, in linguaggio macchina.
migliorare i blocchi di codice (sub, ecc...eccc..) prima di renderlo eseguibile.
Farlo girare, con varie versioni di sisteme (windows xp vista. Linux)
e macchine diverse.

riscrivere un codice, perchè sbagliato, e ricompilarne il suo eseguibile. ecc.ecc......

Quando indico, uno sbaglio, non voglio mettere in discussione, la bravura e professionalità
di LuigiB. Anzi un software editor gratuito, non è cosa da poco.

come gia spiegato, su un post di Agosto. Funziona come per la Microsoft.

Schermata ERRORE

...............pulsante......INVIA SEGNALAZIONE.

E' soltanto uno script. Non ha nessun valore, per cui vale la pena, discuterne cosi a lungo.
Con questo chiudo io, il post di questo Forum. (anche se non sono, il giudice di Rete4

)
ringraziando anch'io luigiB.

Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia
iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

per i nostri scripter

Super member

LuigiB

Guest

Super member

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

LuigiB

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Super member

LuigiB

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<