VBA Alıştırma

[Oligodon]

Herkese merhaba arkadaşlar,
Excel'de programlama da yeniyim ve bazı alıştırmalarım var fakat bikaç tanesinde takılmış bulunmaktayım.Yardımlarınızı bekliyorum.
Şimdiden teşekkür ederim.

1- kullanıcıdan 10 tane integer istiyor ve ekrana bu sayıların toplamını yazdırıyor.

2-kullanıcıdan bir integer girmesini istiyor(N). ve u(N) hesaplamasını istiyor.
u(0)=1
u(1)=1
u(n+1)=u+u(n-1)

3-kullanıcıdan 0-20 arasında bir integer(N) girmesini istiyor. ekrana N+17 yazıyor. Eğer girilen sayı aralıkta değilse ekrana 'HATA' yazdırıyor.

4-kullanıcıdan bir integer girmesini istiyor(N). ve u(N) hesaplamasını istiyor.
u(0)=1
u(1)=1
u(n+1)=u+u(n-1)

Tekrardan yardımlarınız için teşekkür ederim.

 

[snx111]

:roll::aha::?::dusun::|

 

[Oligodon]

En azından herhangi biri hakkında fikri olan yok mu?

 

[Necdet]

Merhaba,

1. soruyu çözmeye çalıştım, olmuşmu acaba?

Sub OnSayininToplami()
    
    Dim i   As Integer
    Dim j   As Variant
    Dim Top As Double
    
    For i = 1 To 10
        j = Application.InputBox("Bir Tamsayı Giriniz", "Sayı Girişi", Type:=1)
        If j = False Then
            Exit For
        End If
        Top = Top + j
    Next i
    
    If Not j = False Then MsgBox "Girilen Sayıların Toplamı : " & Top
    
End Sub

 

[Oligodon]

Teşekkür ederim dostum olmuş inceleyeyim bende bunu.
Diğerlerine bakabildin mi acaba 3. alıştırma en azından çünkü fonksiyonlu olanlar zor gerçekten.

 

[Necdet]

Teşekkür ederim dostum olmuş inceleyeyim bende bunu.
Diğerlerine bakabildin mi acaba 3. alıştırma en azından çünkü fonksiyonlu olanlar zor gerçekten.

Bana mı yaptırmayı düşünüyorsunuz?

 

[Oligodon]

Öyle bir niyetim yok ben sadece yardım bekliyorum sizden bu sayfanın amacıda bu değil mi?

 

[Necdet]

Merhaba,

Hele siz kıyısından köşesinden bir başlayın, takıldığınız yerleri sorabilirsiniz. Yardımcı olacak çok kişi çıkacaktır.

 

[Oligodon]

3. Soru için şöyle birşey yazdım bir göz atabilir misiniz acaba?


Private Sub Command1_Click()
Dim s1 As Integer
s1 = text1.Text

text2.Text = s1 + 17

If text1.Text > 20 Then
MsgBox "ERROR"
End If

End Sub


Teşekkürler.

 

[Necdet]

3-...ekrana N+17 yazıyor.

"Ekrana N+17 yazıyor" ne demek?

 

[Oligodon]

ekrana kullanicinin girdigi sayiyi 17 ile toplayarak yazdiriyor. 17 fazlasi cikiyor yani.

 

[snx111]

syn Oligodon ;
Forumdaki Değerli Üstadlarımıza "dostum" yerine "hocam" veya "Üstad" diye Hitab edilmesinin daha doğru olacağını düşünüyorum bu naçizane düşüncem kesinlikle bir tersleme anlamında düşünmeyiniz..

Forum yöneticilierini bu linkten ;http://www.excel.web.tr/showgroups.php
Forum uzmanlarını ise nickinin renginden anlayabilirisniz