Formumuza 3 tane textbox ve 1 tane combobox,3 tane label ve 2 tanede buton ekliyoruz. Label'ın birine 1. sayı diğerine 2. sayı ve üçüncüsünede işlem yazıyoruz.1. sayı yazan textbox1'in üst kısmına 2. sayı yazantextbox2'nin üst kısmına diğerini de combobox'ın üst kısmına yerleştiriyoruz. 1. Butona hesapla 2. butonada temizle yazıyoruz. Public Class Form1 Dim sayi, sayi1 As Double Public Class Form1 Dim sayi, sayi1 As Double Private Sub Button1_Click Handles Button1. Click sayi = Val(TextBox1. Text) sayi1 = Val(TextBox2. Text) If ComboBox1. Text = "+" Then TextBox3. Text = sayi + sayi1 End If If ComboBox1. Text = "-" Then TextBox3. Text = sayi - sayi1 End If If ComboBox1. Text = " " Then TextBox3. Text = sayi sayi1 End If If ComboBox1. Text = "/" Then TextBox3. Text = sayi / sayi1 End If If ComboBox1. Text = "" Then MessageBox. Show End If If TextBox1. Text = "" Then MessageBox. Show End If If TextBox2. Text = "" Then MessageBox. Show End If End Sub Private Sub Form1_Load Handles MyBase. Load ComboBox1. Items. Add ComboBox1. Items. Add ComboBox1. Items. Add ComboBox1. Items. Add End Sub Private Sub Button2_Click Handles Button2. Click TextBox1. Clear TextBox2. Clear TextBox3. Clear ComboBox1. Text = "" End Sub End Class

Hazır kod isteklerinde yazsaydın daha iyiydi. Ayrıca öğretmenini neden daha önce dinlemedin bu basit kodlamayı gösterdiğinde? Ama madem öğretmenin ödev vermiş al sana en basitinden hesap makinesi İlk baştan 1 command 3 textbox koy ve commandbutonunu kopyala toplam 4 buton olacak şekilde ve aşağıdaki kodları yaz... Kod: Private Sub Command1_Click Dim sayi1, sayi2, sonuc as Currency sayi1 = val(text1. text) sayi2 = val(text2. text) select case index case 0 'Toplama sonuc = sayi1 + sayi2 text3. text = sonuc case 1 'Çıkarma sonuc = sayi1 - sayi2 text3. text = sonuc case 2 'Çarpma sonuc = sayi1 sayi2 text3. text = sonuc case 3 'Bölme sonuc = sayi1 / sayi2 text3. text = sonuc End Sub Dersi derste dinlemeni tavsiye ederim siyah

Arkadaşlar Hocamız Ödev Verdi Visual Basic İle Yapılmı Güzel Bir Hesap Makinasına İhtiyacım Var.. İlgilenen Olursa Çok Sewinirim Ve +kkkkkkkkkk ACİL ARKADAŞLAR VE GÜZEL BİŞEY OLURSA ÇOK MAKBULE GEÇER..