28/05/2015, 14:54
28/05/2015, 16:12
(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.
28/05/2015, 16:37
(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
28/05/2015, 20:47
Ö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.
29/05/2015, 12:39
(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.
01/06/2015, 16:15
teşekkür ederim çözülmüştür yardımlarınız için teşekkürler