Selasa, 17 November 2015
Coding Desaign :
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="kalku1.aspx.vb" Inherits="WebLatihan.kalku1" %>
Bilangan
:
Hasil
:
Coding vb
'Public Class kalku1
'Inherits System.Web.UI.Page
'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'End Sub
'Protected Sub btnHitung_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnHitung.Click
' Try
'Dim PanjangHuruf As Integer = Len(txtBilangan.Text)
'Dim HurufKe(CekJumlahArray(PanjangHuruf)) As String
'Dim ArrayKe As Integer = 0
'Dim angka As String = ""
'Dim variabel As String = ""
'Dim huruf As Char
' For i = 1 To PanjangHuruf
' huruf = Mid(txtBilangan.Text, i, 1)
' If huruf = "+" Then
' ArrayKe += 1
' HurufKe(ArrayKe) = huruf
' ArrayKe += 1
' variabel = ""
' ElseIf huruf = "-" Then
' ArrayKe += 1
' HurufKe(ArrayKe) = huruf
' ArrayKe += 1
' variabel = ""
' ElseIf huruf = "*" Then
' ArrayKe += 1
' HurufKe(ArrayKe) = huruf
' ArrayKe += 1
' variabel = ""
'ElseIf huruf = "/" Then
' ArrayKe += 1
' HurufKe(ArrayKe) = huruf
' ArrayKe += 1
'variabel = ""
'Else
' variabel += 1
' HurufKe(ArrayKe) = variabel
'End If
'Next
'txtHasil.Text = Hitung(HurufKe)
'Catch ex As Exception
' Response.Write(ex.Message.ToString)
'End Try
'End Sub
' Private Function CekJumlahArray(ByVal PanjangHuruf As Integer) As Integer
'Dim Balikan As Integer = 0
' If PanjangHuruf <> 0 Then
'Dim huruf As Char
' For i = 1 To PanjangHuruf
' huruf = Mid(txtBilangan.Text, i, 1)
' If huruf = "+" Then
' Balikan += 2
' ElseIf huruf = "-" Then
' Balikan += 2
' ElseIf huruf = "*" Then
' Balikan += 2
' ElseIf huruf = "/" Then
' Balikan += 2
' Else
' Balikan += 2
' End If
' Next
' End If
' Return Balikan
'End Function
'Private Function Hitung(ByVal variabel As Array) As Double
' Dim Nilai As Double = variabel(0)
' For i As Integer = 0 To variabel.Length - 1
' If variabel(i) = "+" Then
' Nilai = Nilai + variabel(i + 1)
' ElseIf variabel(i) = "-" Then
' Nilai = Nilai - variabel(i + 1)
' ElseIf variabel(i) = "*" Then
' Nilai = Nilai * variabel(i + 1)
' ElseIf variabel(i) = "/" Then
' Nilai = Nilai / variabel(i + 1)
' End If
' Next
' Return Nilai
' End Function
'End Class
'tugas buat array dan pengulangan array
'Private sub TulisArray()
'
