Küçük bir program.

**iron_impact** · 09-24-2007, 09:37 PM

Ş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

**iron_impact** · 09-24-2007, 10:45 PM

+rep desem ayıp olur.O yüzden demiom.AMA YORUM PLS...

**berceste** · 11-01-2007, 08:44 PM

çok basit bi prgrm emeğine sağlık arkdşm

**Yalcin46** · 11-22-2007, 01:00 PM

bana acil 20 tane basit program gerek yardımcı olursanız sevinirim

**RaeR** · 01-01-2008, 02:55 PM

basit ama yinede saol +rep demen aayıp olurdu doğru

09-24-2007, 09:37 PM	#1 (permalink)
iron_impact Çavuş	Küçük bir program. Şimdi 2 text 2 command buton ekleyin. kodları yazın Private Sub Command1_Click() Dim alan As Integer alan=text1.TextText2.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

Seçenekler
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ç

09-24-2007, 10:45 PM	#2 (permalink)
iron_impact Çavuş	+rep desem ayıp olur.O yüzden demiom.AMA YORUM PLS...

11-01-2007, 08:44 PM	#3 (permalink)
berceste Binbaşı	çok basit bi prgrm emeğine sağlık arkdşm

11-22-2007, 01:00 PM	#4 (permalink)
Yalcin46 Yeni Üye	bana acil 20 tane basit program gerek yardımcı olursanız sevinirim

01-01-2008, 02:55 PM	#5 (permalink)
RaeR Yarbay	basit ama yinede saol +rep demen aayıp olurdu doğru

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)