Novità

Per claudio8

stefania1972

Senior Member
Ciao claudio8 volevo chiederti gentilmente se in questo post :

http://forum.lottoced.com/topic.asp?TOPIC_ID=138447

si potrebbe esaudire la richiesta dell'utente rabberto dove chiedeva :
Quando mi da' l'output mi da ad esempio :
5 estratto di Genova + 37 sulla ruota di Bari è uscito 13 volte su 14
Volevo sapere se era possibile inserire gia' il numero calcolato senza che io devo sempre fare i calcoli a mano , Esempio
5 estratto di Genova + 37 sulla ruota di Bari ( QUI MI DEVE SCRIVERE IL NUMERO ) è uscito 13 volte su 14
Sper sia stato chiaro e che si possa fare qualcosa , grazie , ciao.

Siccome sto studiando i due listati anche quello di Blackmore
e vorrei confrontarli , e mi farebbe moto comodo per fare una cosa piu' veloce .
Spero mi puoi aiutare , ti ringrazio in anticipo , ciao .
 
Controlla i dati perchè non mi fido molto di questo script. Sinceramente non ho capito in quanti colpi esce la previsione.

Codice:
'Attenzione, per la regolarità del calcolo del numero previsto considerare che la previsione
'viene costruita usando l'ultima estrazione in archivio, essa non è valida se l'indice mese 
'di ricerca non coincide con quello dell'ultima estrazione in archivio  

Sub Main()
	Dim som(5,90)
	Dim estr(5)
	Dim Val(5,90)
	es = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,0))
	ee = CInt(InputBox("Quante estrazioni esaminiamo?",,40))
	ColoreTesto 2
	Scrivi "            ELABORAZIONE delle ultime "& ee &" estrazioni PER INDICE MENSILE n° " & es
	Scrivi "Attenzione, per la regolarità del calcolo del numero previsto considerare che la previsione viene" 
	Scrivi "                         costruita usando l'ultima estrazione in archivio."
	ColoreTesto 0 
		For r2 = 1 To 10
		For r = 1 To 10
			z = 0
			For i = 1 To 5
				For j = 1 To 90
					som(i,j) = 0
					Val(i,j) = True
				Next
			Next
			For i = 1 To 5
				estr(i) = 0
			Next
			valido = False
			For n = EstrazioneFin - 40 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
				If valido = True Then
					For i = 1 To 5
						For j = 1 To 5
							k = Estratto(n,r2,j) - estr(i)
							If k <= 0 Then
								k = k + 90
							End If
							If Val(i,k) = True Then
								som(i,k) = som(i,k) + 1
							End If
						Next
					Next
					For i = 1 To 5
						For j = 1 To 5
							k = Estratto(n,r2,j) - estr(i)
							If k <= 0 Then
								k = k + 90
							End If
							If Val(i,k) = True Then
								Val(i,k) = False
							End If
						Next
					Next
				End If
				If es = 0 Then 
				m = n + 1 
				Else 
				m = n 
				End If
				
				If IndiceMensile(m) = 1 Then
					z = z + 1
					valido = True
					For i = 1 To 5
						estr(i) = Estratto(n,r,i)
					Next
					For i = 1 To 5
						For j = 1 To 90
							Val(i,j) = True
						Next
					Next
				End If
			Next
			For i = 1 To 5
				For j = 1 To 90
					zz = Int((z/100)*90)
					s = CStr(eval(i)) & " estratto di " & FormatSpace(NomeRuota(r),8,0) & " + " & FormatSpace(CStr(eval(j)),3 - 1) & " sulla ruota di "
					s = s & FormatSpace(NomeRuota(r2),9,0) & " è uscito " & FormatSpace(CStr(som(i,j)),3 - 1) & " volte su " & CStr(eval(z)) & " e prevede il " & _
					Fuori90(Estratto(EstrazioneFin,r,eval(i)) + eval(j))
					If som(i,j) > zz Then
						Scrivi s
					End If
				Next
			Next
		Next
	Next
End Sub

ciao
 
Grazie infinitamente claudio8 , sempre gentile come sempre , sia per lo script che per le spiegazioni , adesso posso fare le mie prove , speriamo di trovare qualcosa di buono .
Grazie ancora , ciao .
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto