Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Wc Geberit

Routere detinute in trecut si in ...

Teii din fața casei

E-Mail in serie prin Excel si Out...
 Modul alimentare rulou/jaluzea ex...

Recuperare fișiere dupa form...

Aplicatii stress test RAM

Asigurare auto hibrid
 Asus B550M - PC-ul nu porneste di...

Tzanca Uraganu - Inconjurat de Fe...

explicatie montaj breadboard

3 Doors Down - Kryptonite
 Semnalizati cand virati pe un dru...

Succesiune - mostenire apartament...

Donez Siofor de 1000mg ( diabet t...

Izolatie intre parter si etaj
 

Eroare utilizare instructiune "if...then"

- - - - -
  • Please log in to reply
4 replies to this topic

#1
ani_beita

ani_beita

    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



#2
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,383
  • Î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

#3
ani_beita

ani_beita

    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



#4
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,383
  • Î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

View Postani_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.


#5
ani_beita

ani_beita

    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.

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate