Burada öğrendiklerim sayesinde yaptığım hesaplama programları aslında çok basit 3 satır kod
Dikdörtgen alan ve çevre hesaplama programı
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
cevre = 2 * Text1.text * 2 * Text2.text
Msgbox " Dikdörtgenin Çevresi" & cevre
End Sub
Bunlar için 2 textbox 2 command button gerekiyor tasarımı size kalmış
-----------------------------------------------------------------
Karenin alanı ve cevresi
Private Sub Command1_Click()
Dim alan As Integer
alan = Text1.text * Text1.text
Msgbox"Karenin Alanı" & alan
End Sub
Private Sub Command2_Click()
Dim cevre As Integer
cevre = Text1.text * 4
Msgbox "Karenin Çevresi" & cevre
Bunu için 2 command button 1 textbox gerekiyor
----------------------------------------------------
Eşkenar Üçgenin Alanı Ve Çevresi
Private Sub Command1_Click()
Dim alan As Integer
alan = Text1.text * Text2.text / 2
Msgbox " Üçgeninz Alanı:" & alan
Private Sub Command2_Click()
Dim cevre As Integer
cevre = Text1.text * 3
Msgbox "Üçgenin Çevresi:" & cevre
Bunu için 2 text box 2 command button
gerekiyor
EMEĞE SAYGI +REP İLE OLUR
