gorsel-programlama sorularını indin.yada aşşağıdan ulaşın.
1) Dosya aç butonuna tıklandığında open file dialog ile bir dosya seçilecek.
tbKey textboxına bir karakter girilecek.
Kaydet tuşuna basıldığında; seçilen dosya bu karakterle şifrelenerek, aynı isime ek olarak başına Şifreli kelimesi eklenerek yeni bir dosya oluşturularak, orijinal dosyanın yanına kaydedilecek.
(Örneğin; dosya ismi Deneme ise Yeni dosya ismi Şifreli Deneme olacak.)
Gerekli program kodunu yazınız.
2)a) Function ile Sub arasındaki farklar nelerdir? Yazınız.
b) Byval, ByRef arasındaki farkı bir örnekle açıklayınız.
3) UCase, Trim, Indexof, LastIndexOf, Replace string Fonksiyonları ne işe yarar? Açıklayınız.
4) Elimizde bir program mevcut bu programı demo haline getirmek istiyoruz programımızın ilk formu frmAna dır; 10 kullanım hakkı(program 10 kere açılabilecek) verilecektir. Her açılışta kullanıcının kaç hakkı kaldığı uyarısı verilecektir. Hakkı dolduğunda kullanım izniniz yok deyip programı sonlandıracaktır. Program kaç kere açıldığı bilgisini registry de oluşturulan bir Demo Kök klasörü altındaki Kredi anahtarında tutulacaktır. Gerekli program kodunu yazınız.
5)
Private Function NoluKelimeyiCikar ( ByVal Cümle As String, ByVal Numara As Integer) As String
Yukarıda ön tanımlaması verilen fonksiyonda; Cümle parametresi ile verilen cümlenin, Numara parametresi ile verilen numaralı kelimesini o cümleden çıkarıp cümlenin bu halini geri döndüren NoluKelimeyiCikar Fonksiyonunu yazınız.
7) Aşağıdaki properties(özellikler) elemanlarının anlamlarını yazınız.
Name, Text, Visible, Enabled, BackColor, Font
8) Aşağıda verilen karşılaştırma ifadelerini istenen ifadeye çeviriniz.
Select – Case Deyimi İf-Then-Else Deyimi
· Sayi=inputbox(“bir sayı girin (1/5) “)
Select Case sayi
Case 1
Msgbox “Bir”
Case 2
Msgbox “İki”
Case 3
Msgbox “Üç”
Case 4
Msgbox “Dört”
Case 5
Msgbox “Beş”
End select
9)
Access Kayıt isimli veritabanında varolan Personel tablosu Kimlik, AdSoyad, Bolumu, Maası, MesaiSuresi, Cinsiyeti, KidemYili alanlarından oluşmaktadır.
Ücret Hesaplama Programı Yapılacaktır. Ücret Maaş ile Mesai toplamına eşittir.
Form ilk açıldığında cbPersonel comboboxına bütün personellerin ad soyadı listelenecektir. ComboBox tan seçilen personelin bilgileri Personel Bilgileri grupboxında bulunan ilgili alanlara yazılacaktır.
btHesapla butonuna tıklandığında personelin aylık ücreti hesaplanıp tbUcret textboxına yazılacaktır.
· Bayanların mesai saat ücreti 7,75 TL dir
· Bayların mesai saat ücreti 7,50 TL dir
· Kıdem Yılı 10 yıldan fazla olanların mesai ücreti %10, 20 yıldan fazla olanlarınki %20 daha fazladır
· Aylık mesai süresi 100 saatten fazla olanların saatlik mesai ücretleri %5 daha fazla alınacaktır
Bu programı gerçekleştiren gerekli kodları yazınız.
10) tbKelime textboxına yazılan cümle içerisinde, tbHarf textboxına yazılan harften kaç adet olduğunu mesajbox ta gösteren programı yazınız.
11) Dim i, Sayilar(9) As Integer
Randomize()
For i = 0 To 9
Sayilar(i) = Rnd(100) * 100
Next
tbSonuc.Text = Ortalama(Sayilar)
Üstte rasgele tutulan 10 sayının ortalamasını bulup tbSonuc TextBox’ına yazan kod bulunmaktadır. Bu programın çalışması için gerekli Ortalama altprogramını yazınız.
12)
Şifre girilip Enter tuşunu basıldığında 1.karakter ile 3.karakterin çarpımı,2.ile 4.karakterin toplamına eşitse frmAna ekranını açan 3.deneme sonucunda programı kapatan kodu yazınız.
13)
Yandaki forma göre sayısal loto programı tasarlayın. tbToplam TextBox ına girilen rakam 21 den küçük olmamak kaydı ile tutulan sayıların toplamı tbToplam textboxına girilen değere eşit olacak. 21 den küçük yada girilmemişse serbest olarak tutabilecek. Tuttuğu sayıları labellara yazacak program kodunu yazınız.
14)
Girilen iki kelimede ki ortak ve farklı harflere göre aşağıdaki kümeyi oluşturan programı yazınız.
15)
Girilen aralıktaki her bir sayının faktöriyelini hesaplayıp lbSonuc ve bunların toplamını tbToplam textboxlarında gösteren program kodunu yazınız
16) lbKelime listboxında bulunan kelimelerden en uzun olanını gösteren programı yazınız.
