Dear Group Memebers.
I want to generate Random number of Length of 8 Digit.
How can i do this In Forms 6i.
Please Immidiate response is required
Best Regards.
Muhammad Kashif
Generate Random Number in 6i
Hi,
I am Attaching the code for random number generation
But tell me how to attach a file in here.
regards
riv
<blockquote id="quote"><font size="1" id="quote"><b id="quote">quote" HEIGHT="</b id="quote"></font id="quote"><table border="0" id="quote"><tr id="quote"><td class="quote" id="quote"><font size="1" id="quote">Dear Group Memebers.
I want to generate Random number of Length of 8 Digit.
How can i do this In Forms 6i.
Please Immidiate response is required
Best Regards.
Muhammad Kashif
<i><div align="right">Originally posted by Kashif
I am Attaching the code for random number generation
But tell me how to attach a file in here.
regards
riv
<blockquote id="quote"><font size="1" id="quote"><b id="quote">quote" HEIGHT="</b id="quote"></font id="quote"><table border="0" id="quote"><tr id="quote"><td class="quote" id="quote"><font size="1" id="quote">Dear Group Memebers.
I want to generate Random number of Length of 8 Digit.
How can i do this In Forms 6i.
Please Immidiate response is required
Best Regards.
Muhammad Kashif
<i><div align="right">Originally posted by Kashif
Hi admin,
i am copying my code do attach it so that others get it
Add this code in when-button-pressed trigger
and cteate a text item to view result(:view)
Declare
r Number;
i Number;
a Number;
Begin
Default_Value('0','Global.Counter');
:Global.Counter := To_Number(:Global.Counter)+1;
:View := :Global.Counter;
r := (10223*(:View) + 1) Mod 45231;
:View := r;
End;
Regards
Rivon Saxon
[quote]Email me and I will look at the code if it is your own code then I will upload and if it is not your own then upload on any free upload server and provide the link. thanks
<i><div align="right">Originally posted by admin
i am copying my code do attach it so that others get it
Add this code in when-button-pressed trigger
and cteate a text item to view result(:view)
Declare
r Number;
i Number;
a Number;
Begin
Default_Value('0','Global.Counter');
:Global.Counter := To_Number(:Global.Counter)+1;
:View := :Global.Counter;
r := (10223*(:View) + 1) Mod 45231;
:View := r;
End;
Regards
Rivon Saxon
[quote]Email me and I will look at the code if it is your own code then I will upload and if it is not your own then upload on any free upload server and provide the link. thanks
<i><div align="right">Originally posted by admin
Who is online
Users browsing this forum: No registered users and 1 guest