Dikdörtgenin Cevresini hesaplayan program

~~*MeLeK*~~ · 28-01-2008, 10:53

Şimdi 2 text 2 command buton ekleyin. kodları yazın

Private Sub Command1_Click()
Dim alan As Integer
alan=text1.Text*Text2.Text
MsgBox "Dikdörtgenin Alanı:" & alan
End Sub

Private Sub Command2_Click()
Dim cevre As Integer
alan=2 *text1.Text+2*Text2.Text
MsgBox "Dikdörtgenin Cevresi:" & cevre
End Sub

**TeknomWar** · 31-01-2008, 19:50

Fazla yararı olmaz belki ama yinede denerim...

**DuD** · 01-02-2008, 00:24

way helal süpeer (anlamadım bişey)teknomwar tşk et geç yorum yapma kibar ol naslım?

~~*MeLeK*~~ · 01-02-2008, 00:26

anlamadığın birşey için neden vay helal süper diyorsun..

~~Cogito~~ · 01-02-2008, 17:48

Süpersin Paylaşım İçin Teşekkürler!

**kratos1903** · 05-05-2008, 16:14

şeee bi hata var sanırım 2. bölümde alan = yerine cevre yazılması gerekir
kod için teşekkürler

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
Dev Bir Program Arşivi	TimoBaba	Programlar	6	27-07-2008 03:16
Program İstekleriniz!!	µñ¶©wÑ	Programlar	2	05-03-2008 20:45
Program Ekle/Kaldır da silinmeyen program isimleri nasıl silinir?	MeLeK	Bilgisayar	1	14-02-2008 17:31
Program Yaratma	....__B@TUH@N__...	Bilgisayar	10	28-01-2008 14:59
dehşet bir program	McEsraR	Programlar	0	07-06-2007 13:36