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ì 16 dicembre 2025
    Bari
    78
    53
    62
    77
    16
    Cagliari
    15
    58
    32
    39
    24
    Firenze
    85
    20
    39
    32
    29
    Genova
    17
    60
    15
    33
    43
    Milano
    13
    39
    14
    15
    34
    Napoli
    82
    76
    15
    24
    73
    Palermo
    40
    55
    78
    26
    08
    Roma
    23
    41
    17
    53
    76
    Torino
    52
    20
    70
    59
    65
    Venezia
    43
    58
    19
    08
    09
    Nazionale
    71
    55
    60
    04
    35
    Estrazione Simbolotto
    Venezia
    28
    37
    27
    40
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto