hihih asik nih.......... gue coba ya
ini function nya
---------------------------------------
Function test(angka As Currency, JmlLine As Integer)
Dim I(5) As Currency
Dim a(5) As Currency
Dim Counter As Integer
Dim x As Integer
Dim RandomIndex As Integer
Dim TotalAngka As Long
Dim TempAngka As Long
' inisial dulu array yang akan di gunakan dan di beri nilai 99999999
' nilai 99999999, di dapat dari perkiraanangka yang aneh
For Counter = 1 To JmlLine
a(Counter) = 99999999
I(Counter) = 99999999
Next Counter
' membuat dump jumlah angka yang di inginkan, yang di pergunakan untuk
menghitung
' total nilai dari angka hasil bagi nilai random
TempAngka = angka
For x = 1 To JmlLine - 1
TestRandom:
Randomize
RandomIndex = Int((JmlLine * 2 * Rnd) + 1)
' kenapa tidak boleh angka 0 atau 1, spy angka nya tidak cepat habis :)
If RandomIndex = 0 Or RandomIndex = 1 Then GoTo TestRandom
I(x) = TempAngka / RandomIndex
TempAngka = TempAngka - I(x)
TotalAngka = TotalAngka + I(x)
Next x
I(JmlLine) = angka - TotalAngka
For x = 1 To JmlLine
GetRandom:
Randomize
RandomIndex = Int((JmlLine * Rnd) + 1)
For Counter = 1 To JmlLine
' kondisi di bawah di gunakan untuk angka random tidak boleh sama
If a(Counter) = RandomIndex Then
TF = True
Exit For
Else
TF = False
End If
Next Counter
If TF = True Then
GoTo GetRandom
Else
For Counter = 1 To JmlLine
If a(Counter) = 99999999 Then
a(Counter) = RandomIndex
Exit For
End If
Next Counter
End If
Debug.Print I(x), I(RandomIndex)
Next x
End Function
---------------
Best regard
Erwin Sugiawan
----- Original Message ----
From: Yudi Hantoro <[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, January 29, 2008 9:43:02 AM
Subject: [belajar-access] Mohon informasi Fungsi /Matematik Random acak untuk
membagi ke 10 Data
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
Dear All
Saya mohon informasinya fungsi untuk membuat pembagian hasil yang random untuk
sejumlah data tertentu.
Misal saya punya Angka Pertama 10.000 dan kedua : 20.000
Saya pingin membagi ke 10.000 ke 5 Orang
1.
2.
3.
4.
5.
( Total 1-5 = 10.000 )
Demikian Juga 20.000 ke 5 orang
1.
2.
3.
4.
5.
( total 1-5 =20.000 )
Bagaimana cara membuat/Fungsi apa agar nilai yang acak untuk mengisi nomer
1-5 .
Terimakasih untuk bantuanya
Yudi H
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
