login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:
Scripts > .NET > VB.NET > Uitgebreid Rekenmachine

Uitgebreid Rekenmachine

Auteur: Abbas - 04 november 2006 - 23:35 - Gekeurd door: Joel - Hits: 7338 - Aantal punten: 2.25 (2 stemmen)




Dit is een script voor een uitgebreid rekenmachine in ASP.NET. IK heb gebruik gemaakt van VB.
Er zijn buiten de gewone functies ook functies zoals kwadraat, vierkantswortel, faculteit, ...
Ik hoop dat dit een nuttig script is!

Code:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. <%@ Page Language="VB" Debug="true" %>
  2.  
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  4.  
  5. <script runat="server">
  6.  
  7.     Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.  
  9.         uitkomst.Text = "..."
  10.         Dim x1 = 0, x2 = 0
  11.         Dim bew
  12.         If getal1.Text = "" And getal2.Text = "" Then
  13.             x1 = 0
  14.             x2 = 0
  15.         Else
  16.             If getal1.Text <> "" And getal2.Text = "" Then
  17.                 x1 = Convert.ToDouble(getal1.Text)
  18.                 x2 = 0
  19.             Else
  20.                 If getal1.Text = "" And getal2.Text <> "" Then
  21.                     uitkomst.Text = "Het eerste vak moet ingevuld worden"
  22.                 Else
  23.                     If getal1.Text <> "" And getal2.Text <> "" Then
  24.                         x1 = Convert.ToDouble(getal1.Text)
  25.                         x2 = Convert.ToDouble(getal2.Text)
  26.                     End If
  27.                 End If
  28.             End If
  29.         End If
  30.  
  31.  
  32.         bew = bewerking.SelectedItem.ToString
  33.  
  34.         If bew = "+" Then
  35.             uitkomst.Text = "De som is " & x1 + x2
  36.         End If
  37.         If bew = "-" Then
  38.             uitkomst.Text = "Het verschil is " & x1 - x2
  39.         End If
  40.         If bew = "*" Then
  41.             uitkomst.Text = "Het product is " & x1 * x2
  42.         End If
  43.         If bew = "/" Then
  44.             If x2 = 0 Then
  45.                 uitkomst.Text = "Geen deling door 0!"
  46.             Else
  47.                 uitkomst.Text = "Het quotiënt is " & Math.Round(x1 / x2, 3)
  48.             End If
  49.         End If
  50.         If bew = "%" Then
  51.             Dim rest As Integer
  52.             Dim deling As Integer = System.Math.DivRem(x1, x2, rest)
  53.             uitkomst.Text = (String.Format("Deling met rest: {0}, met als rest {1}", deling.ToString(), rest.ToString()))
  54.         End If
  55.         If bew = "x²" Then
  56.             uitkomst.Text = "Het kwadraat is " & x1 ^ 2
  57.         End If
  58.         If bew = "x^y" Then
  59.             uitkomst.Text = x1 & " tot de " & x2 & "e macht is " & Math.Pow(x1, x2)
  60.         End If
  61.         If bew = "x^(1/2)" Then
  62.             uitkomst.Text = "De vierkantswortel is " & Math.Round(Math.Sqrt(x1), 3)
  63.         End If
  64.         If bew = "x!" Then
  65.             If x1 < 13 Then
  66.                 Dim i As Integer = x1
  67.                 Dim res As Integer = x1
  68.                 Do
  69.                     res = res * (i - 1)
  70.                     i = i - 1
  71.                 Loop While i > 1
  72.                 uitkomst.Text = "De faculteit van " & x1 & " is " & res
  73.             Else
  74.                 uitkomst.Text = "Getal mag voor x! maximum 12 zijn"
  75.             End If
  76.         End If
  77.  
  78.             bewerking.SelectedValue = ""
  79.     End Sub
  80.  
  81.     Sub pi_Click(ByVal sender As Object, ByVal e As EventArgs) Handles pi1.Click
  82.         getal1.Text = Math.PI
  83.     End Sub
  84.  
  85.     Sub pi2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles pi2.Click
  86.         getal2.Text = Math.PI
  87.     End Sub
  88.  
  89.     Sub wissen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles wissen.Click
  90.         getal1.Text = ""
  91.         getal2.Text = ""
  92.         bewerking.SelectedValue = ""
  93.         uitkomst.Text = "..."
  94.     End Sub
  95.  
  96.  
  97. </script>
  98.  
  99. <html xmlns="http://www.w3.org/1999/xhtml" >
  100. <head runat="server">
  101.     <title>Rekenmachine in ASP.NET</title>
  102. </head>
  103. <body>
  104.     <form id="form1" runat="server">
  105.     <div>
  106.     <center>
  107.     <br /><br />
  108.     <h3><u>Rekenmachine in ASP.NET</u></h3><br />
  109.     <table>
  110.         <tr>
  111.             <td align="right">Eerste getal: </td><td><asp:TextBox ID="getal1" runat="server" Width="100" /> <asp:Button ID="pi1" runat="server" Text="Pi" /></td>
  112.         </tr>
  113.         <tr>
  114.             <td align="right">Tweede getal: </td><td><asp:TextBox ID="getal2" runat="server" Width="100" /> <asp:Button ID="pi2" runat="server" Text="Pi" /></td>
  115.         </tr>
  116.         <tr>
  117.             <td align="right">
  118.                 Bewerking: 
  119.             </td>
  120.             <td align="left">
  121.                 <asp:DropDownList ID="bewerking" runat="server" AutoPostBack="true" >
  122.                     <asp:ListItem></asp:ListItem>
  123.                     <asp:ListItem>+</asp:ListItem>
  124.                     <asp:ListItem>-</asp:ListItem>
  125.                     <asp:ListItem>*</asp:ListItem>
  126.                     <asp:ListItem>/</asp:ListItem>
  127.                     <asp:ListItem>%</asp:ListItem>
  128.                     <asp:ListItem>x²</asp:ListItem>
  129.                     <asp:ListItem>x^y</asp:ListItem>
  130.                     <asp:ListItem>x^(1/2)</asp:ListItem>
  131.                     <asp:ListItem>x!</asp:ListItem>
  132.                 </asp:DropDownList>
  133.             </td>
  134.         </tr>
  135.     </table>
  136.     <br />
  137.     <table width="275">
  138.         <tr>
  139.             <td>
  140.                 <fieldset>
  141.                     <legend>Resultaat</legend>
  142.                     <asp:Label ID="uitkomst" runat="server" />
  143.                 </fieldset>
  144.             </td>
  145.         </tr>
  146.     </table>
  147.     <asp:Button ID="wissen" runat="server" Text="Alles wissen" />
  148.     </center>
  149.     </div>
  150.     </form>
  151. </body>
  152. </html>
Download code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Geen reacties (0)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.021s