untuk info registry mungkin bisa di liat disini
http://www.pctools.com/guides/article/id/1/page/1/
trus algoritma hitung satuan bisa coba yang (baru saya buat, mudah2xan enggak
error )
Option Explicit
Private Const satu_lusin As Byte = 12
Private Function LusinToPcs(ByVal Lusin As Byte) As Integer
LusinToPcs = Lusin * satu_lusin
End Function
Private Function PcsToLusin(ByVal InputPcs As Integer) As String
Dim Lusin As Integer
Dim Pcs As Integer
If InputPcs > satu_lusin Then
Lusin = InputPcs \ satu_lusin
Pcs = InputPcs Mod satu_lusin
Else
Lusin = 0
Pcs = InputPcs
End If
If Lusin > 0 Then
If Pcs > 0 Then
PcsToLusin = Lusin & " lusin - " & Pcs & " pcs"
Else
PcsToLusin = Lusin & " lusin"
End If
Else
PcsToLusin = Pcs & " pcs"
End If
End Function
Private Sub Command1_Click()
Dim Lusin As Integer
Dim Pcs As Integer
'contoh 2 lusin - 3 pcs = 1 lusin - 9 pcs
Lusin = 2
Pcs = 3
MsgBox PcsToLusin(LusinToPcs(Lusin) - Pcs)
'contohnya 25 pcs - 1 pcs = 2 lusin bukan 24 pcs
Pcs = 25
MsgBox PcsToLusin(Pcs - 1)
End Sub
yudi indrawan <[EMAIL PROTECTED]> wrote:
Halo semua,
saya mau tanya dimana window Xp menyimpan file registry nya ? sama
bagaimana algoritma menghitung satuan dinamis contohnya 2 lusin - 3 pcs = 1
lusin - 9 pcs ( 1 lusin = 12 pcs ). saya coba dengan menggunakan mod hasil nya
kayaknya kurang sreg contohnya 25 pcs - 1 pcs = 2 lusin bukan 24 pcs.
gitu aja yah thank's
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
