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
    martedì 28 ottobre 2025
    Bari
    71
    36
    81
    10
    35
    Cagliari
    42
    69
    62
    52
    35
    Firenze
    03
    80
    38
    54
    11
    Genova
    88
    41
    18
    07
    45
    Milano
    48
    43
    11
    17
    57
    Napoli
    18
    55
    10
    15
    04
    Palermo
    67
    26
    33
    49
    45
    Roma
    14
    77
    10
    05
    54
    Torino
    79
    87
    42
    55
    40
    Venezia
    62
    18
    85
    74
    01
    Nazionale
    61
    45
    38
    34
    62
    Estrazione Simbolotto
    44
    34
    11
    25
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto