Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Visual Basic Hakkında Bir Soru ? Visual Basic Hakkında Bir Soru ?
-
durum bundan ibaret yardımlarınızı bekliyorum
-
cevap 1
hocam basic kurulu değil c# hali böyle. idare eder kanımca combobox ın selectedindexchanged olayına gelecek yazacağın kodlar artık basic e çevirmek işi sana kalmış
sayı 1= textbox1 sayı 2= textox2 ve sonuc ise textbox3 yerine kullanılmıştır.
private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
if (comboBox1.Text == "topla")
{
textBox3.Text=(Convert.ToInt16(textBox1.Text) + Convert.ToInt16(textBox2.Text)).ToString();
}
if (comboBox1.Text == "çıkar")
{
textBox3.Text = (Convert.ToInt16(textBox1.Text) - Convert.ToInt16(textBox2.Text)).ToString();
}
if (comboBox1.Text == "çarp")
{
textBox3.Text = (Convert.ToInt16(textBox1.Text) * Convert.ToInt16(textBox2.Text)).ToString();
}
if (comboBox1.Text == "böl")
{
textBox3.Text = (Convert.ToInt16(textBox1.Text) / Convert.ToInt16(textBox2.Text)).ToString();
}
}
-
reis teşekkürler
-
up up ^^
-
2-
Private Sub Form_Load()
x = ""
Do While x = "" Or x < 0 Or x > 9
x = InputBox("Sayi gir")
Loop
MsgBox "Girdigin sayi:" & x
End Sub -
3-
Dim ortalama As Integer
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Private Sub Command1_Click()
n1 = InputBox("Not1 i gir")
n2 = InputBox("Not2 i gir")
n3 = InputBox("Not3 i gir")
End Sub
Private Sub Command2_Click()
ortalama = (n1 + n2 + n3) / 3
MsgBox "Ortalama:" & ortalama
End Sub
Private Sub Command3_Click()
If ortalama > 60 Then
MsgBox "Gecti"
Else
MsgBox "Kaldi"
End If
End Sub -
4-
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label3.Caption = Val(Text1.Text * Text2.Text) + Val(Text3.Text)
End Sub -
5-
Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
If Option2.Value = True Then
Text3.Text = Text1.Text - Text2.Text
End If
If Option3.Value = True Then
Text3.Text = Text1.Text * Text2.Text
End If
If Option4.Value = True Then
Text3.Text = Text1.Text / Text2.Text
End If
End SubHOCAM HEPSİNİ DENEDİM ÇALIŞIYOR
-
düzenleme:yanlış alarm
-
teşekkürler beyler birkaç arkadaşta sagolsun pmden bayağ bir yardımcı oldular yardımlarınız için teşekkürler sınav verilmiştir.
-
Spyware__007 bunu yazdı:
-----------------------------
teşekkürler beyler birkaç arkadaşta sagolsun pmden bayağ bir yardımcı oldular yardımlarınız için teşekkürler sınav verilmiştir.
-----------------------------bu nasıl bir sınav hoca. ev de mi yapıyorsun
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla