Cara membuat kalkulator ilmiah dalam Visual Basic

Konfigurasikan proyek

Langkah 1

Buat proyek baru dengan mengklik "File" dan "Proyek baru". Saat diminta, letakkan nama "Scientific calculator".

Bentuk antarmuka pengguna kosong akan muncul untuk kalkulator Anda. Tambahkan komponen antarmuka pengguna grafis (GUI) dari kotak peralatan di sebelah kiri. Anda akan menggunakan dua jenis komponen: kotak teks untuk menampilkan hasil, dan banyak tombol.

Langkah 2

Seret kotak teks ke bagian atas kalkulator dari kotak alat di sebelah kiri. Ini akan menjadi tempat di mana angka-angka akan muncul dan di mana pengguna akan menulis angka untuk perhitungan nanti.

Langkah 3

Seret tombol ke formulir dari kotak alat. Di kotak properti, temukan properti "Teks" dan ubah ke "tanpa". Temukan nama properti dan ubah ke "sinButton". Klik pada tombol "tanpa" pada formulir dan tekan "Ctrl-C" untuk membuat salinan tombol di keyboard Anda. Tekan "Ctrl-V" 11 kali untuk membuat 11 tombol baru di formulir Anda. Untuk setiap tombol, ubah teks menjadi berikut: cos, tan, pi, exp, sqrt, log, C, +, -, X, = y /, dan beri nama yang mendeskripsikannya. Misalnya, untuk tombol "/", ubah properti nama menjadi "divideButton".

Lakukan pemrograman

Langkah 1

Klik dua kali pada tombol "tanpa". Ini akan membawa Anda kode sumber dan membuat metode acara untuk menangani peristiwa "tanpa" dan menempatkan kursor di dalam. Sisipkan berikut ini di sana:

Private Sub Button19_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Tombol19.Klik TextBox1.Text = Math.Sin (TextBox1.Text) End Sub

Langkah 2

Klik dua kali pada tombol "cos". Sekali lagi, ini akan membawa Anda ke kode sumber dan membuat metode acara. Tempel yang berikut di dalamnya:

Private Sub Button20_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Tombol20.Klik TextBox1.Text = Math.Cos (TextBox1.Text) End Sub

Langkah 3

Klik dua kali pada tombol "tan" dan tempelkan yang berikut, seperti pada langkah sebelumnya:

Private Sub Button21_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Tombol21.Klik TextBox1.Text = Math.Tan (TextBox1.Text) End Sub

Langkah 4

Klik dua kali pada tombol "pi" dan tempelkan yang berikut:

Private Sub Button22_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Button22.Klik TextBox1.Text = Math.PI End Sub

Langkah 5

Klik dua kali pada tombol "C" dan tempelkan:

Private Sub Button23_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Button23.Klik TextBox1.Text = "" memory = 0 End Sub

Kelanjutan dari pemrograman

Langkah 1

Sisipkan berikut ini di awal editor kode sumber Anda:

Memori redup Sebagai operasi Double Dim As String

Ini akan menampung jumlah yang diperlukan untuk operasi biner dan untuk operasi yang akan dilakukan, seperti pembagian atau perkalian.

Langkah 2

Klik dua kali pada setiap tombol operasi biner (+, -, X, /, dan exp) pada gilirannya dan sisipkan kode berikut:

memory = TextBox1.Text operation = "+"

Ubah teks operasi oleh operasi. Misalnya, untuk tombol "X", ubah "+" menjadi "X".

Langkah 3

Klik dua kali pada tombol "=" dan tempelkan yang berikut:

Private Sub Button1_Click_1 (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Button1.Click Jika operation.Equals ("+") Kemudian TextBox1.Text = memory + TextBox1.Text ElseIf operation.Equals ("-") Kemudian TextBox1.Text = memory - TextBox1.Text ElseIf operation.Equals ("X") Kemudian TextBox1.Text = memory * TextBox1.Text ElseIf operation.Equals ("/") Kemudian TextBox1.Text = memory / TextBox1.Text ElseIf operation .Equals ("exp") Kemudian TextBox1.Text = Math.Pow (memory, TextBox1.Text) Akhiri Jika

Akhir Sub

Langkah 4

Klik dua kali pada tombol "log" dan tempelkan:

Private Sub Button24_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Button24.Klik TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Langkah 5

Klik dua kali pada tombol "sqrt" dan tempel:

Private Sub Button18_Click (ByVal sender As System.Object, ByVal dan As System.EventArgs) Menangani Button18.Klik TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub