Novità

Un ambo tutto tuo... in cerca di listato per L8

ciao kribio , se vuoi questo è x L8

Codice: 
Sub Main
	Scrivi"Listato Kribio2 " & "                  Listed by Gyo",1
	Dim k(10),q(5)
	Dim t(10)
	Dim ruota(1)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(2) = 3
	posta(3) = 1
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",13))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio(es)
		For r1 = 1 To 11
			If r1 = 11 Then r1 = 12
			For p = 1 To 5
				For p1 = p + 1 To 5
					For p2 = p + 1 To 5
						For p3 = p2 + 1 To 5
							For p4 = 1 To 5
								n1 = Estratto(es,r1,p)
								n2 = Estratto(es,r1,p1)
								n3 = Estratto(es,r1,p2)
								n4 = Estratto(es,r1,p3)
								n5 = Estratto(es,r1,p4)
								a = Fuori90(n1 + n2)
								b = Fuori90(n3 + n4)
								s = Abs(90-n5)
								If a = b And p >< p2 And p1 >< p3 And p4 >< p And p4 >< p1 And p4 >< p2 And p4 >< p3 Then 'ok = 1
									co = co + 1
									ColoreTesto 0
									ruota(1) = r1
									ruote(2) = 11
									'--------- Calcolo Numeri ma mettere in gioco-------------
									t(1) = Abs(n5-n1)
									t(2) = Abs(n5-n2)
									k(1) = Fuori90(t(1) + t(2))								
									t(3) = Abs(s-n3)
									t(4) = Abs(s-n4)
									k(2) = Fuori90(t(3) + t(4))
									k(3) = Fuori90(k(1) + k(2))
                                                      
									'---------------------------------------------------------
									Scrivi String(100,"=")
									ColoreTesto 1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 1^ somma " & a & " - " & " Estratto " & n1 & " Posiz. " & p & " ed Estratto " & n2 & " Posiz. " & p1,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 2^ somma " & b & " - " & " Estratto " & n3 & " Posiz. " & p2 & " ed Estratto " & n4 & " Posiz. " & p3,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " Estratto " & n5 & " Posiz. " & p4 & " complemento 90 -----> " & s,1
									Scrivi"Numeri da giocare " & k(1) & " - " & k(2) & " - " & k(3)
									Scrivi String(100,"-") & " Caso n° " & co
									'Scrivi String(70,"-")
									ColoreTesto 0
									ImpostaGiocata 1,k,ruota,posta,clp
									ImpostaGiocata 2,k,ruote,posta,clp
									Gioca es
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati n° " & CInt(co)
	ScriviResoconto
End Sub

buona giornata

ps: fammi sapere se funziona , ciao
 
franca46 ha scritto:
ciao kribio , se vuoi questo è x L8

Codice: 
Sub Main
	
End Sub

buona giornata

ps: fammi sapere se funziona , ciao
Clicca per espandere...

Ciao2015-01-26_154145.jpg
Ciao Franca46, grazie intanto per la tua cortesia...
volevo segnalarti che lo script con il software Spaziometria funziona benissimo mentre
con L8 mi da la schermata che ti ho allegato...

Grazie ancora
Kribio2
 
Scusa Kribio2,
i conti dello script non mi tornano.. forse ho sbaglio a capire il metodo... ma tu scrivi che il calcolo del secondo numero è cosi:

calcolo secondo numero dell'ambo:
prima di procedere calcola a parte il complementare del numero base... cioè 90 meno 49 mi da 41
ora - differenza tra complementare 41 e il 3° (num.5) con il fuori 90 mi da 36
- differenza tra complementare 41 e il 5° (num.69) con il fuori 90 mi da 28
la somma tra questi due (36 e 28) con il fuori 90 mi da 64 che è il mio secondo numero da giocare...

Ti metto l'output dello script del 24/01/2015 di Firenze

24.01.2015 FI 23.39.27.69.71 ---> 1^ somma 50 - Estratto 23 Posiz. 1 ed Estratto 27 Posiz. 3
24.01.2015 FI 23.39.27.69.71 ---> 2^ somma 50 - Estratto 69 Posiz. 4 ed Estratto 71 Posiz. 5
24.01.2015 FI 23.39.27.69.71 Estratto 39 Posiz. 2 complemento 90 -----> 51
Numeri da giocare 28 - 38 - 66
----------------------------------------------------------------
diff fra compl 51 e il terzo estratto 27 = 24
diff fra compl 51 e il quinto estratto 71 = 20 somma = 44

numeri da giocare secondo i miei conti sarebbero --> FIRENZE 28-44-72
sbaglio??
 
ciao kribio , avrò sbagliato qualkosa , per correttezza lo riallego

Codice: 
Sub Main
	Scrivi"Listato Kribio2 " & "                  Listed by Gyo",1
	Dim k(10),q(5)
	Dim t(10)
	Dim ruota(2)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(2) = 3
	posta(3) = 1
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
	clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",13))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		Messaggio(es)
		For r1 = 1 To 11
			If r1 = 11 Then r1 = 12
			For p = 1 To 5
				For p1 = p + 1 To 5
					For p2 = p + 1 To 5
						For p3 = p2 + 1 To 5
							For p4 = 1 To 5
								n1 = Estratto(es,r1,p)
								n2 = Estratto(es,r1,p1)
								n3 = Estratto(es,r1,p2)
								n4 = Estratto(es,r1,p3)
								n5 = Estratto(es,r1,p4)
								a = Fuori90(n1 + n2)
								b = Fuori90(n3 + n4)
								s = Abs(90-n5)
								If a = b And p >< p2 And p1 >< p3 And p4 >< p And p4 >< p1 And p4 >< p2 And p4 >< p3 Then 'ok = 1
									co = co + 1
									ColoreTesto 0
									ruota(1) = r1 : ruota(2)=12
									ruote(2) = 11
									'--------- Calcolo Numeri ma mettere in gioco-------------
									t(1) = Abs(n5-n1)
									t(2) = Abs(n5-n2)
									k(1) = Fuori90(t(1) + t(2))								
									t(3) = Abs(s-n3)
									t(4) = Abs(s-n4)
									k(2) = Fuori90(t(3) + t(4))
									k(3) = Fuori90(k(1) + k(2))
                                                      
									'---------------------------------------------------------
									Scrivi String(100,"=")
									ColoreTesto 1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 1^ somma " & a & " - " & " Estratto " & n1 & " Posiz. " & p & " ed Estratto " & n2 & " Posiz. " & p1,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> 2^ somma " & b & " - " & " Estratto " & n3 & " Posiz. " & p2 & " ed Estratto " & n4 & " Posiz. " & p3,1
									Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " Estratto " & n5 & " Posiz. " & p4 & " complemento 90 -----> " & s,1
									Scrivi"Numeri da giocare " & k(1) & " - " & k(2) & " - " & k(3)
									Scrivi String(100,"-") & " Caso n° " & co
									'Scrivi String(70,"-")
									ColoreTesto 0
									ImpostaGiocata 1,k,ruota,posta,clp
									ImpostaGiocata 2,k,ruote,posta,clp
									Gioca es
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Riscontrati n° " & CInt(co)
	ScriviResoconto
End Sub

spero di non aver sbagliato.

buona giornata
 
Master ha scritto:
Scusa Kribio2,
i conti dello script non mi tornano.. forse ho sbaglio a capire il metodo... ma tu scrivi che il calcolo del secondo numero è cosi:

calcolo secondo numero dell'ambo:
prima di procedere calcola a parte il complementare del numero base... cioè 90 meno 49 mi da 41
ora - differenza tra complementare 41 e il 3° (num.5) con il fuori 90 mi da 36
- differenza tra complementare 41 e il 5° (num.69) con il fuori 90 mi da 28
la somma tra questi due (36 e 28) con il fuori 90 mi da 64 che è il mio secondo numero da giocare...

Ti metto l'output dello script del 24/01/2015 di Firenze

24.01.2015 FI 23.39.27.69.71 ---> 1^ somma 50 - Estratto 23 Posiz. 1 ed Estratto 27 Posiz. 3
24.01.2015 FI 23.39.27.69.71 ---> 2^ somma 50 - Estratto 69 Posiz. 4 ed Estratto 71 Posiz. 5
24.01.2015 FI 23.39.27.69.71 Estratto 39 Posiz. 2 complemento 90 -----> 51
Numeri da giocare 28 - 38 - 66
----------------------------------------------------------------
diff fra compl 51 e il terzo estratto 27 = 24
diff fra compl 51 e il quinto estratto 71 = 20 somma = 44

numeri da giocare secondo i miei conti sarebbero --> FIRENZE 28-44-72
sbaglio??
Clicca per espandere...

ciao master io ho questa previsione

Codice: 
====================================================================================================
24.01.2015  Fi  23.39.27.69.71 ---> 1^ somma 50 -  Estratto 23 Posiz. 1 ed Estratto 27 Posiz. 3
24.01.2015  Fi  23.39.27.69.71 ---> 2^ somma 50 -  Estratto 69 Posiz. 4 ed Estratto 71 Posiz. 5
24.01.2015  Fi  23.39.27.69.71 Estratto 39 Posiz. 2 complemento 90 -----> 51
Numeri da giocare 28 - 38 - 66
---------------------------------------------------------------------------------------------------- Caso n° 102
sab 24.01.2015  [8955]
  G  1:  AT      28.38.66   Fi Nz    0/13    
     n.i. (13 colpi)
  G  2:  AT      28.38.66   Tu       0/13    
     n.i. (13 colpi)
====================================================================================================

ma adesso in attesa di kribio ricontrollo

buona giornata

master ho controllato questa scritta

" diff fra compl 51 e il terzo estratto 27 = 24
" diff fra compl 51 e il quinto estratto 71 = 20 somma = 44

è intesa come posto in cui sono usciti i numeri che formano il 2° ambo di somma uguale.

quindi i calcoli sarebbero

39-23=16 / 39-27=12 / 16+12=28 1° numero

90-39=51 complementare del numero estraneo

51-69=18 / 51-71=20 / 18+20=38 2° numero

28+18=66 abbinamento

sempre che abbia bene capito il tutto

ciao , vediamo che dice kribio
 
Ultima modifica:
franca46 ha scritto:
ciao master io ho questa previsione

Codice: 
====================================================================================================
24.01.2015  Fi  23.39.27.69.71 ---> 1^ somma 50 -  Estratto 23 Posiz. 1 ed Estratto 27 Posiz. 3
24.01.2015  Fi  23.39.27.69.71 ---> 2^ somma 50 -  Estratto 69 Posiz. 4 ed Estratto 71 Posiz. 5
24.01.2015  Fi  23.39.27.69.71 Estratto 39 Posiz. 2 complemento 90 -----> 51
Numeri da giocare 28 - 38 - 66
---------------------------------------------------------------------------------------------------- Caso n° 102
sab 24.01.2015  [8955]
  G  1:  AT      28.38.66   Fi Nz    0/13    
     n.i. (13 colpi)
  G  2:  AT      28.38.66   Tu       0/13    
     n.i. (13 colpi)
====================================================================================================

ma adesso in attesa di kribio ricontrollo

buona giornata

master ho controllato questa scritta

" diff fra compl 51 e il terzo estratto 27 = 24
" diff fra compl 51 e il quinto estratto 71 = 20 somma = 44

è intesa come posto in cui sono usciti i numeri che formano il 2° ambo di somma uguale.

quindi i calcoli sarebbero

39-23=16 / 39-27=12 / 16+12=28 1° numero

90-39=51 complementare del numero estraneo

51-69=18 / 51-71=20 / 18+20=38 2° numero

28+18=66 abbinamento

sempre che abbia bene capito il tutto

ciao , vediamo che dice kribio
Clicca per espandere...

Si, è perfetto
grazie e buona serata a tutti
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 17 ottobre 2026
    Bari
    11
    35
    78
    39
    36
    Cagliari
    27
    52
    13
    03
    21
    Firenze
    51
    87
    73
    53
    67
    Genova
    63
    67
    70
    01
    05
    Milano
    44
    49
    21
    22
    48
    Napoli
    32
    26
    67
    25
    35
    Palermo
    19
    32
    38
    11
    85
    Roma
    05
    74
    43
    78
    11
    Torino
    74
    66
    81
    80
    51
    Venezia
    12
    51
    63
    09
    84
    Nazionale
    59
    22
    14
    54
    12
    Estrazione Simbolotto
    08
    41
    24
    19
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto