KALKULATOR DENGAN VISUAL STUDIO 2010

KALKULATOR DENGAN VISUAL STUDIO 2010

Posted by : Kebahagiaan akan tercapai dengan CINTA Selasa, 17 November 2015

KALKULATOR DENGAN VISUAL STUDIO 2010

PENGENALAN ASP.NET

ASP.Net adalah singkatan dari Active Server Pages NET. Bahasa pemograman ini dikembangkan oleh Microsoft. ASP.NET digunakan untuk membuat halaman web yang merupakan bagian integral dari Microsoft .NET Framework.

ASP.NET adalah murni server-side teknologi. Hal ini dibangun pada common language runtime yang dapat digunakan pada server Windows untuk meng-host situs web ASP.NET.

Nah disini langsung saja kita akan mecoba membuat kalkulator dengan ASP.NET. Saya menggunakan Microsoft Visual Studio 2010.

Pertama kita buka dulu aplikasi Microsoft Visual Studio 2010. Lalu yang paling terpenting adalah niat dan kemauan."Ngoding" itu perlu kesabaran,jadi kalau ga kuat yang lambaikan tangan aja ke kamera.hehehe

Langsung aja kita ke TKP...... ->>

Ini tampilan awal ketika program di buka

Langsung aja buat project baru. Kita pilih WEB ya karena disini kita akan membuat web kalkulator.

Selanjutnya keluar gambar kaya di bawah ini pilih yang ASP.NET EMpty Web Site ok ..

Lalu muncul tampilan seperti ini

Lalu pilih di kanan layar di kotak " Solution Explorer" klik Kanan pilih " Add New Item "

Next pilih " Web Form " Klik " Add "

Tugas 1

Coding Desaign

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Kalkulator.aspx.vb" Inherits="WebLatihan.Kalkulator" %>

Bilangan 1

:

Bilangan 2

:

Hasil

:

:

Coding VB

Imports System.Math

Public Class Kalkulator

Inherits System.Web.UI.Page

Private Function hitung(ByVal Bilangan1 As String,

ByVal Bilangan2 As String,

ByVal operators As String) As String

Dim hasil As String = ""

Select Case operators

Case "+"

hasil = Val(Bilangan1) + Val(Bilangan2)

Case "-"

hasil = Val(Bilangan1) - Val(Bilangan2)

Case "*"

hasil = Val(Bilangan1) * Val(Bilangan2)

Case "/"

hasil = Round(Val(Bilangan1) / Val(Bilangan2), 2)

End Select

Label1.Text = operators

Return hasil

End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub btnTambah_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTambah.Click

TxtHasil.Text = hitung(TxtBil1.Text, TxtBil2.Text, btnTambah.Text)

End Sub

Protected Sub btnKurang_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnKurang.Click

TxtHasil.Text = hitung(TxtBil1.Text, TxtBil2.Text, btnKurang.Text)

End Sub

Protected Sub btnKali_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnKali.Click

TxtHasil.Text = hitung(TxtBil1.Text, TxtBil2.Text, btnKali.Text)

End Sub

Protected Sub btnBagi_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBagi.Click

TxtHasil.Text = hitung(TxtBil1.Text, TxtBil2.Text, btnBagi.Text)

End Sub

End Class

Tugas 2 next publish

Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © Kebahagiaan akan tercapai dengan CINTA -belajar,beramal,berjuang- Designed by Chairul Latief -