Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
Eroare utilizare instructiune "if...then"
Last Updated: Jun 18 2012 14:10, Started by
ani_beita
, Jun 18 2012 06:54
·
0
#1
Posted 18 June 2012 - 06:54
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 |
#2
Posted 18 June 2012 - 09:22
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 |
#3
Posted 18 June 2012 - 09:53
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 |
#4
Posted 18 June 2012 - 10:40
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
ani_beita, on 18th June 2012, 10:53, said: Sfatul tau nu este pentru un tabel? Edited by MarianG, 18 June 2012 - 10:41. |
#5
Posted 18 June 2012 - 14:10
De fapt eu cred ca voi mai face multe greseli si de acum incolo, dar voi invata din ele. Multumesc de ajutor.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users