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.
sLm ii akşamlar asp.netti öqrenmeye karar verdim ama temelini öqrenebileceqim bir yr varmı bildiqiniz cvp için şimdiden tşk…
Form üzerindeki bir butona bağlı aşağıdaki kodu ekleyin ;
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sayi As Integer = 1
While sayi < = 30
If sayi Mod 3 = 0 Then
Response.Write(” ” & sayi & ”
”)
ElseIf sayi Mod 5 = 0 Then
Response.Write(” ” & sayi & ”
”)
Else
Response.Write(sayi & ”
”)
End If
sayi = sayi + 1
End While
End Sub
Kod eksik göründüğü için resme bakabilirsiniz. Kolay gelsin.
ekrana while döngüsüyle 1-30 arasında sayıları yazdırıp 3 ile bölünenleri kırmızı beş ile bölünenleri mavi ikisinede bölünmeyenleri siyah yazn programın kodlarını paylaşırmısınız çook acill
lütfen şu sorunun cevabını hemen yapabilirmisiniz??C/100=F-32/180=R/80=K-273/100 ACİL LAZIM LÜTFEEEN…
1-100 arası asal sayıları gösteren programı verdiğiniz için öncelikle teşekkür ederim. Ama ben editör kullanmadan yapıyorum programları.
Kodu şöyle toparlayarak yazdım ama ekrana hiç birşey çıkmadı. bunun sebebi ne olabilir. Kodlarda bir hata mı yaptım?
sub bul(sender as object, e as eventargs)
Dim bolen As Double
Dim i As Integer
Dim deger As Boolean
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
Response.write(i)
End if
Next
end Sub
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…