coba pake coding ini Sub CoinAnalysis( JmlUang As Double) Dim CEPERIBU, GOCAPRIBU, NOBAND, CEBAN, GOCENG, SECENG, GOPE, CEPE As Integer Dim SISA As Currency SISA = 0: CEPERIBU = 0: GOCAPRIBU = 0: NOBAND = 0: CEBAN = 0: GOCENG = 0: SECENG = 0: GOPE = 0: CEPE = 0 CEPERIBU = JmlUang \ 100000 SISA = Jmluang - (CEPERIBU * 100000) GOCAPRIBU = SISA \ 50000 SISA = SISA - (GOCAPRIBU * 50000) NOBAND = SISA \ 20000 SISA = SISA - (NOBAND * 20000) CEBAN = SISA \ 10000 SISA = SISA - (CEBAN * 10000) GOCENG = SISA \ 5000 SISA = SISA - (GOCENG * 5000) SECENG = SISA \ 1000 SISA = SISA - (SECENG * 1000) GOPE = SISA \ 500 SISA = SISA - (GOPE * 500) CEPE = SISA \ 100 ' trus udah dapet jumlahnya saya masukin ke database...tapi point yang ini terserah anda seh Dim rs As New ADODB.Recordset rs.Open "insert into COINANALYSIS (JmlUang,ceperibu,gocapribu,noband,ceband,goceng,seceng,gope,cepe) values ( '" & xx & "," & CEPERIBU & "," & GOCAPRIBU & "," & NOBAND & "," & CEBAN & "," & GOCENG & "," & SECENG & "," & GOPE & "," & CEPE & ")", con, adOpenDynamic, adLockOptimistic Set rs = Nothing End Sub
Ali Akbar
"dedi_gunawan1711"
<dedi_gunawan1711@ To:
[email protected]
yahoo.com> cc:
Sent by: Subject: [Programmer-VB]
MEMBACA NILAI PECAHAN MATA UANG
[EMAIL PROTECTED]
ogroups.com
01/30/2007 01:31
PM
Please respond to
Programmer-VB
salam hormat buat temen2....
aku lagi coba membuat program kecil untuk menentukan pecahan mata uang
sbb:
----------------------------------------------------------
Nilai gaji 50 100 500 1.000 5.000 10.000 50.000 100.000
----------------------------------------------------------
1.265.650 1 1 1 0 1 1 1 12
500.000 0 0 0 0 0 0 0 5
dst...
----------------------------------------------------------
mohon pencerahannya buat temen2 yg lebih expert donk...
thx
dedi gunawan
