Novità

MEGA RACCOLTA "SCRIPT"

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
Grazie Blackmore
Nel mio resoconto non lo vedo,chiedo venia.
Se gentilmente lo riposta mi farebbe cosa gradita.

Janez57
 
Grazie BlackmoreNel mio resoconto non lo vedo,chiedo venia.Se gentilmente lo riposta mi farebbe cosa gradita.Janez57
Janez nel tuo non c'è perché ho usato un altro programma per mettere il resoconto
Un grazie a Mike
E un saluto al nuovo arrivato, il grande Ronnie ;)
 
Ultima modifica:
Codice:
Sub Main()
ColoreTesto 1
	Scrivi "====================================== M E T O D O    BY  VECCHIONE ANTONIO =======================================",1
	ColoreTesto 0
	Scrivi "=========================== Due numeri per ambo da giocare sulla ruota di Bari e Tutte ============================",1
	ColoreTesto 1
	Scrivi "================================================= Si gioca per 18 colpi ===========================================",1
	ColoreTesto 0
	Scrivi "===========================  Non si gioca l'ambo i cui numeri costituenti siano eguali tra di loro. ===============",1
	ColoreTesto 1
	Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
	ColoreTesto 0
	Scrivi "================================ A posta fissa o in progressione scegliete voi ====================================",1
ColoreTesto 1
	Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
	Scrivi
	ColoreTesto 0




Dim rt(1),pt(2),n1(2)


pt(2) = 1


clp = 18 'colpi di gioco
rt(1) = 1 '1a ruota di gioco




ini = EstrazioneFin - 39
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2 Estrazione del mese




n1(01) = Fuori90(Estratto(es,2,1) + 11) ' 1 Cagliari
n1(02) = Fuori90(Estratto(es,1,5) + 7) ' 5 Bari




co = co + 1
Scrivi String(60,"=") & " Caso n° " & co,1
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If


Next


Scrivi
Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " *****   Da utilizzare previo verifica di un bravo scripter   *****",1,4,0
ScriviResoconto
End Sub
 
Codice:
Sub Main()
ColoreTesto 1
    Scrivi "====================================== M E T O D O    BY  VECCHIONE ANTONIO =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Due numeri per ambo da giocare sulla ruota di Bari e Tutte ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 18 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===========================  Non si gioca l'ambo i cui numeri costituenti siano eguali tra di loro. ===============",1
    ColoreTesto 1
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ A posta fissa o in progressione scegliete voi ====================================",1
ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0




Dim rt(1),pt(2),n1(2)


pt(2) = 1


clp = 18 'colpi di gioco
rt(1) = 1 '1a ruota di gioco




ini = EstrazioneFin - 39
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2 Estrazione del mese




n1(01) = Fuori90(Estratto(es,2,1) + 11) ' 1 Cagliari
n1(02) = Fuori90(Estratto(es,1,5) + 7) ' 5 Bari




co = co + 1
Scrivi String(60,"=") & " Caso n° " & co,1
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If


Next


Scrivi
Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " *****   Da utilizzare previo verifica di un bravo scripter   *****",1,4,0
ScriviResoconto
End Sub





Elbaz, lo avevo visto questo metodo. e avevo fatto lo script solo per curiosità, il tuo ricava i numeri giusti, solo devi aggiustare quando posti il codice, in modo che sia più uniforme.

Comunque lo analizzato dal 2005 e su 74 casi solo 8 sono risultati positivi entro i 18 colpi.
Ho modificato il range di ricerca :

Codice:
Sub Main()
    ColoreTesto 1
    Scrivi "====================================== M E T O D O    BY  VECCHIONE ANTONIO =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Due numeri per ambo da giocare sulla ruota di Bari e Tutte ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 18 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===========================  Non si gioca l'ambo i cui numeri costituenti siano eguali tra di loro. ===============",1
    ColoreTesto 1
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ A posta fissa o in progressione scegliete voi ====================================",1
    ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0
    Dim rt(1),pt(2),n1(2)
    pt(2) = 1
    clp = 18 'colpi di gioco
    rt(1) = 1 '1a ruota di gioco
    ini = 7510
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 2 Then '2 Estrazione del mese
            n1(01) = Fuori90(Estratto(es,2,1) + 11) ' 1 Cagliari
            n1(02) = Fuori90(Estratto(es,1,5) + 7) ' 5 Bari
            co = co + 1
            Scrivi String(60,"=") & " Caso n° " & co,1
            ImpostaGiocata 1,n1,rt,pt,clp,2
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    TestoInBandaPassante " *****   Da utilizzare previo verifica di un bravo scripter   *****",1,4,0
    ScriviResoconto
End Sub
 
Ok, grazie.
Si è vero nel lungo periodo non da molti esiti positivi ma nel breve e specificatamente negli ultimi tre mesi è sempre andato bene.
 
Ciao.
Posto qui per non aprire una nuova discussione anche se Blackmore aveva detto di utilizzarlo solo per postare script. (Ho visto comunque che anche qui si fanno richieste).
Sempre che non si possa già fare in spaziometria mi piacerebbe fare uno script che analizzi un certo numero di cicli di un certo numero di estrazioni su una data ruota.
Mi spiego:
Input: Numero di cicli da analizzare
Input :Numero di estrazioni per ciclo
Input :Ruota da analizzare

a questo punto vorrei vedere per ciascun ciclo tutti i numeri usciti escluse le ripetizioni (es: 1.2.3.4.5.6.6.7.7.8.9. quindi 1.2.3.4.5.6.7.8.9) in una forma rapidamente comprensibile tipo

RUOTA DI TORINO 1 ciclo analizzato - ciclo di 14 estrazioni dal xx-xx-xxxx al xx-xx-xxx

NUMERI USCITI IN QUESTO CICLO SENZA RIPETIZIONI:
01.02.03.
56.
78.
89 ECT.
magari su più righe che corrispondano a decine diverse;

poi estrazione per estrazione raggruppati in ciclo tutti i numeri usciti con evidenziati quelli sortiti da 2 ad n volte magari con un colore diverso a seconda delle volte cui sono apparsi
(es.



xx-xx-xxxx estrazione n.yyyy 14.56.25.89.69
xx-xx-xxxx estrazione n.yyyy 89.87.54.36.76
xx-xx-xxxx estrazione n.yyyy 14.11.89.37.01 )

alla fine di questo schema un breve report che evidenzi i numeri usciti più di una volta
(es.

14 uscito 2 volte
89 uscito 2 volte
02 uscite 5 volte )

poi un resoconto rapido con le caratteristiche del primo cioè in righe per ciascuna decina
dei numeri che non sono usciti. (Mi piacerebbe che avessero anche il ritardo ma forse qui è un po' complicato)

Se mi puoi aiutare perché non sono capace.

Grazie.
 
Ultima modifica:
Ciao Blackmore, grazie per il tuo impegno e l'aiuto che offri a tutti.
Ti volevo segnalare che i primi 3 script di questo post a pag 1 danno errore su spaziometria.
Vedi tu
Ciao e Auguri di Buone Feste:)
 
Listato Teosofico
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"BA-CA teoria teosofica alla 12° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(2),pt(1),poste(3)
Dim ambata(1)
Dim ambo(6)
pt(1) = 1
poste(2) = 3
poste(3) = 1
clp = 12
rt(1) = 1
rt(2) = 2
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a1 = Estratto(es,1,1)
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)
b1 = Estratto(es,2,1)
b2 = Estratto(es,2,2)
b3 = Estratto(es,2,3)
b4 = Estratto(es,2,4)
b5 = Estratto(es,2,5)
c1 = Figura(a1)
c2 = Figura(a2)
c3 = Figura(a3)
c4 = Figura(a4)
c5 = Figura(c5)
d1 = Figura(b1)
d2 = Figura(b2)
d3 = Figura(b3)
d4 = Figura(b4)
d5 = Figura(b5)
d = Figura((c1) +(c2) + (c3) +(c4) +(c5))
e = Figura((d1) +(d2) + (d3) +(d4) +(d5))
f =(d & e)
g1 = Fuori90(c1 & d1)
g2 = Fuori90(c2 & d2)
g3 = Fuori90(c3 & d3)
g4 = Fuori90(c4 & d4)
g5 = Fuori90(c5 & d5)
ambata(1) = f
ambo(1) = g1
ambo(2) = g2
ambo(3) = g3
ambo(4) = g4
ambo(5) = g5
ImpostaGiocata 1,ambata,rt,pt,clp,1
ImpostaGiocata 2,ambo,rt,poste,clp,2
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub



 
BARI (4° del mese)

Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 4° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 4 Then '4° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,3,2)
b = Estratto(es,8,1)
c = Estratto(es,8,4)
d = Estratto(es,5,5)
e = Estratto(es,7,2)
f = Fuori90(a + 77)
g = Fuori90(b + 18)
h = Fuori90(c + 21)
i = Fuori90(d + 30)
l = Fuori90(e + 13)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,2
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,1
ImpostaGiocata 4,ambo3,rt,pt,clp,1
ImpostaGiocata 5,ambo4,rt,pt,clp,1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
 
Ultima modifica:
BARI (2° del mese)


Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 2° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,4,2)
b = Estratto(es,5,1)
c = Estratto(es,9,3)
d = Estratto(es,12,3)
e = Estratto(es,10,1)
f = Fuori90(a + 10)
g = Fuori90(b + 45)
h = Fuori90(c + 26)
i = Fuori90(d + 29)
l = Fuori90(e + 33)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,1
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,2
ImpostaGiocata 4,ambo3,rt,pt,clp,2
ImpostaGiocata 5,ambo4,rt,pt,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
 
Ciao, mentre riordinavo i listati, mi è capitato tra le mani, lo script su Roma (1 ambata dopo ambo spia)
e vedendo che funzionava ancora, ho deciso di riaggiornare un po di metodi all'interno (soprattutto quelli negativi)
Questo è il listato aggiornato..... per gli amanti dell'ambata
Ciao



Codice:
Sub Main()
	TestoInBandaPassante "*************************** AGGIORNATO AL 20/02/2012 ***************************",1,1,5
	Scrivi
	ColoreTesto 1
	Scrivi "===== M E T O D I. S O M M A T I V I. B Y. B L A C K M O R E ======",1
	ColoreTesto 0
	Scrivi " ------------------------------------------------------------------",1
	ColoreTesto 1
	Scrivi "================ U N _ A M B A T A _ S U _ R O M A ================",1
	ColoreTesto 0
	Scrivi "-------------------------------------------------------------------",1
	ColoreTesto 1
	Scrivi "====== INIZIO RICERCA: 30/01/1993 - FINE RICERCA: 19/11/2011 ======",1
	ColoreTesto 0
	Scrivi "-------------------------------------------------------------------",1
	ColoreTesto 1
	Scrivi "=================== AMBI SPIA ANALIZZATI: 100 =====================",1
	ColoreTesto 0
	Scrivi "-------------------------------------------------------------------",1
	ColoreTesto 1
	Scrivi "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
	ColoreTesto 0
	Scrivi "-------------------------------------------------------------------",1
	Scrivi
	Dim ruota(1)
	Dim ambata(1)
	Dim num(1)
	Dim posta(10)
	Dim r(1)
	posta(1) = 2
	k = 9
	ini = EstrazioneFin - 2098
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		r(1) = 8
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,8,p)
				b = Estratto(es,8,p1)
				ok = 0
				'--------------------------------------------------
				If a = 47 And b = 80 Or a = 80 And b = 47 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 47)
					ok = 1
				End If
				If a = 17 And b = 31 Or a = 31 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 25)
					ok = 1
				End If
				If a = 44 And b = 74 Or a = 74 And b = 44 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
					ok = 1
				End If
				If a = 72 And b = 77 Or a = 77 And b = 72 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
					ok = 1
				End If
				If a = 32 And b = 84 Or a = 84 And b = 32 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 36)
					ok = 1
				End If
				If a = 23 And b = 47 Or a = 47 And b = 23 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 84)
					ok = 1
				End If
				If a = 27 And b = 41 Or a = 41 And b = 27 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
					ok = 1
				End If
				If a = 13 And b = 80 Or a = 80 And b = 13 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 14)
					ok = 1
				End If
				If a = 03 And b = 30 Or a = 30 And b = 03 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 22)
					ok = 1
				End If
				If a = 39 And b = 50 Or a = 50 And b = 39 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 31)
					ok = 1
				End If
				If a = 41 And b = 57 Or a = 57 And b = 41 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 53)
					ok = 1
				End If
				If a = 46 And b = 64 Or a = 64 And b = 46 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
					ok = 1
				End If
				If a = 38 And b = 83 Or a = 83 And b = 38 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 86)
					ok = 1
				End If
				If a = 50 And b = 90 Or a = 90 And b = 50 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
					ok = 1
				End If
				If a = 18 And b = 80 Or a = 80 And b = 18 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
					ok = 1
				End If
				If a = 33 And b = 56 Or a = 56 And b = 33 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
					ok = 1
				End If
				If a = 20 And b = 75 Or a = 75 And b = 20 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 23)
					ok = 1
				End If
				If a = 03 And b = 73 Or a = 73 And b = 03 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
					ok = 1
				End If
				If a = 86 And b = 87 Or a = 87 And b = 86 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 54)
					ok = 1
				End If
				If a = 22 And b = 76 Or a = 76 And b = 22 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 74)
					ok = 1
				End If
				If a = 70 And b = 76 Or a = 76 And b = 70 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 49)
					ok = 1
				End If
				If a = 53 And b = 57 Or a = 57 And b = 53 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
					ok = 1
				End If
				If a = 17 And b = 30 Or a = 30 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
					ok = 1
				End If
				If a = 34 And b = 49 Or a = 49 And b = 34 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 77)
					ok = 1
				End If
				If a = 10 And b = 86 Or a = 86 And b = 10 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
					ok = 1
				End If
				If a = 32 And b = 71 Or a = 71 And b = 32 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 34)
					ok = 1
				End If
				If a = 17 And b = 51 Or a = 51 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
					ok = 1
				End If
				If a = 56 And b = 57 Or a = 57 And b = 56 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 66)
					ok = 1
				End If
				If a = 04 And b = 81 Or a = 81 And b = 04 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 47)
					ok = 1
				End If
				If a = 72 And b = 83 Or a = 83 And b = 72 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 53)
					ok = 1
				End If
				If a = 37 And b = 56 Or a = 56 And b = 37 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 51)
					ok = 1
				End If
				If a = 59 And b = 78 Or a = 78 And b = 59 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 29)
					ok = 1
				End If
				If a = 25 And b = 68 Or a = 68 And b = 25 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
					ok = 1
				End If
				If a = 05 And b = 36 Or a = 36 And b = 05 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 57)
					ok = 1
				End If
				If a = 26 And b = 67 Or a = 67 And b = 26 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 71)
					ok = 1
				End If
				If a = 53 And b = 66 Or a = 66 And b = 53 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
					ok = 1
				End If
				If a = 70 And b = 77 Or a = 77 And b = 70 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 54)
					ok = 1
				End If
				If a = 24 And b = 65 Or a = 65 And b = 24 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
					ok = 1
				End If
				If a = 35 And b = 50 Or a = 50 And b = 35 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
					ok = 1
				End If
				If a = 74 And b = 76 Or a = 76 And b = 74 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 41)
					ok = 1
				End If
				If a = 07 And b = 78 Or a = 78 And b = 07 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 62)
					ok = 1
				End If
				If a = 07 And b = 88 Or a = 88 And b = 07 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
					ok = 1
				End If
				If a = 29 And b = 61 Or a = 61 And b = 29 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 18)
					ok = 1
				End If
				If a = 38 And b = 54 Or a = 54 And b = 38 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 76)
					ok = 1
				End If
				If a = 69 And b = 76 Or a = 76 And b = 69 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
					ok = 1
				End If
				If a = 01 And b = 08 Or a = 08 And b = 01 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 33)
					ok = 1
				End If
				If a = 40 And b = 64 Or a = 64 And b = 40 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
					ok = 1
				End If
				If a = 20 And b = 77 Or a = 77 And b = 20 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
					ok = 1
				End If
				If a = 48 And b = 83 Or a = 83 And b = 48 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 18)
					ok = 1
				End If
				If a = 13 And b = 58 Or a = 58 And b = 13 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
					ok = 1
				End If
				If a = 22 And b = 48 Or a = 48 And b = 22 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
					ok = 1
				End If
				If a = 17 And b = 73 Or a = 73 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 37)
					ok = 1
				End If
				If a = 28 And b = 43 Or a = 43 And b = 28 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 19)
					ok = 1
				End If
				If a = 12 And b = 49 Or a = 49 And b = 12 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
					ok = 1
				End If
				If a = 17 And b = 52 Or a = 52 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 81)
					ok = 1
				End If
				If a = 29 And b = 75 Or a = 75 And b = 29 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 48)
					ok = 1
				End If
				If a = 22 And b = 89 Or a = 89 And b = 22 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 24)
					ok = 1
				End If
				If a = 23 And b = 35 Or a = 35 And b = 23 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
					ok = 1
				End If
				If a = 47 And b = 58 Or a = 58 And b = 47 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 22)
					ok = 1
				End If
				If a = 02 And b = 41 Or a = 41 And b = 02 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 69)
					ok = 1
				End If
				If a = 31 And b = 79 Or a = 79 And b = 31 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 62)
					ok = 1
				End If
				If a = 11 And b = 28 Or a = 28 And b = 11 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 16)
					ok = 1
				End If
				If a = 36 And b = 39 Or a = 39 And b = 36 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 52)
					ok = 1
				End If
				If a = 02 And b = 26 Or a = 26 And b = 02 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
					ok = 1
				End If
				If a = 47 And b = 50 Or a = 50 And b = 47 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 33)
					ok = 1
				End If
				If a = 17 And b = 88 Or a = 88 And b = 17 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 24)
					ok = 1
				End If
				If a = 18 And b = 34 Or a = 34 And b = 18 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 53)
					ok = 1
				End If
				If a = 48 And b = 70 Or a = 70 And b = 48 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 56)
					ok = 1
				End If
				If a = 01 And b = 65 Or a = 65 And b = 01 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
					ok = 1
				End If
				If a = 10 And b = 41 Or a = 41 And b = 10 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 45)
					ok = 1
				End If
				If a = 37 And b = 81 Or a = 81 And b = 37 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
					ok = 1
				End If
				If a = 05 And b = 69 Or a = 69 And b = 05 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 29)
					ok = 1
				End If
				If a = 04 And b = 76 Or a = 76 And b = 04 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
					ok = 1
				End If
				If a = 01 And b = 27 Or a = 27 And b = 01 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 24)
					ok = 1
				End If
				If a = 43 And b = 72 Or a = 72 And b = 43 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
					ok = 1
				End If
				If a = 28 And b = 68 Or a = 68 And b = 28 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
					ok = 1
				End If
				If a = 08 And b = 58 Or a = 58 And b = 08 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 78)
					ok = 1
				End If
				If a = 48 And b = 55 Or a = 55 And b = 48 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
					ok = 1
				End If
				If a = 23 And b = 74 Or a = 74 And b = 23 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 12)
					ok = 1
				End If
				If a = 11 And b = 60 Or a = 60 And b = 11 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 34)
					ok = 1
				End If
				If a = 03 And b = 28 Or a = 28 And b = 03 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 26)
					ok = 1
				End If
				If a = 42 And b = 71 Or a = 71 And b = 42 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 56)
					ok = 1
				End If
				If a = 10 And b = 48 Or a = 48 And b = 10 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 51)
					ok = 1
				End If
				If a = 34 And b = 66 Or a = 66 And b = 34 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
					ok = 1
				End If
				If a = 07 And b = 24 Or a = 24 And b = 07 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 19)
					ok = 1
				End If
				If a = 09 And b = 40 Or a = 40 And b = 09 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
					ok = 1
				End If
				If a = 03 And b = 90 Or a = 90 And b = 03 Then
					ambata(1) = Fuori90(Estratto(es,r(1),4) + 25)
					ok = 1
				End If
				If a = 76 And b = 90 Or a = 90 And b = 76 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 14)
					ok = 1
				End If
				If a = 13 And b = 72 Or a = 72 And b = 13 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 19)
					ok = 1
				End If
				If a = 30 And b = 87 Or a = 87 And b = 30 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
					ok = 1
				End If
				If a = 49 And b = 82 Or a = 82 And b = 49 Then
					ambata(1) = Fuori90(Estratto(es,r(1),3) + 77)
					ok = 1
				End If
				If a = 45 And b = 75 Or a = 75 And b = 45 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
					ok = 1
				End If
				If a = 23 And b = 56 Or a = 56 And b = 23 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 27)
					ok = 1
				End If
				If a = 45 And b = 64 Or a = 64 And b = 45 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 38)
					ok = 1
				End If
				If a = 31 And b = 78 Or a = 78 And b = 31 Then
					ambata(1) = Fuori90(Estratto(es,r(1),1) + 36)
					ok = 1
				End If
				If a = 09 And b = 12 Or a = 12 And b = 09 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 30)
					ok = 1
				End If
				If a = 22 And b = 90 Or a = 90 And b = 22 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 23)
					ok = 1
				End If
				If a = 49 And b = 76 Or a = 76 And b = 49 Then
					ambata(1) = Fuori90(Estratto(es,r(1),2) + 14)
					ok = 1
				End If
				If a = 42 And b = 82 Or a = 82 And b = 42 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 59)
					ok = 1
				End If
				If a = 13 And b = 27 Or a = 27 And b = 13 Then
					ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
					ok = 1
				End If
				'--------------------------------------------------
				If ok = 1 Then
					co = co + 1
					ColoreTesto 0
					Scrivi String(90,"*") & " Caso n°" & co,1
					ColoreTesto 1
					Scrivi DataEstrazione(es) & "  *  " & NomeRuota(8) & "  *  " & StringaEstratti(es,8) & "   *  AMBO SPIA  *   " & a & "-" & b,1
					ColoreTesto 0
					Scrivi String(90,"*"),1
					ruota(1) = 1
					cg = 0
					ColoreTesto 0
					num(1) = ambata(1)
					cg = cg + 1
					ColoreTesto 2
					ra = SerieRitardo(Ini,es,num,r,1)'-----> ra = Ritardo Ambata
					Scrivi "IL RITARDO DELL'AMBATA " & Format2(num(1)) & " ALL'ESTRAZIONE DI CALCOLO E' DI: " & Format2(ra) & " ESTRAZIONI",1
					ColoreTesto 0
					ImpostaGiocata cg,num,r,posta,k,1
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 aprile 2025
    Bari
    23
    43
    18
    70
    32
    Cagliari
    68
    86
    69
    48
    67
    Firenze
    35
    38
    72
    33
    51
    Genova
    88
    74
    80
    84
    61
    Milano
    58
    44
    77
    29
    21
    Napoli
    50
    45
    37
    16
    27
    Palermo
    89
    26
    15
    28
    75
    Roma
    42
    46
    82
    48
    31
    Torino
    08
    75
    01
    42
    36
    Venezia
    57
    40
    61
    17
    02
    Nazionale
    38
    05
    58
    17
    15
    Estrazione Simbolotto
    Genova
    11
    34
    03
    35
    19

Ultimi Messaggi

Indietro
Alto