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 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto