evet arkdaşlar formumuza 1 tane buton koyuyoruz ve kod kısmına geçioruz.
Public Class Form1
Sub seco()
Dim a, b, c As Integer
a = InputBox("1")
b = InputBox("2")
c = (a + b) / 2
MsgBox(c)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call seco()
End Sub
End Class
işte bu kadar..
Public Class Form1
Sub seco()
Dim a, b, c As Integer
a = InputBox("1")
b = InputBox("2")
c = (a + b) / 2
MsgBox(c)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call seco()
End Sub
End Class
işte bu kadar..
