Eroare utilizare instructiune "if...then"

#1
ani_beita

Posted 18 June 2012 - 06:54

Junior Member

Grup: Members
Posts: 34
Înscris: 17.09.2007

Cand folosesc instructiunea if...then, indiferent de datele introduse intoarce mesajul de eroare. Ideea este ca in situatia in care rezultatul calculului este o valoare <0, sa nu se faca calculul, dar sa afiseze mesajul de eroare. Problema este ca, se afiseaza mesajul de eroare si in situatia in care rezultatul nu este negativ. Nu stiu unde gresesc.
Asa am facut:
"Private Sub cmdCalculeaza_qe_Click()
'declararea variabilelor de lucru
Dim CF As Double
Dim Pl As Double
Dim CV As Double
'introducerea datelor de intrare
CF = txtCF.Text
Pl = txtPl.Text
CV = txtCV.Text
'se calculeaza qe
If Val(txtREZQE.Text) < 0 Then
QE = CF / (Pl - CV)
'se afiseaza in caseta de text rezultatele
txtREZQE.Text = QE
Else
MsgBox "Cantitatea de echilibru este negativa, deci trebuie adoptate masuri de crestere a vanzarilor", vbInformation, "Atentie!"
End If

End Sub"

Attached Files

eroare_if...then.doc 66K 3 downloads

Back to top

#2
MarianG

Posted 18 June 2012 - 09:22

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

ce proprietati are txtREZEQ?

fii sigur ca accepta doar numere

KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 AND KeyAscii > 57) KeyAscii = 0
End Sub

foloseste tag-urile CODE

Back to top

#3
ani_beita

Posted 18 June 2012 - 09:53

Junior Member

Grup: Members
Posts: 34
Înscris: 17.09.2007

Am atasat proprietatile. Sfatul tau nu este pentru un tabel? Eu am multe goluri, si ma izbesc de ele pana voi reusi(poate) sa le "umplu". Multumescpentru ca ti-ai facut timp sa raspunzi.

Attached Files

proprietati_txtREZQE.doc 111.5K 5 downloads

Back to top

#4
MarianG

Posted 18 June 2012 - 10:40

be that as it may

Grup: Moderators
Posts: 31,445
Înscris: 10.08.2005

lol - acum vad problema
#1 - poti atasa imagini fara sa le pui in *.doc
#2 - Erroare de LOGICA

pe tine txtREZQE - cand este gol are valoarea zero
bool = (0 < 0) = FALSE
deci va intra pe ramura negativa, in care afiseaza mesajul custom.
ce-ti trebuie tie este un pic de matematica
QE = CF / (Pl - CV) va fi negativ daca doar una din cele doua varibile este negativa

CF este negativ
(PL-CV) este negativ

adica

PL<CV

daca (semn_numarator XOR semn semn_numitor) atunci alarma

ani_beita, on 18th June 2012, 10:53, said:

Sfatul tau nu este pentru un tabel?

E bine sa te obsnuiesti.

Edited by MarianG, 18 June 2012 - 10:41.

Back to top

#5
ani_beita

Posted 18 June 2012 - 14:10

Junior Member

Grup: Members
Posts: 34
Înscris: 17.09.2007

De fapt eu cred ca voi mai face multe greseli si de acum incolo, dar voi invata din ele. Multumesc de ajutor.

Back to top

Anunturi

Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

Eroare utilizare instructiune "if...then"

#1 ani_beita Posted 18 June 2012 - 06:54

Attached Files

#2 MarianG Posted 18 June 2012 - 09:22

#3 ani_beita Posted 18 June 2012 - 09:53

Attached Files

#4 MarianG Posted 18 June 2012 - 10:40

#5 ani_beita Posted 18 June 2012 - 14:10

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
ani_beita

Posted 18 June 2012 - 06:54

#2
MarianG

Posted 18 June 2012 - 09:22

#3
ani_beita

Posted 18 June 2012 - 09:53

#4
MarianG

Posted 18 June 2012 - 10:40

#5
ani_beita

Posted 18 June 2012 - 14:10