esperti in visual basic? (urgente)

[Gabriele94]

sapete come calcolare in una matrice:

diagonale principale e secondaria

somma elementi riga e colonne.

ovviamente con il codice

lo so che non è il forum giusto...

[tom1]

appunto non è ne il forum ne la sezione adatta

[Gabriele94]

sperando che ci sia qualcuno

[tom1]

nessuno

[Devil_Mcry]

ma cerchi funzioni gia fatte o lo devi implementare te? quelle cose in vb sono facili da fare...

io usavo anni fa vb6, ora e tutto su .net ma cambia poco mi pare per queste cose

[keroro.90]

Se cerchi funzioni già fatte ci sono migliaia di programmi.....dal noto matlab in poi...

Se invece devi farla in visual basic allora posta su programmazione...

[Gabriele94]

si mi serviva il codice per vedere come si fà. entro ieri però, era una cosa urgente :( ma devil mi puoi aiutare un'altra volta

[Le085]

spostato nella sezione adatta

[Gabriele94]

scusami ma dove si trova la sezione dal menu di sopra?

lasciate aperta il 3d perchè avrò delle domande

 

edit:

devo calcolare la media per ogni città. non capisco l'errore :(

Private Sub BtnCalcola_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcola.Click

Dim tot, media As Short

For I = 1 To r

tot = 0

For j = 1 To 30

tot = tot + matri(I, j)

Next j

media = tot / 30

TxtMedia.Text = CStr(media) & vbNewLine

Next I

 

 

End Sub

[Le085]

per la diagonale principale supponendo matrice quadrata in pseudocodice è

somma=0;

for (t=0; t++; t

somma=somma+matrice[t][t];

}

per diagonale inversa:

 

somma=0;

for (t=0; t++; t

somma=somma+matrice[t][matrice.numerocolonne-t];

}

 

il codice poi lo devi trasformare te in VB...

[Le085]

scusami ma dove si trova la sezione dal menu di sopra?

lasciate aperta il 3d perchè avrò delle domande

 

edit:

devo calcolare la media per ogni città. non capisco l'errore :(

Private Sub BtnCalcola_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcola.Click

Dim tot, media As Short

For I = 1 To r

tot = 0

For j = 1 To 30

tot = tot + matri(I, j)

Next j

media = tot / 30

TxtMedia.Text = CStr(media) & vbNewLine

Next I

 

 

End Sub

che problema ti da?

[Gabriele94]

mi visualizza un numero che non ne è una media ne una somma

[Le085]

ma questo matr(I,j) che non è dichiarato dove lo prendi? non è che devi prenderlo dagli argomenti del metodo?

tipo "e." e hai dentro la matrice?

[Gabriele94]

scusami ti do pure il carica

Public Class Form1

Dim città As String

Dim r As Short

 

Dim matri(,) As Short

 

Private Sub BtnCarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCarica.Click

r = Val(InputBox("num città"))

ReDim matri(r, 30)

For i = 1 To r

città = (InputBox("nome città"))

For j = 1 To 3

matri(i, j) = Val(InputBox("temp città" & CStr(i), "nella giornata" & CStr(j)))

 

Next j

Next i

End Sub

[Devil_Mcry]

Ma non dovrebbe essere 30 invece di 3?!?

 

Perché se li metti 3 per provare in modo facile e di la metti 30 poi ti viene diverso il valore

[Gabriele94]

si ma non è quello il problema

ho provato ma niente

[Devil_Mcry]

Beh insomma ... Metti 3 valori e fai poi la media su 30

Cmq scusa una cosa, ma città non lo salvi da nessuna parte?

[Gabriele94]

non lo so devil cerco di capire qst linguaggio!!

cmq l'ho abbiamo corretto ed è giusto ma su VB non esce

al prossimo problema!

i record conosci?

grazie se mi dai una mano

[Devil_Mcry]

record di cosa?

database

variabili complesse o file ad accesso diretto?

[Gabriele94]

un array di record detta tabella.

dico record nel senso che posso inserire dati di tipo diverso

[vabatta]

Anche se un po' tardi, se spiegassi in modo chiaro e concreto su quello che devi fare, potrei darti una mano.

[Gabriele94]

passato molto tempo ho già risolto

[vabatta]

passato molto tempo ho già risolto

 

Beh, nel caso in cui avrai ancora bisogno, posta che magari ti posso essere d'aiuto!