drug interaction list

Updates from March, 2012 Toggle Comment Threads | Keyboard Shortcuts

  • Krishnan 12:41 on March 24, 2012 Permalink | Reply  

    How to : Program a MS Excel Form 

    If you are trying to make an excel form, chances are you lost at the many objects lying around on your form and are baffled as to how all the pieces fit together.

    They key thing in writing a form is understanding how many objects are used and what minimum code must support each object and action. If you are lost and dont know what piece of code to write next, here are some simple guidelines I follow myself in programming my forms for performing engineering calculations.

    1. Throw all objects you want on a form. Inputs and Outputs.

    2. For an engineering calculation, if any input parameter changes, all outputs must vanish. Otherwise your form risks the possibility of displaying the incorrect value from a previous calculation before the current calculation is performed.

    3. Initialize the form using built in “UserForm_Initialize()” function.

    4. Initialisation of the form can be performed by a separate macro which pouplates the initial values to be displayed.

    5. Use the most common three buttons as set in 6, 7 and 8

    6. “Close” button unloads the form

    7. “Clear” button can be used to invoke the initialization macro or clear the all input and output fields by making them blank.

    8. “Calculate” button begins the calculation sequences.

    9. When starting a calculation, first step is to check the inputs.

    10. Check the inputs one by one. If inputs are not correct dont perform the calculation. If inputs are correct, read and interpret the inputs alongside.

    11. Perform calculations. Use UDFs as necessary.

    12. Estimate results. Diplay results as Label Captions.

    Have Fun!

  • Krishnan 16:14 on January 9, 2010 Permalink | Reply  

    What does it take to make one A4 size paper? 

    We start off by doing a small calculation from a reputed text book. The text book is Shreve’s Chemical Process Industries, which is a textbook adopted in the chemical engineering curriculum of many reputed colleges.

    An A4 size office paper of normal quality weighs 5 grams. It is easy for one to pro-rate the above table and estimate what it takes to make 5 grams of paper.

    Based on 1982 data, to make an A4 paper you would need:

    • 22.5 g  Chemicals
    • 665 ml  Water
    • 3.5 ml  Oil or 5 grams of coal
    • 20 cc Wood
    • 23.76 kJ Power

    Well, the story does not stop here. I know that the paper industry has adopted better manufacturing methods and today the specific consumption for making paper could be a little different. Today’s processes use significant amounts of recycle paper, use lesser water. Again, the amount of paper recycled and water conserved in different plants /countries is different, so it becomes difficult to establish an exact global average in a brief article.

    Nevertheless, a few parallels can be drawn.

    Every time you waste an A4 paper at office, conservatively, I can assume that, you also waste a large cup of water, a spoon full of coal (or oil), another spoonful of various chemicals, energy sufficient to keep a 40 W bulb glowing for 10 minutes and wood whose weight could be 2-4 times the weight of the paper, depending on the amount of recycle paper used.

    Every time you throw a piece of paper into a dust bin, imagine yourself wasting all the other resources as well. I’m sure you’ll find it a lot easier to save paper.

  • Krishnan 12:12 on October 21, 2009 Permalink | Reply  

    VBA support in OpenOffice.Org Calc 

    For many years till yesterday, I knew about OpenOffice.Org Calc. Today, I’m excited about it.

    I tried OpenOffice many years ago. It could do few things back then, but I immediately dismissed as inadequate for my needs. I have always been a fan of what VBA could do for Excel.

    Last week, I completed the most complex piece of VBA application I’d ever written. I am a VBA newbie and it took me a week  to finish my code that could be printed on 28 A4 pages. My spreadsheet till date works flawlessly on XP/Office 2003 like it is supposed to, but I wrote most of my code in Vista/Office 2007.

    When I upgraded to Debian Squeeze, Openoffice.org 3.1.1 came with it. I checked out the new version and was impressed that one could write macros in Python, Javascript, BeanShell in addition to BASIC.

    I tried to open my most complex piece of VBA code in Openoffice.org and I was bombarded with hundreds of repetitive error messages that I had to kill the spreadsheet from the command line. I was convinced that VBA and OOoCalc are not compatible, till I discovered this site by accident when trying to learn to write Javascript Macros in OOo.

    OK. All I needed to add was “Option VBA Support 1″. That didn’t sound too difficult, so I tried opening my spreadsheet  again and had to again kill everything from command line.

    Some thing was not right and I wasn’t being able to run VBA despite the promised compatibility.

    So I decided to go slow. No matter how many times, I couldn’t run the macros when I opened the native excel file. So I decided to open the excel file with macros disabled. That let me open the spreadsheet, but nothing was working. I found that OOoCalc automatically had added “Option VBA Support 1″ to my modules.

    I saved the file as .ODS and proceeded to debug by enabling macros again. This time, errors didn’t come in a flood.They came one at a time and it was easier to debug.

    The first set of errors related to variables which did not have an explicit Dim statement. VBA in Excel seemed more forgiving in handling varaibles without proper Dim statements. But OOo Calc didn’t like it. So I ended up adding a few Dim statements for some variables.

    The next set of errors was with Excel UDF names. OOo Calc likes to see Functions being invoked with uppercase letters. So if you’d used lower case letters in Excel, they would show up as errors. This could be easily fixed by use of find and replace feature.

    With just these two things, fixed my new .ODS file worked perfectly. I then saved it as .xls and re-opened the .xls and everything was still working. Though OOo Calc  documentation still says that not all VBA features are supported, VBA runs well on OOoCalc for all practical engineering calculations. So now is the time for me to make the switch.

    Now if you have difficulties, in getting  your VBA code to work  in OOo Calc, dont give up soon.

    • Rakesh 20:45 on November 7, 2009 Permalink

      I have tried doing what u have mentioned, but still it doesn’t work.
      if SHEET1.CELLS(7, 4) = “” Or SHEET1.CELLS(9, 4) = “” Or SHEET1.CELLS(10, 4) = “”

      In this line i am getting property or method not found.

    • Krishnan 23:07 on November 9, 2009 Permalink

      The syntax is obviously incorrect as I can see.

      If, Then, Else are the keywords to be used. Not Or.

    • james 20:16 on February 7, 2010 Permalink

      ingnoring the “rems”
      how would you right this in OOo ?? i cant work out OOo – pls get me started ??
      Rem Sub Words()
      Rem ‘
      Rem ‘ Words Macro
      Rem ‘ Macro recorded 07/02/2010 by Owner
      Rem ‘
      Rem ‘ Keyboard Shortcut: Ctrl+w
      Rem ‘
      Rem Dim NumWords As Integer
      Rem Dim WordLength As Integer
      Rem Dim Count As Integer
      Rem Dim Count2 As Integer
      Rem Dim Lcase As Integer
      Rem Dim Word As String
      Rem Dim MixedWord As String
      Rem Dim Letter As String
      Rem ‘ Worksheets(“Words”).Activate
      Rem Set wordRange = Worksheets(“Words”).Range(“A1:A500″)
      Rem NumWords = Application.WorksheetFunction.CountA(wordRange)
      Rem For Count = 1 To NumWords
      Rem WordLength = Len(Cells(Count, 1))
      Rem ‘ Application.EnableSound = False
      Rem ‘ Application.EnableSound = True
      Rem Word = Cells(Count, 1)
      Rem ‘ Cells(Count, 1).Activate
      Rem ‘ ActiveCell.Characters(1, 3).PhoneticCharacters = Word
      Rem MixedWord = “”
      Rem For Count2 = 1 To WordLength
      Rem Letter = Mid(Cells(Count, 1), Count2, 1)
      Rem ‘ Application.Speech.Speak (Letter)
      Rem Lcase = Round(Rnd)
      Rem If Lcase = 1 And Asc(Letter) >= 97 Then Letter = Chr(Asc(Letter) – 32)
      Rem MixedWord = MixedWord + Letter
      Rem Next Count2
      Rem Cells(1, 5) = MixedWord
      Rem Dim Message, Title, Default, MyValue
      Rem Message = “Ready Monkey ?”
      Rem Title = “Honors spelling game.”
      Rem Default = “YES”
      Rem MyValue = InputBox(Message, Title, Default)
      Rem For Count2 = 1 To WordLength
      Rem Letter = Mid(Cells(Count, 1), Count2, 1)
      Rem Application.Speech.Speak (Letter)
      Rem Next Count2
      Rem Application.Speech.Speak (Word)
      Rem If MyValue “YES” Then
      Rem Application.Speech.Speak (“That’s wrong pooey – you entered”)
      Rem WordLength = Len(MyValue)
      Rem For Count2 = 1 To WordLength
      Rem Letter = Mid(MyValue, Count2, 1)
      Rem Application.Speech.Speak (Letter)
      Rem Next Count2
      Rem Application.Speech.Speak (MyValue)
      Rem End If
      Rem Next Count
      Rem End Sub

  • Krishnan 20:43 on August 22, 2007 Permalink | Reply  

    Educational objectives 

    There are said to be six major areas in the cognitive development process that includes: knowledge, comprehension, application, analysis, synthesis, and evaluation.

    1. Knowledge is remembering previously learned material, from specific facts to complete theories.
    2. Comprehension is the ability to grasp the meaning of material.
    3. Application is the ability to use learned material in and concrete situations. This may include the application of such things as rules, methods, and concepts.
    4. Analysis is defined as the ability to break down a problem into component parts so that its organization is understood.
    5. Synthesis is defined as the ability to put parts together to form a new whole view or aspect
    6. Evaluation is defined as the ability to judge the value of materials for a given purpose

    • Prakash 15:24 on August 23, 2007 Permalink

      Good Analysis. I comprehended the items, and could confirm my knowledge by recalling all six items. Would definitely be applicable in various situations and I should be able to synthesize this model into the bigger picture of things…. What say you about my evaluation?! :-)

  • Krishnan 15:55 on July 25, 2007 Permalink | Reply  

    Black Web, bright future 

    Anand Patil, my college mate, sent us all an email.

    When your screen is white, being it an empty word page, or the Google page, your computer consumes 74 watts, and when its black it consumes only 59 watts.

    Mark Ontkush wrote an article about the energy saving that would be achieved if Google had a black screen, taking in account the huge number of page views, according to his calculations, 750 mega watts / hour per year would be saved.

    In a response to this article Google created a black version of its search engine, called Blackle, with the exact same functions as the white version, but with a lower energy consumption check


    for more info …

    We can shut down a few power stations and pollute less without significant loss of fucntionality only if all our web pages are black.

    Please spread the word.

Compose new post
Next post/Next comment
Previous post/Previous comment
Show/Hide comments
Go to top
Go to login
Show/Hide help
shift + esc