28 Nisan 2014 Pazartesi

VB6 Bazı Kodlar

Bazı Kodlar Vericem.
Textten Texte yazı aktarımı yapmak.

Buton Koyun. Bunu Ekleyin.
Text2.Text = Text1.text Yani 1. texte yazdıgınız 2 ye geciyor.


Çalıştır Yapımı:
Bir Buton 1 text.

Buton Kodu:

Shell text1.text


Webbrowser Yapımı.

Ara Butonu:

Webbrowser1.Search

Git:

Webbrowser1.GoForward

Geri:

Webbrowser1.GoBack

Anasayfa:

Webbrowser1.GoHome

Yenile:

Webbrowser1.Ref.Resh (Nokta Koymayın Siz.)

Eklenecekler: Components Menüsünden Microsoft Internet Control Ve Butonlar.



Hesap Makinesi Yapımı:

4 Buton 2 Label 3 Text.

Topla:

Topla butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+"

Çıkar:

Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"


Çarp:

Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"

Bol:

Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/"

KareKok:

Text3.Text = Sqr(Val(Text3.Text))

Hiç yorum yok:
Write yorum

Labels