Köy ve organik yaşam :)

Salatalık.

Böğürtlen 

Kabak

Domates

Hanımeli

Üzüm

Finduk :)

Patlıcan 

Ardışık çift sayıların toplamını hesaplayan program

Sub ciftsayitoplami()
       
        Dim i, ciftsayi As Integer
          ciftsayi = 0
         
            For i = 30 To 80 Step 2
                ciftsayi = ciftsayi + i
            Next
          
        MsgBox "30 ile 80 arasındaki çift sayıların toplamı " & ciftsayi
   
    End Sub

Klavyeden girilen sayının faktöriyelini hesaplayan program

Sub faktoriyel()
       
        Dim i, sayi As Integer
            sayi = InputBox("bir sayı giriniz")
            tpl = 1
        For i = 1 To sayi Step 1
            tpl = tpl * i
        Next
            MsgBox tpl
   
    End Sub

Klavyeden girilen 10 sayıdan çiftlerin toplamının teklerin toplamına oranını hesaplayan program.

Sub cift_tek_oran()

   Dim i, sayac, a, cift, tek, cifttop, tektop As Integer
    Dim sonuc As Double
          sayac = 0
          cift = 0
          tek = 0
          cifttop = 0
          tektop = 0
   
        For i = 1 To 10 Step 1
            sayac = sayac + 1
            a = InputBox(sayac & ". sayıyı giriniz")
          
                If a Mod 2 = 0 Then
                    cift = cift + 1
                    cifttop = cifttop + a
                   
                 Else
                   
                    If a Mod 1 = 0 Then
                    tek = tek + 2
                    tektop = tektop + a
                
                End If
                End If
        Next i
               
                sonuc = cifttop \ tektop
                MsgBox "çift sayılar toplamının tek sayılar toplamına oranı " & sonuc
   
    End Sub

Vize_Final Notu Hesaplama Programı

Sub Not_Hesaplama()
    Dim vize1, vize2, final, vizeortalamasi, finalnotu, notortalamasi As Double
    Dim ogrencisirasi, toplamogrenci As Integer
        Dim islemedevam As Boolean
        ogrencisirasi = 0
        islemedevam = True
    
        toplamogrenci = InputBox("Kaç öğrenci için not hesaplamak istiyorsunuz ?")
       
            Do While toplamogrenci > 0
                ogrencisirasi = ogrencisirasi + 1
                toplamogrenci = toplamogrenci - 1
   
                vize1 = CInt(InputBox(ogrencisirasi & ".öğrenci için 1. vize notunu giriniz")) 'Cint string dönüştürür integer
                vize2 = CInt(InputBox(ogrencisirasi & ".öğrenci için 2. vize notunu giriniz"))
                final = CInt(InputBox(ogrencisirasi & ".öğrenci için final notunu giriniz"))
               
                        vizeortalamasi = ((vize1 + vize2) / 2) * 0.4
                        finalnotu = final * 0.6
                        notortalamasi = vizeortalamasi + finalnotu
                   
                        MsgBox ogrencisirasi & ". öğrencinin dönem sonu notu " & notortalamasi
   
               
                If islemedevam = toplamogrenci < 0 Then
                    islemedevam = False
                End If
                Dim yaziNotu, harfnotu As String
               
                Select Case notortalamasi
                    Case Is < 50: yaziNotu = "kaldı"
                    Case Is >= 50: yaziNotu = "geçti"
                    Case Else: yaziNotu = "hadi bu da geçti"
                End Select
                    Select Case notortalamasi
                        Case 0 To 30
                        harfnotu = "E"
                        Case 30 To 50
                        harfnotu = "D"
                        Case 50 To 60
                        harfnotu = "C"
                        Case 60 To 80
                        harfnotu = "B"
                        Case 80 To 100
                        harfnotu = "A"
                    End Select
       
                MsgBox ogrencisirasi & ".ögrenci " & harfnotu & " ile " & yaziNotu
            Loop
  
    End Sub

Sayi_Tahmin_Oyunu

İlk çalışmam hayırlı olsun diyorum... : )


Sub sayi_bulma()
    If MsgBox("Benimle oyun oynamak ister misin?", vbYesNo) = vbNo Then
        MsgBox ("Oyunbozan :)"), vbOKOnly
    Else
        MsgBox ("Hadi aklından 1 ile 10 arasında bir sayı tut !"), vbOKCancel
       
        If MsgBox("Tuttuysanız Evet'e basın", vbYesNo) = vbYes Then
       
            Dim enBuyuk, enKucuk, tahmin, kere As Integer
            Dim aramayadevamet As Boolean
            aramayadevamet = True
           
            kere = 0
            enBuyuk = 10
            enKucuk = 0
           
            Do While aramayadevamet
                tahmin = Int((enBuyuk - enKucuk + 1) * Rnd + enKucuk)
                If MsgBox("Tuttuğunuz sayı " & tahmin & " idi değil mi?", vbYesNo) = vbYes Then
                    aramayadevamet = False
                Else
                    If MsgBox("Tuttuğunuz sayı tahmin edilenin üzerinde ise Evet'i altında ise  _
& " Hayır'ı seçiniz."    ,vbYesNo) = vbYes Then
                        tahmin = enBuyuk
                    Else
                        tahmin = enKucuk
                    End If
                End If
            Loop
           
            If kere = kere + 1 Then
             MsgBox "Beni tebrik etmelisin, ilk seferde bildim"
            Else
             MsgBox "Biraz uğraştırdın beni ama sonunda buldum :)"
            End If
        End If
    End If
End Sub