˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] , ...
2017-10-21 23:35:27
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

з #3028 [.NET]

´ code ӹѹԴ ç˹ asp.net

ҡ Ѻ

ʹս֡ ҢŨҡgoogle
run + - * / ͡ =

ͺس ͡ȹ¤Ѻ

Public Class _Default
Inherits System.Web.UI.Page
Dim Operand1 As Double
Dim Operand2 As Double
Dim [Operator] As String

Private Sub cal0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cal0.Click

IDLABLE.Text += "0"

End Sub
Protected Sub cal1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal1.Click

IDLABLE.Text += "1"

End Sub

Protected Sub cal2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal2.Click

IDLABLE.Text += "2"

End Sub


Private Sub caldec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles caldec.Click

IDLABLE.Text += "."
Dim i As Integer, CountDot As Integer

For i = 1 To Len(Trim$(IDLABLE.Text))
If Mid$(Trim$(IDLABLE.Text), i, 1) = "." Then CountDot = CountDot + 1
Next
If CountDot = 2 Then IDLABLE.Text = Mid$(Trim$(IDLABLE.Text), 1, Len(Trim$(IDLABLE.Text)) - 1)

End Sub


Protected Sub cal3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal3.Click

IDLABLE.Text += "3"
End Sub

Protected Sub cal4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal4.Click

IDLABLE.Text += "4"
End Sub

Protected Sub cal5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal5.Click

IDLABLE.Text += "5"
End Sub

Protected Sub cal6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal6.Click

IDLABLE.Text += "6"
End Sub

Protected Sub cal7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal7.Click

IDLABLE.Text += "7"
End Sub

Protected Sub cal8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal8.Click

IDLABLE.Text += "8"
End Sub

Protected Sub cal9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cal9.Click

IDLABLE.Text += "9"
End Sub


Protected Sub calc_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calc.Click
IDLABLE.Text = ""
Operand1 = 0
Operand2 = 0

End Sub


Protected Sub calRst_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calRst.Click


Select Case [Operator]

Case "+"
IDLABLE.Text = Operand1 + Operand2


Case "-"
IDLABLE.Text = Operand1 - Operand2



Case "*"
IDLABLE.Text = Operand1 * Operand2


Case "/"
If Operand2 = 0 Then Exit Sub
IDLABLE.Text = Operand1 / Operand2

End Select

Operand2 = Val(IDLABLE.Text)

End Sub

Protected Sub calplus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calplus.Click
IDLABLE.Text = ""
Operand1 = Operand2
Operand2 = 0
[Operator] = "+"
End Sub

Protected Sub calminus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calminus.Click
Operand1 = Operand2
IDLABLE.Text = ""
[Operator] = "-"
End Sub

Protected Sub calmul_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calmul.Click
Operand1 = Operand2
IDLABLE.Text = ""
[Operator] = "*"
End Sub

Protected Sub caldiv_Click(ByVal sender As Object, ByVal e As EventArgs) Handles caldiv.Click
Operand1 = Operand2
IDLABLE.Text = ""
[Operator] = "/"
End Sub

Protected Sub calNegative_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calNegative.Click
Operand2 = -Operand2
IDLABLE.Text = Operand2
End Sub

End Class
ҡس : student / - [2011-02-02 22:19:35]  

118.173.97.49 Դ #28203 (ҡ IP: 118.173.97.49)
˹ sub ͧ = , ¤<br><br>calc_Click ѹ ա
ҡس : teacher [2011-02-02 22:52:09]

180.183.147.158 Դ #28204 (ҡ IP: 180.183.147.158)
Ѻ

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication2._Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<style type="text/css">
.calcBtn
{
width: 91px;
height: 37px;
}
.style1
{
height: 34px;
}
.style2
{
width: 79px;
}
.style3
{
height: 34px;
width: 79px;
}
</style>


</head>
<body>
<form id="form1" runat="server">
<div style="height: 287px; width: 413px">
<table style=" border: solid 2px black; padding:4">

<tr>

<td colspan="4">

<asp:Label style="text-align:right;" ID="IDLABLE" runat="server"
Width="100%" BackColor="#FF9999" Font-Size="XX-Large" Height="37px"></asp:Label>
</td>

</tr>

<tr>

<td colspan="4">

<asp:Button ID="calc" runat="server" Text="c" Height="37px" Width="278px"
BackColor="#6600CC" Font-Size="Large" ForeColor="#CC6600"/>
<asp:Button ID="calNegative" runat="server" BackColor="#006600" Font-Size="Large"
ForeColor="White" Height="36px" Text="+-" Width="92px" />
</td>

</tr>
<tr>

<td>

<asp:Button ID="cal7" runat="server" Text="7" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />
</td>

<td>

<asp:Button ID="cal8" runat="server" Text="8" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td>

<asp:Button ID="cal9" runat="server" Text="9" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td class="style2">

<asp:Button ID="caldiv" runat="server" Text="/" Height="36px" Width="90px"
BackColor="#006600" Font-Size="Large" ForeColor="White" />

</td>
</tr>

<tr>

<td>

<asp:Button ID="cal4" runat="server" Text="4" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td>
<asp:Button ID="cal5" runat="server" Text="5" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />
</td>

<td>
<asp:Button ID="cal6" runat="server" Text="6" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>
<td class="style2">

<asp:Button ID="calmul" runat="server" Text="*" Height="36px" Width="90px"
BackColor="#006600" Font-Size="Large" ForeColor="White" />

</td>

</tr>

<tr>

<td>

<asp:Button ID="cal1" runat="server" Text="1" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td>

<asp:Button ID="cal2" runat="server" Text="2" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td>

<asp:Button ID="cal3" runat="server" Text="3" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />

</td>

<td class="style2">

<asp:Button ID="calplus" runat="server" Text="+" Height="36px" Width="90px"
BackColor="#006600" Font-Size="Large" ForeColor="White" />
</td>
</tr>

<tr>

<td class="style1">

<asp:Button ID="calRst" runat="server" Text="=" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" /></td>
<td class="style1">

<asp:Button ID="cal0" runat="server" Text="0" Height="36px" Width="90px"
BackColor="Black" Font-Size="Large" ForeColor="White" />
</td>
<td class="style1">

<asp:Button ID="caldec" runat="server" Text="." Height="36px" Width="90px"
BackColor="Blue" Font-Size="Large" ForeColor="White" />

</td>

<td class="style3">

<asp:Button ID="calminus" runat="server" Text="-" Height="36px" Width="90px"
BackColor="#006600" Font-Size="Large" ForeColor="White" />

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>
</form>
</body>
</html>
ҡس : student / - [2011-02-02 23:05:47]

180.183.147.158 Դ #28205 (ҡ IP: 180.183.147.158)
calc_Click

¹ ¤ҷҤѺ
ҡس : student / - [2011-02-02 23:12:08]

118.173.97.49 Դ #28206 (ҡ IP: 118.173.97.49)
鴴 ͹Ţ +-*/ еͧ纤ҵŢá㹵 Operator1 鴡Ѻդ

ػ鴷ó ͧ¹ͧ
ҡس : teacher [2011-02-03 02:14:36]
ͺз
´

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th