Send spørgsmål eller kommentar til Thor - klik her:
Velkommen
IntroProgrammeringsspog
ASP.NET og sprogVB eller C-sharp
Udviklingsværktøjer
Web-MatrixVisual Studio .NET (VS.NET)
Øvelsen
Et stopurWeb formularer
Tekstbokse, labels og knapperRadioknapper og check bokse
Dropdownbokse
Variable
- i VB.NETDato og tid
- hvordan håndteres detKontrolstrukturer
Hvad er detDatavalidering
Kontroller tilRepetition
- er vigtigtDatakontroller
Simpel visning af dataDatabaser
Visning med datalist og repeaterDropdown kontroller
Database opdatering
Overførsel af data
Genbrug af kode
User controlMenu - et eksempel
Side templates
Komponenter fra nettet
Code behind
Hvorfor detLav stopuret færdigt
NUASP.NET I / Kontrolstrukturer / Øvelse 5 i web-matrix og VB
ASP.NET fjernundervisningskursus- Vil du gerne på kursus NU? - Vil du gerne lære i dit eget tempo? - Har du ikke tid til at tage på kursus ude i byen? Så køb et kursus i ASP.NET som fjernundervisning på www.it-fjernundervisning.dk |
Kodeeksempel fra WebMatrix i VB
<%@ Page Language="VB" Debug="True" %>
<script runat="server">
' Insert page code here
'
Dim dtStart, dtSlut, dtTemp as DateTime
Dim dtTotalTid as TimeSpan
Sub Page_Load()
lblKonsulent.Text = txtKonsulent.Text
lblBeskrivelse.Text = txtBeskrivelse.Text
lblAfdeling.Text = rbtAfdeling.SelectedItem.Value
lblFaktura.Text = chkFaktura.Checked
lblKorsel.Text = chkKorsel.Checked
lblAktivitet.Text = drpAktivitet.SelectedItem.Value
End sub
Sub btnAction_Click(sender As Object, e As EventArgs)
If btnAction.Text = "Start" Then
btnAction.Text = "Stop"
btnPause.Visible = True
dtStart = Now()
lblStart.Text = dtStart
lblBesked.Text = "Uret kører - og blev startet "&dtStart
Else
btnAction.Text = "Start"
btnPause.Visible = False
dtSlut = Now()
lblSlut.Text = dtSlut
dtTotalTid = dtSlut.Subtract(lblStart.Text)
If lblTotal.Text = "" Then
dtTemp = #00:00:00#
Else
dtTemp = lblTotal.Text
End if
lblTotal.Text = dtTemp.Add(dtTotalTId)
lblBesked.Text = "Uret er stoppet - og kørte "&lblTotal.Text
End if
End Sub
Sub btnPause_Click(sender As Object, e As EventArgs)
If lblBesked.Text = "Uret holder pause" Then
lblStart.Text = Now()
lblBesked.Text = "Uret kører igen!"
Else
lblBesked.Text = "Uret holder pause"
dtTotaltid = Now().Subtract(lblStart.Text)
If lblTotal.Text = "" Then
dtTemp = #00:00:00#
Else
dtTemp = lblTotal.Text
End if
lblTotal.Text = dtTemp.Add(dtTotalTid)
End if
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<h1>Et super stopur!!
</h1>
<p>
<table>
<tbody>
<tr>
<td>
Projekt/aktivitet</td>
<td>
<asp:DropDownList id="drpAktivitet" runat="server" AutoPostBack="True">
<asp:ListItem Value="Grafisk design">Grafisk design</asp:ListItem>
<asp:ListItem Value="ASP.NET udvikling">ASP.NET udvikling</asp:ListItem>
<asp:ListItem Value="Diverse rådgivning">Diverse rådgivning</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td>
Konsulent:</td>
<td>
<asp:TextBox id="txtKonsulent" runat="server" Font-Names="Verdana" Width="341px"></asp:TextBox>
</td>
</tr>
<tr>
<td valign="top">
Beskrivelse:
</td>
<td>
<asp:TextBox id="txtBeskrivelse" runat="server" Font-Names="Verdana" Width="339px" TextMode="MultiLine" Height="70px"></asp:TextBox>
</td>
</tr>
<tr>
<td valign="top">
Afdeling
</td>
<td>
<asp:RadioButtonList id="rbtAfdeling" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Value="Grafik" Selected="True">Grafik</asp:ListItem>
<asp:ListItem Value="Teknik">Teknik</asp:ListItem>
<asp:ListItem Value="Ledelse">Ledelse</asp:ListItem>
</asp:RadioButtonList>
</td>
</tr>
<tr>
<td valign="top">
Faktura </td>
<td>
<asp:CheckBox id="chkFaktura" runat="server"></asp:CheckBox>
</td>
</tr>
<tr>
<td valign="top">
Kørsel</td>
<td>
<asp:CheckBox id="chkKorsel" runat="server"></asp:CheckBox>
</td>
</tr>
</tbody>
</table>
<!-- Insert content here -->
</p>
<p>
<asp:Button id="btnAction" onclick="btnAction_Click" runat="server" Text="Start"></asp:Button>
<asp:Button id="btnPause" onclick="btnPause_Click" runat="server" Text="Pause" Visible="False"></asp:Button>
</p>
<p>
<asp:Label id="lblBesked" runat="server"></asp:Label>
</p>
<h2>Resultater:
</h2>
<p>
Projekt/aktivitet: <asp:Label id="lblAktivitet" runat="server"></asp:Label>
</p>
<p>
Konsulent: <asp:Label id="lblKonsulent" runat="server"></asp:Label>
</p>
<p>
Beskrivelse: <asp:Label id="lblBeskrivelse" runat="server"></asp:Label>
</p>
<p>
Afdeling: <asp:Label id="lblAfdeling" runat="server"></asp:Label>
</p>
<p>
Faktura: <asp:Label id="lblFaktura" runat="server"></asp:Label>
</p>
<p>
Kørsel: <asp:Label id="lblKorsel" runat="server"></asp:Label>
</p>
<p>
Start tid: <asp:Label id="lblStart" runat="server"></asp:Label>
</p>
<p>
Slut tid: <asp:Label id="lblSlut" runat="server"></asp:Label>
</p>
<p>
Total tid: <asp:Label id="lblTotal" runat="server"></asp:Label>
</p>
</form>
</body>
</html>
