|
Üye Grubu : Bizden Biri
Yaş : 17
Cinsiyet : 
Nerden : İک ť ª η ß υ Ł
Kayıt Tarihi : 20 Aralık 2007, 20:58:26
Mesaj Sayısı : 394
Konu Sayısı : 50
Üye No : 1423
Rep: 19
 Offline
|
 |
« : 04 Mart 2008, 19:24:14 » |
|
Inputbox ile 5 tane sayı girilecek bir butona basıldığındabu sayıların en büyüğünü bir textbox içerisinde gösteren program:
Public Class Form1
Dim sayı(4), a, b, c As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For a = 0 To 4
sayı(a) = InputBox("sayıyı giriniz", "bilgi girişi")
Next a
For b = 0 To 4
For a = 0 To 4
If sayı(a) > sayı(b) Then
c = sayı(a)
sayı(b) = sayı(a)
c = sayı(b)
End If
Next a
Next b
textbox1.text = c
End Sub
End Class
y=2x+2 denkleminde x'in 1,2,3,4,5 Değerleri için y değerini hesaplayıp bir textboxda gösteren program kodu:
Public Class Form1
Dim x, y As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For x = 1 To 5
y = 2 * x + 2
MsgBox(y)
Next
End Sub
End Class
Inputbox ile girilen rasgele iki sayının 4 işleme tabii tutan ve sonucunu bildiren program kodu:
Public Class Form1
Dim a, b, c As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = Val(InputBox("sayı giriniz", "bilgi girişi"))
b = Val(InputBox("sayı giriniz", "bilgi girişi"))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
c = a + b
MsgBox("toplamı" & c)
c = a * b
MsgBox("çarpımı" & c)
c = a - b
MsgBox("farkı" & c)
c = a / b
MsgBox("bölümü" & c)
End Sub
End Class
Inputboxla girilen bir sayının faktöriyelini hesaplayan program kodu:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b, k As Integer
a = Val(InputBox("sayıyı giriniz", "bilgi girişi"))
b = 1
For k = 1 To a
b = b * k
Next k
Label1.Text = b
End Sub
End Class
|
