Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 ricerca di script
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

Boris
Utente Fedelissimo

Italy
593 invii

Spedito - 20 settembre 2016 :  15:14:03  Mostra profilo  Rispondi con citazione
Buon pomeriggio,,,è da tempo che non partecipo alle discussioni del forum,ma sono dipesi da impegni che mi hanno lasciato poco tempo libero...... e ora desidero riprendere un po di studi interrotti.......
per questo motivo chiedo a chi è esperto di script...se è in possesso di uno script che mi faccia la differenza degli estratti in verticale......
faccio un esempio
estrazione del 14/04/2016
bari 30-05-48-89-03
cag 21-78-47-33-57
diff. 09-73-01-56-54-
cag 21-78-47-33-57-
fir 45-02-42-46-56-
dif 16-76-05-13-01

e cosi per tutte le altre ruote della estrazione del 14.04.2016
Ho cercato in giro ma non sono riuscito a trovare un lavoro di questo tipo.
Se gentilmente qualcuno ne è in possesso lo può inserire qui ed io lo copio ed incollo.
Sono in possesso di Spaziometria.....
Se invece qualcuno bravo può costruire questo Script ne sarei veramente grato.
Grazie ed in attesa di una gradita risposta
Saluto
Boris

Duca
Utente Nuovo

25 invii

Spedito - 20 settembre 2016 :  22:56:19  Mostra profilo  Rispondi con citazione
Buonasera Boris

provi questo script per spaziometria

Sub Main()
	Scrivi"http://www.nonsololotto.com/topic.asp?TOPIC_ID=40422 - script richiesto da Boris":Scrivi
	Scrivi "----- DIFFERENZE VERTICALI FRA GLI ESTRATTI ------",1,,3,,5:Scrivi
	ReDim title(10)
	title(1) = " Data "
	title(2) = " 1°Ruota "
	title(3) = " 2°Ruota "
	title(4) = " Estratti 1°Ruota "
	title(5) = " Estratti 2°Ruota "
	title(6) = " Dif 1° "
	title(7) = " Dif 2° "
	title(8) = " Dif 3° "
	title(9) = " Dif 4° "
	title(10) = "Dif 5° "
	Call InitTabella(title,RGB(0,117,234),,2,5)
	est = InputBox("QUANTE  ESTRAZIONI  VUOI  ESAMINARE ?",,10)
	fin = EstrazioneFin
	Ini = fin - est
	For es = Ini To fin
		For r1 = 1 To 10
			r2 = r1 + 1
			If r2 = 11 Then r2 = 12
			di1 = Differenza(Estratto(es,r1,1),Estratto(es,r2,1))
			di2 = Differenza(Estratto(es,r1,2),Estratto(es,r2,2))
			di3 = Differenza(Estratto(es,r1,3),Estratto(es,r2,3))
			di4 = Differenza(Estratto(es,r1,4),Estratto(es,r2,4))
			di5 = Differenza(Estratto(es,r1,5),Estratto(es,r2,5))
			ReDim Value(10)
			Value(01) = DataEstrazione(es)
			Value(02) = NomeRuota(r1)
			Value(03) = NomeRuota(r2)
			Value(04) = StringaEstratti(es,r1)
			Value(05) = StringaEstratti(es,r2)
			Value(06) = di1
			Value(07) = di2
			Value(08) = di3
			Value(09) = di4
			Value(10) = di5
			Call AddRigaTabella(Value,,,4,,1)
			Call SetColoreCella(2,RGB(240,240,240))
			Call SetColoreCella(3,RGB(207,207,207))
			Call SetColoreCella(4,RGB(240,240,240))
			Call SetColoreCella(5,RGB(207,207,207))
			Call SetColoreCella(6,RGB(196,255,255))
			Call SetColoreCella(7,RGB(196,255,255))
			Call SetColoreCella(8,RGB(196,255,255))
			Call SetColoreCella(9,RGB(196,255,255))
			Call SetColoreCella(10,RGB(196,255,255))
		Next
		Call AddRigaTabella(Value,,,4,5,4)
	Next
	Call CreaTabella()
End Sub
Vai ad inizio pagina

Boris
Utente Fedelissimo

Italy
593 invii

Spedito - 20 settembre 2016 :  23:13:20  Mostra profilo  Rispondi con citazione
Buona sera Duca,era lo script che desideravo .......Bravo
Nel ringraziarla del suo OTTIMO lavoro la saluto
Boris
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 21 settembre 2016 :  08:04:10  Mostra profilo  Rispondi con citazione
buon giorno Duca

grazie dello script , potrebbe servire anche a me . lo copio

una domanda , io riesco a costruirne qualcuno , se io voglio la distanza ?

scrivo cosi ?

di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))

grazie ancora

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

Duca
Utente Nuovo

25 invii

Spedito - 02 ottobre 2016 :  20:06:14  Mostra profilo  Rispondi con citazione
Ciao Franca46
Scusa per il ritardo ma non avevo letto prima,

citazione:
una domanda , io riesco a costruirne qualcuno , se io voglio la distanza ?

scrivo cosi ?

di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))


si è proprio così
puoi modificare i calcoli a tuo piacimento
es: per le somme
di1 = Fuori90(Estratto(es,r1,1)+Estratto(es,r2,1))
etc etc per gli altri estratti
Buona serata
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 03 ottobre 2016 :  07:43:11  Mostra profilo  Rispondi con citazione
ciao duca grazie , non preoccuparti del ritardo avevo fatto la prova ed era giusto.

adesso sono alle prese con un nuovo metodo ,sulla spia 90 a ruota

vediamo se poi funziona

buona giornata!!!!

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 01 luglio 2023 :  19:03:42  Mostra profilo  Rispondi con citazione
Un caro saluto,
Questo script trova le le differenze su ruote consecutive , il l'ho modificato e mi trova le distanze, , ma io vorrei che trovasse le distanze su ruote diametrali.
Ho una mezza idea di come cambiare, ma non ne sono sicura.
Quindi invece di fare ba -ca dovrà fare ba-na e via di seguito, è possibile modificarlo?
Grazie infinite


Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

Duca
Utente Nuovo

25 invii

Spedito - 01 luglio 2023 :  19:43:07  Mostra profilo  Rispondi con citazione
Ciao franca46

Vedi se va bene


Sub Main()
   Scrivi"http://www.nonsololotto.com/topic.asp?TOPIC_ID=40422 - script modificato x franca46":Scrivi
   Scrivi "----- DISTANZE VERTICALI FRA GLI ESTRATTI ------",1,,3,,5:Scrivi
   ReDim title(10)
   title(1) = " Data "
   title(2) = " 1°Ruota "
   title(3) = " 2°Ruota "
   title(4) = " Estratti 1°Ruota "
   title(5) = " Estratti 2°Ruota "
   title(6) = " Dif 1° "
   title(7) = " Dif 2° "
   title(8) = " Dif 3° "
   title(9) = " Dif 4° "
   title(10) = "Dif 5° "
   Call InitTabella(title,RGB(0,117,234),,2,5)
   est = InputBox("QUANTE  ESTRAZIONI  VUOI  ESAMINARE ?",,10)
   fin = EstrazioneFin
   Ini = fin - est
   For es = Ini To fin
      For r1 = 1 To 5
         r2 = RuotaDiametrale(r1)
         di1 = Distanza(Estratto(es,r1,1),Estratto(es,r2,1))
         di2 = Distanza(Estratto(es,r1,2),Estratto(es,r2,2))
         di3 = Distanza(Estratto(es,r1,3),Estratto(es,r2,3))
         di4 = Distanza(Estratto(es,r1,4),Estratto(es,r2,4))
         di5 = Distanza(Estratto(es,r1,5),Estratto(es,r2,5))
         ReDim Value(10)
         Value(01) = DataEstrazione(es)
         Value(02) = NomeRuota(r1)
         Value(03) = NomeRuota(r2)
         Value(04) = StringaEstratti(es,r1)
         Value(05) = StringaEstratti(es,r2)
         Value(06) = di1
         Value(07) = di2
         Value(08) = di3
         Value(09) = di4
         Value(10) = di5
         Call AddRigaTabella(Value,,,4,,1)
         Call SetColoreCella(2,RGB(240,240,240))
         Call SetColoreCella(3,RGB(207,207,207))
         Call SetColoreCella(4,RGB(240,240,240))
         Call SetColoreCella(5,RGB(207,207,207))
         Call SetColoreCella(6,RGB(196,255,255))
         Call SetColoreCella(7,RGB(196,255,255))
         Call SetColoreCella(8,RGB(196,255,255))
         Call SetColoreCella(9,RGB(196,255,255))
         Call SetColoreCella(10,RGB(196,255,255))
      Next
      Call AddRigaTabella(Value,,,4,5,4)
   Next
   Call CreaTabella()
End Sub
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 01 luglio 2023 :  20:37:56  Mostra profilo  Rispondi con citazione
ciao Duca si perfetto , guarderò anche se era giusta la mia idea della modifica.
non mi resta che confrontare adesso queste distanze , cosi' come ti ho spiegato nell'email.

grazie sempre , ho molto da imparare.

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000