Visual Basic'te 3 Sayının Karşılaştırılması

[SkyWard]

Arkadaşlar Visual Basic'te 3 sayının karşılaştırması nasıl yapılır?

Aşağıdakinin 3'lü olmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim...

Başla
     Sayısal Sayı1, Sayı2
     Oku; "Birinci sayıyıgiriniz", Sayı1
     Oku; "İkinci sayıyı giriniz", Sayı2
     Eğer Sayı1 Sayı2'den büyük İse
          Yaz; "Sayı1 Sayı2'den büyüktür."
          Eğer Sayı2 Sayı1'den büyük İse
               Yaz; "Sayı2 Sayı1'den büyüktür."
          Değilse
               Yaz; "Sayı1 ve Sayı2 eşittir."
          Eğer Bitti
     Eğer Bitti
Bitir

[0sk1]

Sanırım c++'ın konsol olarak yazılmış bi programından örnek aldın.

aynen çevireyim;

     'Sayısal Sayı1, Sayı2
     Dim Sayi1,Sayi2 as Integer
     'Oku; "Birinci sayıyıgiriniz", Sayı1
     Sayi1=Text1.Text 'Text1 adlı textbox objesine yazılan değer{yani form application}
     'Oku; "İkinci sayıyı giriniz", Sayı2
     Sayi2=Text2.text 'Text2 adlı textbox
     'Eğer Sayı1 Sayı2'den büyük İse
     if Sayi1>Sayi2 then
          'Yaz; "Sayı1 Sayı2'den büyüktür."
          Msgbox ("Sayı 1 sayı2'den büyüktür")
         ' Eğer Sayı2 Sayı1'den büyük İse
Elseif Sayi2>Sayi1 then 'if içinde 2. if kullanıyoruz
             '  Yaz; "Sayı2 Sayı1'den büyüktür."
              Msgbox ("Sayi2 sayi1'den büyük")
          'Değilse
        Else
            '   Yaz; "Sayı1 ve Sayı2 eşittir."
Msgbox ("sayılar eşit")
'          Eğer Bitti
end if

     Eğer Bitti

Edited October 13, 2010 by 0sk1

[keabous]

en büyük sayıyı bulmak istiyorsan şu şekilde yapabilirsin

Dim A As Integer = 1
Dim B As Integer = 2 
Dim C As Integer = 3 
Dim BUYUK As Integer 
Dim sayilar() As Integer = {A, B, C} 
BUYUK = sayilar.Max  

Edited October 13, 2010 by keabous

[SkyWard]

@0sk1 arkadaşım ellerine zahmet vermişsin. Çok saolasın! Ancak ben 3 sayının karşılaştırmasını nasıl yaparım diye sormuştum.

@keabous arkadaşım seninde ellerine sağlık. Ama ben yukarıdaki örneğin 3'lü olanını istiyorum.

Yinede çok teşekkür ederim!..

[SkyWard]

Güncel

[jump4545]

Private Sub Command1_Click()

Dim Sayi1, Sayi2 As Integer
Sayi1 = Text1.Text
Sayi2 = Text2.Text

If Sayi1 > Sayi2 Then
MsgBox "Sayı 1 Sayı 2 den Büyüktür"
ElseIf Sayi2 > Sayi1 Then
MsgBox "Sayı 2 Sayı 1 den Büyüktür"
Else
MsgBox "Sayı1 ve Sayı2 Eşittir"
End If

End Sub

[beytullah_1993]

çok kolay yolu var hemen göstereyim.Biraz fazla değişken oluyor ama değişkenleri kullanacağımn yeri bilirsen (yerel,genel) sıkıntı yaşamazsın.

[code] Dim sayı, sayı1, sayı2, enbüyük, enküçük As Integer
sayı = 10
sayı1 = 15
sayı2 = 3
enbüyük = Math.Max(sayı, sayı1)
enbüyük = Math.Max(enbüyük, sayı2)
enküçük = Math.Min(sayı, sayı1)
enküçük = Math.Min(enküçük, sayı2)
If enbüyük = sayı And enküçük = sayı1 Then
MsgBox(enbüyük & ">" & sayı2 & ">" & enküçük)
ElseIf enbüyük = sayı And enküçük = sayı2 Then
MsgBox(enbüyük & ">" & sayı2 & ">" & enküçük)
ElseIf enbüyük = sayı1 And enküçük = sayı Then
MsgBox(enbüyük & ">" & sayı2 & ">" & enküçük)
ElseIf enbüyük = sayı1 And enküçük = sayı2 Then
MsgBox(enbüyük & ">" & sayı & ">" & enküçük)
ElseIf enbüyük = sayı2 And enküçük = sayı Then
MsgBox(enbüyük & ">" & sayı1 & ">" & enküçük)
ElseIf enbüyük = sayı2 And enküçük = sayı1 Then
MsgBox(enbüyük & ">" & sayı & ">" & enküçük)
End If[/code]

Edited July 13, 2011 by beytullah_1993