Asp.Net If Deyimi Çalışma Soru ve Cevapları
(1 oy, ortalama: 4 / 5)
Loading ...1. Kullanıcının verdiği dairenin çap bilgisine göre dairenin alanını ve çevresini hesaplayan programı yapınız.
Çözüm : Daire.aspx.vb
[code]
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As Integer
r = TextBox1.Text / 2
TextBox2.Text = 2 * 3.14 * r
TextBox3.Text = 3.14 * r * r
End Sub
[/code]
2. 100’lük sistemde girilen öğrenci notunu aşağıdaki tabloya göre harfli sisteme çeviren programı yapınız. (Not : Not 0 ile 100 değerleri arasında giirlmediğinde kullanıcıya uyarı verilecek.)
|
0-24
|
0
|
F
|
|
25-44
|
1
|
E
|
|
45-54
|
2
|
D
|
|
55-69
|
3
|
C
|
|
70-84
|
4
|
B
|
|
85-100
|
5
|
A
|
Çözüm : Harfkarsiligi.aspx.vb
[code]Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Double
n = TextBox1.Text
If n >= 0 And n <= 100 Then
If n > 84 Then
TextBox2.Text = "A"
ElseIf n > 69 Then
TextBox2.Text = "B"
ElseIf n > 54 Then
TextBox2.Text = "C"
ElseIf n > 44 Then
TextBox2.Text = "D"
ElseIf n > 24 Then
TextBox2.Text = "E"
Else
TextBox2.Text = "F"
End If
Else
msg.Text = "Lütfen [0-100] aralığıda bir değer girin …"
End If
End Sub[/code]
3. Kullanıcın verdiği 3 sayıyı küçükten büyüğe göre listeleyen programı yapınız.
Çözüm : Siralama.aspx.vb
[code]
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, kucuk, buyuk, orta As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
If a > b And a > c Then
buyuk = a
If b > c Then
orta = b
kucuk = c
Else
orta = c
kucuk = b
End If
End If
If b > a And b > c Then
buyuk = b
If a > c Then
orta = a
kucuk = c
Else
orta = c
kucuk = a
End If
End If
If c > a And c > b Then
buyuk = c
If a > b Then
orta = a
kucuk = b
Else
orta = b
kucuk = a
End If
End If
Label4.Text = kucuk & " " & orta & " " & buyuk
End Sub [/code]
4. Bir sayının faktöriyelini hesaplayan programı yapınız.
Çözüm : faktoriyel.aspx.vb
[code]
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
Dim t = 1
s = TextBox1.Text
If s >= 0 Then
For i = 1 To s
t = t * i
Next
Label2.Text = t
Else
Label2.Text = " Negatif Sayıların Faktöriyeli Yoktur."
End If
End Sub[/code]
ile görüntülenir.
asp maduru ,
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ort As Double
ort = (CInt(TextBox1.Text) + CInt(TextBox2.Text)) / 2
TextBox5.Text = ort
End Sub
End Class
form da 2 sayının girişi için 2 tane textbox , bir buton ve sonucu görüntülemek için de bir textbox yerleştirmelisin. form düzenini yapamazsan onun kodlarını da yollarım…
Yardımınıza ihtiyacım var klavyeden girilen 2 sayının ortalamasını bulmamız gerekiyor okulda form nesnelerini işliyoruz yapamadım yardımcı olursanız sevinirim teşekkürler..
ne tarz bilgiler istiyorsunuz? detay verseniz yardımcı olabilirim belki
daha fazla bilgi istiyoruz verdikleriniz işimize yaradı ellerinize sağlık ama daha değişik şeyler olursada seviniriz
hocam birazdaha ders ekleliyn lütfende bizde birşeylerden faydalanalım çok az
Asal sayılar,kendisinden ve 1 sayısından başka böleni olmayan, 1′den büyük pozitif tam sayılardır.
çözüm şöyle ;
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bolen As Double
Dim i As Integer
Dim deger As Boolean
‘ 0 ve 1 sayıları asal sayı olarak kabul edilmez.
For i = 2 To 100
deger = False
bolen = 2
While bolen <= i / 2
If i Mod bolen = 0 Then
deger = True
End If
bolen = bolen + 1
End While
If deger = False Then
ListBox1.Items.Add(i)
End If
Next
End Sub
End Class
1-100 arası asal sayıları gosteren programı nasıl yapablırız…