Cum se creează un calculator științific în Visual Basic

Configurați proiectul

Pasul 1

Creați un nou proiect făcând clic pe "Fișier" și "Proiect nou". Când vi se cere, puneți numele "Calculator științific".

Pentru calculatorul dvs. va apărea un formular de interfață necompletat. Adăugați componentele interfeței grafice (GUI) din caseta de instrumente din stânga. Veți utiliza două tipuri de componente: o casetă de text pentru a afișa rezultatele și o mulțime de butoane.

Pasul 2

Glisați o casetă de text în partea de sus a calculatorului din caseta de instrumente din stânga. Acesta va fi locul unde vor apărea numerele și unde utilizatorul va scrie numerele pentru calculul ulterior.

Pasul 3

Glisați un buton la formular din caseta de instrumente. În caseta de proprietate, găsiți proprietatea "Text" și schimbați-o la "fără". Găsiți numele proprietății și o schimbați în "sinButton". Faceți clic pe butonul "fără" din formular și apăsați "Ctrl-C" pentru a face o copie a butonului de pe tastatură. Apăsați "Ctrl-V" de 11 ori pentru a crea 11 butoane noi pe formular. Pentru fiecare buton, schimbați textul la următoarele: cos, tan, pi, exp, sqrt, jurnal, C, +, -, X, = y / și dați-i un nume care îl descrie. De exemplu, pentru butonul "/", schimbați proprietatea nume la "divideButton".

Faceți programarea

Pasul 1

Faceți dublu clic pe butonul "fără". Acest lucru vă va duce codul sursă și creați o metodă de eveniment pentru a gestiona evenimentele "fără" și plasați cursorul înăuntru. Inserați următoarele:

Private Sub Button19_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Manere Button19.Click TextBox1.Text = Math.Sin (TextBox1.Text) End Sub

Pasul 2

Faceți dublu clic pe butonul "cos". Din nou, aceasta vă va duce la codul sursă și creați o metodă de eveniment. Lipiți următoarele:

Private Sub Button20_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Mânere Button20.Click TextBox1.Text = Math.Cos (TextBox1.Text) End Sub

Pasul 3

Faceți dublu clic pe butonul "bronz" și inserați următoarele, ca în pașii anteriori:

Private Sub Button21_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Mânere Button21.Click TextBox1.Text = Math.Tan (TextBox1.Text) End Sub

Pasul 4

Faceți dublu clic pe butonul "pi" și lipiți următoarele:

Private Sub Button22_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Manere Button22.Click TextBox1.Text = Math.PI End Sub

Pasul 5

Faceți dublu clic pe butonul "C" și inserați:

Private Sub Button23_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Manere Button23.Click TextBox1.Text = "" memory = 0 End Sub

Continuarea programării

Pasul 1

Inserați următoarele elemente la începutul editorului dvs. de cod sursă:

Memorie de memorie Ca operație Double Dim ca String

Aceasta va găzdui numerele necesare pentru operațiile binare și pentru operația care trebuie efectuată, cum ar fi împărțirea sau multiplicarea.

Pasul 2

Faceți dublu clic pe fiecare buton de operare binar (+, -, X, /, și exp) la rândul său și inserați următorul cod:

memorie = TextBox1.Text operație = "+"

Modificați textul operației prin operație. De exemplu, pentru butonul "X", schimbați "+" în "X".

Pasul 3

Faceți dublu clic pe butonul "=" și inserați următoarele:

Private Sub Button1_Click_1 (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Manere Button1.Click Dacă operația.Equals ("+") Atunci TextBox1.Text = memorie + TextBox1.Text ElseIf operation.Equals ("-" Apoi TextBox1.Text = memorie - TextBox1.Text ElseIf operation.Equals ("X") Apoi TextBox1.Text = memorie * TextBox1.Text ElseIf operation.Equals ("/") Apoi TextBox1.Text = memorie / TextBox1.Text ElseIf .Equals ("exp") Apoi TextBox1.Text = Math.Pow (memorie, TextBox1.Text) Sfârșit Dacă

End Sub

Pasul 4

Faceți dublu clic pe butonul "jurnal" și lipiți:

Private Sub Button24_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Mânere Button24.Click TextBox1.Text = Math.Log (TextBox1.Text) End Sub

Pasul 5

Faceți dublu clic pe butonul "sqrt" și lipiți:

Private Sub Button18_Click (ByVal expeditor ca System.Object, ByVal și As System.EventArgs) Manere Button18.Click TextBox1.Text = Math.Sqrt (TextBox1.Text) End Sub