excel - VBA timer gives 0s for everything -


i have timer calculates differences in execution times between data types performing same calculation.

here macro:

public declare function gettickcount lib "kernel32.dll" () long sub function1_var_randnumcounter()  dim var_randnum_x variant, var_randnum_y variant, count variant  count = 1 count = 1000000000     var_randnum_x = rnd(now) ' rnd vals based on now, built-in vba property     var_randnum_y = rnd(now) next count  select case isnull("a2")     case true         cells.clear         set target_sheet = activesheet         target_sheet.range("a2").value = -t     case false         set target_sheet = activesheet         target_sheet.range("a2").value = -t end select  'msgbox gettickcount - t, , "milliseconds" call function1_dec_randnumcounter  end sub sub function1_dec_randnumcounter()  dim count, var_randnum_x, dec_randnum_x, var_randnum_y, dec_randnum_y  dec_randnum_x = cdec(var_randnum_x) dec_randnum_y = cdec(var_randnum_y) ' convert these vals decimals  count = 1 count = 1000000000     dec_randnum_x = rnd(now) ' rnd vals based on now, built-in vba property     dec_randnum_y = rnd(now) next count  select case isnull("b2")     case true         cells.clear         set target_sheet = activesheet         target_sheet.range("b2").value = -t     case false         set target_sheet = activesheet         target_sheet.range("b2").value = -t     end select  'msgbox gettickcount - t, , "milliseconds" call function1_int_randnumcounter  end sub sub function1_int_randnumcounter()  dim count, int_randnum_x, int_randnum_y  count = 1 count = 1000000000     int_randnum_x = rnd(now)     int_randnum_y = rnd(now) next count  select case isnull("c2")     case true         cells.clear         set target_sheet = activesheet         target_sheet.range("c2").value = -t     case false         set target_sheet = activesheet         target_sheet.range("c2").value = -t end select  'msgbox gettickcount - t, , "milliseconds"  call function1_double_randnumcounter  end sub sub function1_double_randnumcounter()  dim count, dbl_randnum_x, dbl_randnum_y  count = 1 count = 1000000000     dbl_randnum_x = rnd(now)     int_randnum_y = rnd(now) next count  select case isnull("d2")     case true         cells.clear         set target_sheet = activesheet         target_sheet.range("d2").value = -t     case false         set target_sheet = activesheet         target_sheet.range("d2").value = -t end select  'msgbox gettickcount - t, , "milliseconds"  end sub sub function2_bargraph() 'put of these vals in 2d bar graph end sub

when run given 0s values everything. when increase decimal place count time 0.00000s. should this?

two things:

  1. variables in vb not typed (are variant) unless declare them specific type clause. 

    dim count long, int_randnum_x integer, int_randnum_y integer

as must used each variable, statement below declare int_randnum_y integer, leaing int_randnum_x variant:

    dim count long, int_randnum_x, int_randnum_y integer

  1. you never assign value 't'. declared in msgbox call. should declare

    dim t double

early in routine, , assign current time 

   t = timer

then later can elapsed time in seconds 

   t = timer - t

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more