1-)Klavyeden Girilen Sayının Tek , cift ve Pozitif , Negatif olduğunu ekranda Gosteren Program KomutLarı
4 tane Command Button , 1 tane text box

Kod:
Private Sub Command1_Click() Dim a As Long If Text1.Text = "" Then MsgBox ("Boş Sayı Girilmez"), vbCritical, "HATA" ElseIf a >= 0 Then MsgBox ("POZİTİF"), vbInformation, "POZİTİF" Else MsgBox ("NEGATİF"), vbInformation, "NEGATİF" End If End Sub Private Sub Command2_Click() If Text1.Text = "" Then MsgBox ("Boş Sayı Girilmez"), vbCritical, "HATA" ElseIf Text1.Text Mod 2 = 0 Then MsgBox ("CİFT"), vbInformation, "CİFT" Else MsgBox ("TEK"), vbInformation, "TEK" End If End Sub Private Sub Command3_Click() Text1.Text = Clear End Sub Private Sub Command4_Click() End End Sub

2-)Bir otomobil firmasının satış kampanyası vardır.Otomobilin cıplak fiyatı ve motor hacmi klavyeden girilecektir.Buna gore motor hacmi 1600 uzerinde olanlar %25 kdv odeyip %10 indirim hakkına sahipken , 1600 ve altındakiler %15 kdv odeyip %8 indirime tabi tutulacaktır.Buna Gore otomobilin cıplak fiyatı , kdv tutarı , indirim tutarı ve net fiyatını ekranda gosteren programın kodu .

1 tane Command Button
Kod:
Private Sub Command1_Click() Dim fiyat, hacim, kdv, indirim, netfiyat As Long fiyat = Val(InputBox("Otomobil Cıplak Fiyatını Giriniz", "FİYAT GİRİŞ")) hacim = Val(InputBox("Motor Hacimini Giriniz", "MOTOR HACMİ")) If hacim > 1600 Then kdv = fiyat * 25 / 100 indirim = fiyat * 10 / 100 Else kdv = fiyat * 10 / 100 indirim = fiyat * 8 / 100 End If netfiyat = fiyat + kdv - indirim MsgBox "fiyat: " & fiyat & " kdv: " & kdv & " İndirim: " & indirim & " NetFiyat: " & netfiyat, vbInformation, "SONUC" End Sub

3-)Bir ehliyet verme kursunun programı yapılacaktır.Ehliyet alabilmek icin oncelikle 18 yaşını doldurmak gerekmektedir.Eğer 18 yaş dolmuş ise uc sınav notu (motor,trafik,ilkyardım) klavyeden girilecektir.Eğer sınavlardan herhangi biri 70'in altında ise ehliyet alamazsınız cevabı verılecek .Eğer tum sınavları 70 ve uzeri ise direksiyon puanı girilecektir.Eğer direksiyondan da 70 ve uzeri aldıysa ehliyet alacak değilse alamayacak.

1 tane Command Buton

Kod:
Private Sub Command1_Click() Dim yas, motor, ilkyardim, trafik, direksiyon As Byte yas = Val(InputBox("Yasınızı Giriniz", "Yaş Girişi")) If yas >= 18 Then motor = Val(InputBox("Motor Sınav Sonucu", "SINAV SONUCU")) ilkyardim = Val(InputBox("İlk Yardim Sınav Sonucu", "SINAV SONUCU")) trafik = Val(InputBox("Trafik Sınav Sonucu ", "SINAV SONUCU")) If (motor >= 70) And (ilkyardim >= 70) And (trafik >= 70) Then direksiyon = Val(InputBox("Direksiyon Sınav Sonucu", "SINAV SONUCU")) If direksiyon >= 70 Then MsgBox "Ehliyet Almaya Hak Kazandın", , "TEBRİKLER" Else MsgBox "Direksiyon Sınavını Gecemediniz", , "UZGUNUZ" End If Else MsgBox "Notlardan En Az Biri Zayıf", , "KAZANAMADINIZ" End If Else MsgBox " Yaşınız EhLiyet Almaya (18 yaş) Tutmuyor", , "Daha Erken" End If End Sub

Kolay Gelsin (:
__________________