PROGRAM PEMBAYARAN LISTRIK DENGAN VB NET
http://www.mesran.blogspot.com Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x As String No_urut.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2) x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3) If x = "MED" Then daerah.Text = "MEDAN" pajak.Text = 0.015 ElseIf x = "BEL" Then daerah.Text = "BELAWAN" pajak.Text = 0.015 ElseIf x = "TEM" Then daerah.Text = "AKSARA" pajak.Text = 0.015 ElseIf x = "MAR" Then daerah.Text = "MARENDAL" pajak.Text = 0.015 ElseIf x = "BIN" Then daerah.Text = "BINJAI" pajak.Text = 0.015 ElseIf x = "PAK" Then daerah.Text