Transcript
Visual basic Net 2005
SQL Server
Anda ingin ……. CD e-book (PDF/ Chm) database/ programming BUKU2 luar negri sbg bahan Referensi/ wawasan pemograman, dll Silahkan lihat halaman awal modul ini (Toko)
!
"
$
) *
#$ %&
'(
"(
IT Programmer for PPIC System
1
+
Promosi My website
www.KutuProgram.com
2
%
www.KutuProgram.com
3
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
,23490;=>,6,,-
,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,3233.
. . + . + + + ' / /
/ / )
.0(+ * ' . . +
1 /
. .
)
. 5 ! . / 5& : .
* . / .0-6 ' . < / .0 2, " . < / .0$ 2, " + / ? (' .7 8 0-6$ + 32 +$ + * / .
..
" "+
/
.0-67+ .0-6
( /
.8
# )
266=7 .. 8 266=(@ ? . + 7)A B / . -? 8 .2669 .2669 )A ) (@ ? . + 5 . / -?)'( )A C . ) . * . / .-?)' & . / .2669 7' C " . ' . " )A / 2669 & . ( . ) $ . . / .2669 7+ C 8 $ . + / .2669( 70 ) 8 &&+( # 5 * . / .-?)' + / 266= -?)' 3-9 + (' ) + +@* / 266=( * + @ * -?)' 3-9 7+ 8 + / 2669 7+ + 8 + . / .2669(' ' / .2669(-?)' $ 5 ./ / -?)' 5 5 $ ? / .-?)' / .-?)' . / .-?)' + / .-?)' + * ' / .2669 )A ) @ / .2669 ? / .2669 + B # . 7+ + 8 / .2669 # . ( + C . 7)A B / . -? 8 / .2669( B ? / .266=+ B # . 7+ + 8 / .266=# . ( + C . / .7 8-?)'(' 5 # . / .-?)' D (% +* D / -?)' . / .-?)' ( ,6) + . / .-? * @ + / .-?)'
Semuanya Rp. 25.000
/
/ / /
8
Berminat? SMS aja: indraes 0852-17-609-601
4
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM: ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>969,92-
+-?)' 235 +-?)' ,-, $ +-?)' 2-6 + * +-?)' 2-6) " " @ +-?)' 2-6$ # 7+ + 8 +-?)' 2-6 + . ( " . + +-?)' 3-9 @ +-?)' 3-9 +-?)' E D + B # . (* +-?)' 2-6 +-?)' 3-9 Semuanya +-?)' + 5 ) +-? 5 F. Rp. 25.000 +-?)' +-?)' 06 " +-? $ ? ( . ) +-?)' F. +-?)' ( . ) +-?)' + (/ .-?)' ) (+ ( ( A* +-?)' 7 8 +-?)' ,-, * / -?)' 26637 8 +-?)' 2-6 +-?)' 2-6 E D 7+ + 8 +-?)' 2-6 7 A G 8 +-?)' 3-9 5H 266=(@ ? . + ( . ) +-?)' / -?)' ? ? 4-6 5 / 2669 * / 2669 )A & .C& +-?)' 2-6* / -?)'(@ ? . + ( ( +-?)' E D(@ ? . + 2-6+ * +-?)' 3-9 * +-?)' &-?)' 5 $ . * +-?)' 2-675 8 . +-?)' 5 5 . * / .- ?)' +-?)' ) +-?)' 2-6 $ +-?)' A I +-?)'(# (& .C& . +-?)' 2-6 " . +-?)' 5 * . +-?)' ' . +-?)' + * . / 5H -?)' / 2663 " + +-?)' 2-6)C5 . 5H 2669 7)A B / . -? 8 + +-?)' 2-6 5H 2669( . ) + +-?)' 2-6 / 2669( . ) 7+ 8 + +-?)' 3-9 5H 266=( . ) + +-?)' 3-9 5 E D5 7+ 8 + +-?)' (% + . .. + +-?)' ,-, 7+ + 8 + +-?)' 2-6 . "( ( # + ? ? 4(& . . @ * +-?)' 2-6 + +-?)' E D( .( 2-6C " $* +-?)' E D + + . +-?)' 2-65 # . ' . < +-?)' 2-6 24% (5 F ' . < +-?)' 2, "( . )
Berminat? SMS aja: indraes 0852-17-609-601
5
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM: ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,4243444940-
,23-
G . * +%+ A(@ ? . + +%+ " )C5 . (@ ? . + ( . ) +%+ " (@ ? . + (' ) +%+ + )C5 . (@ ? . + +%+( . ( " 5 $ # +%+ . 5 . * +%+ " 5 . * +%+ +7$ 8 @ +%+9 @ @ +) #(# +%+ % * ) " * +%+ " +%+! " ( C "C G 5 C +%+ & . & .C& +%+(5 . (' . 1 ( 5 & .C& + * +%+9 +%+! " @ 3 Semuanya +%+! " C C& # . @ Rp. 25.000 +%+9 " + +%+9 . (/ .+ G +%+9 " +%+9 + * + +%+ " ( . ) +%+ " " . (/ .+ G 72 ) 8 +%+ + . + +%+ ( . ) 7/ . G 8 +%+G + +%+ ? +%+ " + +%+& . (+ ( + . .( . ) +%++ +%++ * +) # Berminat? SMS aja: indraes 0852-17-609-601 +%+ 2-6 + . +%+C? G + .. 2-6 . * +%+ + +%++ + +%+9 7+ + 8 # " # +%+ E ' . < +%+( " . & 73 ) 8 ' . < +%+( " . C C& . +%+ ( 96+ . . . $ +%+9 7 $ 8 ' G " "7 G 8 ' +) # $ . * +%+4-6 + * +%+ @ > ( ( . . ( G $ * +%+5 #
. +
+5 +-?)' .
72 5 +
)
8 +.
#
.
6
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
! ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>-
"
. E ? * 72 ) 8 E * (% ). 7 B "8 E 7' 8(5 5 * ' C . E 5 (# E 5 E 2 E F9 ) E J )0+ (@ ? . + 7)A B / .8 E . E ( G ' + E 5 . ."( E + 5 . 5 E 5 . # C' + E 5 E 2(/ $( @ ( ) 5 E 7' 8(/ $CC@ 7= ) 8 5 E (/ - 2( . @ (= ) Semuanya . E 72 ) 8 Rp. 25.000 + E . * E ) . E + G ) E . "( . " . )A & . E 5+ @ ? * E G J' 4(+ E . 7' ) G 5 8 G ' ( 5 ! % . E % . B E + 5 $ E 2+ . "( . . ( +$ ( $ ( . ) $ E / . 7E 8 $ . E + C5 / 70 ) 8 E 2+ + E 2 G . E 3 + E % (,6+ . < B ? E C$ C& # . @ 7@ 75 88 E +$ ' . " +7+ ' .B 8 E & + Berminat? SMS aja: indraes 0852-17-609-601 E D (3 ) E 5 . ." + . . E + E + ( . + . +5 + . E 5 7&B# "E 8 E @ -4 ) E G . 5 . E G $+ B+ ( E % * + 70 ) 8 7% * + 7 88 E $ ? (@ ) E )A E @ . ) ( . @ . $ E ? * +
7
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
!
"
? 5 . (' E + B G ? . 5 & . + . ' +. G 7+ . G 8 +* ' Berminat? SMS aja: indraes 0852-17-609-601 + . " # $ . " ' ( . ) ' ( D ()E (5&# ( & + 7' 8 . A7#8 7' 8 + (' 74 ) 8 7E 8 7' 8(' # $ . G E 7 82( B G E (E (E (& .C& + 73 ) 8 E D(E +$ D F. E@5 * ' ( G 5 . G $ ( . ) E. 7' 8 E ? AG E ' (' ?G . 5 . & *( E . . C . + . + . " E + . ' E * E + E ))9 + . & I + E + ( . ) 7+ 8 + . 7)A B / . E 8 + D * E ' . " + . D * E ( G D( & (E & (E D+( ' D + E ? $ . * ' E@ . 7+ + 8 + E + II (' + 5 5 + B G E 5 . ( 5 + ( . ) + + . E (5 $ # (. E * # " ' . < E 0 2, " 79 ) 8 . B & . * E ( . ) . E (G * * 5 (2 ) Semuanya & E 7' 8 . Rp. 25.000 . ) E 2 ) * % . 7% . 8 * ( . ) ' . < $ G + * E 2, " ' . < E 2, " ' . < + * E 24% (@ ) ' . . E ( . . . ) ' G # 7)A B / .8 ' G E # 7)A B / .8 ' G E * (' ) 7 G 8 ' E ' ( 5 . (4 ) 7' E 8 ' E 73 ) 8 96* E ( % (E +
,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,32333439303;3=3>464,42434449404;4=4>-
E E E E E E E E E E E E
8
Jual CD E-BOOK (kumpulan buku programming luar negeri) berupa FILE PDF/CHM:
#
$%&
' ( )* !
+, *
+, *
-.
Ajax ,23490;=>,6,,,2,3,4,9,0,;,=,>262,22232429202;2=2>363,323334-
..
&
.
*
A( +$ (
A . A( . . + .. A #) ' # . ( + C . A@ A . 7 B "8 A . A & . E A + .. A E A # Berminat? SMS aja: indraes 0852-17-609-601 A . " A(' 5 # . A(' G A* +%+(@ ? . + D * & A(@ ? . + < &* E D . * A(/ .+ .G A7/ . ' 8 5 ( %' ( A(@ ) 7/ . G 8 @ (# A * +-?)' 2-6 G ' A G ' . () " A* G ' +-?)' 2-6* E D( + . . % C G . E D ") (5 C +-?)' E D,-6)A + .. A+ . * E ' . "7+ . . 8 + A E 7+ 8 + A -?)' 2-6+ 7+ 8 + #. $ . (E D " 7+ + " . . . ' . < E D ,6 . A . () " " . E D( E . 5 #. $ . ( A( +$ ( ( % .
35. KF(
A*
E
.
@
Semuanya Rp. 25.000
+
8
) "
*
JavaScript & Jscript ,2-
&
. E .
. (
(3
) *
E
.
.
&
.
9
3490;=>,6,,,2,3,4,9,0,;-
% *' E . E . E . E . " "# E
)
" 0
*
E
.
)
)A
(' ) 4 ) + .
+ .
5
E
.
Berminat? SMS aja: indraes 0852-17-609-601 . G . "( $ . * E . ' . 1 + E . ' . 1 7+ 8 + " . - . - (< ? F *E . 5 ' L ' ! . . E . ' E . (2 ) ( + .. G $ . + ' 5 $ B G E . ' E . "(,6, ) ' (' . ! % .
Rich Internet Application ,23490-
.) @ A @ A () @ @ A @ @ A E @D . ( " I .
7.
. ' .
( .
.E
( @ A2
1 C
#. 3
D
. #. $
* 5
+%+( C
+-?)'(5 .
@
(
@
+-?)' #
SEO ,2-
3.
. ) . ) )&(
& / . )
I " &
I
VBScript ,2- / 3- / 4- /
. . . .
/ +
. ?
. (2 ) B #
* .
10
'
C
)C
(
" " M
11
Pertemuan 1 5
12
'
)
)#/)#
1 '
/0 1
)
'
)
,-
1
// @$) F& )N+) ?GG ? ? N+) ?GG ? F) $? 'G N %$#
2-
%
# ?GNE
'<+) . .
$K) ,6 26
'<+) .
$K) ,6
& ?
F)' +2 + 3043
& ?
F)' +2 + 3043
& ?
F)' +2 + 3043
& ?
F)'
/ / /
/ /
% &$ @$) ?&N )#/$5) 'G F& )N+) ?GG ? '&' N )#/$5) % &1 /
4-
$K) ,6 26 ,
/5
@$) F& )N ? % #G 3-
'<+) . . .
' .
,6 / !
! +6 +
% &$ 5%& $& @$) ?&N )#/$5) F& )N # ?GNE % #G E % '&' ?&N # '
'<+) . .
$K) ,6 ,6
+2 + 3043*$
/ / / / / "O< ( $
"$ .
O,
13
5
2 F&?)F $
)#/)#
F
" • • •
5 5 $)?' 7 &)
.
/ 0O / 0O / 0O
&
8
( & & &
&
.P
& &
F
O D B C " ' %
F&?)F $ )"
5&?'#& + ?) "
$?$ '# '$&? '&& & 5(" 1& 0 0 %-/% 7
-% -
')#C
/ 7
%
& 5 @' # P ')#C#)G$ ')#
? &
P #$/)#
'
)
5-
-8 $ Program Database
ODBC Report
+
1
/0
7 7 9
5&?'#& + ?) :
.
&
( " (& . (
-8 $ $?$ '# '$&? '&&
:
&
5
5
14
Daftar koneksi user yg telah dibuat
F&?)F $ #)G$ ')#
$? &
( &
5M
"
$ 0 8919M
#$/)#
'
)
')#C
8%& %
Database koneksi yg sudah ter-register di Windows ODBC. Oracle, Paradox, MySQL, SQL NativeClient (sql2005), SQL server (sql2000)
15
7 7 9 7,8F
'
0)#
?7
0 &-8 $ . ?
8
--728F
738--
?
'
) " 7
)#/)#8(748
@$?$ %
Ketik NAMA ODBC nya
Ketik NAMA SERVER, jika local computer diketik (local) atau
798
.
M 708
.
titik
?)D'
16
.
Di kotak ini, biasanya kita memilih DEFAULT dalam koneksi kedatabase SQL server.
Tapi jika sewaktu INSTALL SQL server di setting untuk LOGIN nya, maka LOGIN ID dan PASSWORD harus diberikan juga…
7;8
?)D'(
.
Pilih NAMA DATABASE nya
7=8+
?
'
) " M 7>8
?)D' : ?)D' (
.
17
7,68
') '
'
& #5)
"
M-
Koneksi ODBC yang baru dibuat OK bro…
18
$
$
4-8 $
+ +
.F&?)F $ .A
+
.5&??N
+
.5
+
. '#
+ +
. ' . '
N
. N
: -& .5 ? * - : -& .5 . - : -& .
N .
? *-
. ? *? * '
: 90 5 ;1
)A. A*7
-
: -&
&
5
7-891
.
BPP BPP
1
BP
&
BP #
.( $
5
(
(
BP
1
.
BP BP
%
' " F&?)F $ OQ+ O &) R 5&??N .O ? * & .-& .5 5&??N .-& 78 5 .
'#$?G
7-891
.
N
6 5&??)5'$&?
G
G / * / *
"
. "
"
%5 <5-8 $'.
O-8 $5 /0 1R . 7F&?)F $8
(Q)
F
Q(
$ OR+
A
OR
-&F(
N.
.
O< RQ
A$. -)
8
) ) ' " : == -8 $5
/0 1
&
5"
5&?'#& + ?)
C&
5
19
SQL CLIENT, OLEDB ;1 $1& -1 8
.
F%
.
7 ..
5 $)?'
&)
"
(
)#/)# (
(
( "
5& )F&?)F $
"
(
(+&
( 8
"
)''$?G
/ 7
• • •
? ? +
•
+ . @$ )')D' 5&?@$G #
%
)#/)# )# ' &# )#
;1$1&
) '
) ( $"
"
)' FF ? ( .
#)G$ ')# 5 $)?'
$? &
P
*-1 8 Program
Database
Connection string Report
.. +
( " ( (& . ( 2(+ Connection membaca settingan: Nama server: User login: Password: di Register
di FILE TXT config
(jadi pada saat install program di computer client, harus di setting dulu nama SERVER, User dan Password database nya)
20
$
$
6 5&??)5'$&?
4 ;1$ 4
+ +
.F&?)F $ .A
+
.5&??
+
.5
+
. '#
+ +
. ' . '
BPP BPP ? *
? *
>$ 4 >$ 4 >$ 4
- 15
.
7-891
- 1
1 BPP
- 15
>$ 4
? * ? *
%
5 $)?'
BPP1 #
"7
.( $
(
BPP
- 1
(
8
.
BPP BPP
'
: 90 5 ;1
.
;1$1&
7-891
' " F&?)F $ O Q 4+!4+O7 . 8R8 5&?? O ? * 15 - 15 5&??-& 78 5
'#$?G
G G
/ * / *
" "
%5 <5 ;1$ 4 '. : 4O )?GF) R
.
$ OR+
*
OR$
.
"O'
Q
7F&?)F $8
)A. A-
*7
-
(Q)
F
Q(
A
-&F(
A$. -)
8
) ) ' " :
21
$
$
6 5&??)5'$&?
4-1 8
+ +
.F&?)F $ .A
+
.5&??N
+
.5
+
. '#
+ +
. ' . '
5
? * - 48:-&
5
? * - 48:-&
N N
BP #
-&
(
(
BP BP
. G G
/ * / *
" "
%5 <5-1 8 '.
O ;1-1 8 R $ OR+ OR N.
O? *& -& 78
.( $
BP
? * - 48:-& ? * '
%
1
.
5
- 48:-&
N
.
7-891
SP BP
N
' " F&?)F $ O Q+
-1 8
7-891
: 90 5 ;1
5&??N 5&??N
'#$?G
5
. O?R$ 5 . O< RQ
.
O
/0 1R
nyambung
7F&?)F $8
)A. A-
*7
-
(Q)
F
Q(
A
-&F(
A$. -)
8
) ) ' " :
22
( '
!
?
'2 +, 8-8$
.0 ( /$
$5 ?)'
"
8
' @-%7
@&# ' +$ . # F '
.(
@&# )7 "
"
.
& 5" )'<< -
@&#
<4 8% /
?G ' #$?GF$ )F $ 6 M- $ ( @&# ' )'
+
1 A4
'
2 @-%7 4 +
)
@&#
<
)?E
Yg Pokok disini bro..
24
Latihan Dataset:
FORM PELANGGAN dengan DATASET ,,-
' O
'
& #5)
:
'
& #5)(
2-
3-
.
'
?) 5&??)5'$&?
)(
?)D'(
.
'
) " M(
.
25
4-
5% ?G)
E)?$
" M-
.
98-
)#/)#--
&F(
.
F
?
?
08
?
)#/)#(
? .
'
) " --
&F(
C
26
;8
P5)F '
)
M
@& &
& 4
%
"
.
/0 18
4 ?)
"
'
)
'
)"
@&#
27
FORM PELANGGAN '
) $G?
F%$# @&# +) ?GG ?
'
)'
Componen yg digunakan
1 ,8 28
B B
1
42
B ! + :4 A@-%7 + . ' ' N + . #$ N $
B ! + :4 A + .5&??N + .5 N + . '# + . '# #$?5$ ?
+ +
. ' . '
:
2
3 O@ O6
4A ;1 % % 4 < -1 8 . ? * & .-& .5 . . ? * & .-& .5 N . & .-& . # 2N . & .-& . #
N N
.
. ? * & .-& ? * '
90 5 ;1
%
)
.
)A. A*7 A$. -) 8
) ' "
-
@ )O G#$ "
+& $ $
-8 $ BCC BCC BCC BCC
.
1
P
& 5 " 1 1
BCC BCC
G G
/ * / *
" "
" "
%5 <5-8 $'.
' " F&?)F $ O Q8 F-8 $5 /0 1G Q $ OR+ OR N. . O< RQ 5&??N .O ? * & .-& .5 . 5&??N .-& 78 5
BCC'# )O BCC
(Q)
BCC 7F&?)F $8
F
Q(
A
-&F( nyambung
:
43
MODULE2 : code untuk fungsi TERBILANG Code ini menggunakan FONT: Courier New sehingga bisa di COPY PASTE ' ' ' ' ' ' ' ' ' ' ' ' '
******************************************************** *** *** Class : Terbilang.vb *** sumber : dari INTERNET *** Usage : *** Dim instance As New Terbilang() *** Dim value as string --> MaxLength = 18 Character *** Dim result as string *** *** instance.Text = value *** result = instance.Text *** ********************************************************
Code ini bisa di
COPY PASTE aja
Public Class Terbilang Private STRANGKA As String() = {"", "satu ", "dua ", "tiga ", "empat ", "lima ", _ "enam ", "tujuh ", "delapan ", "sembilan "} Private STRDESIMAL As String() = {"puluh ", "ratus ", "ribu ", "juta ", _ "milyar ", "trilyun ", "bilyun "} Private m_Text As String Property Text() As String Get Return FormatTerbilang(m_Text) End Get Set(ByVal value As String) m_Text = value End Set End Property Private Function Satuan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = "" Dim i As Integer = Val(s(x)) Hasil = IIf(i = 1, "se", STRANGKA(i)) Return Hasil End Function Private Function Puluhan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = ""
44
Dim i As Integer = Val(s(x)) Dim j As Integer = Val(s(x + 1)) Select Case i Case 0 Hasil = STRANGKA(j) Case 1 Select Case j Case 0 Hasil = "sepuluh " Case 1 Hasil = "sebelas " Case Else Hasil = STRANGKA(j) Hasil = Hasil + "belas " End Select Case Else Hasil = STRANGKA(i) Hasil = Hasil + STRDESIMAL(0) + STRANGKA(j) End Select Return Hasil End Function Private Function Ratusan(ByVal s As String, ByVal x As Integer) As String On Error Resume Next Dim Hasil As String = "" Dim i As Integer = Val(s(x)) Select Case i Case 0 Hasil Case Else Hasil Hasil Hasil End Select Return Hasil End Function
= Puluhan(s, x + 1) = IIf(i = 1, "se", STRANGKA(i)) = Hasil + STRDESIMAL(1) = Hasil + Puluhan(s, x + 1)
Private Function SemuaNol(ByVal s As String, ByVal x As Integer) As Boolean On Error Resume Next Dim i As Integer = Val(s(x - 1)) Dim j As Integer = Val(s(x - 2)) Dim k As Integer = Val(s(x - 3)) Return ((i = 0) And (j = 0) And (k = 0)) End Function Private Function FormatTerbilang(ByVal s As String) As String On Error Resume Next Dim strTemp As String = s
45
If strTemp.Length = 0 Then Return "" Exit Function End If If strTemp.Length > 18 Or Not IsNumeric(strTemp) Then Return "Cannot convert this string." Exit Function End If If strTemp.IndexOf(",") > 0 Then strTemp = strTemp.Replace(",", "") If Not IsNumeric(strTemp.Substring(strTemp.Length - 1, 1)) Then strTemp = strTemp.Substring(0, strTemp.Length - 1) If Not IsNumeric(strTemp.Substring(1, 1)) Then strTemp = strTemp.Substring(0, strTemp.Length - 1)
nyambung
nyambung
Dim hasilCent As String = "" If strTemp.IndexOf(".") > 0 Then Dim posCent As Integer = strTemp.IndexOf(".") + 2 Dim strCent As String = strTemp.Substring(strTemp.IndexOf(".") + 1) strTemp = strTemp.Substring(0, strTemp.Length - (strCent.Length + 1)) hasilCent = IIf(strCent.Length = 1, IIf(Satuan(strCent, 0) <> "", Satuan(strCent, 0) & "sen", ""), IIf(Puluhan(strCent, 0) <> "", Puluhan(strCent, 0) & "sen", "")) End If
nyambung
Dim Hasil As String = "" Dim len As Integer = strTemp.Length If (len = 1) Then If Val(strTemp(0)) = 0 Then Hasil = "nol " Else Hasil = STRANGKA(Val(strTemp(0))) End If Return Hasil & "rupiah" End If Dim counter As Integer = 0 Dim sisa As Integer = len Mod 3 Select Case sisa Case 2 Hasil = Puluhan(strTemp, 0) counter = 2 Case 1 Hasil = Satuan(strTemp, 0) counter = 1 Case 0 Hasil = Ratusan(strTemp, 0) counter = 3
46
End Select Dim x As Integer = IIf(sisa = 0, (len \ 3), (len \ 3) + 1) While (counter < len) If Not SemuaNol(strTemp, counter) Then Hasil = Hasil + STRDESIMAL(x) Select Case Mid(Hasil, 1, 4) Case "seju" Hasil = "satu juta " Case "semi" Hasil = "satu milyar " Case "setr" Hasil = "satu trilyun " Case "sebi" Hasil = "satu bilyun " End Select Hasil = Hasil + Ratusan(strTemp, counter) counter += 3 x = x - 1 End While Return Hasil & "rupiah " & hasilCent End Function
End Class
47
CODE di FORM : Procedure + .
.
@&# ,C
"
URUTAN KOLOM pada DataGridView yang digunakan dalam CODE
0
2
0
J@
< &&+$?G 7@ ? A8 :
/%&856
& )
#
A A' ? A
$ O
-'D'N
5
')# $
<5
0
.- F
2
47
'&'
0
8
2 H
0
2 I
.
5 4+! 4'.
? A
E 6 < E < * A' A @
'&'
2
: A .
, <+
2 O6
<+ !4K + *: A
O 6' G / *,-# * -5 G / *,-$ 7I( 8-/ . O A' . :A
N
?G78
. -' A O A'
+
C,
Looping menghitung TOTAL service. Kolom 4 di jumlahkan
. Panggil fungsi TERBILANG.. setelah dapat TOTAL lalu di konversi ke terbilang
)
48
J@
<
$?+ '
!
G#$
(
?
# ?G
'&' :
/%&85 , '.
& ) 5
# ? A ?5 $?N N
78
E 6 < 9 - 1 A% #G O G / *,-$ AE %O G / *,-$ A 5
'&' G
O A% #G TAE / *,-$ 7I(
G#$ N
N
N
7 ( 7H( -
G / *,-5 G / *,-5
# *-$ # *-$
% -
G
/ *,-5
# *-$
A8-/
. 78
<
:
5&
& &5$-7 -5,4
5
FN
)#/)#N N&
OA
'&'
Ambil Harga di KOLOM 2, Jumlah di KOLOM 3, lalu hitung SUBTOTAL di KOLOM 4
)
J@
A8-/ A8-/
<<
& &D
'.
578
A O QQ A O Q ) )5' T@#& +) ?GG ? &# )#
