Görsel Programlama 2.Dönem 3.Sınavı

2010-2011 EĞİTİM ÖĞRETİM YILI BİLİŞİM TEKNOLOJİLERİ ALANI

11-A SINIFI GÖRSEL PROGRAMLAMA  DERSİ 2.DÖNEM 3.YAZILI SINAVI

a)      Formların düzenlenmesi (6p)

b)      Rakamlara basınca katlara gitmesi (18p)

c)      Kat numaralarının görünmesi(6p)

2) Soru2 Formunu  düzenleyiniz. Bölünen sayıları bulma(30)

a)   Text kutusuna girilen sayıya kadar olan 0 a kalansız bölünecek sayıları bulma.
Örnek: 6 sayısı à Bölünenleri 1,2,3 ve 6

3)  Soru3 Formunu  düzenleyiniz.
Text kutusu içerisine girilen sayıya göre,  Bir bankamatikte 50TL, 20  TL ,10 TL ve 5 TL lik banknotlar bulunmaktadır. Kullanıcı tarafından istenen para tutarına göre banknot adetlerini hesaplayan programı yapınız.(40 p)
Listbox içerisine değeri yazdırmak için aşağıdaki kodu kullanabilirsiniz.
–  ListBox1.Items.Add(yr.ToString + ” adet 20 TL”)

a)      Formun düzenlenmesi(5p)

b)      50 TL lik banknotların sayısını bulma (10p)

c)      20 TL lik banknotların sayısını bulma (10p)

d)     10 TL lik banknotların sayısını bulma (10p)

e)      5 TL lik banknotların sayısını bulma (5p)

2.213 defa okundu.

2 Responses to Görsel Programlama 2.Dönem 3.Sınavı

  1. ünal dedi ki:

    sorular süper bide cevaplarını yayınlasanız

    • admin dedi ki:

      soru 1) asansör programı.
      1.kat için
      Button1.Top = 235
      Label7.Text = “1″
      diger katlar için top özelliği 30 azaltılarak devam edilir.

      soru 2)
      Text kutusuna girilen sayıya kadar olan 0 a kalansız bölünecek sayıları bulma.
      Örnek: 6 sayısı  Bölünenleri 1,2,3 ve 6

      s = CInt(TextBox1.Text)

      For k = 1 To s
      If s Mod k = 0 Then
      ListBox1.Items.Add(k)
      End If
      Next

      soru 3)

      50 TL lik banknotların sayısını bulma
      20 TL lik banknotların sayısını bulma
      10 TL lik banknotların sayısını bulma
      5 TL lik banknotların sayısını bulma

      Dim el, k, yr, mr, onluk, beslik, nr, s As Integer

      s = CInt(TextBox1.Text)
      el = CInt(s \ 50)
      ListBox1.Items.Add(el.ToString + ” adet 50 TL”)
      k = s Mod 50

      yr = CInt(k \ 20)
      ListBox1.Items.Add(yr.ToString + ” adet 20 TL”)

      mr = k Mod 20

      onluk = CInt(mr \ 10)
      ListBox1.Items.Add(onluk.ToString + ” adet 10 TL”)
      nr = mr Mod 10

      beslik = CInt(nr \ 5)

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Powered by WordPress | Designed by: credit repair | Thanks to st louis web design, essay writing and fire glass
c# örnekleri , csharp örnekleri , c# örnek , C# Örnekleri , örnekleri c# , C# ÖRNEKLERİ
BTT Sınavları

C# Uygulamaları

Müdür Yardımcılığı Sınavına Hazırlık Sayfası

Müdür Yardımcılığı Çalışma Notları

C# Uygulamaları

Yazılı Soruları Php Dersleri Bilişim Teknolojileri Alanı Yazılı Soruları C# Dersleri C# Örnekleri