Novità

NEW SCRIPT

Lady Oscar

Lady Oscar

Super Member >PLATINUM<
Ciao a tutti! Rieccomi qui con una nuova richiesta di script.

SPIEGAZIONE:
All'uscita di un numero gemello su cagliari(ma dovrei poter modificare manualmente anche la ruota)in I° o V° posizione, si somma al gemello il numero 14 (con regola del fuori 90), si fa il +1 e -1, si prende il II° estratto di quella ruota e si somma il fisso 5, si prende il IV° estratto e si somma il fisso 7 e si mettono in gioco su cagliari, sulla ruota consecutiva, e sulla ruota diametrale.

ESEMPIO PRATICO:

Estrazione del 03 /02/11
55 a CA in v° posizione

numeri in gioco
55 + 14 = 69 (prima ambata)

+1 di 69 = 70

-1 di 69 = 68

61 + 5 = 66 (II° estratto a cui si somma il fisso 5 con regola del fuori 90)

75 + 7 = 82 (IV° estratto a cui si somma il fisso 7 con regola del fuori 90)


RIEPILOGO NUMERI IN GIOCO

69 - 70 - 68 - 66 - 82</u>

da mettere in gioco sulla ruota del numero gemello(in questo caso Cagliari) su ruota consecutiva e su ruota diametrale.

RISULTATI:
- Al 3° colpo Ambo a CA;
- Al 5° colpo ambo a CA.

Chi mi aiuta???

Grazie anticipatamente.
 
Ciauz controlla questo

Sub main()

ColoreTesto 2
Scrivi "================================================ G E M E L L I===================== ",1
Scrivi "===============================================di DI LADY OSCAR=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0

Dim nu1(2),nu2(5)
Dim ruote(1)
Dim posta(1),poste(3)
poste(2)=1
poste(3)=1
k=13

fin= EstrazioneFin
ini= EstrazioneFin-200
For es=ini To fin

For r= 1 To 10
For p1=1 To 5
n1=Estratto(es,r,p1)


If Gemello(n1) And (p1=1 Or p1=5) Then

a=Fuori90(n1+14)'1°Ambata
b=Fuori90(a+1)
c=abs(a-1)
d=Fuori90(Estratto(es,r,2)+5)
e=Fuori90(Estratto(es,r,4)+7)
ruote(1)=r

Scrivi
Scrivi DataEstrazione((es),1)&" "&SiglaRuota(r)&" "& StringaEstratti(es,r)
Scrivi "gemello = "& Format2(n1)



nu2(1)=a
nu2(2)=b
nu2(3)=c
nu2(4)=d
nu2(5)=e

ImpostaGiocata 1,nu2,ruote,poste,k




Gioca es

End If
Next : Next : Next
ScriviResoconto
ColoreTesto 2
Scrivi "================================================ G E M E L L I===================== ",1
Scrivi "===============================================di DI LADY OSCAR=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
End Sub



«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
Ciao Djnomade. Grazie per avermi aiutato. Sembra che sono invisibile!!!! O forse mi snobbano. :(

Ho visto lo script ma c'è un problema per le ruote.

Ti spiego....
Quando lo script trova la condizione del gemello fa in calcoli per i numeri da mettere in gioco, deve farmi vedere nell'output la messa in gioco del numeri in 3 ruote, e cioè:

1) nella ruota dove ha individuato il gemello
2) nella ruota consecutiva a quella dove a trovato il gemello
3) nella ruota diametrale della ruota in cui lha trovato il gemello

ESEMPIO PRATICO DELLE RUOTE:

Se lo script trova l'11 a BA.... le rutoe di gioco saranno:
BA
CA (ruota consecutiva)
NA (ruot diametrale)

Spero di essere stata chiara!

E spero sopratutto che tu possa aiutarmi!!!
 
Chiedo scusa a DjNomade che ha realzzato lo script, ma :D:D ero di passaggi e vista la necessità della nostra Lady ho pensato di non farLa ulteriormente attendere.:D:D

Eccoti servita Lady Oscar

Non ve la prendete se ho scherzato

ciao

Codice: 
Sub Main()
	ColoreTesto 2
	Scrivi "================================================ G E M E L L I===================== ",1
	Scrivi "===============================================di DI LADY OSCAR=================== ",1
	Scrivi "===============================================Listato DjNomade",1
	Scrivi
	ColoreTesto 0
	Dim nu1(2),nu2(5)
	Dim ruote(3)
	Dim posta(1),poste(3)
	poste(2) = 1
	poste(3) = 1
	k = 13
	fin = EstrazioneFin
	ini = EstrazioneFin - 200
	For es = ini To fin
		For r = 1 To 10
			For p1 = 1 To 5
				n1 = Estratto(es,r,p1)
				If Gemello(n1) And(p1 = 1 Or p1 = 5) Then
					a = Fuori90(n1 + 14)'1°Ambata
					b = Fuori90(a + 1)
					c = Abs(a - 1)
					d = Fuori90(Estratto(es,r,2) + 5)
					e = Fuori90(Estratto(es,r,4) + 7)
					ruote(1) = r
					ruote(2)= r+1
					If ruote(1)=10 Then
					ruote(2)=1
					End If
					ruote(3)= FuoriX(r+5,5)	
					Scrivi
					ColoreTesto 2
					Scrivi DataEstrazione((es),1) & "   |  " & SiglaRuota(r) & " | " & StringaEstratti(es,r)
					ColoreTesto 0

					Scrivi "gemello = " & Format2(n1)
					nu2(1) = a
					nu2(2) = b
					nu2(3) = c
					nu2(4) = d
					nu2(5) = e
					
					ImpostaGiocata 1,nu2,ruote,poste,k
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 2
	Scrivi "================================================ G E M E L L I===================== ",1
	Scrivi "===============================================di DI LADY OSCAR=================== ",1
	Scrivi "===============================================Listato DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Lady Oscar, vedo che sei amante degli script, perchè invece di chiederli belli e fatti non provi a chiedere come si fanno, così un giorno potrai essere indipendente.
Come dice un detto cinese è meglio insegnare a pescare che portare il pesce tutti i giorni.
Chiedi pure se vuoi.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Buongiorno Claudio!!!

Grazie per il suggerimento. Infatti mi sto dando da fare!!! Ho scaricato i video di LuigiB..... sono meravigliosi.

Ma come ben capisci, non si imparano dall'oggi al domani, quindi in attesa di essere esperta, devo chiedere. ;)


... ... ...

Ciao ragazzi, ho controllato lo script. E abbiamo fatto in passo avanti, ma manca ancora la ruota diametrale.

Infatti lo script mi mette in gioco in numeri sulla ruota del numero gemello, sulla ruota consecutiva, ma non sulla ruota diametrale.


.... .... ....
AGGIORNAMENTO
Ragazzi ho cambiato questa parte di codice per inserire la ruota diamentrale ........ E FUNZIONA!!!!!

Codice: 
ruote(1) = r
ruote(2) = r+1
If ruote(1) = 10 Then
ruote(2) = 1
End If
ruote(3) = RuotaDiametrale (r)

GRANDE!!!

Grazie a tutti. Verifico se funziona bene e vi do conferma!!!
 
Brava, ho notato anche io che la ruota diametrale non veniva rilevata sempre... non ricordavo che vi era la funzione RuotaDiametrale.

Se devi stoppare le giocate alla 1^ vincita vai sull'help di ImpostaGiocata

Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Grazie Claudio.

Il prossimo aiuto che chiedero .... .... sarà con una bozza di script fatto da me.

Ho veeramente voglia di essere asutonoma .... e magari di essere di aiuto.

Sui cicli For mi confondo un po. Molto di quello che so l'ho imparato studiando gli script. Ma per ora mi limito a quelli facili.

Alla prossima.
 
quote:Originally posted by Lady Oscar

Grazie Claudio.

Il prossimo aiuto che chiedero .... .... sarà con una bozza di script fatto da me.

Ho veeramente voglia di essere asutonoma .... e magari di essere di aiuto.

Sui cicli For mi confondo un po. Molto di quello che so l'ho imparato studiando gli script. Ma per ora mi limito a quelli facili.

Alla prossima.
Clicca per espandere...

FS-em-allegre_4.gif



<center>
10gmnnd.png
</center>
 
x Lady Oscar

Sui cicli For mi confondo un po.

Sono molto semplici, eseguono ripettutamente una serie di istruzioni.


For es = ini to fin
istruzione ....
istruzione...
Next

vuol dire che
Per es(estrazione) = ini a fin
esegue le istruzioni e
ripete (next)
sostanzialmente esegue le istruzione contenute tra la riga for e la riga next per tutti i valori di es da es = ini (inizio estrazioni) a es = fin (fine estrazioni).
Nei cicli for possono anche essere annidati altri cicli for per ulteriori esigenze.

Impara ad utilizzare le indentature che sono importanti e servono a leggere in maniera più chiara il listato e ti renderai conto del funzionamento dei cicli for.

Se copi un listato non indentato tipo questo:


Sub main()
ColoreTesto 2
Scrivi "================================================ G E M E L L I===================== ",1
Scrivi "===============================================di DI LADY OSCAR=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0

Dim nu1(2),nu2(5)
Dim ruote(1)
Dim posta(1),poste(3)
poste(2)=1
poste(3)=1
k=13

fin= EstrazioneFin
ini= EstrazioneFin-200
For es=ini To fin

For r= 1 To 10
For p1=1 To 5
n1=Estratto(es,r,p1)


If Gemello(n1) And (p1=1 Or p1=5) Then

a=Fuori90(n1+14)'1°Ambata
b=Fuori90(a+1)
c=abs(a-1)
d=Fuori90(Estratto(es,r,2)+5)
e=Fuori90(Estratto(es,r,4)+7)
ruote(1)=r

Scrivi
Scrivi DataEstrazione((es),1)&" "&SiglaRuota(r)&" "& StringaEstratti(es,r)
Scrivi "gemello = "& Format2(n1)



nu2(1)=a
nu2(2)=b
nu2(3)=c
nu2(4)=d
nu2(5)=e

ImpostaGiocata 1,nu2,ruote,poste,k




Gioca es

End If
Next : Next : Next
ScriviResoconto
ColoreTesto 2
Scrivi "================================================ G E M E L L I===================== ",1
Scrivi "===============================================di DI LADY OSCAR=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
End Sub


le istruzioni, come vedi non sono indentate e mantenere un ragionamento di lettura è difficoltoso, diverso è leggere un listato indentato (formattato) tipo questo:

Codice: 
Sub Main()
	ColoreTesto 2
	Scrivi "================================================ G E M E L L I===================== ",1
	Scrivi "===============================================di DI LADY OSCAR=================== ",1
	Scrivi "===============================================Listato DjNomade",1
	Scrivi
	ColoreTesto 0
	Dim nu1(2),nu2(5)
	Dim ruote(3)
	Dim posta(1),poste(3)
	poste(2) = 1
	poste(3) = 1
	k = 13
	fin = EstrazioneFin
	ini = EstrazioneFin - 200
	For es = ini To fin
		For r = 1 To 10
			For p1 = 1 To 5
				n1 = Estratto(es,r,p1)
				If Gemello(n1) And(p1 = 1 Or p1 = 5) Then
					a = Fuori90(n1 + 14)'1°Ambata
					b = Fuori90(a + 1)
					c = Abs(a - 1)
					d = Fuori90(Estratto(es,r,2) + 5)
					e = Fuori90(Estratto(es,r,4) + 7)
					ruote(1) = r
					ruote(2)= r+1
					If ruote(1)=10 Then
					ruote(2)=1
					End If
					ruote(3)= FuoriX(r+5,5)	
					Scrivi
					ColoreTesto 2
					Scrivi DataEstrazione((es),1) & "   |  " & SiglaRuota(r) & " | " & StringaEstratti(es,r)
					ColoreTesto 0

					Scrivi "gemello = " & Format2(n1)
					nu2(1) = a
					nu2(2) = b
					nu2(3) = c
					nu2(4) = d
					nu2(5) = e
					
					ImpostaGiocata 1,nu2,ruote,poste,k
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 2
	Scrivi "================================================ G E M E L L I===================== ",1
	Scrivi "===============================================di DI LADY OSCAR=================== ",1
	Scrivi "===============================================Listato DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub
puoi notare che i vari "For" hanno in corrispondenza verticali un "Next" cosi come gli "If" un "End If" que
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto