AccessTr.neT
Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? (/konu-girilen-4-sayidan-100-en-yakin-olanini-bulma.html)



Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - 47terminator - 28/05/2015

merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 


Cvp: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - hatice.haa - 28/05/2015

(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4
        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 


Cvp: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - 47terminator - 28/05/2015

(28/05/2015, 16:12)hatice.haa yazdı:
(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4
        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 

Hocam ilginize teşekkür ederim buna benzer bende yaptım ama sayı 100 den büyük girilme ihtimalinde doğru çalışmayacaktır


Cvp: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - mehmetdemiral - 28/05/2015

Önce bir döngüyle 100'den büyük olan sayıları eleyebilirsiniz. Sonuçta 4 tane değişken atayın ve her girilen sayıyı kontrol ettirip (döngü ile) teker teker bu değişkenlere atayın. 100'den küçük olan sayılar için de hatice.haa'nın gönderdiği kodları devreye sokun.


Cvp: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - hatice.haa - 29/05/2015

(28/05/2015, 16:37)47terminator yazdı:
(28/05/2015, 16:12)hatice.haa yazdı:
(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

        Dim a As Integer
        Dim sayi As Integer
        Dim miktar As Integer
        Dim buyuk As Integer
        miktar = 4

        While (a < miktar)

            sayi = InputBox("Sayı giriniz")
            If (sayi > buyuk And sayi < 100) Then
                buyuk = sayi
            End If
            a = a + 1

        End While
        MsgBox(buyuk)

Umarım işinize yarar. 

Hocam ilginize teşekkür ederim buna benzer bende yaptım ama sayı 100 den büyük girilme ihtimalinde doğru çalışmayacaktır

Hocam ben 100 den büyük sayı girdiğimde onu almadı 100 den küçük girdiğim sayıların içinde 100 e en yakın olanı gösterdi zaten. Ama işinize yaramadıysa mehmetdemiral hocamında dediğini deneyin isterseniz.


Cvp: Girilen 4 sayıdan 100 En Yakın Olanını bulma??? - 47terminator - 01/06/2015

teşekkür ederim çözülmüştür yardımlarınız için teşekkürler