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
    giovedì 06 giugno 2024
    Bari
    04
    26
    13
    81
    75
    Cagliari
    12
    27
    33
    64
    89
    Firenze
    61
    20
    75
    17
    02
    Genova
    27
    18
    35
    41
    03
    Milano
    50
    16
    26
    66
    73
    Napoli
    29
    08
    10
    17
    86
    Palermo
    14
    90
    39
    76
    65
    Roma
    43
    87
    27
    45
    80
    Torino
    42
    03
    33
    70
    39
    Venezia
    26
    75
    86
    85
    82
    Nazionale
    09
    11
    80
    45
    34
    Estrazione Simbolotto
    Napoli
    04
    33
    13
    42
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto