[VB.NET] Rappresentare un numero con immagini

scegli un altro forum

Indietro Ricarica Avanti

Autore

Discussione

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ:

MSN: andre1989@live .it

Skype: wjzard

[VB.NET]rappresentare ogni numero con immagini

Ciao a tutti potrei avere una piccola spinta per capire come posso rappresentare graficamente dei numeri che escono a random da 1 a 100.

Per esempio a random esce il 10 e nel form dovrebbe apparire questa questa immagine
https://docs.google.com/open?id=0B6PhsWCaF6vLLU8xcE0yeFozX3c

Io pensavo di fare cosi:
codice:

Dim pb(5) As PictureBox


        pb(0) = Me.PictureBox1
        pb(1) = Me.PictureBox2
        pb(2) = Me.PictureBox3
        pb(3) = Me.PictureBox4
        pb(4) = Me.PictureBox5
        
if numero = 1 then
        pb(0).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero1.png"
else if numero = 2 then
        pb(1).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero2.png"
else if numero = 3 then
        pb(2).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero3.png"
else if numero = 4 then
        pb(3).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero4.png"
else if numero = 5  then
        pb(4).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero5.png"
end if

Ultima modifica ad opera dell'utente wjzard il 18-04-2012 alle 18:16

Segnala ad un moderatore | IP: Collegato | Permalink

18-04-2012 18:06

Clicca qui per inviare all'utente wjzard un messaggio privato

Visualizza ulteriori messaggi scritti dall'utente wjzard

Aggiungi l'utente wjzard alla tua lista degli utenti amici

escocat
Utente di HTML.it

Registrato il: Feb 2012

Provenienza:

Messaggi: 184

ICQ :

MSN :

Skype :

Mamma mia! Ma hai 100 PictureBox? Ne basta una...
...e poi...perchè non fai un'unica chiamata al file

...numero"+str(n)+".png"?

Segnala ad un moderatore | IP: Collegato | Permalink

18-04-2012 19:09

Clicca qui per inviare all'utente escocat un messaggio privato

Visualizza ulteriori messaggi scritti dall'utente escocat

Aggiungi l'utente escocat alla tua lista degli utenti amici

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

si infetti facendo cosi mi vengono 100 PictureBox è per questo che volevo un aiuto non so come potrei associare ad ogni numero uscito l'immagine corrispondente

Segnala ad un moderatore | IP: Collegato | Permalink

18-04-2012 20:09

escocat
Utente di HTML.it

Registrato il: Feb 2012

Provenienza:

Messaggi: 184

ICQ :

MSN :

Skype :

codice:

picturebox1.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")

Segnala ad un moderatore | IP: Collegato | Permalink

18-04-2012 21:58

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

Mi segnala questo errore sulla variabile numero

FileNotFoundExceeption non è stata gestita dal codice utente

cosa può voler dire ?

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 11:01

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

ho risolto praticamente la variabile numero era già una stringa quindi bastava togliere str

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 11:21

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

vorrei fare una cosa del genere

codice:

For j = 1 To j = 10
                    PictureBox & (j).Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

ovvero a ogni ciclo prendere una picturebox corrispondente all'indice del ciclo come posso fare

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 11:39

escocat
Utente di HTML.it

Registrato il: Feb 2012

Provenienza:

Messaggi: 184

ICQ :

MSN :

Skype :

Ma tu vuoi visualizzare 100 numeri tutti in una volta oppure uno alla volta? Se vuoi un numero per volta ti basta una sola picturebox, altrimenti avresti bisogno di una matrice di 100 controlli picturebox. In VB5 questo era facile da farsi, in VB10 ancora non ho visto come si fa (abbi pazienza sono solo 2 settimane che lo sto studiando

) ...

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 18:38

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

io voglio visualizzare 55 numeri in 55 picturebox divisi in 11 righe per 5 colonne quindi l'ideale sarebbe fare una cosa del genere

codice:

 For j = 1 To j = 55
                    PictureBox & (j).Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

se no dovrei fare questo per ogni picturebox e diventa una cosa molto lunga

codice:

if j = 1 then
picturebox1.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if
if j= 2 then
picturebox2.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if

.............
............

if j = 55 then
picturebox55.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if
j+=1

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 20:18

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

oppure potrei fare una cosa del genere

codice:


Dim pb(54) As PictureBox


        pb(0) = Me.PictureBox1
        pb(1) = Me.PictureBox2
        pb(2) = Me.PictureBox3
        pb(3) = Me.PictureBox4
        pb(4) = Me.PictureBox5
        .................................
        ..............................

        pb(54)=Me.PictureBox55


For j = 0 To j = 54
      
pb(j) = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

può funzionare?

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 20:33

Vinsent
Utente di HTML.it

Registrato il: May 2011

Provenienza:

Messaggi: 278

ICQ :

MSN :

Skype :

In pratica devi visualizzare i numeri del lotto!?

Sai usare:

User Control
Matrici o List

???

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 21:07

Clicca qui per inviare all'utente Vinsent un messaggio privato

Visualizza ulteriori messaggi scritti dall'utente Vinsent

Aggiungi l'utente Vinsent alla tua lista degli utenti amici

escocat
Utente di HTML.it

Registrato il: Feb 2012

Provenienza:

Messaggi: 184

ICQ :

MSN :

Skype :

Ho letto che le matrici di controlli non sono più ammesse in VB10 (peccato) però dovresti (e dovrei) studiare la classe BaseControlArray che mi sembra offra una certa compatibilità con VB6:

http://msdn.microsoft.com/it-it/library/ms635391.aspx

Per quanto riguarda il codice allora non va più bene (a parte che si scrive

For J = 0 to 54

e non

For J = 0 to j = 54

ma soprattutto in questa

pb(j) = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

non c'è collegamento fra j e numero.

Forse è buona l'idea di scrivere

p(1) = picturebox1.Image
p(2) = picturebox2.Image
.....

Devo provare.....

In pratica dovresti fare 2 cose, una volta creata la matrice di pictures:

1) Cancellare la picturebox relativa al numero precedentemente estratto
2) se n è il nuovo numero estratto impostare p(n).Image col file xxxx\numero & n & ".png"

Ultima modifica ad opera dell'utente escocat il 19-04-2012 alle 21:48

Segnala ad un moderatore | IP: Collegato | Permalink

19-04-2012 21:39

escocat
Utente di HTML.it

Registrato il: Feb 2012

Provenienza:

Messaggi: 184

ICQ :

MSN :

Skype :

Fermi tutti! Una matrice di controlli, in VB10, si costruisce via codice utilizzando Me.controls.

Vedi un pò qui

http://forum.html.it/forum/showthre...=controlli+form

Vedi anche:

http://msdn.microsoft.com/it-it/lib...ntrolcollection(v=vs.110).aspx

Ultima modifica ad opera dell'utente escocat il 20-04-2012 alle 15:35

Segnala ad un moderatore | IP: Collegato | Permalink

20-04-2012 15:26

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

Ok domani poi provo fare come hai indicato grazie per l aiuto

Segnala ad un moderatore | IP: Collegato | Permalink

20-04-2012 19:04

wjzard
Utente di HTML.it

Registrato il: Mar 2009

Provenienza: Alessandria

Messaggi: 74

ICQ :

MSN : andre1989@live .it

Skype : wjzard

Non è il modo più bello è funzionale anche se è un po lento funziona

codice:


Dim pb(54) As PictureBox
        pb(0) = Me.PictureBox1
        pb(1) = Me.PictureBox2
        pb(2) = Me.PictureBox3
        pb(3) = Me.PictureBox4
        pb(4) = Me.PictureBox5
        pb(5) = Me.PictureBox6
        pb(6) = Me.PictureBox7
        pb(7) = Me.PictureBox8
        pb(8) = Me.PictureBox9
        pb(9) = Me.PictureBox10
        pb(10) = Me.PictureBox11
        pb(11) = Me.PictureBox12
        pb(12) = Me.PictureBox13
        pb(13) = Me.PictureBox14
        pb(14) = Me.PictureBox15
        pb(15) = Me.PictureBox16
        pb(16) = Me.PictureBox17
        pb(17) = Me.PictureBox18
        pb(18) = Me.PictureBox19
        pb(19) = Me.PictureBox20
        pb(20) = Me.PictureBox21
        pb(21) = Me.PictureBox22
        pb(22) = Me.PictureBox23
        pb(23) = Me.PictureBox24
        pb(24) = Me.PictureBox25
        pb(25) = Me.PictureBox26
        pb(26) = Me.PictureBox27
        pb(27) = Me.PictureBox28
        pb(28) = Me.PictureBox29
        pb(29) = Me.PictureBox30
        pb(30) = Me.PictureBox31
        pb(31) = Me.PictureBox32
        pb(32) = Me.PictureBox33
        pb(33) = Me.PictureBox34
        pb(34) = Me.PictureBox35
        pb(35) = Me.PictureBox36
        pb(36) = Me.PictureBox37
        pb(37) = Me.PictureBox38
        pb(38) = Me.PictureBox39
        pb(39) = Me.PictureBox40
        pb(40) = Me.PictureBox41
        pb(41) = Me.PictureBox42
        pb(42) = Me.PictureBox43
        pb(43) = Me.PictureBox44
        pb(44) = Me.PictureBox45
        pb(45) = Me.PictureBox46
        pb(46) = Me.PictureBox47
        pb(47) = Me.PictureBox48
        pb(48) = Me.PictureBox49
        pb(49) = Me.PictureBox50
        pb(50) = Me.PictureBox51
        pb(51) = Me.PictureBox52
        pb(52) = Me.PictureBox53
        pb(53) = Me.PictureBox54
        pb(54) = Me.PictureBox55
       

        Dim j As Integer = 0

        Dim numero As String
        Dim arraynumeri() As String
        Dim separatore() As Char = {" "c}
        arraynumeri = Testo1.Split(separatore, StringSplitOptions.None)
        For i As Integer = 0 To (arraynumeri.Length - 1)
            If arraynumeri(i).Length = 1 Or arraynumeri(i).Length = 2 Then
                numero = arraynumeri(i)

                pb(j).Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")
                j += 1


            End If

        Next

Segnala ad un moderatore | IP: Collegato | Permalink

21-04-2012 10:00

Tutte le ore sono con fuso orario CET. Ora sono le 09:00.

Ultima discussione Prossima discussione

HTML.it forumLato serverProgrammazioneVisual Basic e .Net Framework[VB.NET] Rappresentare un numero con immagini

Versione per la stampa |

Invia il thread via email |

Ricevi aggiornamenti sul thread |

Scarica il thread

ciao Unregistered

HTML.it forumLato serverProgrammazioneVisual Basic e .Net Framework[VB.NET] Rappresentare un numero con immagini

[VB.NET] Rappresentare un numero con immagini

HTML.it forumLato serverProgrammazioneVisual Basic e .Net Framework[VB.NET] Rappresentare un numero con immagini

Cerchi un argomento specifico e hai fretta? Usa il motore di ricerca