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 Sub

HOCAM 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