ortalama programı

04-05-2008, 11:23:15

#1

Ulath
s.a basic de arkadaşlar yeniler için birtane ortalama programı yapalım

önce bir tane buton ve bir tanede text box ekleyelim

kodları butona yazalım

önce 3 tane degişken oluşturalım

sayı girecegimiz için veri türümüz integer olacak
```
dim a as  integer
```
```
dim b as integer
```
dim ort

şimdik birde arkadaşlar inputbox yapalım
```
a= inputbox("ilk sayıyı giriniz")
```
ikinci inputboxumuzu yapalım
```
b = inputbox("ikinci sayıyı giriniz")
```
şimdik gelelim işlem yapalım
```
ort = a/b
```
şimdik bu sonucumuzu textte gosterelim

bunun için
```
text1.text = ort
```
ve
```
 end sub
```
diyelim sonlandıralım
```
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim ort
a = InputBox("ilk sayıyı giriniz")
b = InputBox("ikinci sayıyı giriniz")
ort = a / b
Text1.Text = ort
End Sub
```
hadi kolay gelsin

sorunuz olursa yazın