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
 
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 !!!"
 
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
 
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
 
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
 
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?
 
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 !!!"
 
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
 
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
 
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
    giovedì 13 novembre 2025
    Bari
    32
    65
    71
    85
    34
    Cagliari
    57
    35
    60
    27
    59
    Firenze
    25
    69
    54
    55
    03
    Genova
    02
    18
    53
    83
    79
    Milano
    19
    02
    60
    13
    83
    Napoli
    87
    35
    78
    04
    69
    Palermo
    46
    40
    55
    25
    71
    Roma
    14
    23
    28
    62
    01
    Torino
    78
    08
    04
    03
    63
    Venezia
    41
    17
    16
    49
    42
    Nazionale
    83
    08
    03
    67
    86
    Estrazione Simbolotto
    Torino
    20
    44
    35
    10
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto