vba - How to convert this code from vb6 to delphi - 


private sub acak ( ) dim random new random ( ) dim a, c, m, i, y byte dim x( ) byte = {0,1,2,3,4,5,6,7,8,9,10} = 5 c = 7 m = 8 x (0) = random.next (1, 16) = 1 16        x(i) = (a*x(i-1)+c) mod m        if x(i) = 0            y =        end if  next  button1.text = x(16)  acakbutton ()

end sub

please me because can't use vb , can't convert because i'm still newbie

it this:

interface  uses  ...;  type   tmyform = class(tform)     button1: tbutton;     ...    private     procedure acak;    ...    end;  ...  implementation  uses   math;  procedure tmyform.acak; var   a, c, m, i, y: byte;   x: array[0..16] of byte; begin   randomize;   := 0 10     x[i] := i;   := 5;   c := 7;   m := 8;   x[0] := randomrange(1, 16);   := 1 16   begin     x[i] := (a*x[i-1]+c) mod m;     if x[i] = 0       y := i;   end;   button1.text := inttostr(x[16]);   acakbutton; end;

Comments

Post a Comment

Popular posts from this blog

ubuntu - PHP script to find files of certain extensions in a directory, returns populated array when run in browser, but empty array when run from terminal -

i running os ububtu 16.04. ultimate goal able run php script cron job every minute. here php script located @ /var/www/html/tests/test/index.php : <?php $directorypath = $_server['document_root']."/tests/test/data/"; echo "directorypath: $directorypath<br><br>";//check $imagefilepathsarray = glob($directorypath . "*.{png,gif}", glob_brace); echo "<br><br>imagefilepathsarray: "; print_r($imagefilepathsarray);//check ?> when open php script in browser visiting url my-ip-address/tests/test/index.php , get: directorypath: /var/www/html/tests/test/data/ imagefilepathsarray:array( [0] => /var/www/html/tests/test/data/pic.png [1] => /var/www/html/tests/test/data/pic.gif ) before writing cron job in crontab file, need check if can run anywhere using terminal . opened ubuntu terminal @ /home/ location, , executed in terminal: sudo php /var/www/html/tests/test/index.php i got following out...
Read more

php - How can i create a user dashboard -

today have questions you, want create user dashboard site, include (obviously), users data, example -email -username -and others stuff how can information, , print them in html page? if can, how can these information via php sessions? shuld use session? example, if user login, , start new session ( session_start() ), how can data print in dashboard? should use php "project"? in advice, have day , thank time!
Read more

javascript - How to detect toggling of the fullscreen-toolbar in jQuery Mobile? -

i have jquery mobile page fixed full-screen toolbar, data-tap-toggle enabled. straight under toolbar have positioned banner should slide upwards when toolbar hiding , slide downward when toolbar showing. jquery mobile toggles toolbar applying , removing ui-fixed-hidden class - sadly, can't find in documentation of toolbar widget toggle , hide or show event that. how can detect when toolbar toggled, reposition banner? .banner { position: fixed; background-color: darkseagreen; top: 46px; min-height: 48px; width: 100%; text-align: center; line-height: 48px; } <!doctype html> <html> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no"> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"> <script src="https://code.jquery.com/jquery-1....
Read more