script: possibile una modifica?

miki55 · 3 Aprile 2012

Signori difficilmente mi inserisco in questa area xkè sono ignorante di questa materia,
allora kiedo aiuto a uno di voi se possibile una modifica a questo script che trovo interessante

Esso è valido per l'inserimento di un solo estratto che ci dice e qual'è il suo ritardo att e quello storico per estr determ.

L'eventuale modifica sarebbe che invece di un solo numero per volta potremmo inserire 2/3/4 nr
a piacere per la ricerca di quale posizione ha maggior ritardo per estratto determ

Ad esempio la terzina simm 1.31.61 oppure 1.10.11.19 in quale posiz ha maggior rit?
Utile questo script per la velocità, poichè la ricerca è distibuita su tutte e 10 le ruote in contemporanea,
invece di inserirli uno per volta su altri software....

Grazie sono a disposizione

SubMain()

Dimnumero

Dimritardi(5,10)

Dimstorici(5,10)

numero=InputBox("Inserisci ilnumero per la ricerca.")

Ifnumero="" Then

MsgBox "Programmaterminato, non e' stato inserito nessun numero"

ExitSub

EndIf

For r= 1 To 10

For i= 1 To 5

ritardi(i,r)=EstrazioneIni

Next

Next

For n=EstrazioneIniToEstrazioneFin

For r= 1 To 10

p=Posizione(n,r,numero)

If p>0 Then

If n-ritardi(p,r) >storici(p,r) Thenstorici(p,r)=n-ritardi(p,r)

ritardi(p,r)=n

EndIf

Next

Next

Scrivi ""

ScriviString(40,"=")

Scrivi "Ritardi nelle5 posizioni del numero " &CStr(numero)

ScriviString(40,"=")

Scrivi ""

For r=1 To 10

ScriviNomeRuota(r)

Scrivi " Rit Sto"

For p= 1 To 5

Scrivi "Posizione " &CStr(p) & ": " &FormatSpace(EstrazioneFin-ritardi(p,r),6) &CStr(storici(p,r))

Next

Scrivi "-----------------------------"

Next

EndSub

Roby · 3 Aprile 2012

Ciao Miki, ti consiglio di formattare lo script (usa l'icona cancelletto) altrimenti è inutilizzabile

miki55 · 3 Aprile 2012

ciao Black, quale sarebbe l'incona cancelletto? spiegami per favore

morena59 · 3 Aprile 2012

Codice:

Sub Main()	Dim numero
	Dim ritardi(5,10)
	Dim storici(5,10)
	numero = InputBox("Inserisci ilnumero per la ricerca.")
	If numero = "" Then
		MsgBox "Programmaterminato, non e' stato inserito nessun numero"
		Exit Sub
	End If
	For r = 1 To 10
		For i = 1 To 5
			ritardi(i,r) = EstrazioneIni
		Next
	Next
	For n = EstrazioneIni To EstrazioneFin
		For r = 1 To 10
			p = Posizione(n,r,numero)
			If p > 0 Then
				If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
				ritardi(p,r) = n
			End If
		Next
	Next
	Scrivi ""
	Scrivi String(40,"=")
	Scrivi "Ritardi nelle5 posizioni del numero " & CStr(numero)
	Scrivi String(40,"=")
	Scrivi ""
	For r = 1 To 10
		Scrivi NomeRuota(r)
		Scrivi " Rit Sto"
		For p = 1 To 5
			Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
		Next
		Scrivi "-----------------------------"
	Next
End Sub

Roby · 3 Aprile 2012

Guarda qui

http://img201.imageshack.us/img201/8048/coded.jpg

Tra l'altro credo che Baffo nella guida abbia spiegato anche questo...

miki55 · 3 Aprile 2012

grazie Ritchie, ma il ""Code:"" usato da antaleo invece?
-----------------------------------------------------------------------
grazie anche a te antaleo, ho provato lo script ma non funziona
con un estratto si ma con 2 o 3 no...

Baffoblu · 3 Aprile 2012

Prova con questo....

Mi è venuto così, ma penso che si può fare di meglio.

max per 3 numeri.

Codice:

Sub Main()
    Dim num(3)
    Dim ritardi(5,10)
    Dim storici(5,10)
    qt = InputBox("Quanti numeri ? - Max 3.")
    If qt = 1 Then
        num(1) = InputBox("Inserisci il 1° numero per la ricerca.")
    End If
    If qt = 2 Then
        num(1) = InputBox("Inserisci il 1° numero per la ricerca.")
        num(2) = InputBox("Inserisci il 2° numero per la ricerca.")
    End If
    If qt = 3 Then
        num(1) = InputBox("Inserisci il 1° numero per la ricerca.")
        num(2) = InputBox("Inserisci il 2° numero per la ricerca.")
        num(3) = InputBox("Inserisci il 3° numero per la ricerca.")
    End If
    If qt = 1 Then
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(1))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(1)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
    End If
    If qt = 2 Then
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(1))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(1)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(2))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(2)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
    End If
    If qt = 3 Then
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(1))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(1)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(2))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(2)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
        For r = 1 To 10
            For i = 1 To 5
                ritardi(i,r) = EstrazioneIni
            Next
        Next
        For n = EstrazioneIni To EstrazioneFin
            Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,n)
            For r = 1 To 10
                p = Posizione(n,r,num(3))
                If p > 0 Then
                    If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
                    ritardi(p,r) = n
                End If
            Next
        Next
        ColoreTesto 2
        Scrivi ""
        Scrivi "Ritardi nelle 5 posizioni ",1
        ColoreTesto 0
        Scrivi String(60,"=")
        ColoreTesto 1
        Scrivi "numero " & CStr(num(3)),1
        ColoreTesto 0
        Scrivi String(30,"=")
        Scrivi ""
        For r = 1 To 10
            Scrivi NomeRuota(r)
            Scrivi "Rit Sto"
            For p = 1 To 5
                Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
            Next
            Scrivi "-----------------------------"
        Next
    End If
End Sub

Mike58 · 4 Aprile 2012

Avevo anch'io preparato questa soluzione della combinazione scelta per estratto.

Codice:

Sub Main()
 Dim num(10),numero(10)
 Dim ritardi(5,10)
 Dim storici(5,10)
 qt = InputBox("quanti numeri",,3)
 ScegliNumeri(num)
 For x = 1 To qt
  numero(x) = num(x)
  'numero=InputBox("Inserisci ilnumero per la ricerca.")
  'If numero="" Then
  'MsgBox "Programma terminato, non e' stato inserito nessun numero"
  'Exit Sub
  'End If
  For r = 1 To 10
   For i = 1 To 5
    ritardi(i,r) = EstrazioneIni
   Next
  Next
  Ini = EstrazioneIni
  fin = EstrazioneFin
  For n = Ini To Fin
  Call Messaggio("elaboro N. " & numero(x))
   Call AvanzamentoElab(Ini,fin,n)
   For r = 1 To 10
    p = Posizione(n,r,numero(x))
    If p > 0 Then
     If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
     ritardi(p,r) = n
    End If
   Next
  Next
 Next
 Scrivi ""
 Scrivi String(60,"=")
 Scrivi "Ritardi nelle 5 posizioni del numero " & StringaNumeri(num)
 Scrivi String(60,"=")
 Scrivi ""
 For r = 1 To 10
  Scrivi NomeRuota(r)
  Scrivi "             Rit - Sto  "
  Scrivi
  For p = 1 To 5
   Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
  Next
  Scrivi "-----------------------------"
 Next
End Sub

miki55 · 4 Aprile 2012

Mike58 e Baffoblu
...non avevo dubbi sulla Vs professionalità, questo script è un'ulteriore conferma.
Grazie sinceri, cogliendo l'occasione per augurarvi Buona Pasqua

miki55 · 4 Aprile 2012

PECCATO!
volevo informare a mike58 che il suo script non funziona molto bene
puoi rivederlo?
ho fatto diverse prove con 3/4/5 numeri ma i dati non sono quelli
Questo sotto è solo un esempio ricavato, poi a lato tra () ho messo gli ra e rs di un'altro software

Ritardi nelle 5 posizioni del numero 2.20.22.29
============================================================

Bari
Rit - Sto

Posizione 1: 12 596 ( ra 12 rs 101)
Posizione 2: 13 431 ( ra 13 rs 102)
Posizione 3: 650 422 ( ra 60 rs 107)
Posizione 4: 5 374 ( ra 05 rs 145)
Posizione 5: 86 706 ( ra 05 rs 143)

____________________________________________________________

x Baffoblu

...gli estratti nell'output devono segnalarmi nella posiz deyterm di tutta la terzina o
quartina non singolarmente...

Mike58 · 4 Aprile 2012

Ciao Miki55, nella mia correzione ho solo messo la ricerca di più mumeri come da tua richiesta lasciando i calcoli dello script in origine.
Infatti i calcoli erano calcolati con istruzioni diverse dal vbscript solito e facendo una prima analisi sembravano corretti, vedrò di farlo ex novo e controllarlo meglio.

Ciao

miki55 · 4 Aprile 2012

grazie mike

Baffoblu · 4 Aprile 2012

miki55 ha scritto:
Ritardi nelle 5 posizioni del numero 2.20.22.29
============================================================

Bari
Rit - Sto

Posizione 1: 12 596 ( ra 12 rs 101)
Posizione 2: 13 431 ( ra 13 rs 102)
Posizione 3: 650 422 ( ra 60 rs 107)
Posizione 4: 5 374 ( ra 05 rs 145)
Posizione 5: 86 706 ( ra 05 rs 143)

____________________________________________________________

x Baffoblu

...gli estratti nell'output devono segnalarmi nella posiz deyterm di tutta la terzina o
quartina non singolarmente...

Adesso sei in buone mani con Mike58......

Comunque con Spaziometria mi segnala questi risultati :

miki55 · 4 Aprile 2012

.....lo sò Baffoblù, ho già fatto queste ricerche, ma così devo aprire 5 volte spaziometria
ecco perchè kiedevo questo script.

Mike58 · 5 Aprile 2012

Ciao Miki, mi spiace per l'attesa ma questa volta sono andato in tilt con lo script.
Sto cercando di capire gli errori dei calcoli ma non riesco a venirne a capo, e neanche a farne uno ex novo con codici a me più familiari.
La dificoltà sta nel fatto che non riesco a trovare i ritardi sulle posizioni e tra mille giri e simulazioni mi sono affogato in mezzo bicchiere d'acqua.
Purtroppo oggi ancora non ho tempo fino a stasera causa impegni di lavoro e per questo chiedo a Baffoblu o altri se può darmi un aiuto sulla ricerca del ritardo di posizione determinato.

PS. WOH... Ho visto il listato di baffo con le function ....in altro trhead ... bravissimo e complimentissimi.

Per Giulio quello che chiedi è anche fattibile è appena riesco a venire fuori dal mezzo bicchiero mi dedicherò anche a quello.

Scusate ma la delusione è anche mia.

Intanto rinnovo l'aiuto se altri riescono a capire e dare uno spunto sarebbe cosa gradita.

Ciao

Baffoblu · 5 Aprile 2012

Mike58 ha scritto:
Ciao Miki, mi spiace per l'attesa ma questa volta sono andato in tilt con lo script.
Sto cercando di capire gli errori dei calcoli ma non riesco a venirne a capo, e neanche a farne uno ex novo con codici a me più familiari.
La dificoltà sta nel fatto che non riesco a trovare i ritardi sulle posizioni e tra mille giri e simulazioni mi sono affogato in mezzo bicchiere d'acqua.
Purtroppo oggi ancora non ho tempo fino a stasera causa impegni di lavoro e per questo chiedo a Baffoblu o altri se può darmi un aiuto sulla ricerca del ritardo di posizione determinato.

PS. WOH... Ho visto il listato di baffo con le function ....in altro trhead ... bravissimo e complimentissimi.

Per Giulio quello che chiedi è anche fattibile è appena riesco a venire fuori dal mezzo bicchiero mi dedicherò anche a quello.

Scusate ma la delusione è anche mia.

Intanto rinnovo l'aiuto se altri riescono a capire e dare uno spunto sarebbe cosa gradita.

Ciao

Ciao Mike

Anchio sono indaffarato ( parenti e amici per casa).

Anchio per il momento non so venirne a capo,
Me la devo studiare con calma e serenità,
e in questo momento........(forse dopo le feste...)

Grazie, hai visto il mio script con la Function....
penso che migliore di quello, solo Luigi.....

Anchio dico a Miki di avere pazienza.....

poi se i guru dello script si fanno avanti, meglio.....
cosi impariamo da loro.....

miki55 · 5 Aprile 2012

tranquilli ragazzi! .....pensiamo alle ns famiglie, è Pasqua!
per lo script se ne parla dopo le feste...
AUGURI

Mike58 · 6 Aprile 2012

Ciao Miki, mi rendo conto che non è quello che chiedevi ma sulle posizioni devo lavorarci.
Intanto per le tue verifiche ti posto un listatino di statistica veloce appena fatto.

Ciao e buona Pasqua

Codice:

Sub Main()
 Dim num(10),numero(10),ruota(1)
 qt = InputBox("quanti numeri",,3)
 sorte = InputBox("Quale sorte verificare ",,1)
 ScegliNumeri(num)
 For x = 1 To qt
  numero(x) = num(x)
  Call Messaggio("script by Mike58   ---> elaboro N. " & num(x))
 Next
 Ini = EstrazioneIni
 fin = EstrazioneFin
 diff = fin - Ini
 Scrivi"Statistica Veloce su combinazione di Numeri scelti",1,- 1,6
 Scrivi String(80,"=")
 For r = 1 To 12
  If r = 11 Then r = 12
  ruota(1) = r
  Call AvanzamentoElab(Ini,fin,n)
  If ScriptInterrotto Then Exit For
  Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
  Scrivi "VERIFICA PER SORTE..." & sorte,0,0
  Scrivi " della combinazione...",0,0
  Scrivi StringaNumeri(num),1,- 1,4
  Scrivi String(80,"-")
  Scrivi"Sulla Ruota di " & NomeRuota(r) & vbTab & "   ",1,0,3
  Scrivi "  Ultima estraz.   " & StringaEstratti(fin,r),1,- 1,6
  If rit = 0 Then
   ColoreTesto 2
   Scrivi "Ritardo attuale......" & rit,1,0
   Scrivi "   esito --> " & retesito & " [ " & retestratti & " ]"
  Else
   Scrivi "Ritardo attuale......" & rit
  End If
  ColoreTesto 0
  Scrivi "Ritardo Storico......" & ritmax
  Scrivi "Frequenza............" & freq
  Scrivi String(80,"="),1
 Next
 Scrivi " Script By Mike58 ",1,- 1,6
End Sub

miki55 · 6 Aprile 2012

.....grazie mike, mi aiuterà nelle ricerche, di nuovo auguri

Mike58 · 6 Aprile 2012

tabella

tabella

Ciao Miki, ti posto lo stesso script fatto in tabella, per una maggior e migliore visione cosi come diceva Giulio.LG

Codice:

Sub Main()
 Dim num(10),numero(10),ruota(1)
 qt = InputBox("quanti numeri",,3)
 sorte = InputBox("Quale sorte verificare ",,1)
 ScegliNumeri(num)
 For x = 1 To qt
  numero(x) = num(x)
  Call Messaggio("script by Mike58   ---> elaboro N. " & num(x))
 Next
 Ini = EstrazioneIni
 fin = EstrazioneFin
 diff = fin - Ini
 Scrivi"Statistica Veloce su combinazione di Numeri scelti" & "   ",1,0,6
 Scrivi"  Per sorte..." & "   " & sorte,1,- 1,3
 Scrivi String(100,"=")
 Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " totali ESTRAZ. " & DIFF,1
 Scrivi String(100,"=")
 Scrivi
 '--------- crea tabella---------------
 ReDim atitoli(10)
 atitoli(1) = "   Ruota   "
 atitoli(2) = "   Combinazione    "
 'atitoli(3) = " Estratti ultimi "
 atitoli(4) = "  Ritardo attuale  "
 atitoli(5) = "  Ritardo Storico  "
 atitoli(6) = "  Frequenza  "
 atitoli(7) = "   - esito -   "
 atitoli(8) = "   - stringa Esito-   "
 atitoli(9) = "    Estratti ultimi     "
 ' inizializzo la tabella
 Call InitTabella(atitoli,1,,,5)
 For r = 1 To 12
  If r = 11 Then r = 12
  ruota(1) = r
  Call AvanzamentoElab(Ini,fin,n)
  If ScriptInterrotto Then Exit For
  Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
  '----- calcolo valori in tabella --------------
  ReDim avalori(10)
  avalori(1) = NomeRuota(r)
  avalori(2) = StringaNumeri(num)
  'avalori(3) = StringaEstratti(fin,r)
  avalori(4) = rit
  avalori(5) = ritmax
  avalori(6) = freq
  avalori(7) = retesito
  avalori(8) = retestratti
  avalori(9) = StringaEstratti(fin,r)
  Call AddRigaTabella(avalori)
 Next
 Call CreaTabella()
 Scrivi " Script By Mike58 ",1,- 1,6
End Sub

script: possibile una modifica?

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Junior Member

Roby

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<