Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 volendo studiare la ripetizione degli eventi
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

franca46
Amministratore

Italy
24560 invii

Spedito - 11 novembre 2024 :  08:41:28  Mostra profilo  Rispondi con citazione
Sub main()
Dim ru(1)
Dim n(5)

x=17 'modificare a piacere
ini=EstrazioneFin- x
fin=EstrazioneFin

Scrivi
scrivi">>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<",1
scrivi"- in rosso gli estratti non sortiti nelle ultime " &x+1&" estrazioni",1
scrivi"- in blu gli estratti  sortiti nell' ultima estr. "&Dataestrazione(fin),1
scrivi"- in bianco gli estratti sortiti 1 volta nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in giallo gli estratti sortiti 2 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in azzurro  gli estratti sortiti 3 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in verde gli estratti sortiti più di 3 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1




For r=1 To 10
ru(1)=r

Scrivi
ColoreTesto 1
Scrivi "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
Scrivi
ColoreTesto 1
Scrivi"  "& NomeRuota(r)&"   "&dataestrazione(ini)&" - "&dataestrazione(fin),1
Scrivi
ColoreTesto 1
Scrivi "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"


For i=1 To 90
n(1)=i

If (SerieFreq(ini,fin,n,ru,1))= 0 Then ColoreTesto 2
If (SerieFreq(ini,fin-1,n,ru,1))= 1 Then ColoreTesto 5
If (SerieFreq(ini,fin-1,n,ru,1))= 2 Then ColoreTesto 4
If (SerieFreq(ini,fin-1,n,ru,1))= 3 Then ColoreTesto 6
If (SerieFreq(ini,fin-1,n,ru,1))> 3 Then ColoreTesto 3

If (SerieFreq(fin,fin,n,ru,1))> 0 Then ColoreTesto 1

Scrivi " "&format2(n(1))&" ",1,0

If n(1)=10 Then Scrivi""&scrivi

If n(1)=20 Then Scrivi""&scrivi

If n(1)=30 Then Scrivi""&scrivi

If n(1)=40 Then Scrivi""&scrivi

If n(1)=50 Then Scrivi"" &scrivi

If n(1)=60 Then Scrivi""&scrivi

If n(1)=70 Then Scrivi""&scrivi

If n(1)=80 Then Scrivi""&scrivi

If n(1)=90 Then Scrivi""&scrivi



Next
i=0
Next
Scrivi
ColoreTesto 1
scrivi"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
End Sub


Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico

franca46
Amministratore

Italy
24560 invii

Spedito - 11 novembre 2024 :  13:55:30  Mostra profilo  Rispondi con citazione
Per djnomade , quando si manda in esecuzione il listato viene fuori una specie di tabella, con colori vari.
Ma se voglio postarla i colori non si vedono più.
Dovrei fare la cattura dell'immagine?

Grazie, se hai tempo

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

DjNomade
Utente Molto Appassionato

333 invii

Spedito - 11 novembre 2024 :  20:07:32  Mostra profilo  Rispondi con citazione
E si...... l'unico modo credo per vederla a colori



Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 11 novembre 2024 :  20:41:39  Mostra profilo  Rispondi con citazione
Già e come si fa?
Mi insegni?
Grazie

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

DjNomade
Utente Molto Appassionato

333 invii

Spedito - 11 novembre 2024 :  23:05:42  Mostra profilo  Rispondi con citazione
Hihihihihi e come te lo spiego

Una volta aperto il listato e fatto girare
premi STAMP sulla tua tastiera e catturi l'immagine desiderata e la salvi
poi vai su
https://postimages.org/
carichi l'immagine scelta e prendi il secondo link dove leggi
Collegamento diretto:
lo copi e lo inserisci come immagime nel post che stai facendo

Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 12 novembre 2024 :  08:41:48  Mostra profilo  Rispondi con citazione
Buongiorno dj , allora appena accendo il PC ci provo.

Un'altra cosa in questo listato la data di controllo la posso cambiare a mio piacimento?

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 12 novembre 2024 :  18:24:41  Mostra profilo  Rispondi con citazione
ciao dj grazie infinite

la mia tastiera non ha il tasto stamp

pazienza

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

DjNomade
Utente Molto Appassionato

333 invii

Spedito - 12 novembre 2024 :  22:11:45  Mostra profilo  Rispondi con citazione
il tasto “Stamp” o “PrintScreen” presente sulla tastiera in alto a destra, nelle tastiere standard a fianco al tasto F12.
vedi anche qua


https://www.youtube.com/watch?v=_8IRypNO66Q
Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 13 novembre 2024 :  06:39:58  Mostra profilo  Rispondi con citazione
Buongiorno dj , grazie

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000