|
Görsel Programlama VB.NET Program Çalışma Soruları 3 |
|
- Bir dik üçgende hipotenüsü hesaplayan programı yapınız. Kenar uzunlukları klavyeden(textbox) girilecektir.
- Elektrik faturası tutarını hesaplayan programı yapınız. Form üzerinde birim fiyat ve tüketim için textbox nesneleri bulunacaktır.
100 KW'a kadarki tüketimler için fatura normal olarak hesaplanacak(tüketim x birim fiyat), 100KW üzerindeki tüketimlerde 100KW'ı aşan kısım için birim fiyatın %20 fazlası hesaplanacaktır. - Butona basıldığında 1 ile 100 arasında rasgele üretilen 10 sayıdan 50 ve altında kaç sayı üretildiğini tespit eden programı yapınız.
- Kullanıcıya 10 tane soru sorulacaktır. Sorular 1 ile 10 arasındaki sayılar olarak kullanıcının karşısına çıkacaktır. Kullanıcı sorulan sayının 2 katını doğru girmek durumundadır. Kullanıcının doğru ve yanlış cevap sayısını bulan programı yapınız.
- Textbox nesnesine girilen mesajı 1 saniye aralıklarla karakter karakter ekrana yazan programı yapınız.
- Form üzerindeki textbox'a değer girilecektir. 1'den başlayarak textboxa girilen değere kadarki sayıları label nesnesinde alt alta gösteren programı yapınız.
- Klavyeden girilen iki sayı arasındaki sayıları çarpan programı yapınız.
Ör: 6 ve 9 için à 6 * 7 * 8 * 9 sonucu hesaplanacak. - Form üzerindeki textbox nesnesine bir tamsayı değer giriliyor. 1'den girilen sayıya kadarki sayıların toplamını hesaplayan programı yapınız. Ör: Girilen sayı 4 ise; 1+2+3+4 = 10
- Klavyeden girilen cümledeki boşluk karakterinin sayısını bulan programı yapınız.
- Klavyeden girilen cümledeki türkçe karakterlerin(ç, ı, ğ, İ, ö, ş, ü) sayısını bulan programı yapınız.
- Form yüklendiğinde ay isimleri bir diziye kaydedilecektir. Textbox nesnesine girilen ay numarası sonucunda ilgili ayın adını gösteren programı yapınız.
- Form üzerinde 2 buton mevcuttur. 1.butona basıldığında diziye 10 sayı girilecektir. 2.butona her basıldığında dizinin sırayla bir değerini kullaıcıya mesaj vererek gösterecektir.
Ör: 1.butona basıldığında diziye aşağıdaki gibi değerler girilmiş olsun 24 | 45 | 60 | 10 | 88 | 23 | 54 | 76 | 32 | 10 | 2.butona ilk basışımızda ekranda mesaj olarak 24; ikinci basışta 45 vb. görüntülenecektir. - Klavyeden girilen sayının rakamları toplamını bulan programı yapınız.
|
Yorumlar
Public Class Form1
Dim t As Byte = 0
Dim a As Byte
Dim b As Byte = 1
Dim i As Byte
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Byte = 1 To 4
Randomize()
a = Rnd() * 4
TextBox1.Text = a
b = a * 2
If Val(TextBox2.Text) = b Then
t = t + 1
End If
Next
End Sub
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If i = 4 Then
MsgBox(t & "kadar doğrunuz var")
Else
MsgBox("sorular bitmedi")
End If
End Sub
End Class
: randomda 1-4 arası tutturdum. 4 kez sorulacağından döngüye aldım ama 4ü aşıyor.
RSS beslemesi, bu iletideki yorumlar için