SUPERENALOTTO RANDOM

[Roby]

Superenalotto random

letteralmente tradotto Superenalotto casuale


Spiego un pochino il commando randomize timer..
Per poter estrare dei numeri casuali, bisogna usare il comando randomize
il codice più semplice, da usare e questo.

Sub main()
Randomize
Ran = ((90) * Rnd) 
Scrivi ran
End Sub

ma ad ogni avvio del programma il codice mi estrae dei numeri casuali compresi tra 0 e 90
non interi
tipo 27,3456767
o 34,9809890
oppure 67 (numero intero)

 

[esselotto]

per questo problema nella riga di commando
Ran = ((90) * Rnd)
dovremo aggiungere il commando
Int --------- restituiscimi solo la parte intera del numero (senza virgola)
quindi modificando il codice sopra avremo.

Sub main()
Randomize
Ran = int((90) * Rnd) 
Scrivi ran
End Sub

avviando avremo solo numeri interi da 0 a 90
23 45 67 0 senza virgola

 

[esselotto]

Per poterlo applicare al gioco del Lotto, bisogna che questo prelevi solo numeri
compresi tra 1 e 90 quindi lo 0 non serve.
quindi rimodifichiamo, estrae 1 numero casuale, ad ogni avvio, compreso tra 1 e 90

Sub main()
Randomize
Ran = Int((90 - 1 + 1) * Rnd) + 1

Scrivi "Numero Casuale ---> " & Format2 (Ran)
End Sub

 

[esselotto]

Dopo questa piccola spiegazione (passo a passo) sul commando Randomize
passiamo allo Script Finale.


Nello script sopra abbiamo estratto un solo numero casuale
in quello seguente, estraeremo 6 numeri più jolly e Super Star
e Nessun numero è ripetuto.

SUPERENALOTTO RANDOM

Sub main()


Scrivi Space(20)& String(40,"*"),1
Scrivi Space (20)&"S U P E R E N A L O T T O  RANDOM",1 
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 


Dim n(8)
Dim X  
Dim xx 
Randomize
For X = 1 To 90
  xx = False
    For s= 1 To 8
    n(s)= Int(Rnd() * 90 + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
    Next
    Next 
 
If Not xx Then
Exit For
End If
Next 
Scrivi "^^^^^^^^^   Superenalotto   ^^^^^^^^^^^^",1
Scrivi 
Scrivi "* * * * * *  "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))& "  * * * * * * ",1   
ColoreTesto 2
Scrivi "Nr. Jolly  "& Format2 (n(7)),1
ColoreTesto 3 
Scrivi "Super Star "& Format2 (n(8)),1 
ColoreTesto 0
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
End Sub

 

[esselotto]

il commando Randomize, all'apparenza sembra di facile applicazione,
ma in vb ha difficoltà media.

Spero di aver fatto cosa gradita,anche se non è un metodo di ciclometria o spaziometria o lottometria
Ringrazio in anticipo, tutti quelli che apprezzano i miei piccoli e semplici codici (script)

esselotto




Il raggio dell'onda riflesso incidente il raggio riflesso e la normale alla superficie
di riflessione apparterngono allo stesso piano.
°°°esselotto°°°

 

[Roby]

ciao esselotto

grazie per lo script


ma con il randomize

che % di successi o punti presi hai?

solo per avere un'idea.
è un discorso di validità a colpo o per x estrazioni?

 

[LuigiB]

Buona idea quella deelle pillole di script.
Stavo pensando che forse potrei implementare in spaziometria la gestione dei moduli un po' come avviene in vb (esse mi capisce) cioè dei moduli che contengono funzioni generiche scritte in spazioscript e che possono essere riutilizzate senza bisogno ne di fare copia incolla ne di riscriverle ogni volta ...

 

[pico2005]

Se mi posso permettere......Ottima idea, penso valga la pena coltivarla e svilupparla, creando un ambiente apposito per lo sviluppo, ......e quale miglior officina di idee di Spazioscript?

 

[esselotto]

quote:Originally posted by rubino

ciao esselotto

grazie per lo script


ma con il randomize

che % di successi o punti presi hai?

solo per avere un'idea.
è un discorso di validità a colpo o per x estrazioni?

La percentuale della persona, che vuole giocare una schedina superenalotto.
Cosa gioco oggi? (gioco o non gioco?). un po , come il Gratta e vinci...

Lo script è come dice giustamente Luigi
pillole di script.

Serve per chi inizia a programmare script, a capire il meccanismo della programmazione
applicata al gioco del Lotto.

Comunque vi ringrazio nuovamente rubino, Luigi e pico2005.

esselotto

 

[Alien.]

Perfetto esselotto diciassiamo allo Script Finale.
Ecco dove scrivo lo script? con excel? o il programma di Luigi.
Grazie.Volendo si possono mettere i numeri che voglio io es:45 numeri o 24 ed il programma mi randomiza I numeri inseriti in sestine per superenalotto o decine per 10elotto......si può fare?

 

[Alien.]

non si può fare?

 

[esselotto]

Ciao Alien
il Super Enalotto che hai richiesto

E' Chiaro che per far girare gli script devi usare un' Editor di Script.


Quali
Spaziometria di LuigiB
l8 e ld e altri

 

[esselotto]

Super Enalotto Random

1) con inputBox per visualizzare una Serie di combinazioni
2) e con Richiesta alla Venus. Quanti Numeri in Gioco

prelevare solo parte colorata

Sub main()

ColoreTesto 1
Scrivi Space(20)& String(40,"*"),1
ColoreTesto 2
Scrivi Space (20)&"S U P E R E N A L O T T O  RANDOM",1 
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 
Scrivi 

Scrivi "Combinazioni "& Space(20) &" N° Jolly  SuperStar "
ColoreTesto 0

Dim n(8)
Dim X  
Dim xx 
Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",12))
ng=CInt(InputBox ("Quanti Numeri dentro la Venus 90,45, 49,36 ?..","°°°esselotto°°°",90))
If ng=False Then Exit Sub
If cb= False Then Exit Sub
For Rndcombo=1 To cb 
For X = 1 To ng
  xx = False
    For s= 1 To 8
    n(s)= Int(Rnd() * ng + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
    Next
    Next 
 
If Not xx Then
Exit For
End If
Next 

Scrivi Format2 (Rndcombo) &" ) "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))&"     "&_
       Format2 (n(7))&  "      "& Format2 (n(8)),1 
Next 
ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

ColoreTesto 1
Scrivi "°°°esselotto°°°",1

End Sub

 

[esselotto]

10 e LOTTO RANDOM
sempre con input box dei numeri
e richiesta Venus

prelevare solo parte colorata

Sub main()

ColoreTesto 1
Scrivi Space(20)& String(40,"*"),1
ColoreTesto 2
Scrivi Space (20)&"10 E  L O T T O  RANDOM",1 
ColoreTesto 1
Scrivi Space (20)&"programmed by °°°esselotto°°° per LottoCed ",1 
Scrivi Space(20)& String(40,"*"),1
Scrivi String(120,"=") 
Scrivi 

Scrivi "   Combinazioni     "
ColoreTesto 0

Dim n(10)
Dim X  
Dim xx 
Randomize
cb=CInt(InputBox ("Quante Combiazioni vuoi Visualizzare ?..","°°°esselotto°°°",12))
ng=CInt(InputBox ("Quanti Numeri dentro la Venus 90,45, 49,36 ?..","°°°esselotto°°°",90))
If ng=False Then Exit Sub
If cb= False Then Exit Sub
For Rndcombo=1 To cb 
For X = 1 To ng
  xx = False
    For s= 1 To 10
    n(s)= Int(Rnd() * ng + 1)    'Assegna numeri random 
    Next 
    'no dupliKati
    For j= 1 To 7
    For jj= j+1 To 8 
     If n(j)=n(jj) Then xx = True
     Next
    Next 
 
If Not xx Then
Exit For
End If
Next 

Scrivi Format2 (Rndcombo) &" ) "& Format2 (n(1))&" . "& Format2 (n(2))&" . "& Format2 (n(3))&_
       " . "& Format2 (n(4))&" . "& Format2 (n(5))&" . "& Format2 (n(6))&" . "& Format2 (n(7))&_
       " . "& Format2 (n(8))&" . "& Format2 (n(9))&" . "& Format2 (n(10)),1 
Next 
ColoreTesto 0
Scrivi
Scrivi String(15,"-")&"Buona Fortuna e Buona Vincita"
Scrivi

ColoreTesto 1
Scrivi "°°°esselotto°°°",1

End Sub

 

[esselotto]

Risperando di aver fatto cosa gradita
vi saluto

esselotto

Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°

 

[tom19]

altro che' se e' gradita grazie esselotto

 

[imported_n/a]

Bravo Esselotto, i tuoi lavori sono sempre graditi ed originali colgo l'occasione oltre che per manifestarti l'apprezzamento anche per un cordiale saluto.

Ciao
Mike58

 

[esselotto]

scusatemi riprelevate i due scipt finali ho modificato.
La richiesta alla Venus non funzionava.

esselotto

 

[esselotto]

[8D]

 

[bergie]

Grazie esselotto e bravo.