11/02/11 23:25
albertogil
ciao , potete aiutarmi? non ho capito svariate cose sugli array, per esempio
ho creato nel modulo un array di oggetti di tipo PompaBenzina
ma non crea + di una istanza . Quando creo la seconda pompa di benzina appare l'errore:
index out of range exception ! sono andato fouri dal range del vettore, ma non mi sembra visto che i=1 quando si verifica l'errore , impostando g= 2 o più.
ho creato nel modulo un array di oggetti di tipo PompaBenzina
ma non crea + di una istanza . Quando creo la seconda pompa di benzina appare l'errore:
index out of range exception ! sono andato fouri dal range del vettore, ma non mi sembra visto che i=1 quando si verifica l'errore , impostando g= 2 o più.
'-----------modulo public g as integer public i =0 public vet(g) as PompaBenzina ' classe PompaBenzina '------------------------------------------------------- ' bottone crea Private Sub crea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crea.Click If i < g Then MsgBox("i vale " & i) array(i) = New PompaBenzina array(i).tipo() = txttipo.Text array(i).prezzo() = txtprezzo.Text Else : MsgBox("non puoi creare altre pompe di benzina!!", MsgBoxStyle.Critical) Exit Sub End If txtprezzo.Text = "" txttipo.Text = "" i = i + 1 End Sub '--------------------------------------- ' form load Private Sub Pompa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load g = InputBox("Quante pompe di benzina vuoi creare?") End Sub
Ultima modifica effettuata da albertogil 12/02/11 10:33
aaa