1. Anasayfa
  2. 11.Sınıf

Görsel Programlama VB.NET Program Çalışma Soruları 2


17
  1. Klavyeden Vize ve Final Notları giriliyor. Vize Notunun % 40'ı, Final Notunun % 60'ı Geçme Notunu oluşturuyor. Final Notu veya Geçme Notu 60'dan küçük ise ekranda 'BÜTÜNLEMEYE KALDI'; diğer durumda 'GEÇTİ' mesajını görüntüleyen programı yazınız.
  2. Klavyeden sıcaklık bilgisi giriliyor. Sıcaklık 0 ile '20 arasında ise ekrana 'Mavi Alarm', 25 ' 30 arasında ise 'Sarı Alarm', sıcaklık 30'un üzerinde ise 'Kırmızı Alarm' mesajını görüntüleyen programı yapınız.
  3. 2 label ve 1 butonun yer aldığı bir formda butona tıklandığında label nenelerindeki değerlerin yerlerini değiştiren programı yazınız.
  4. Yukarıdaki gibi bir form üzerinde 3 Radiobutton, 2 Textbox ve 2 Label bulunacak. Bu Radiobutton seçeneleri Kare, dikdörtgen, daire olacak. Kullanıcı bunlardan hangisini seçerse o şeklin alanı text kutularına girilen kenar veya yarıçap değerlerine göre hesaplanıp msgbox ile ekranda görüntülenecektir.
    Not-1: Karenin alanı ve dairenin alanı hesaplanırken 1 text kutusuna ihtiyaç duyulacağından 2.text kutusu gizlenmeli, dikdörtgenin alanı hesaplanırken 2 text kutusu da form üzerinde görünmelidir.
    Not-2: Text kutusunun solundaki Label'de o anda girilen değerle ilgili mesaj olmalıdır.
    Ör: Daire seçildiğinde Label'de "Yarıçapı giriniz" gibi bir değer olmalıdır.
  5. 10 elemanlı bir diziye sayı girilecektir. Bu dizide 100 sayısının adetini bulan programı yazınız.
  6. Klavyeden 40 öğrencinin not bilgisi giriliyor. Bu notlardan sınıf ortalaması altındakilerin sayısını bulan programı yapınız.
Bu İçeriğe Tepkin Ne Oldu?
  • 0
    ba_ar_l_
    Başarılı
  • 0
    gayet_yi
    Gayet İyi
  • 0
    te_ekk_rler
    Teşekkürler
  • 1
    anlamad_m
    Anlamadım
  • 1
    yetersiz
    Yetersiz
Subscribe
Bildir
guest

This site uses Akismet to reduce spam. Learn how your comment data is processed.

17 Yorum
Inline Feedbacks
View all comments
kader

bunların cevapları haniii

kader

soru üretmek kolay önemli olan cevaplarııııı

Guest

aslında hiç bu kadarını bekliyordum bilisimogretmeni.com olduğu için hiç bu kadarını bekliyordum

Rıdvan

Dim a, b As Integer
Dim c As Single
a = TextBox1.Text
b = TextBox2.Text
c = Math.Sqrt(a ^ 2 + b ^ 2)
MsgBox(“Hipotenus =” & c)

Guest

gerçekten çoq qüseLL oLmuş eLLeriNize sağLık yazılıda çıktı bunlar emeğe saygı…….

ısmail

Dim a, b, c, d, f As Integer
a = TextBox1.Text
b = TextBox2.Text
c = a * 40 / 100
d = b * 60 / 100
f = c + d
If f < 60 Or d < 60 Then
MessageBox.Show(“Bütünlemeye Kaldı”, “Kaldı”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show(“Geçti”, “Geçti”, MessageBoxButtons.OK, MessageBoxIcon.None)

End If

ihsan

sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write(‘Sayı Giriniz…:’);Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln(‘Sayı Asaldır’);
if j2 then writeln(‘Sayı Asal Değildir.’);
readln;
clrscr;
j=0;
until keypressed=27;
end.

:D

ihsan

sayi,kalan,i,j:integer;
Begin
Repeat
Clrscr;
write(‘Sayı Giriniz…:’);Readln(sayi);
for i:=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan=0 then j:=j+1;
end;
if j=2 then writeln(‘Sayı Asaldır’);
if j2 then writeln(‘Sayı Asal Değildir.’);
readln;
clrscr;
j=0;
until keypressed=27;
end.

:D

Guest

:oops:

esra

iki sayının asal sayısını bulan program?

aselim

hocam lütfen dğer sorularının cvp yazabilrmisniz ben ilk yazılımı burdaki koymuş oldğunuz sorulardan çalışmıştm ve onlara benzer çıkmıştı cvp lütfen verirmisnz bizde inceleyip anlasak

aselim

vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final

aselim

vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final

aselim

arkdaşlar
ben forma 2 label ve 2 textbox bir tanede buton ekleyerek yptım .farklı yönlerden de yapılabilir vize ve finali inputbox olrakta kullanıcadan isteyebilirsinz yada sonuç değişkenini ayrı bir texbox da yazdırabilrsiniz

vize = TextBox1.Text
final = TextBox2.Text
vize = (vize * 100) / 40
final = (final * 100) / 60
If (final

TUğBA şAHıN

:oops: ALLAH RIZASI ıÇıN SORULANIN CEVAPLARINI ıSTıYORUM SORULARI YAZMIZMIşSININZ HOCADA SıZıN SıTENıZDEN ALDI BıZE VERDı ÇARşAMBAYA SINAV OLCAZ BU SORULARDAN CEVAPLARI BULAMIYORUZ BıZE ULAşTIRIRSANIZ SEVıNıRıM şıMDıDEN TEşEKKÜR EDERıM