CHE HA CHE NON VA??? (EQ 2° IN VB)

Mat-ita · 14-10-2005, 21:28

Ciao ragazzi x compito mi e stata data da fare un equazione di secondo grado con il visual basic editor di excel ma mi da "errore di compilazione, sub o function non definita"

che ha che non va??? grazie

Option Explicit
Function equazione(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As String
Dim delta As Integer
Dim x1 As Double
Dim x2 As Double
If a = 0 Then
equazione = "Non è un equazione di secondo grado"
Else
delta = b * b - 4 * a * c
If delta >= 0 Then
x1 = (-b -aqrt (delta)) / 2 * a
x2 = (-b +sqrt (delta)) / 2 * a
equazione = "le soluzione sono" & x1 & x2
Else
equazione = "non esistono soluzioni reali"
End If
End If
End Function

Fenomeno85 · 15-10-2005, 11:02

tra che devi fare sqrt del delta

poi per l'errore non mi ricordo come sistemarlo.

~§~ Sempre E Solo Lei ~§~

Minelab · 15-10-2005, 15:43

Non c'entra con il problema ma delta lo dichiarerei come Double non Integer.
Lo devi proprio scrivere così oppure puoi anche utilizzare un pulsante di comando?
Un'altra domanda: dove lo vedresti il risultato?

Fenomeno85 · 15-10-2005, 18:09

Quote:

Originariamente inviato da Minelab

Non c'entra con il problema ma delta lo dichiarerei come Double non Integer.
Lo devi proprio scrivere così oppure puoi anche utilizzare un pulsante di comando?
Un'altra domanda: dove lo vedresti il risultato?

il risultato non va da nessuna parte

... ne visualizzato e ne va in qualche cella. E' qualcosa fine a se stessa sta funzione

~§~ Sempre E Solo Lei ~§~

**Ziosilvio** · 15-10-2005, 18:26

Quote:

Originariamente inviato da Mat-ita

x1 = (-b -aqrt (delta)) / 2 * a

Il punto che ho evidenziato in grassetto, c'era anche nel programma o è un errore di scrittura in questo post?

Mat-ita · 16-10-2005, 00:05

c'e solo in sto post!
cmq il risultato non lo vedrei delle celle di exel?

Fenomeno85 · 16-10-2005, 09:19

Quote:

Originariamente inviato da Ziosilvio

Il punto che ho evidenziato in grassetto, c'era anche nel programma o è un errore di scrittura in questo post?

avrò sbagliato a scrivere.

Cmq se vuole visualizzare a video può fare due cose:

1) usare msgbox
2) usare cells

~§~ Sempre E Solo Lei ~§~

14-10-2005, 21:28	#1
Mat-ita Member Iscritto dal: May 2005 Messaggi: 274	CHE HA CHE NON VA??? (EQ 2° IN VB) Ciao ragazzi x compito mi e stata data da fare un equazione di secondo grado con il visual basic editor di excel ma mi da "errore di compilazione, sub o function non definita" che ha che non va??? grazie Option Explicit Function equazione(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As String Dim delta As Integer Dim x1 As Double Dim x2 As Double If a = 0 Then equazione = "Non è un equazione di secondo grado" Else delta = b * b - 4 * a * c If delta >= 0 Then x1 = (-b -aqrt (delta)) / 2 * a x2 = (-b +sqrt (delta)) / 2 * a equazione = "le soluzione sono" & x1 & x2 Else equazione = "non esistono soluzioni reali" End If End If End Function Ultima modifica di Mat-ita : 15-10-2005 alle 14:02.

15-10-2005, 11:02	#2
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	tra che devi fare sqrt del delta poi per l'errore non mi ricordo come sistemarlo. ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

15-10-2005, 15:43	#3
Minelab Member Iscritto dal: Mar 2003 Città: Provincia di Como Messaggi: 223	Non c'entra con il problema ma delta lo dichiarerei come Double non Integer. Lo devi proprio scrivere così oppure puoi anche utilizzare un pulsante di comando? Un'altra domanda: dove lo vedresti il risultato?

16-10-2005, 00:05	#6
Mat-ita Member Iscritto dal: May 2005 Messaggi: 274	c'e solo in sto post! cmq il risultato non lo vedrei delle celle di exel?

Strumenti
Mostra una versione stampabile Invia questa pagina per email