Jump to content
Forum Windows-az.com

Kalkulyator hazirlamaq


Elvin Məlikov

Recommended Posts

1-)Forma 3 ədəd textbox əlavə edin.

2-)Forma 4 ədəd command button əlavə edin.(Birinə "+" Birinə "-" Birinə "*" Birinə "/" )

3-)İndi isə toplama "+" buttonuna klik edərək kodu aşağidaki kodu yazin.

Private Sub Command1_Click()

Dim değer1, değer2, sonuç

değer1 = Val(Text1.Text)

değer2 = Val(Text2.Text)

sonuç = değer1 + değer2

Text3.Text = sonuç

End Sub

--)İkinci olaraq "-" çixmaq buttonuna klik edib kodu yaziriq

Private Sub Command2_Click()

Dim değer1, değer2, sonuç

değer1 = Val(Text1.Text)

değer2 = Val(Text2.Text)

sonuç = değer1 - değer2

Text3.Text = sonuç

End Sub

--)Üçüncü isə "*" vurma buttonuna klik edib kodu yaziriq

Private Sub Command3_Click()

Dim değer1, değer2, sonuç

değer1 = Val(Text1.Text)

değer2 = Val(Text2.Text)

sonuç = değer1 * değer2

Text3.Text = sonuç

End Sub

--)Axirinci isə "/" yəni böımə buttonuna klik edib kodu yaziriq

Private Sub Command4_Click()

Dim değer1, değer2, sonuç

değer1 = Val(Text1.Text)

değer2 = Val(Text2.Text)

sonuç = değer1 / değer2

Text3.Text = sonuç

End Sub

Link to comment
Share on other sites

Proqramlar telegramda

izahat duzgun deyil

basliqda yazilibki text button elave edin 1 ede

vb-de tetx button komponenti yoxdu textbox komponenti var

 

eslinde 3 ede etxt box elva edilmelidir. cunki bir text boxa cavab verilmir.

kodada diqqetle baxisaniz bileceksizki orda textbox3 cavabdir

yeni 5+5 textbox3-de onu cavabi verilecedir

 

siz cavabi labelede elave ede bilersiniz.

 

----------------------------------------------------

3 textbox ve 4 eded button

 

1 button +

2 button -

3 button *

4 button /

 

kodlarida yuxaridaki kimi buttonlara elave edin

 

1308684472_untitled-1.jpg

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

  • 2 ay sonra...

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...