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ì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto