Novità

gentilmente qualcuno ha questo script?

J

janez57

Super Member >GOLD<
Buon giorno a tutti/e.

Gentilmente qualcuno ha questo script?oppure lo può sviluppare.

Si prende 2 numeri isotopi uno in una ruota ed uno in un'altra con distanza 45. poi il numero pari si divide per 2 il risultato si aggiunge al numero dispari e la somma si mette in gioco con il suo vertibile per massimo 9 colpi.
Faccio un esempio:estrazione del 02/11/11 firenze in quinta posizione 43 palermo in quinta posizione 88 i due numeri sono di distanza 45,Per cui dobbiamo dividere il numero pari 88:2=44 ora IL 44 LO SOMMIAMO AL 43=87 METTIAMO IN GIOCO 87 ED IL SUO VERTIBILE 78.
ESITO AL PRIMO COLPO 87A FIRENZE.
Ringrazio anticipamente se qualcuno può soddisfare la mia richiesta.

JANEZ57
 
C

claudio8

Premium Member
Controllare sempre gli esiti in output

Codice: 
Sub Main()
	Dim ru(2)
	Dim ambata(2)
	Dim posta(5)
	posta(1) = 1
	posta(2) = 1
	co = 0
	ini = EstrazioneFin - 20
	fin = EstrazioneFin
	For es = ini To fin
		For p = 1 To 5
			For r = 1 To 10
				For rr = r + 1 To 12
					If rr = 11 Then rr = 12 End If
					a = Estratto(es,r,p)
					b = Estratto(es,rr,p)
					If Distanza(a,b) = 45 Then
						co = co + 1
						If pari(a) = True Then
							mezzo_pari = a/2
							ambata(1) = Fuori90(mezzo_pari + b)
							ambata(2) = Vert(ambata(1))
						Else
							mezzo_pari = b/2
							ambata(1) = Fuori90(mezzo_pari + a)
							ambata(2) = Vert(ambata(1))
						End If
						Scrivi "----------------------------------------------------------------------------------------------------------------------"
						ColoreTesto 1
						Scrivi " Trovati isotopi : " & a & "-" & b & " distanza 45 -- mezzopari = " & mezzo_pari & " somma = " & ambata(1) & _
						" su " & NomeRuota(r) & "  " & StringaEstratti(es,r) & " e " & NomeRuota(rr) & " " & StringaEstratti(es,rr) & " caso n. " & co
						ColoreTesto 0
						ru(1) = r
						ru(2) = rr
						ImpostaGiocata 1,ambata,ru,posta,15
						Gioca es,True,,2 'sostituisci True con False se vuoi vedere tutti i 15 colpi
					End If
				Next
			Next
		Next
	Next
	ColoreTesto 1
	Scrivi
	Scrivi " CASI TROVATI : " & co
	ColoreTesto 0
	ScriviResoconto
	TestoInBandaPassante "script by claudio8 x janez57  [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=139508[/url] - script by claudio8 x janez57  http://forum.lottoced.com/topic.asp?TOPIC_ID=139508",1,2,3
	ColoreTesto 0
End Sub


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
J

janez57

Super Member >GOLD<
Buongiorno Sig.Claudio8
Gentilmente mi potrebbe fare una piccola modifica allo script da lei gentimente messomi a disposizione.Al posto del vertibile mi può modificarlo con la somma del numero diviso,le faccio esempio come sopra però con la modifica.
Si prende 2 numeri isotopi uno in una ruota ed uno in un'altra con distanza 45. poi il numero pari si divide per 2 il risultato si aggiunge al numero dispari e la somma si mette in gioco con l'altra somma tra il numero pari ed il suo divisore, per massimo 9 colpi.

Faccio un esempio:estrazione del 02/11/11 firenze in quinta posizione 43 palermo in quinta posizione 88 i due numeri sono di distanza 45,Per cui dobbiamo dividere il numero pari 88:2=44 ora IL 44 LO SOMMIAMO AL 43=87 prima ambata,poi facciamo 44+88=132-90=42 seconda ambata.
CHIEDO VENIA PER QUESTA MIA ULTERIORE RICHIESTA.
ESITO AL PRIMO COLPO 87 A FIRENZE.
LA Ringrazio anticipamente se può soddisfare la mia richiesta.

JANEZ57
 
B

Baffoblu

Guest
quote:Originally posted by janez57

Buongiorno Sig.Claudio8
Gentilmente mi potrebbe fare una piccola modifica allo script da lei gentimente messomi a disposizione.Al posto del vertibile mi può modificarlo con la somma del numero diviso,le faccio esempio come sopra però con la modifica.
Si prende 2 numeri isotopi uno in una ruota ed uno in un'altra con distanza 45. poi il numero pari si divide per 2 il risultato si aggiunge al numero dispari e la somma si mette in gioco con l'altra somma tra il numero pari ed il suo divisore, per massimo 9 colpi.

Faccio un esempio:estrazione del 02/11/11 firenze in quinta posizione 43 palermo in quinta posizione 88 i due numeri sono di distanza 45,Per cui dobbiamo dividere il numero pari 88:2=44 ora IL 44 LO SOMMIAMO AL 43=87 prima ambata,poi facciamo 44+88=132-90=42 seconda ambata.
CHIEDO VENIA PER QUESTA MIA ULTERIORE RICHIESTA.
ESITO AL PRIMO COLPO 87 A FIRENZE.
LA Ringrazio anticipamente se può soddisfare la mia richiesta.

JANEZ57
Clicca per espandere...


Vedi se così ti va bene, se no aspetta claudio che è sicuramente più esperto di me.



Sub Main()
Dim ru(2)
Dim ambata(2)
Dim posta(5)
posta(1) = 1
posta(2) = 1
co = 0
ini = EstrazioneFin - 20
fin = EstrazioneFin
For es = ini To fin
For p = 1 To 5
For r = 1 To 10
For rr = r + 1 To 12
If rr = 11 Then rr = 12 End If
a = Estratto(es,r,p)
b = Estratto(es,rr,p)
If Distanza(a,b) = 45 Then
co = co + 1
If pari(a) = True Then
mezzo_pari = a/2
ambata(1) = Fuori90(mezzo_pari + b)
ambata(2) = Fuori90(mezzo_pari + a)
Else
mezzo_pari = b/2
ambata(1) = Fuori90(mezzo_pari + a)
ambata(2) = Fuori90(mezzo_pari + b)
End If
Scrivi "----------------------------------------------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi " Trovati isotopi : " & a & "-" & b & " distanza 45 -- mezzopari = " & mezzo_pari & " somma = " & ambata(1) & _
" su " & NomeRuota(r) & " " & StringaEstratti(es,r) & " e " & NomeRuota(rr) & " " & StringaEstratti(es,rr) & " caso n. " & co
ColoreTesto 0
ru(1) = r
ru(2) = rr
ImpostaGiocata 1,ambata,ru,posta,15
Gioca es,True,,2 'sostituisci True con False se vuoi vedere tutti i 15 colpi
End If
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi " CASI TROVATI : " & co
ColoreTesto 0
ScriviResoconto
TestoInBandaPassante "script by claudio8 x janez57 http://forum.lottoced.com/topic.asp?TOPIC_ID=139508 - script by claudio8 x janez57 http://forum.lottoced.com/topic.asp?TOPIC_ID=139508",1,2,3
ColoreTesto 0
End Sub
 
C

claudio8

Premium Member
quote:Originally posted by Baffoblu

quote:Originally posted by janez57

Buongiorno Sig.Claudio8
Gentilmente mi ......divisore, per massimo 9 colpi.

LA Ringrazio anticipamente se può soddisfare la mia richiesta.

JANEZ57
Clicca per espandere...

Vedi se così ti va bene, se no aspetta claudio che è sicuramente più esperto di me.
Clicca per espandere...

Un benvenuto al Pirata Baffoblu tra gli scriptatori.

JANEZ57, x questa modifica il ringaziamento va al new entry
Ciao
 
B

Baffoblu

Guest
quote:Originally posted by claudio8

quote:Originally posted by Baffoblu

quote:Originally posted by janez57

Buongiorno Sig.Claudio8
Gentilmente mi ......divisore, per massimo 9 colpi.

LA Ringrazio anticipamente se può soddisfare la mia richiesta.

JANEZ57
Clicca per espandere...

Vedi se così ti va bene, se no aspetta claudio che è sicuramente più esperto di me.
Clicca per espandere...

Un benvenuto al Pirata Baffoblu tra gli scriptatori.

JANEZ57, x questa modifica il ringaziamento va al new entry
Ciao
Clicca per espandere...



Prima o poi dovevo imparare anchio, ma sono solo lo scriptatore della domenica e in quello script ho modificato solo due linee, niente in confronto a quei capolavori che postate.

Sono contento per janez57 e lo ringrazio.


Adesso pero voglio sapere come cavolo fate a postare lo script formattato, io ci ho provato copiandolo direttamente da spazioscript, ma evidentemente c'è qualcosa che non so!

Come fate?
 
C

claudio8

Premium Member
Devi incollare nell'insert code "pulsante con il # " ------ [co.e] in questo spazio [/co.e] come se
dovessi inserire una immagine. (il testo co.e = code)
Se lo script non è formattato, puoi farlo precedentemente in
automatico usando il comando "Autofornmattazione codice" presente nella pag. degli script alla sx di Funzioni .

Ti consglio ( anche a tutti i postatori e lettori discript) di usarlo sempre nella pagina degli
script perche, inserendo la indentatura ti aiuta molto a ricostruire e capire il funzionamento dello script.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
C

claudio8

Premium Member
Ti rammento che esistone delle videolezioni fatte la Luigi sia per VBscript che per il VB6 :D:D scegli tu da dove iniziare.:D:D
noi possiamo anche supportarti .... moralmente.

claudio
 
F

Franco.B

Junior Member
Esempio 1 2 3 4 Itervallo
0 1 1 0 Dati
La formula che mi calcoli la differenza tra un dato e l altro

1 2 3 4 Sono celle A1 a D1
0 1 1 0 Sono celle A2 a D2 la formula da applicare nella cella E2

Speo di avermi spiegato
 
B

Baffoblu

Guest
quote:Originally posted by claudio8

Devi incollare nell'insert code "pulsante con il # " ------ [co.e] in questo spazio [/co.e] come se
dovessi inserire una immagine. (il testo co.e = code)
Se lo script non è formattato, puoi farlo precedentemente in
automatico usando il comando "Autofornmattazione codice" presente nella pag. degli script alla sx di Funzioni .

Ti consglio ( anche a tutti i postatori e lettori discript) di usarlo sempre nella pagina degli
script perche, inserendo la indentatura ti aiuta molto a ricostruire e capire il funzionamento dello script.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
Clicca per espandere...


Grazie, avevo già dato uno sguardo a tutto quello che hai accennato, e mi mancava giusto questa cosa.

Ciao


Adesso faccio una prova qui

Codice: 
Sub Main()
	Dim ru(2)
	Dim ambata(2)
	Dim posta(5)
	posta(1) = 1
	posta(2) = 1
	co = 0
	ini = EstrazioneFin - 20
	fin = EstrazioneFin
	For es = ini To fin
		For p = 1 To 5
			For r = 1 To 10
				For rr = r + 1 To 12
					If rr = 11 Then rr = 12 End If
					a = Estratto(es,r,p)
					b = Estratto(es,rr,p)
					If Distanza(a,b) = 45 Then
						co = co + 1
						If pari(a) = True Then
							mezzo_pari = a/2
							ambata(1) = Fuori90(mezzo_pari + b)
							ambata(2) = Fuori90(mezzo_pari + a)
						Else
							mezzo_pari = b/2
							ambata(1) = Fuori90(mezzo_pari + a)
							ambata(2) = Fuori90(mezzo_pari + b)
						End If
						Scrivi "----------------------------------------------------------------------------------------------------------------------"
						ColoreTesto 1
						Scrivi " Trovati isotopi : " & a & "-" & b & " distanza 45 -- mezzopari = " & mezzo_pari & " somma = " & ambata(1) & _
						" su " & NomeRuota(r) & " " & StringaEstratti(es,r) & " e " & NomeRuota(rr) & " " & StringaEstratti(es,rr) & " caso n. " & co
						ColoreTesto 0
						ru(1) = r
						ru(2) = rr
						ImpostaGiocata 1,ambata,ru,posta,15
						Gioca es,True,,2 'sostituisci True con False se vuoi vedere tutti i 15 colpi
					End If
				Next
			Next
		Next
	Next
	ColoreTesto 1
	Scrivi
	Scrivi " CASI TROVATI : " & co
	ColoreTesto 0
	ScriviResoconto
	TestoInBandaPassante "script by claudio8 x janez57 [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=139508[/url] - script by claudio8 x janez57 http://forum.lottoced.com/topic.asp?TOPIC_ID=139508",1,2,3
	ColoreTesto 0
End Sub




ohhh!, è anche più bello visto così.:D
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto