Italian Numeri diversi

Antonio67 · Aug 10, 2016

Ciao a tutti sto creando un app dove cui ci sono delle label che in ognuna di esse sortisce a caso un numero da 1 a 90. Tutto funziona come voglio, unico problema e che spesso due label sortisce lo stesso numero. Come dire a b4a che se la label2b e uguale alla label1 la label2 deve eseguire un altro numero? Grazie

sirjo66 · Aug 10, 2016

E' un banalissimo problema di ciclo.
1) inizi il ciclo, ed estrai un numero a caso
2) fai un altro ciclo cercando questo numero nelle label già estratte
3) se lo stesso numero viene trovato, salti al punto (1), altrimenti esci dal ciclo

praticamente due cicli annidati

Sergio

Antonio67 · Aug 10, 2016

Ciao sirjo grazie per l'intervento. Se potresti farmi un piccolissimo esempio te ne sarei grato. Io al massimo posso tradurre in : if label2.text=label1.text then label2.text= random

LucaMs · Aug 10, 2016

Di solito si usa un metodo diverso.

Si prepara un array (o un List o altro):

Dim Numeri(90) As Int ' da 0 a 89 - stiamo giocando al Lotto, vero?
For n = 0 to 89
Numeri(n) = n + 1
Next
Dim NumeriDisponibili As Int = 90

Dim x As Int
x = Rnd(0, NumeriDisponibili)
lblNumero(0).Text = Numeri(x)

' si scambia l'ultimo numero in fondo all'array con quello "estratto"
Dim Buffer As Int = Numeri(NumeriDisponibili)
Numeri(NumeriDisponibili) = Numeri(x)
Numeri(x) = Buffer

' e si diminuisce il numero di numeri disponibili!
NumeriDisponibili = NumeriDisponibili - 1

' così al successivo:
x = Rnd(0, NumeriDisponibili)
l'ultimo numero non potrà uscire di nuovo ed è quello già uscito.

B4X:

' Inizializzazione
Dim Numeri(90) As Int
For n = 0 to 89
    Numeri(n) = n + 1
Next
Dim NumeriDisponibili As Int

' Estrazione
NumeriDisponibili = 90
For E = 0 to 4
    Dim x As Int
    x = Rnd(0, NumeriDisponibili)
    lblNumero(E).Text = Numeri(x)

    ' si scambia l'ultimo numero in fondo all'array con quello "estratto"
    Dim Buffer As Int = Numeri(NumeriDisponibili)
    Numeri(NumeriDisponibili) = Numeri(x)
    Numeri(x) = Buffer

    ' e si diminuisce il numero di numeri disponibili!
    NumeriDisponibili = NumeriDisponibili - 1
Next

Nota che l'ho scritto qui, al volo, quindi magari c'è qualche bug dovuto alla solita faccenda della base 0 degli array o altro

P.S. Se fai cinquina, ricordati di me

Antonio67 · Aug 10, 2016

Sicuramente .Provero quanto hai scritto anche se il mio scopo e quello di creare app con codici quanto piu corti possibili. Con if then era l'ideale, comunque......ci provo. Grazie

LucaMs · Aug 11, 2016

Poco codice non sempre è un bene, sia perché scrivere qualche riga in più non occupa tanta memoria, sia perché il programma diventa più comprensibile e gestibile.
Comunque, non l'ho scritto ma il codice dopo il commento "Estrazione" andrebbe in una routine separata (e non dovrebbe caricare le label ma restituire i 5 numeri estratti).

Già che ci sono... ho detto Lotto ma magari si parlava di Superenalotto. Beh, a parte l'enorme possibilità di azzeccare il 6 (circa una su 624 milioni!) siamo in Italia, quindi è mooolto più alta la probabilità che gli organizzatori del gioco inseriscano, "al poteriore di Anzio" , la loro bella schedina vincente, quindi meglio la cinquina al Lotto

Antonio67 · Aug 11, 2016

Ciao, per codice corto intendevo più che altro come metodo facilmente da ricordare, ecco per esempio prima di provare il tuo stò provando facendo semplicemente cosi:
Sub diverso
dim gira as int
gira=Rnd(1,91)
If L1.text=L2.Text Then
L2.Text=gira
End If
If L1.Text=L3.Text Then
L3.Text=gira
End If
If L1.text=L4.Text Then
L4.Text=gira
End If
If L1.text=L5.Text Then
L5.Text=gira
End If
(Devo continuare per le altre label) se funzionasse sarebbe comodo,pratico, e facile da ricordare
considerando che stò agli albori di b4a, il tuo codice anche se corretto per me sembra una formula di Einstein mi piacerebbe avere le stesse tue conoscenze ma credo che sia un pò presto.

LucaMs · Aug 11, 2016

Guarda che il codice che dovresti usare (quello che ho scritto, intendo) è solo quello nella "finestrella" Code, eh (la parte precedente è la spiegazione), quindi solo questo:

B4X:

' Inizializzazione
Dim Numeri(90) As Int  '<---  nella Globals
For n = 0 to 89       ' <---  nella Activity_Create
    Numeri(n) = n + 1
Next
Dim NumeriDisponibili As Int

' Estrazione               ' <--- in una sub routine
NumeriDisponibili = 90
For E = 0 to 4
    Dim x As Int
    x = Rnd(0, NumeriDisponibili)
    lblNumero(E).Text = Numeri(x)

    ' si scambia l'ultimo numero in fondo all'array con quello "estratto"
    Dim Buffer As Int = Numeri(NumeriDisponibili)
    Numeri(NumeriDisponibili) = Numeri(x)
    Numeri(x) = Buffer

    ' e si diminuisce il numero di numeri disponibili!
    NumeriDisponibili = NumeriDisponibili - 1
Next

Antonio67 · Aug 11, 2016

Si questo lo avevo capito. Poi la sub del codice va in ogni button? cioè button2 per ambo,button3 per terno ecc..

LucaMs · Aug 12, 2016

Antonio67 said:
Si questo lo avevo capito. Poi la sub del codice va in ogni button? cioè button2 per ambo,button3 per terno ecc..

Beh, non so esattamente come e cosa debba fare l'app. Se deve estrarre a caso da 1 a 5 numeri (o 6, superenalotto ), direi che ti basterebbe un button (btnEstrai), una edittext (etQta) per chiedere all'utente quanti numeri estrarre e:

B4X:

' Inizializzazione
Dim Numeri(90) As Int  '<---  nella Globals
For n = 0 to 89       ' <---  nella Activity_Create
    Numeri(n) = n + 1
Next
Dim NumeriDisponibili As Int



Sub btnEstrai_Click
    ' qui serve un controllo sul contenuto di etQta.Text; meglio ancora metterlo nella routine Change della etQta
    Dim Qta As Int = etQta.Text
    Estrazione(Qta)
End Sub


Sub Estrazione(Qta As Int)
' vuota le label
For i = 0 to 4
    lblNumero(i).Text = ""
Next

NumeriDisponibili = 90
For E = 0 to Qta - 1
    Dim x As Int
    x = Rnd(0, NumeriDisponibili)
    lblNumero(E).Text = Numeri(x)

    ' si scambia l'ultimo numero in fondo all'array con quello "estratto"
    Dim Buffer As Int = Numeri(NumeriDisponibili)
    Numeri(NumeriDisponibili) = Numeri(x)
    Numeri(x) = Buffer

    ' e si diminuisce il numero di numeri disponibili!
    NumeriDisponibili = NumeriDisponibili - 1
Next
End Sub

Antonio67 · Aug 12, 2016

Buongiorno luca, se ho ben capito il codice andrebbe bene se avrei 1 button e una edittext. Ma la mia e diversa. Se vuoi ti invio direttamente l'apk dell app e la provi( dimmi come). E il codice.

LucaMs · Aug 12, 2016

Antonio67 said:
Buongiorno luca, se ho ben capito il codice andrebbe bene se avrei 1 button e una edittext. Ma la mia e diversa. Se vuoi ti invio direttamente l'apk dell app e la provi( dimmi come). E il codice.

Se vuoi inviarmi il progetto in modo che io faccia qualche modifica, usa il menu File - Export As Zip e inviami il file zippato all'indirizzo di posta che vedi qui sotto
Considera però che ho poco tempo: a costo di legarmi qui, da oggi VOGLIO finalmente impegnarmi sulla mia app... prima o poi ne pubblicherò una, maremma sbigottita

[Nota che il tuo post è arrivato soltanto adesso, alle 16, anche se lo hai scritto alle 10:34; probabilmente perché non sei un utente... "licenziato"]

Antonio67 · Aug 12, 2016

Ciao, ho letto adesso il post. Quando prima ti invio il file cosi mi darai un giudizio

Antonio67 · Aug 17, 2016

Ciao Luca ho ripreso a provare l'app. Ho visto il tuo codice sicuramente funzionante magari con qualche modifica,ma lo vedo ancora troppo lungo e complicato(per me) per un'azione semplice. In visual basic per certi casi ce il ciclo do while che in pratica mi dovrebbe dire : se la label3.text=label2.text allora continua a girare.Ma non mi ricordo come fare. Ho provato con 'Do while if then timer.enabled=false and label3.text=label2 then loop. B4a mi ha fatto una pernacchia . Heeeelp

sirjo66 · Aug 19, 2016

innazitutto non ho capito in totale quanti numeri devi estrarre (mi sembra di capire che sono solo 2) e poi se non mostri almeno un po' di codice (quello che hai provato a scrivere, anche se con le pernacchie), non ti possiamo essere utili

Antonio67 · Aug 19, 2016

Ciao. Ci sono 6 abel dove in ognuna di esse sortisce a caso un numero da 1 a 90 e 5 button dove ognuno di essi da una combinazione. Button1 fa sortire numeri a 2 label , button2 a tre label, e cosi via. Appena posso invio il codice

Antonio67 · Aug 19, 2016

Intanto questo e l'app.

sirjo66 · Aug 20, 2016

non vedo grossi problemi a realizzare il codice che chiedi, probabilmente il tuo livello di conoscenze in informatica non è sufficiente

Antonio67 · Aug 20, 2016

Insomma questo e il cod.

Antonio67 · Aug 25, 2016

Italian Numeri diversi

Member

Well-Known Member

Member

Expert

Member

Expert

Member

Expert

Member

Expert

Member

Expert

Member

Member

Well-Known Member

Member

Member

Attachments

Well-Known Member

Member

Attachments

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency