Novità

listato da fare

Zetrix

Zetrix

Advanced Premium Member
buon giorno a tutti,, chiedo se possibile fare un listato in forma script che mi ricerca un ambo particolare su una estrazione in forma isotopa ,, una volta rintracciato questo ambo su due ruote si mette in gioco per tre colpi un ambata segnalata dalla stessa tabella di ricerca degli ambi,, premetto che gli ambi sono molti per questo chiedo se possibile fare questo listato allego la tabella degli ambi aura TABELLA.jpgp.s poi ci sarebbe anche l ambata paracadute che nn e altro il prodotto dell ambata x2 ,, esempio 74x2 uguale 58,, ma questo per il momento si puo fare anche visivo dopo aver visualizzato l ambata sulle due ruote di ricerca
 
Ultima modifica:
Ciao zetrix ,ecco il listato spero di aver capito fammi sapere ciaoo!
Codice: 
[SIZE=2][COLOR=#800080][COLOR=#222222]Sub Main
Scrivi " Script per Zetrix , l'ambo Aura by *Max-lotto*",1,,3
Scrivi"============================================"
Dim Aambata(1),Anx,Bnx,x1,x2,n1,n2,c,rs,Ini,fin,es,r1,r2,p1,p2
Dim ruote(2)
Dim poste(1)
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
fin = EstrazioneFin
Ini = fin - rs
For es = Ini To fin
 For r1 = 1 To 10
  For r2 = r1 + 1 To 12
  If r2=11 Then r2=12
   For p1 = 1 To 5
    For p2 = 1 To 5
      If p1 = p2 Then
      n1 = Estratto(es,r1,p1)
      n2 = Estratto(es,r2,p2)
      If(n2 = 90) = False And (n1 = 90) = False Then
       Anx = Fuori90(n1*2)
       Bnx = Fuori90(n2*2)
       x1 = Fuori90(180 - Anx)
       x2 = Fuori90(180 - Bnx)
       If x1 = n2 Or x2 = n1 Then
        poste(1) = 1
        ruote(1) = r1
        ruote(2) = r2
        c = c + 1
        Aambata(1) = Fuori90(n1 + n2)
        ImpostaGiocata c,Aambata,ruote,poste,9,1
         Gioca es
        Scrivi DataEstrazione(es) + " " + NomeRuota(r1) + " " + Format2(n1) + " " + NomeRuota(r2) + " " + Format2(n2)+" AMBATA " +Format2(Fuori90(n1+n2)) +" ",1,,,1
         End If
        End If
        End If
       Next
      Next
     Next
    Next
   Next
   ScriviResoconto False,False
   End Sub[/COLOR][/COLOR][/SIZE]
 
Ultima modifica:
Non so se l'ho implementato male ma a me sembra che sto metodo generi davvero pochi casi di gioco .. per giocare 23 volte uno doveva avere gli stessi anni di matusalemme .-) ..
Forse avro fatto qualche errore .. ciao

Codice: 
Option Explicit
Sub Main
	Dim idEstr,Inizio,Fine
	Dim r,rr,idAmbo,numGioc,nColpi
	ReDim aAmbiAurei(89,2)
	ReDim aPoste(1)
	ReDim aNumInGioco(1)
	ReDim aRuote(2)
	aPoste(1) = 1
	numGioc = 0
	nColpi = 3
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Call AlimentaAmbiAurei(aAmbiAurei)
	For idEstr = Inizio To Fine
		For r = 1 To 10
			If r <> 11 Then
				ReDim aRetPos(5)
				For idAmbo = 1 To UBound(aAmbiAurei)
					If IsAmboPresente(aAmbiAurei,idAmbo,r,idEstr,aRetPos) Then
						For rr = r + 1 To 12
							If rr <> 11 Then
								If IsAmboPresenteInPos(aAmbiAurei,idAmbo,rr,idEstr,aRetPos) Then
									'Call Scrivi("Ruote      : " & SiglaRuota(r) & "." & SiglaRuota(rr))
									Call Scrivi("Estrazione : " & GetInfoEstrazione(idEstr))
									Call Scrivi("Ambo aureo : " & Format2(aAmbiAurei(idAmbo,1)) & "." & Format2(aAmbiAurei(idAmbo,2)))
									ReDim aEstratti(0)
									Call GetArrayNumeriRuota(idEstr,r,aEstratti)
									Call Scrivi("Numeri     : " & SiglaRuota(r) & " " & StringaNumeri(aEstratti))
									ReDim aEstratti(0)
									Call GetArrayNumeriRuota(idEstr,rr,aEstratti)
									Call Scrivi("Numeri     : " & SiglaRuota(rr) & " " & StringaNumeri(aEstratti))
									
									aNumInGioco(1) = aAmbiAurei(idAmbo,0)
									aRuote(1) = r
									aRuote(2) = rr
									numGioc = numGioc + 1
									Call ImpostaGiocata(numGioc,aNumInGioco,aRuote,aPoste,nColpi,1)
									numGioc = numGioc + 1
									aNumInGioco(1) = Fuori90(aAmbiAurei(idAmbo,0) *2)
									Call ImpostaGiocata(numGioc,aNumInGioco,aRuote,aPoste,nColpi,1)
									Call Gioca(idEstr)
								End If
							End If
						Next
					End If
				Next
			End If
		Next
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	Call ScriviResoconto
End Sub
Sub AlimentaAmbiAurei(aAmbiAurei)
	Dim k
	Dim numB
	Dim i
	i = 0
	numB = 90
	For k = 1 To 44
		i = i + 1
		numB = numB - 2
		aAmbiAurei(i,1) = k
		aAmbiAurei(i,2) = numB
		aAmbiAurei(i,0) = 90 - k
		'Scrivi (Format2(k) & " - " & Format2(numB) & " - " & Format2(90-k))
	Next
	numB = 90
	For k = 46 To 89
		i = i + 1
		numB = numB - 2
		aAmbiAurei(i,1) = k
		aAmbiAurei(i,2) = numB
		aAmbiAurei(i,0) = 90 - k
		'Scrivi (Format2(k) & " - " & Format2(numB) & " - " & Format2(90-k))
	Next
End Sub
Function IsAmboPresente(aAmbi,idAmbo,Ruota,idEstr,aRetPos)
	Dim k,n,t
	t = 0
	ReDim aRetPos(5)
	For k = 1 To 5
		n = Estratto(idEstr,Ruota,k)
		If aAmbi(idAmbo,1) = n Or aAmbi(idAmbo,2) = n Then
			aRetPos(k) = True
			t = t + 1
		End If
	Next
	IsAmboPresente =(t = 2)
End Function
Function IsAmboPresenteInPos(aAmbi,idAmbo,Ruota,idEstr,aPos)
	Dim k,n,t
	t = 0
	For k = 1 To 5
		If aPos(k) Then
			n = Estratto(idEstr,Ruota,k)
			If aAmbi(idAmbo,1) = n Or aAmbi(idAmbo,2) = n Then
				t = t + 1
			End If
		End If
	Next
	IsAmboPresenteInPos =(t = 2)
End Function
 
Grande LUIGIB detto MACROSOFT !!!!! sempre il migliore ... ciao stella luminosa dell'informatica, leggere i tuoi programmi è come ascoltare una sinfonia ( faccio notare che sono un vecchio dinosauro e che già 15 anni fa i miei colleghi mi avevano messo sulla scrivania il cartello "Jurassic Park" visto che mi occupavo di mainframe ).

CIAO
 
Ciao buonasera a tutti ,, forse mi sono spiegato male ma lo script nn fa il lavoro che vorrei ,, quello di wambo mi da errore e quindi nn so se lo script fa il suo lavoro,, quello di luigib ho controllato ma nn e questo lo script ,, in altre parole lo script dovrebbe rilevare in forma isotopa su due ruote l ambo aura e mettere in gioco la rispettiva ambata evidenziata in rosso della relativa tabella allegata x tre colpi allora potrei valutare se il metodo e buono ,,
 
riporto alcuni esempi di giocoro.nz 29.JPGro 29.JPG p.s l ambo 58.61 e un ambo aura perche il compl del 61 e 29 e 29x2 e 58.. e 58+61 da somma 29 questa e l ambata da mettere in gioco
 
Ultima modifica:
ogni ambo aura ha il corrispettivo num che andra messo in gioco sulle ruote dove e stata rilevata la condz ,, al momento la ricerca e visiva e vorrei se possibile uno script che mi aiutasse a ritrovare in modo automatico questi ambi particolari come descritto sopra per studiarli meglio , perche ho riscontrato che qualora nn venisse l ambata entra in azione l ambata paracadute che nn e altro esempio il 29x2 uguale 58,,p.s ma questo e un altro discorso perche questo e compito mio se mettere in gioco l ambata paracadute
 
Ultima modifica:
zetrix ha scritto:
mi ricerca un ambo particolare su una estrazione in forma isotopa ,, una volta rintracciato questo ambo su due ruote si mette in gioco per tre colpi un ambata segnalata dalla stessa tabella di ricerca degli amb
Clicca per espandere...

si devo dire che ti sei spiegato male... ciao
 
Ultima modifica di un moderatore:
so che nn e facile fare questo script per questo motivo ho chiesto se era possibile ,, grazie comunque per l interesse ,, buona serata
 
CIAO ZETRIX QUESTO è L'OUTPUT DEI RISULTATI CONTROLLA S'è COSI
Script per Zetrix , l'ambo Aura by *Max-lotto*
============================================
08.10.2013 Firenze 12 Nazionale 39 AMBATA 51
08.10.2013 Genova 68 Palermo 44 AMBATA 22
08.10.2013 Torino 54 Venezia 63 AMBATA 27
10.10.2013 Cagliari 38 Firenze 26 AMBATA 64
10.10.2013 Firenze 58 Venezia 64 AMBATA 32
10.10.2013 Genova 27 Napoli 36 AMBATA 63
10.10.2013 Milano 50 Nazionale 20 AMBATA 70
10.10.2013 Roma 73 Torino 34 AMBATA 17
10.10.2013 Venezia 64 Nazionale 52 AMBATA 26
12.10.2013 Bari 53 Cagliari 74 AMBATA 37
12.10.2013 Bari 87 Torino 06 AMBATA 03
12.10.2013 Cagliari 74 Napoli 08 AMBATA 82
12.10.2013 Firenze 34 Napoli 22 AMBATA 56
12.10.2013 Genova 68 Venezia 56 AMBATA 34
12.10.2013 Genova 13 Nazionale 64 AMBATA 77
15.10.2013 Bari 58 Napoli 64 AMBATA 32
15.10.2013 Cagliari 22 Nazionale 34 AMBATA 56
15.10.2013 Firenze 18 Napoli 36 AMBATA 54
15.10.2013 Firenze 18 Roma 36 AMBATA 54
15.10.2013 Genova 31 Napoli 28 AMBATA 59
15.10.2013 Napoli 28 Nazionale 34 AMBATA 62
17.10.2013 Bari 42 Genova 69 AMBATA 21
17.10.2013 Bari 68 Torino 44 AMBATA 22
17.10.2013 Cagliari 68 Nazionale 44 AMBATA 22
17.10.2013 Roma 20 Torino 50 AMBATA 70
19.10.2013 Bari 52 Firenze 19 AMBATA 71
19.10.2013 Bari 60 Nazionale 15 AMBATA 75
19.10.2013 Cagliari 65 Venezia 50 AMBATA 25
19.10.2013 Firenze 42 Genova 69 AMBATA 21
19.10.2013 Firenze 42 Roma 24 AMBATA 66
19.10.2013 Milano 67 Palermo 46 AMBATA 23
19.10.2013 Milano 65 Venezia 50 AMBATA 25
19.10.2013 Napoli 79 Palermo 22 AMBATA 11
19.10.2013 Napoli 86 Torino 02 AMBATA 88
19.10.2013 Palermo 44 Venezia 02 AMBATA 46
19.10.2013 Palermo 64 Venezia 58 AMBATA 32
22.10.2013 Bari 68 Napoli 56 AMBATA 34
22.10.2013 Bari 52 Palermo 19 AMBATA 71
22.10.2013 Bari 68 Roma 44 AMBATA 22
22.10.2013 Bari 52 Roma 64 AMBATA 26
22.10.2013 Bari 68 Venezia 11 AMBATA 79
22.10.2013 Cagliari 53 Nazionale 74 AMBATA 37
22.10.2013 Palermo 86 Torino 02 AMBATA 88
24.10.2013 Bari 30 Torino 30 AMBATA 60
24.10.2013 Cagliari 69 Roma 42 AMBATA 21
24.10.2013 Firenze 86 Nazionale 08 AMBATA 04
24.10.2013 Genova 41 Nazionale 08 AMBATA 49
24.10.2013 Roma 31 Venezia 28 AMBATA 59
26.10.2013 Bari 82 Nazionale 49 AMBATA 41
26.10.2013 Cagliari 06 Genova 78 AMBATA 84
26.10.2013 Roma 58 Nazionale 61 AMBATA 29
29.10.2013 Cagliari 66 Palermo 48 AMBATA 24
29.10.2013 Milano 83 Venezia 14 AMBATA 07
29.10.2013 Palermo 52 Nazionale 76 AMBATA 38
31.10.2013 Firenze 14 Napoli 62 AMBATA 76
31.10.2013 Genova 11 Palermo 68 AMBATA 79
31.10.2013 Genova 64 Palermo 13 AMBATA 77
31.10.2013 Napoli 31 Nazionale 28 AMBATA 59
31.10.2013 Torino 31 Nazionale 28 AMBATA 59
 
Ultima modifica:
grazie max-lotto si e cosi , ma lo script dove,, perche vorrei studiarlo meglio se in caso e presente gia l ambata in data estr e quindi vedere se e valida l ambata e altro ancora, perche vorrei raggiungere l obiettivo dell ambo con un altra tecnica ciclometrica e nn solo l ambata
 
Ultima modifica:
CIAO MAX-LOTTO HO VISTO CHE NELLA RICERCA E PRESENTE ANCHE UN AMBO 30.30 QUESTO NN E VALIDO,, I NUM NN DEVONO ESSERE UGUALI,,COMUNQUE HO NOTATO CHE SE NN CI SONO NUM RIPETUTI LA CONDZ DI GIOCO E PIU VALIDA P.S A VOLTE SUCCEDE CHE SE SONO PRESENTI PIU NUM RIPETUTI QUESTI ANNULLANO I NUM CHE DOVREBBERO USCIRE
 
Ultima modifica:
SECONDO ME A VOLTE PER USCIRE UN AMBATA SU RUOTA A COLPO NN BASTA SOLA UN CONDZ IN QUESTO CASO IN FORMA ISOTOPA CI DEVE ESSERE UN ALTRA CONDZ COMUNQUE PER RESTRINGERE IL CAMPO DI RICERCA DEVONO ESSERE PRESENTI SOLO QUESTI DUE NUM IN FORMA ISOTOPA E SOLO SU DUE RUOTE POI IL RESTO E COMPITO MIO
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto