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
    giovedì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto