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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto