![]() |
|
|||||||
| Kayıt ol | Yardım | Üye Listesi | Ajanda | Arama | Bugünki Mesajlar | Bütün Forumları okunmuş kabul et |
| Visual Basic Visual Basic Hakkında Aradığınız Herşey.. Visual Basic Kodları.. |
![]() |
|
|
LinkBack | Seçenekler |
|
|
#1 (permalink) | ||
|
Mesajlar: n/a
|
Kod:
Dim k1, k2, k3, As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k1 = InputBox("1.kenarı giriniz")
k2 = InputBox("2.kenarı giriniz")
k3 = InputBox("3.kenarı giriniz")
If (k1 = k2) And (k2 = k3) Then
MsgBox("eşkenar")
ElseIf (k1 = k2) Or (k2 = k3) Or (k1 = k3) Then
MsgBox("ikizkenar")
Else
MsgBox("çeşit kenar")
End If
End Sub
|
||
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
|
|
mirc
mırc
çet
cet
sohbet
chat
canlı tv