Create Random Numbers using OLE Randomize and RND

Hi,
I've managed to create an excel spreadsheet by creating an object of type EXCEL.APPLICATION. I've also managed to rename the worksheet tabs, move from one tab to another as well as fill certain cells with numbers.
I would now like to create a range of random numbers within one of these worksheets. I believe I should be using the Randomize and RND methods contained within the VBA OLE object. This is what I've done so far :
DATA: gs_vba TYPE ole2_object,           "VBA object
           gs_math TYPE ole2_object.
CREATE OBJECT gs_vba 'VBA'.
CALL METHOD OF gs_vba 'MATH' = gs_math.
CALL METHOD OF gs_math 'Randomize' = gs_math.
CALL METHOD OF gs_math 'Rnd' = gs_math
EXPORTING
    #1 = 1000.
Is the above the right way to do it? If not, I would really appreciate your help, and if possible, some sample code to do this as well.
Thanks and regards,
Adeline.

Similar Messages

Program to create random numbers in plsql

How do we Write a program to create random numbers.
Thanks

No need to - we have DBMS_RANDOM :)

Is it possible to create Excel Sheet using OLE automation in App server

Hi,
Is it possible to create Excel Sheet using OLE automation in Application server(Open Dataset)
Thanks in advance...

Unless your application server is on Windows OS, or it is connected to a Windows server by RFC. What is the requirement exactly, I don't understand?

Where do I begin to create my website using this G5 and Pages '08?

Where do I begin to create my website using this G5 and Pages '08? I don't even know where to start...
I made a temporoary website on wordpress with my pc -- now I want to see what is possible with this G5 and Pages '08 by bro gave me.

The current version is iLife '11. iWeb is up to v4 and I think has been out since 2007.
There is no iLife folder, the applications are loose within the Applications folder.
You can purchase a boxed version of iLife from Apple or an Apple reseller.
The Mac App store does not offer iWeb and you would need OSX 10.6.6 to use the App Store.
If you began your website using WordPress, why not continue to use it, it does not matter what system you are on, Windows, Mac or Linux, WordPress is web based.
Peter

Creating random numbers

how do you create random numbers between a given set of integers?
for example, how would you create random numbers from 2 to 9?

public class Test {
    public static void main (String[] parameters) {
        for (int i = 0; i < 100; i ++) {
            if (i > 0) {
                System.out.print (", ");
                if (i % 10 == 0) {
                    System.out.println ();
            System.out.print ((int) (8 * Math.random ()) + 2);
}code]Kind regards,
  Levi

Create Excel sheet using OLE

Hi All,
       Can any one help me to create an multiple excel sheet in an work book using OLE. I want to create more than 3 sheets in excel, which is default sheets in excel when we one excel.

Hi,
Check the below sample code.
Here I'm downloading the same table twice into 2 different sheets for example purpose.
TYPE-POOLS ole2.
DATA: wf_cell_from TYPE ole2_object,
      wf_cell_from1 TYPE ole2_object,
      wf_cell_to    TYPE ole2_object,
      wf_cell_to1   TYPE ole2_object,
      wf_excel      TYPE ole2_object,   " Excel object
      wf_mapl       TYPE ole2_object,   " list of workbooks
      wf_map        TYPE ole2_object,   " workbook
      wf_worksheet TYPE ole2_object,   " Worksheet
      wf_cell       TYPE ole2_object,   " Cell Range
      wf_cell1      TYPE ole2_object,
      wf_range      TYPE ole2_object,   " Range of cells to be formatted
      wf_range2     TYPE ole2_object,
      wf_column1    TYPE ole2_object.   " Column to be Autofit
DATA: BEGIN OF t_hex,
      l_tab TYPE x,
      END OF t_hex.
DATA: wf_deli(1) TYPE c,            "delimiter
      wf_action TYPE i,
      wf_file TYPE string,
      wf_path TYPE string,
      wf_fullpath TYPE string.
TYPES: t_data1(1500) TYPE c,
       int_ty TYPE TABLE OF t_data1. "line type internal table
*All the data was prepared as line type internal tables for faster
*download
DATA: int_matl TYPE int_ty ,
      int_matl1 TYPE int_ty ,
      wa_matl   TYPE t_data1.
TYPES: BEGIN OF ty_mara,
       matnr TYPE matnr,
       mtart TYPE mtart,
       matkl TYPE matkl,
       meins TYPE meins,
       END OF ty_mara.
DATA: int_mara TYPE STANDARD TABLE OF ty_mara,
      wa_mara TYPE ty_mara.
FIELD-SYMBOLS: <fs> .
DATA: wc_sheets LIKE sy-index. "no.of sheets
DATA: it_tabemp TYPE filetable,
      gd_subrcemp TYPE i.
CONSTANTS wl_c09(2) TYPE n VALUE 09.
CLEAR wc_sheets.
DEFINE ole_check_error.
if &1 ne 0.
    message e001(zz) with &1.
    exit.
endif.
END-OF-DEFINITION.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: p_file   LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK block1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tabemp.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title         = 'Select File'
*      default_extension    = 'xls'
      default_file_name    = 'Material Details'
*      with_encoding        =
      file_filter          = '*.xls'
      initial_directory    = 'C:\'
      prompt_on_overwrite = ' '
    CHANGING
      filename             = wf_file
      path                 = wf_path
      fullpath             = wf_fullpath
      user_action          = wf_action
*      file_encoding        =
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4
IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF wf_action EQ 9.
    MESSAGE 'No File have been Selected' TYPE 'S'.
ELSE.
    p_file = wf_fullpath.
    PERFORM create_excel.
ENDIF.
*&      Form create_excel
*       text
FORM create_excel.
LOOP AT it_tabemp INTO p_file.
ENDLOOP.
* START THE EXCEL APPLICATION
CREATE OBJECT wf_excel 'EXCEL.APPLICATION'.
PERFORM err_hdl.
* PUT EXCEL IN FRONT
SET PROPERTY OF wf_excel 'VISIBLE' = 1.
PERFORM err_hdl.
* CREATE AN EXCEL WORKBOOK OBJECT
CALL METHOD OF wf_excel 'WORKBOOKS' = wf_mapl.
PERFORM err_hdl.
SET PROPERTY OF wf_excel 'SheetsInNewWorkbook' = 3. "no of sheets
PERFORM err_hdl.
CALL METHOD OF wf_mapl 'ADD' = wf_map.
PERFORM err_hdl.
*Assign the Delimiter to field symbol.
ASSIGN wf_deli TO <fs> TYPE 'X'.
t_hex-l_tab = wl_c09.
<fs> = t_hex-l_tab.
CLEAR int_matl.
REFRESH int_matl.
SELECT matnr
       mtart
       matkl
       meins
      FROM mara
      INTO CORRESPONDING FIELDS OF TABLE int_mara.
*first the headings will be displayed in the excel sheet
CONCATENATE 'Material Number'
'Material type'
'Material Group'
'Base Unit of Measure'
INTO wa_matl
SEPARATED BY wf_deli.
APPEND wa_matl TO int_matl.
LOOP AT int_mara INTO wa_mara.
    CONCATENATE wa_mara-matnr
                wa_mara-mtart
                wa_mara-matkl
                wa_mara-meins
                INTO wa_matl
                SEPARATED BY wf_deli.
    APPEND wa_matl TO int_matl.
    CLEAR wa_matl.
ENDLOOP.
*Copyng thae same contents to another table to display in
*new sheet
MOVE int_matl TO int_matl1.
PERFORM f_material_details
TABLES int_matl
USING 1.
PERFORM f_material_details
TABLES int_matl
USING 2.
GET PROPERTY OF wf_excel 'ActiveSheet' = wf_map.
GET PROPERTY OF wf_excel 'ActiveWorkbook' = wf_mapl.
CALL FUNCTION 'FLUSH'
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.
IF sy-subrc = 0.
    CALL METHOD OF wf_map 'SAVEAS'
      EXPORTING #1 = p_file.
ENDIF.
CALL METHOD OF wf_mapl 'CLOSE'.
CALL METHOD OF wf_excel 'QUIT'.
FREE OBJECT wf_mapl.
FREE OBJECT wf_map.
FREE OBJECT wf_excel.
ENDFORM.                    "create_excel
*&      Form ERR_HDL
*       text
FORM err_hdl.
IF sy-subrc <> 0.
    WRITE: / 'OLE ERROR: RETURN CODE ='(i10), sy-subrc.
    STOP.
ENDIF.
ENDFORM.                    "ERR_HDL
*-- End of Program
*&      Form f_material_details
*       text
* --> p1        text
* <-- p2        text
FORM f_material_details
   TABLES lint_matl
USING l_sheet_no TYPE i.
DATA: lv_lines TYPE i,
        lv_sheet_name(50) TYPE c.
wc_sheets = l_sheet_no.
CASE l_sheet_no.
    WHEN 1.
      lv_sheet_name = 'Material_sheet1'.
    WHEN 2.
      lv_sheet_name = 'Material_sheet2'.
ENDCASE.
*-- activating the worksheet and giving a name to it
CALL METHOD OF wf_excel 'WORKSHEETS' = wf_worksheet
    EXPORTING
    #1 = wc_sheets.
CALL METHOD OF wf_worksheet 'ACTIVATE'.
SET PROPERTY OF wf_worksheet 'NAME' = lv_sheet_name.
*--formatting the cells
CALL METHOD OF wf_excel 'Cells' = wf_cell_from
    EXPORTING
    #1 = 1
    #2 = 1.
DESCRIBE TABLE lint_matl LINES lv_lines.
CALL METHOD OF wf_excel 'Cells' = wf_cell_to
    EXPORTING
    #1 = lv_lines
    #2 = 4.
*--range of cells to be formatted (in this case 1 to 4)
CALL METHOD OF wf_excel 'Range' = wf_cell
    EXPORTING
    #1 = wf_cell_from
    #2 = wf_cell_to.
*--formatting the cells
CALL METHOD OF wf_excel 'Cells' = wf_cell_from1
    EXPORTING
    #1 = 1
    #2 = 1.
DESCRIBE TABLE lint_matl LINES lv_lines.
CALL METHOD OF wf_excel 'Cells' = wf_cell_to1
    EXPORTING
    #1 = lv_lines
    #2 = 1.
CALL METHOD OF wf_excel 'Range' = wf_cell1 " Cell range for first
                                              " column(Material)
    EXPORTING
    #1 = wf_cell_from1
    #2 = wf_cell_to1.
SET PROPERTY OF wf_cell1 'NumberFormat' = '@' . "To disply zeros
"in Material number
DATA l_rc TYPE i.
*DATA download into excel first sheet
CALL METHOD cl_gui_frontend_services=>clipboard_export
    IMPORTING
      data         = lint_matl[]
    CHANGING
      rc           = l_rc
    EXCEPTIONS
      cntl_error   = 1
      error_no_gui = 2
      OTHERS       = 4.
CALL METHOD OF wf_worksheet 'Paste'.
CALL METHOD OF wf_excel 'Columns' = wf_column1.
CALL METHOD OF wf_column1 'Autofit'.
FREE OBJECT wf_column1.
ENDFORM.                    " f_material_details
Regards,
Manoj Kumar P
Edited by: Manoj Kumar on Mar 5, 2009 11:25 AM

Using Adobe Premier Elements to create a video using the photos and it is make the photos blurry. Is there a setting to correct this?

as the subject states, i am suing Premier Elements pro to create a video using photos. The photos are clear then when you play the video they become blurry. I would guess there would be a way to correct this but not having much success. any helps would be great.

Iltowman
Thanks for the follow up. Right now I see details that do need addressing. For one, you are importing 3:2 photos into a project set for 16:9.
You still have not told us what version of Premiere Elements that you are using and on what computer operating system it is running. For now I will assume, Premiere Elements 13/13.1 on Windows 7, 8, or 8.1 64 bit. NTSC setup.
Please try the following as a mini test run (just a few of your photos) to determine if the Timeline photos present better in the Edit area and in an export.
1. Open Premiere Elements 13/13.1 to the Expert workspace and go to File Menu/New/Project and Change Settings.
2. In Change Settings, change the settings to
NTSC
DSLR
1080p
DSLR [email protected]
OK out of there.
3. In the New Project Dialog that now opens, rename the project and make sure that you have a check mark next to Force Selected Project Setting on This Project. OK out of there.
4. Back in the Export workspace, import your photos using Premiere Elements' Add Media/Files and Folders/Projects Assets from where you drag the photos to the Timeline. There will be an orange line over the Timeline content. Press the Enter key of the computer main keyboard. or the Render button above the Timeline to do Timeline rendering which will result in the best possible preview in the Edit area monitor.
Also, right click the Edit area monitor, select Playback Quality, and then determine if the "Highest" gives better results than "Automatic".
If all looks good, then let us look at the quality of a AVCHD.mp4 export of that Timeline....
Publish+Share
Computer
AVCHD
with Presets = MP4 - H.264 1920 x 1080p30.
Is the quality of the photos in this mini test run better, the same, or worse?
About your photos (3872 x 2592 3:2)...video is 4:3 or 16:9. So to avoid black borders, you could consider
a. cropping the originals from 3:2 to 16:9 before import
or
b. importing them as is and doing any needed scaling in the Edit area monitor
But, right now the focus is on image clarity rather than black borders.
Please review and consider.
Thank you.
ATR

Create a Link using Dynamic Text and Capture Variable

I am building a dynamic website using Dreamweaver CS5 with Coldfusion 9
Currently I have created a dynamic text table. The table is created by querying the Invoice table and displays the all the customers Invoices. The columns Include Invoice #, Date, Amount Paid, BalanceRemaining, Due Date. So basically lists all the invoices I have applied to the unique customer. It is pulled up using a session variable I created from the login page.
My question is this I want to make the "Invoice #" linked so when you click on it it goes to a new page and performs a new query which retrieves infro related to that specific invoice such as Services Rendered, Service Description, Date, Price, Total. I was able to create a link to the Invoice # but I am stuck trying to figure out how to capture the Unique Invoice # and apply it to the new query. Is this possible if so how?
Thanks for your help!

Now keep in mind I am speaking strictly from a web and SQL standpoint as I have no experience with coldfusion.
If you are able to create the link to the Invoice, I am perceiving this as the following:
Invoice
Links to
#123
page.php?invoice=123
#345
page.php?invoice=345
If your page is setup like that then you already have the data stored in the browser request with the GET method. In PHP the equivalent is the $_GET array. I am assuming ColdFusion has a similar array to work with forms. Then on your following page you obviously need to check that the visitor came from the prior page with the proper permissions to ensure that someone doesn't get the address page.php?invoice=### and just guesses through and views all invoices if they are not supposed to. Then your query would look something like the following:
SELECT * FROM invoice_table WHERE invoice_number = $_GET['invoice']
Remember this in written in PHP so yours should be a similar equivalent.
Hopefully this helps a little to get you going in the right direction.

Is there a way to create an object using Trapcode Form and then use that object as a particle in Trapcode Particular?

I made some objects in Cinema 4D and I tried to import them into After Effects CC 2014. I get an error saying 'Cannot find Adobe Premiere Pro Dynamic Link'. So I tried it in AE CC and that worked. However, I want to create a form object and then use that as a particle for Trapcode Particular. Is this even possible?
Thank you for any help!

There are also size limitations or rather suggestions for particle size. If I were creating an animated 3D shape using Form or C4D and wanted to use it as a particle I would keep the size of the particle about 1/6 to 1/8 of the comp size. You would create a new comp for your particle, animate it, then nest the particle comp in your main comp, turn off visibility, and then use it as a particle in Particular.

I want to create xml file using photoshop script and also i can easily add, modify, delete based on file name

Hi,
Please help me for this.
I need to create XML file for mentioned below. when i run the photoshop script i need deatails for active document name, date, time and status.
<?xml version="1.0" encoding="UTF-8"?>
<sample>
<filename>Cradboard_Boxes_Small.tif</filename>
<date>today date</date>
<starttime>now</starttime>
<status>delivered</status>
</sample>
<sample>
<filename>Cardboard_Boxes_Student_Vaue_Pack.jpg</filename>
<date>today date</date>
<starttime>now</starttime>
<status>delivered</status>
</sample>
I need read that xml after creating and modify based on file name. i need to modify status after file finished.
if the file name is already exist i want to modify or delete or add whatever i need.
Kindly help me simple way

You may want to look into getting Xtools ps-scripts - Browse Files at SourceForge.net then. Most of the support is for ActionManager script code where XML code is use as an intermediate step. There are quite a few Photoshop script in XTools . Ross Huitt is an expert javascript programmer though is is fed up with Adobe's lack of support for Photoshop scripting particularly the bugs in ScriptUI he is still maintaining tool he has created for us free of charge. Tools like Image Processor Pro. None of his scripts are save as binary so you can read all of his code there is a wealth of knowledge in there....
Also there is a scripting forum Photoshop Scripting

How can I create a function using TestStand variables and call it from a step's Pre-Expression?

In one sequence I have dozens of Pre-Expressions which are almost the same thing, like this...
Locals.tagID = (Parameters.singlePhaseEnabled ? "L" : "D") & Str(Locals.phase) & "006"
...and the only thing different is that three digit string at the end ("006" will vary). How can I write a function that I can call from a step's Pre-Expression so it would look something like this? ...
Locals.tagID = MyNewFunction("006")

You cannot write custom commands for expressions.
That being said, there are a couple of options:
Create a subsequence with a single step. Use a parameter of the sequence as "function parameter".
Create a custom step type including a substep module which implements the function. Add an edit substep to enable the user of the steptype to gracefully change the parameter.
Store the variable parameter in a local/file global variable and modify the value in each step. This will, at least, keep the "function" the same for every step.
Norbert

How ca we create an INVOICE using a BAPI and triggring the same IDoc

Hi Gurus,
I have a senario where in I need to create an Invoice from a remote using BAPI and then the INVOICE IDOC has to be triggered for external purpose.
How can be this achived??
Help me as early as possible.
Thanks in Advance...
Suma

Hi,
Are you looking for BAPI <b>BAPI_ACC_INVOICE_RECEIPT_POST</b>?
Hope this helps (please reward me if it does).
Regards, Joerg

In Aperture 3 creating a book using Formal theme and in Edit Layout I can move but not resize the image box even though handles appear and the manual says I should be able to. Help image boxt

Can I resize image boxes with the displayed handles as the User Manual suggests I can, when creating a book in Aperture 3 using the Formal Theme (with the beveled mask) and in Edit Layout mode? I can move the box with the yellow guidelines, but those handles will not move to allow me to adjust size. If I delete the box and add a photobox, I can resize, but I loose those nice beveled masks!

Well I tried on my wife's MB and it worked fine, but keeps the same aspect ratio. Nearly there. I tried the local Apple outlet, but they had just taken Aperture off the demo machine .
However, I have discovered that I can use the "right click" option for 'photo aspect ratio' and it will resize the box to accomodate my pictures. By fiddling I can select an alternative ratio and/or picture and change the size of the frame up or down and try to get an appropriate size and ratio, e.g. if I have a small landscape picture, I can pop in a bigger square picture (it gets cropped) then choose a portrait mode (cropped differently) then pop in my landscape picture (still cropped, but bigger size), then use the option 'photo aspect ratio', I get it uncropped and bigger. Not a really satisfactory work around, but better than nothing.
By combining they fiddling with aspect ratios and the pinch/squeeze routine - on the MB (or via Lion and a track pad I assume) - I should get there.
Pity those pesky handles don't work!!
Thanks folks for the help

"I an creating a imagen using hue,sat and lum.I want to uses it as pattern,but i can´t to saved as png.Is it posible?"

I think to create a ideal pattern with specific values of hue,sat,and lum.I create a VI, and i can to see diferent images when change the hue and saturation,but it can´t be saved as png,etc, with a error"invalid image"
Attachments:
patrondinamyc1.vi ‏92 KB

HSL images can only be saved in the AIPD format. Please see the IMAQ Vision Concepts Manual or the LabVIEW help page for IMAQ Write File for more details. To save the image to another file format, you could convert it to RGB and then convert back to HSL when you are going to use the image later.
Regards,
Brent R.
Applications Engineer
National Instruments

Random Numbers Using Dashboard Widgets

I'm developing a widget and I've noticed that the javascript call Math.random() returns the same sequence of values every time I place the widget. This seems to only be a problem in the dashboard, because when I load the widget in safari (or any other browser) the returned values are truly random (or close enough for my purposes).
It seems as if the javascript random number generator is seeded with the same value (probably 0) for the dashboard, but seeded with relatively unique number (current time) everywhere else.
So my question is ... is there any way around this? How would you recommend I get unique sequences of numbers? Should I write my own random number generator? Should I make calls to /dev/random? Is there any other way? Thanks.

I'm developing a widget and I've noticed that the javascript call Math.random() returns the same sequence of values every time I place the widget. This seems to only be a problem in the dashboard, because when I load the widget in safari (or any other browser) the returned values are truly random (or close enough for my purposes).
It seems as if the javascript random number generator is seeded with the same value (probably 0) for the dashboard, but seeded with relatively unique number (current time) everywhere else.
So my question is ... is there any way around this? How would you recommend I get unique sequences of numbers? Should I write my own random number generator? Should I make calls to /dev/random? Is there any other way? Thanks.

Create Random Numbers using OLE Randomize and RND

Similar Messages

Maybe you are looking for