Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Xiaomi 14 Gpay

Izolare zid exterior de scandura

Dezinstalare drivere W11 23H3

Recomandare masina de spalat fiab...
 BSOD din cauza Intel Audio DSP dr...

De ce sunt oamenii nostalgici

Cum vand casa fara factura Hidroe...

Scor FICO minim
 Tonometru compensat CAS?

polita RCA ONLINE

Va rog recomandati echipa serioa...

Termostat frigider - verificare
 Mai au PC-urile vreun viitor?

Centrala termica immergas

Amenda in Lipsa ?

Acoperire gol extrior intre termo...
 

suma a doua numere in vb 6

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

#1
val_nec

val_nec

    Junior Member

  • Grup: Members
  • Posts: 39
  • Înscris: 13.02.2007
Eu sunt incepator in visual basic 6.
am inceput prin a face programe simple ca sa imi dau seama de limbajul vb.
am o problema :
se dau 2 numere a si b .sa se calculeze a+b,a-b,a*b,a/b;
am creeat aplicatia astfel:

Dim a, b, c As Integer
------------------------------------------
Private Sub Command1_Click()
c = a + b
Label5 = c
End Sub

------------------------------------------
Private Sub Command2_Click()
c = a * b
Label6 = c
End Sub
--------------------------------------------
Private Sub Command3_Click()
c = a - b
Label7 = c
End Sub
-------------------------------------
Private Sub Command4_Click()
c = a / b
Label8 = c
End Sub
----------------------------------
Private Sub Command5_Click()
End
End Sub
-------------------------------------
Private Sub Text1_Change()
a = Text1
End Sub
---------------------------------------
Private Sub Text2_Change()
b = Text2
End Sub
---------------------------------------
Private Sub Text3_Change()
a = Text3
End Sub
-------------------------------------
Private Sub Text4_Change()
b = Text4
End Sub
-------------------------------------------
Private Sub Text5_Change()
a = Text5
End Sub
----------------------------------------
Private Sub Text6_Change()
b = Text6
End Sub
-----------------------------------------
Private Sub Text7_Change()
a = Text7
End Sub
-------------------------------------
Private Sub Text8_Change()
b = Text8
End Sub

aplicatia se compileaza , ruleaza toate, dar numai una nu merge a+b
exemplu:
daca a= 1, si b=3
atunci suma =13
de ce?
de ce nu-mi aduna valorile lui a si b?
astept raspuns.

#2
shiva

shiva

    Nameless hero. Professional bug slayer mom.

  • Grup: Senior Members
  • Posts: 14,856
  • Înscris: 06.10.2003
Iti interpreteaza a si b-ul ca si stringuri, si atunci a + b = "1" & "3" = "13"
Declara-ti variabilele de tip Integer( e una din regulile de programare. pt ca devine mai clar codul si se evita astfel de erori ).
Cand citesti din TextBox, convertesti cu CInt( textbox.text ) in integer, si cand scrii in TextBox folosesti functia CStr.

#3
val_nec

val_nec

    Junior Member

  • Grup: Members
  • Posts: 39
  • Înscris: 13.02.2007

View Postshiva, on Jun 18 2007, 23:09, said:

Iti interpreteaza a si b-ul ca si stringuri, si atunci a + b = "1" & "3" = "13"
Declara-ti variabilele de tip Integer( e una din regulile de programare. pt ca devine mai clar codul si se evita astfel de erori ).
Cand citesti din TextBox, convertesti cu CInt( textbox.text ) in integer, si cand scrii in TextBox folosesti functia CStr.



ms.
acum merge . Am folosit functia  a= cint(text1.text)  si b=cint(text2.text)cum mi-ai spus si acum mi le citeste ca variabile integer.

#4
Yoda

Yoda

    Eternal padawan

  • Grup: Senior Members
  • Posts: 9,467
  • Înscris: 04.10.2002

View Postshiva, on Jun 18 2007, 23:09, said:

Iti interpreteaza a si b-ul ca si stringuri, si atunci a + b = "1" & "3" = "13"


Mai exact spus, ca valori Variant.

In definirea lor val_nec a scris:

Dim a, b, c As Integer

VB6 interpreteaza a si b ca find de tip nedefinit, prin urmare sunt de tipul implicit: variant.

Daca ar fi definit variabilele astfel:
Dim a As Integer, b As Integer, c As Integer

atunci codul ar fi functionat OK (fara concatenare, ci insumare).

Din fericire, in VB.NET aceasta problema nu exista. Toate cele trei variabile ar fi fost considerate Integer.

Anunturi

Chirurgia cranio-cerebrală minim invazivă 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

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