Vba ile Çözülecek Matematik Soruları

Excel dersleri ile ilgili sormak istediklerinizi paylaşabileceğiniz alan

Vba ile Çözülecek Matematik Soruları

İleti#1)  Erkan Akayay » 09 Eyl 2008 17:45

Kod yazımını geliştirmek amaçlı sorular soralım birbirimize

Vba kullanarak çözmenizi istediğim bir soru var.

Bir kral 2007 mahkumu sıraya dizer. 1. mahkumu idam eder. 2. mahkumu sıranın en arkasına göderir. 3. mahkumu idam eder , 4. mahkumu sıranın en arkasına gönderir.
Bu ardışık düzen tek bir mahkum kalana kadar devam eder ve o mahkum affedilir. Affedilen mahkum kaçıncı mahkumdu ?

Not : Doğru cevap kadar çözümü bulduğunuz VBA kodlaroda önemli ? Kodlarınızıda yazın lütfen
En son Murat OSMA tarafından, 12 Eyl 2009 00:24 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık Düzeltildi.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3954
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

Vba ile çözülecek matematik soruları

İleti#2)  Tarkan VURAL » 09 Eyl 2008 18:05

Güzel soru tebrikler, bakalım ne çıkıyormuş ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#3)  Tarkan VURAL » 09 Eyl 2008 18:14

Kod: Tümünü seç
Sub idam()
mahkum = -2007
kalan = 1
For i = mahkum To 0
Next i
Debug.Print mahkum * (-i) - kalan
End Sub


Böyle olsa olur mu ? hehe biraz 3 kağıt oldu ama :D
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#4)  Erkan Akayay » 09 Eyl 2008 18:32

Bayağı bir üçkağıt oldu ve sonuç doğru değil. Gerçi ben excelde 1 den 2007e kadar sıralı sayılarla kodlama yapabildim. Exceli kullanmadan uygun bir çözüm bulamadım daha.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3954
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Vba ile çözülecek matematik soruları

İleti#5)  Tarkan VURAL » 09 Eyl 2008 18:36

Sonuç 1004 ama kodu yazamadım daha.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#6)  Bülent » 09 Eyl 2008 18:48

1966 mı? :?
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3619
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Vba ile çözülecek matematik soruları

İleti#7)  Erkan Akayay » 09 Eyl 2008 18:49

Benim kodlara göre 1966 doğru :) Kodları verirsen yıldızlı 10 vereceğim :)
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3954
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

Vba ile çözülecek matematik soruları

İleti#8)  Bülent » 09 Eyl 2008 18:53

A sütununda alt alta yazdım ve kodu uyguladım... :)

Kod: Tümünü seç
Sub Düğme1_Tıklat()
For i = 1 To 2006
If WorksheetFunction.Count(Range("A1:A2007")) = 1 Then Exit Sub
    Range("A" & i + 1).EntireRow.Cut Range("A" & Range("A65530").End(3).Row + 1)
    Range("A" & i).EntireRow.Delete
Next i
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3619
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Vba ile çözülecek matematik soruları

İleti#9)  Erkan Akayay » 09 Eyl 2008 19:07

Aynı yönetmi izlemişiz :) Nede olsa senin öğrencinim. Senden öğrendim çok şeyi.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3954
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

Vba ile çözülecek matematik soruları

İleti#10)  Tarkan VURAL » 09 Eyl 2008 19:09

Hoop hoop, hile var, sonuş 1966 çıkıyor dediniz Bülentin kod 1964 çıkardı bir de 2006 kişi olarak kodlandı. Olmuyor ama :D
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#11)  Tarkan VURAL » 09 Eyl 2008 19:17

Sonuç 1966

Kod: Tümünü seç
Sub idam()
Dim i As Long, a As Long
'önce kişileri sayalım
For i = 1 To 2007
    Cells(i, 1) = i
Next i

'şimdi yer değiştirsinler
For a = 1 To 2006
    If Range("a:a").Count > 2 Then
        Rows(1).Delete
        [a65536].End(3)(2, 1) = Cells(1, 1)
        Rows(1).Delete
    End If
Next a
End Sub


damDosyasi.rar


Ben de dosya ekledim, canım çekti... :D
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#12)  Hakan Behcan » 09 Eyl 2008 19:25

Evet sonuç 1966 çıkıyor.
Bu da listboxlu çözüm.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Dizi(1 To 2007)
For i = 1 To 2007
    Dizi(i) = "Mahkum " & i
Next
Me.ListBox1.List = Dizi
End Sub

Private Sub CommandButton2_Click()
With Me.ListBox1
    Do While .ListCount > 1
        .RemoveItem (0) ' ilk mahkum silindi
        .AddItem Me.ListBox1.List(0) ' ikinci mahkum sona gitti
        .RemoveItem (0) ' ikinci mahkum baştan silindi
    Loop
End With
End Sub

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Hakan Behcan
Yönetim Kurulu
 
Adı Soyadı:Hakan BEHCAN
Kayıt: 15 Haz 2008 03:31
Konum: Çerkezköy - Tekirdağ
Meslek: Belli bir meslek yoktur.
Yaş: 49
İleti: 1354
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çerkezköy

Vba ile çözülecek matematik soruları

İleti#13)  Tarkan VURAL » 09 Eyl 2008 19:46

İyi ama bu oyuna neden üyeler katılmadılar ?
Bu başlık daha göz önünde bir yerde durmalı.
Ben bu oyunu sevdim, beyin jimnastiği gibi oldu --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#14)  Tarkan VURAL » 09 Eyl 2008 20:17

Erkan Akayay yazdı:Bayağı bir üçkağıt oldu ve sonuç doğru değil. Gerçi ben excelde 1 den 2007e kadar sıralı sayılarla kodlama yapabildim. Exceli kullanmadan uygun bir çözüm bulamadım daha.


Excel hücrelerini kullanmadan Hakan bir ListBox örneğiyle vermiş. Ben de hücreleri ve formu, nesneleri kullanmadan değişkenlerle başka bir örnek daha vereyim.

Diğer tüm örneklere göre bu kodlama çok daha hızlı sonuç verdi.

Kod: Tümünü seç
Private Sub idam()
Dim i As Long, a As Long, evn As Collection
Set evn = New Collection

'önce kişileri sayalım
    For i = 1 To 2007
        evn.Add i
    Next i

'şimdi yer değiştirsinler

For a = 1 To evn.Count ' ya da 2007 fark etmez iki değer de aynı zaten ;)
    If evn.Count > 2 Then
        evn.Remove (1)
            evn.Add evn.Item(1)
        evn.Remove (2)
    End If
Next a
    MsgBox evn(1)
End Sub


Bir değişik örnek dosya daha, (bu film bitmez) :lol:

idam2.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26877
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Vba ile çözülecek matematik soruları

İleti#15)  Bülent » 09 Eyl 2008 21:50

Erkan Akayay yazdı:Aynı yönetmi izlemişiz :) Nede olsa senin öğrencinim. Senden öğrendim çok şeyi.

Estağfurullah abi... :oops:

Yine de Resim
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 02:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3619
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Vba ile çözülecek matematik soruları

İleti#16)  Erhan Yavuz » 09 Eyl 2008 22:25

Ohh çok güzel 8 yeni Kod daha yaşasınnn. şkşk
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Vba ile çözülecek matematik soruları

İleti#17)  ismailmuhcu » 12 Eyl 2008 11:58

ECYavuz yazdı:Ohh çok güzel 8 yeni Kod daha yaşasınnn. şkşk

hahaha :) Harikasınız... Çok yaşayın emi...
Mr Step Back : Code Banker
------------------------------------------------------------
Msgbox "Aradığınız Birçok Sorunun Yanıtı "Kod Sihirbazı Pro" da olabilir"
Kullanıcı avatarı
ismailmuhcu
Siteye Alışmış
 
Adı Soyadı:ismail muhcu
Kayıt: 15 Haz 2008 02:15
Konum: Trabzon
Meslek: Muhasebe
Yaş: 48
İleti: 355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon

Cevap: Vba ile Çözülecek Matematik Soruları

İleti#18)  Mesut Topal » 21 Arl 2018 21:22

Merhaba Arkadaşlar,

Bir aracın Km sayacı arızalanmış.
1 ler basamağı 2 yi atlayıp 3 e geçiyor.
10 lar basamağı 1 ve 3 ü atlıyor.
100 ler basamağı 4 ve 5 i atlıyor.

Örn:
6 km gittiğinde sayaç 7 yi gösteriyor.
11 km gittiğinde sayaç 23 ü gösteriyor.

A sütununa Sayacın gösterdiği sayıları sırayla nasıl yazdırırız?
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 32
İleti: 229
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Cevap: Vba ile Çözülecek Matematik Soruları

İleti#19)  veyselemre » 23 Arl 2018 11:48

Kod: Tümünü seç
Sub arizaliKmSayaci()
    [a:b].ClearContents
    For i = 1 To 10000
        sayac = sayac + 1
        If sayac Mod 10 = 1 Then
            sayac = sayac + 1
        ElseIf sayac Mod 100 = 10 Or sayac Mod 100 = 30 Then
            sayac = sayac + 10
        ElseIf sayac Mod 1000 = 400 Then
            sayac = sayac + 200
        End If
        Cells(i, 1) = i
        Cells(i, 2) = sayac
    Next i
End Sub
Mesut Topal yazdı:Merhaba Arkadaşlar,

Bir aracın Km sayacı arızalanmış.
1 ler basamağı 2 yi atlayıp 3 e geçiyor.
10 lar basamağı 1 ve 3 ü atlıyor.
100 ler basamağı 4 ve 5 i atlıyor.

Örn:
6 km gittiğinde sayaç 7 yi gösteriyor.
11 km gittiğinde sayaç 23 ü gösteriyor.

A sütununa Sayacın gösterdiği sayıları sırayla nasıl yazdırırız?
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 17:53
Meslek: SERBEST
Yaş: 104
İleti: 280
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Vba ile Çözülecek Matematik Soruları

İleti#20)  Mesut Topal » 24 Arl 2018 23:09

Aklınıza sağlık veyselemre Bey.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 32
İleti: 229
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik


Forum Excel Okulu ile ilgili Soru ve Cevap Alanı

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe