• 
  

  hur man gör en vetenskaplig kalkylator i Visual Basic

  
  

Visual Basic är ett kraftfullt programmeringsspråk som skapats till Microsoft för att göra det lättare för användare utan datorprogrammering utbildning för att utveckla programvara för Windows -datorer . Skapa en vetenskaplig kalkylator ger en överblick av hur man utvecklar programvara för Visual Basic

Du behöver : .
Visual Basic 2008 Express eller senare


Konfigurera Project

.
1 .
Skapa ett nytt projekt genom att klicka på " File " och " Nytt projekt . " När du blir uppmanad att ge den namnet " Scientific Calculator . "



En tom användargränssnitt form kommer att visas för din miniräknare , lägg grafiskt användargränssnitt ( GUI ) komponenter till den från verktygslådan till vänster. Du kommer att använda två typer av komponenter : en textruta för att visa resultat och ett gäng knappar
2
Dra en textruta till toppen av din räknare från verktygslådan till vänster . . Detta kommer att vara där siffrorna visas och där användaren kommer att skriva siffror för senare beräkningar .
3 .
Dra en knapp i formuläret i verktygslådan. I inforutan , hittar " text " egendom och ändra det till "synd ". Hitta egenskapen name och ändra det till " sinButton . " Klicka på " synd " -knappen i formuläret och tryck på " Ctrl- C " för att göra en kopia av knappen på tangentbordet . Tryck Ctrl-V för 11 gånger för att skapa de 11 nya knappar för formuläret . För varje knapp , ändra knappen texten till följande : cos , tan , pi , exp, sqrt , logg, C , + , -, x ,=och /och ge den ett namn som beskriver det . Till exempel för " /" knappen , byta namn egenskap till " divideButton . "


Göra Programmering


1 .
Dubbelklicka på " synd " -knappen. Detta flyttar dig till källkoden och skapa en händelse metod för hantering synd händelser och placera markören i den. Klistra in följande där :



Private Sub Button19_Click ( ByVal avsändaren som System . Objekt , ByVal e Som System. EventArgs ) hanterar Button19. Click

TextBox1. Text=Math. sin ( TextBox1. Text )

End Sub
2 .
Dubbelklicka på " cos "-knappen . Återigen kommer detta att du till källkoden och skapa en händelse metod . Klistra in följande i den :



Private Sub Button20_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) hanterar Button20. Click

TextBox1. Text=Math. cos ( TextBox1. Text )

End Sub
3 .
Dubbelklicka på "Tan " -knappen och klistra in följande , som i föregående steg :



Private Sub Button21_Click ( ByVal avsändaren som System . Objekt , ByVal e Som System. EventArgs ) hanterar Button21. Click

TextBox1. Text=Math. Tan ( TextBox1. Text )

End Sub
4 .
Dubbelklicka på " pi " knappen och klistra in följande :



Private Sub Button22_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) hanterar Button22. Click

TextBox1 . Text=Math. PI

End Sub
5
Dubbelklicka på " C " knappen och klistra in : .



Private Sub Button23_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) hanterar Button23. Click

TextBox1. Text=" "

minne=0

End Sub


Programmering Fortsatt


1
Klistra in följande allra överst i källkoden redaktör : .



Dim minne som dubbel

Dim drift As String



Detta kommer att hålla nummer som behövs i binära operationer och den verksamhet som ska utföras , till exempel division eller multiplikation . .
2
Dubbelklicka på varje binär operation knapparna (+,-, X , /och exp ) i sin tur och klistra in följande kod :





minne=TextBox1. Text

drift=" + "



Byt ut driften texten med operationen . Till exempel för "X " -knappen , ersätt " + " med " X "
3
Dubbelklicka på "= " knappen och klistra in följande : .



Private Sub Button1_Click_1 ( ByVal avsändaren som System. Object , ByVal e som SYSTEM. EventArgs ) hanterar Button1. Click

Om operation. Equals ("+") Då

TextBox1. Text=minne + TextBox1. Text

ElseIf operation. Equals ("-") Då

TextBox1. Text=minne-TextBox1. Text

ElseIf operation. Equals ( " X " ) Then

TextBox1. Text=minne * TextBox1. Text

ElseIf operation. Equals ("/") Då

TextBox1. Text=minne /TextBox1. Text

ElseIf drift . Lika med ( " exp " ) Then

TextBox1. Text=Math. Pow (minne , TextBox1. Text )

End If



End Sub
4
Dubbelklicka på " log " -knappen och klistra in :





Private Sub Button24_Click ( ByVal avsändaren som System. Object , ByVal e Som System. EventArgs ) hanterar Button24. Click

TextBox1. Text=Math. log ( TextBox1. Text )

End Sub
5
Dubbelklicka på " sqrt " knappen och klistra in : .





Private Sub Button18_Click ( ByVal avsändaren som System . Objekt , ByVal e Som System. EventArgs ) hanterar Button18. Click

TextBox1. Text=Math. Sqrt ( TextBox1. Text )

End Sub

Previous：nothing Next：Så lägger text över en bild fil i html

Relaterade artiklar