KrishTalk.com

How to disable or enable fn keys in HP laptops?

I have been struggling with fn keys with my new HP laptop. In all (many) new HP laptops these keys are mapped to action keys by default. Action Keys are nothing but special function keys that can be used to up/down the volume, brightness projector, etc. And this is not only with HP Laptops but almost all new PC makers have this as a default behavior. This may be useful if the PC or the Laptop is used for home entertainment, where most of the function keys are used for controlling the audio and video. But if the PC is being used for other purposes, function keys should have their original action associated.

But if you want to use the F1 key for Help you have to press Fn+F1. This is the default behavior and this is annoying at times as it requires one more key to pressed and held, and we are not used to it with the earlier version of Windows. I checked with HP service center, they said it cannot be changed. I guess they did not want to help me, I was shocked. Later I came to know from a friend that it can be changed in BIOS settings. It was as simple as 1,2, 3.
Follow this procedure

1. restart the pc

2. keep tapping ESC (or the key which takes you to bios settings )

3.go to system configurations

4. there find the Action Key Mode

5. Disable it

That's it...

Listing details of files and folders in a Directory in c#

You can get the list of files and folders in WIndows explorer or in a DOS prompt. It's often useful to get content of a folder dynamically using some scripts or programs, especially if you need these details in some applications. Below is a chunk of C# code which gives you the details for files and folders of a given path. You can add additional fields to your out based on your need.

Make an executable file, i.e exe, and use it in your application or run it from the command prompt. Results can be redirected to a text file or csv file.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.IO;

namespace WinConsole

{

class ListFilesOfDirectory

{

public static long size = 0;

public static long totalSizeInMB = 0;

public static long maxSizeInMB = 0;

public static void listFiles(string path)

{

DirectoryInfo di = new DirectoryInfo(path);

DirectoryInfo[] folders = di.GetDirectories();

long[] listOfDir = new long[folders.Length];

int i=0;

foreach (DirectoryInfo d in folders)

{

size = 0;

listOfDir[i] = GetSizeOdDirectory(d);

i += 1;

totalSizeInMB += size / (1024 * 1024);

if (maxSizeInMB <>

maxSizeInMB = size / (1024 * 1024);

}

// display results in tab separated txt file

Console.WriteLine("**\t**\t**\t**\t**");

Console.WriteLine("File\t\t\t\t Size in MB");

for(int j=0;j

{

Console.WriteLine(folders[j].Name + "\t \t \t"+listOfDir[j].ToString());

}

Console.WriteLine("**\t**\t**\t**\t**");

// Console.ReadKey();

}

public static long GetSizeOdDirectory(DirectoryInfo directory)

{

DirectoryInfo[] dir = directory.GetDirectories();

foreach (DirectoryInfo d in dir)

{

GetSizeOdDirectory(d);

}

FileInfo[] files = directory.GetFiles();

foreach (FileInfo f in files)

{

size += f.Length;

}

return size;

}

public static void Main(string[] args)

{

string path=args[0].ToString();

listFiles(path);

}

The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) MS Word automation solution

I was frustrated by this error every time I run the below code. I did a lot of googling nothing worked. Even Microsoft said it a known issue we don't recommend this.

Then later just to try I just put one try-catch block and it worked perfectly. To date I have not seen that error.

Convert currency to word ( text ) in excel 2.0

Update: New version 3.0 has been released with bug fixes.
Please see this link

Version 3.0

Thank you guys for reported bugs in the code (Convert currency to word in excel 1.0) in my earlier post Convert currency to word in excel.

Your comments helped me a lot in fixing this error. There is a new version 2.0 which not only has bug fixes but also can convert up to 1,234,567,890.00.

You can download the latest version (2.0) from
Download

You can download the excel from
Download

Keep commenting

Convert currency to word in excel

There are plenty of online resources to convert Numeric currencies to Text- from $200 to Dollar Two Hundred.
But this is applicable only ###,###,### (comma at every third number)format. This is not suitable for India numbering system, because we follow ##,##,###(....22,22,222) format.

So I have create a excel function to over come this. You can use this function to to convert number up to 10,00,00,000(ten crores).

How to do it

Open Excel

Press Alt + F11

From Menu Bar Insert Module

Copy paste the This Module there.

Exit from VBA window by pressing Alt + F11 again

In excel sheet, Insert Function,

Under user defined find ConvertCurrencyToEnglish

select it and provide the number as a parameter

thats all you are done
----------------------------------------------------------------------
Code (alternatively you can download the module from here)
----------------------------------------------------------------------

' **** Author : Krishna S
' **** Tittle : Converting Hindu Arabic Currency(Indian System) to Words
' **** Description : This utility converts currencies in Indian numbering system to words.
' **** Limitations : Converts only upto 10,00,00,000( Ten Crores)

Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
   Dim Rupees, Paise
   Dim DecimalPlace, Count
   ReDim Place(9) As String
   Place(2) = " Thousand "
   Place(3) = " Lac "
   Place(4) = " Core "
   ' Place(5) = " Hundred Core "
   ' Convert MyNumber to a string, trimming extra spaces.
   MyNumber = Trim(Str(MyNumber))
   ' Find decimal place.
   DecimalPlace = InStr(MyNumber, ".")
   ' If we find decimal place...
   If DecimalPlace > 0 Then
   ' Convert Paise
   Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
   Paise = ConvertTens(Temp)
   ' Strip off Paise from remainder to convert.
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   Count = 1

   Do While MyNumber <> ""
   If Count = 1 Then

   Temp = ConvertHundreds(Right(MyNumber, 3))

   If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 3 Then
   ' Remove last 3 converted digits from MyNumber.
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Else
   ' Convert last 3 digits of MyNumber to English Rupees.
   Temp = ConvertTens(Right(MyNumber, 2))

   If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 3 Then
   ' Remove last 3 converted digits from MyNumber.
   MyNumber = Left(MyNumber, Len(MyNumber) - 2)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   End If
   Loop
   ' Clean up Rupees.
   Select Case Rupees
   Case ""
   Rupees = ""
   Case "One"
   Rupees = "One Rupee"
   Case Else
   Rupees = Rupees & " Rupees"
   End Select
   ' Clean up Paise.
   Select Case Paise
   Case ""
   Paise = ""
   Case "One"
   Paise = " And One Cent"
   Case Else
   Paise = " And " & Paise & " Paise"
   End Select
   ConvertCurrencyToEnglish = Rupees & Paise
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
   ' Exit if there is nothing to convert.
   If Val(MyNumber) = 0 Then Exit Function
   ' Append leading zeros to number.
   MyNumber = Right("000" & MyNumber, 3)
   ' Do we have a hundreds place digit to convert?
   If Left(MyNumber, 1) <> "0" Then
   Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
   End If
   ' Do we have a tens place digit to convert?
   If Mid(MyNumber, 2, 1) <> "0" Then
   Result = Result & ConvertTens(Mid(MyNumber, 2))
   Else
   ' If not, then convert the ones place digit.
   Result = Result & ConvertDigit(Mid(MyNumber, 3))
   End If
   ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
   ' Is value between 10 and 19?
   If Val(Left(MyTens, 1)) = 1 Then
   Select Case Val(MyTens)
   Case 10: Result = "Ten"
   Case 11: Result = "Eleven"
   Case 12: Result = "Twelve"
   Case 13: Result = "Thirteen"
   Case 14: Result = "Fourteen"
   Case 15: Result = "Fifteen"
   Case 16: Result = "Sixteen"
   Case 17: Result = "Seventeen"
   Case 18: Result = "Eighteen"
   Case 19: Result = "Nineteen"
   Case Else
   End Select
   Else
   ' .. otherwise it's between 20 and 99.
   Select Case Val(Left(MyTens, 1))
   Case 2: Result = "Twenty "
   Case 3: Result = "Thirty "
   Case 4: Result = "Forty "
   Case 5: Result = "Fifty "
   Case 6: Result = "Sixty "
   Case 7: Result = "Seventy "
   Case 8: Result = "Eighty "
   Case 9: Result = "Ninety "
   Case Else
   End Select
   ' Convert ones place digit.
   Result = Result & ConvertDigit(Right(MyTens, 1))
   End If
   ConvertTens = Result
End Function
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
   Case 1: ConvertDigit = "One"
   Case 2: ConvertDigit = "Two"
   Case 3: ConvertDigit = "Three"
   Case 4: ConvertDigit = "Four"
   Case 5: ConvertDigit = "Five"
   Case 6: ConvertDigit = "Six"
   Case 7: ConvertDigit = "Seven"
   Case 8: ConvertDigit = "Eight"
   Case 9: ConvertDigit = "Nine"
   Case Else: ConvertDigit = ""
   End Select
End Function
-----------------------------------------------------------

Enable or Disable GPRS/EDGE in iPhone - The Simple way

I use the iPhone 2g with Bharthi Airtel in India. It Unlocked and jailbroken. I had a problem with editing APN settings (GPRS/EDGE settings), in fact, it's intentionally done by Carrier. They are hidden; you will not be able to see Cellular Data Network option under Settings-> General->Network-> Cellular Data Network

To enable or disable GPRS the only option, I think, is to change the settings here.

To do this all you need is

1. Jailbroken iPhone with USB Cable

2. A PC

You don't have to worry about Wi-Fi or SSH or WinSCP or even Cydia Download.

The procedure –ITS VERY SIMPLE J

1. Download install iPhone explorer and plist editor for windows they are free and simple use

2. Connect you iPhone via USB cable (make sure your iTunes recognizes it)

3. Run iPhone explorer

Click on root. You will see a dialog box as shown bellow.

Select first option say OK

Browse to the carrier.plist as shown bellow

you see the changes done in second snap.

Edit the carrier.plist using plist editor and change as shown bellow

Add the following:

AllowEDGEEditing

After that

http://www.apple.com/DTDs/PropertyList-1.0.dtd”>

Save and copy back to iPhone using iPhone Explorer.

That all, we are done. No need to restart your iPhone.

If you have any problem, suggestions or comments please comment bellow

How to change the font size of Browser in iPhone

If you find it difficult to read the text in iPhone browser here is the solution

Just follow these steps

1. Go to any web site you want.

2. After loading click on the address bar of the browser

3. Delete whatever you have in the address bar.

4. Paste the below code in the address bar

javascript:for(i=0;i<document.getElementsByTagName ('*').length;i++)void(document.getElementsByTagName('*' )[i].style.fontSize='18pt');

5. Tap on Go button at the bottom

Notes: you can change the value 18 to whatever font you want.

Make sure that you do not have any New Line character int code.

Contact Form