The Code Crunchers

My Fizz Buzz Solution

2010-01-16T16:54:00.003+08:00

My Fizz Buzz Solution

Solution 1: Using Ternary Operator

            for (int i = 1; i < 101; i++)
            {
                string result = "";
                result = i % 3 == 0 ? "Fizz" : ""; // check if i is divisible by 3
                result += i % 5 == 0 ? "Buzz" : "";// check if i is divisible by 5
                Console.Write("\n" + i.ToString() + " - " + result);
            }

Solution 2: Using IF Operator

            for (int i = 1; i < 101; i++)
            {
                string result = "";
                if (i % 3 == 0) // check if i is divisible by 3
                {
                    //give result the value fizz
                    result = "Fizz";
                }
                if (i % 5 == 0) // check if i is divisible by 5
                {
                    //gets the value of result and add to the buzz value giving an output of fizz or fizzbuzz
                    result += "Buzz";
                }
                //show result;
                Console.Write(" \n" + i.ToString() + " - " + result);
            }

Fabonacci Function c#

2009-07-19T22:14:00.001+08:00


1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.


static void fibonacci(int x)
{
        int y = 0, z = 1, total;

        for (int i = 0; i < x; i++)
        {
                total = y + z;
                Console.WriteLine(total);
                y = z;
                z = total;

        }
}

Prevent a Class to be inherited C#

2009-06-23T00:43:00.000+08:00

The sealed can be used to prevent a class to be inherited.

sample:
    sealed class FileClass
    {
        sealed FileClass(string filepath)
        {
            Filepath = filepath;
        }

        private string _filepath;
        public string Filepath
        {
            get { return _filepath;}
            set { _filepath = Filepath; }
        }
    }

Display All Server Files in Server using C# and ASP.NET

2009-04-16T23:22:00.001+08:00

DirectoryInfo di = newDirectoryInfo(Server.MapPath("/"));

FileInfo[] fi = di.GetFiles();

fi = di.GetFiles("*.*");

foreach (FileInfo fi1 in di.GetFiles())

{

Response.Write( fi1.FullName.ToString());

Response.Write("<br />");

}

Cross-Page Posting ASP .NET

2009-04-08T19:06:00.000+08:00

Make 2 forms name it page1.aspx and page2.aspx

on page1.aspx:

Add a TextBox and Button Control

Go to the Button Control Properties and set the PostbackUrl = "~/page2.aspx"

on Page2.aspx:

Add a Label Control and on the Page_Load Event add this following code.

protectedvoidPage_Load(objectsender, EventArgs e)

{

if (PreviousPage != null)

{

if (PreviousPage.IsCrossPagePostBack == true)

{

Label1.Text = "Cross-page post.";

TextBox tb = (TextBox)PreviousPage.FindControl("TextBox1");

this.Title = tb.Text;

}

}

else

{

Label1.Text = "You are not allowed to access this page!";

}

}

Prevent Multiple Click on Saving in ASP.NET

2008-11-03T23:40:00.003+08:00

This a very simple task all you have to do is just disable the Save button used in saving the data..

protected void saveButton_Click(object sender, EventArgs e)
{
//to prevent multiple click disable the button
saveButton.Enabled = false;
//-------------------
//Put code to save data
//------------------
//Data is no save so its now okay to enable the button
saveButton.Enabled = true;
}

How to ADD and USE Master Page in ASP.NET

2008-10-11T20:57:00.001+08:00

Step 1:

Make a new Web Project

Step 2:

Click on the Solution Explorer and Add New Item and Select the Master Page

Step 3:

Put a content on your Master Page

Step 4: On the script section of the DEFAULT.ASPX put the MasterPageFile="~/MasterPage.master" tag and delete the html section of the file

Now your ready to go...

Calvin's Hub

2008-09-30T20:58:00.001+08:00

First of all i would like to greet Calvin's Hub a happy birthday and more traffic to come. In celebration to his first year anniversary Calvin's hub launch it's first contest and it is dubbed as "Calvin's Hub Domain Name Giveaway Contest" obviously the winner will get a free domain name and hopefully it comes with a free domain hosting too. :) so if you want to win your own Domain Name join now. oh before i forget please put me as your referral :) ..

visit : www.calvinshub.com

Backup MySQL Database to a file

2008-06-06T22:51:00.001+08:00

Backup MySQL Database to a file

Backing up your database is a very important system administration task, and should generally be run from a cron job at scheduled intervals. We will use the mysqldump utility included with mysql to dump the contents of the database to a text file that can be easily re-imported.

Syntax:

mysqldump -h localhost -u root -pmypassword databasename > dumpfile.sql

Example:

mysqldump -h localhost -u root -p2Uad7as9 database01 > dumpfile.sql

This will give you a text file containing all the commands required to recreate the database.

Site Keyword Rank

2008-05-21T02:20:00.001+08:00

Search Keyword Ranking is a SEO Desktop application tool, I made that will automatically check the position of your URL for a specified Keyword on Google.

System Requirement:

Windows XP/Vista and .NET Framework 3.5

Download Site Keyword Rank

Clipboard Monitor + Source

2008-05-04T22:54:00.002+08:00

Here is a sample program that will monitor your clipboard , as of right now it can only monitor text or images...

Download the Source Code :ClipboardMonitor.rar

Code:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{

public Form1()
{
InitializeComponent();
timer1.Enabled = true;
}

private void button1_Click(object sender, EventArgs e)
{

this.Close();
}

private void timer1_Tick(object sender, EventArgs e)
{
object cbText = "";
object cbFormat;
cbFormat = Clipboard.GetDataObject();

if (Clipboard.ContainsText() == true)
{
textBox1.Visible = true;
pictureBox1.Visible = false;
cbText = Clipboard.GetData(DataFormats.Text);
textBox1.Text = cbText.ToString();
}

if (Clipboard.ContainsImage() == true)
{
Object imgBMP;
textBox1.Visible = false;
pictureBox1.Visible = true;
imgBMP = Clipboard.GetImage();
pictureBox1.Image = ( Clipboard.GetImage() );
}

}
}
}

Picture / Image Loader sample in C#

2008-04-30T09:46:00.004+08:00

[Controls to use]
PictureBox
Command Button
Dialog Box
Textbox
------------------------------------
[Source Code]

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{

DialogResult dRslt;
FileDLG.Filter = "JPEG Picture File(*.JpEg)|*.jpg|Windows Bitmap File(*.BMP)|*.bmp";
dRslt = FileDLG.ShowDialog();
textBox1.Text = FileDLG.FileName.ToString ();
}

private void FileDLG_FileOk(object sender, CancelEventArgs e)
{
pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage;
pictureBox1.Load(FileDLG.FileName.ToString());
}
}
}

VB.NET Office Automation FAQ

2008-04-16T21:05:00.001+08:00

I saw this article on a forum, i think it is a very useful article regarding Office Automation

This FAQ 101 is a listing of handy links for getting started with .NET Automation/Interoperation of Microsoft Office programs such as Excel, Word, Access or Outlook.

The first place to start learning about how to integrate MS Office programs into your .NET application is the tutorial Automating Office Programs with VB.NET. It discusses what you need to know to get started, as well as addressing some of the difficulties with .NET Automation such as execution speed and deployment issues. If you are new to .NET Interoperation/Automation, then this link is a good place for you to begin.

For articles on how to fully utilize the Excel object model, Word, and Outlook please check out the following links:

(1) Understanding the Excel Object Model from a .NET Developer's Perspective
(2) Understanding the Word Object Model from a .NET Developer's Perspective
(3) Programming Microsoft Outlook with Visual Studio .NET

(We still lack a resource for utilizing the Access object model in .NET, so if someone knows of a good source, please send me a private message and we will be glad to add it.)

Some advanced forums on MS Office programming include:

(1) .NET Office Automation (XVBT)
(2) Visual Studio Tools for Office Forum (MSDN)
(3) COM Add-ins Forum (MSDN)
(4) Interoperation / Office Integration (XDNT)

Microsoft Office Programs are still COM ActiveX Servers, so the best help regarding specific commands or techniques can be often found in the VBA Forums. If your question is .NET-specific, please place your question in the .NET Office Automation forum. But if your question regards the Microsoft Office object model, as called from VBA or Visual Basic 6.0, then the following VBA/VB6 Office Integration forums can be your best bet:

(1) VBA / Office Integration forum (XVBT)
(2) Excel VBA forum (XVBT)

For some general articles regarding MS Office Interoperation from your .NET application, see the following links:

(1) Automating Office Programs with VB.NET
(2) Creating Office Managed COM Add-Ins with Visual Studio .NET
(3) HOWTO: Run Office Macros by Using Automation from Visual Basic
(4) Develop Microsoft Office Solutions with Visual Studio .NET

For articles dealing with execution or deployment issues and problems:

(1) Office Application Does Not Quit After Automation from VS.NET Client
(2) Microsoft Office XP PIAs Are Available for Download
(3) Office XP Primary Interop Assemblies Known Issues

Add Google Search Code on your Website

2007-12-09T19:46:00.000+08:00

Add Google Search in your Website
Just Copy & Paste the code below on your Site

Basic SQL Part 1

2007-12-07T11:11:00.000+08:00

Select Statement

Sample Statement

Select * From Receipt

* = Wildcard or to Display all the Field in a Table

Receipt = Name of the Table.

Sample OutPut

IMPORTANT NOTICE:
The information in this email (and any attachments) is confidential. If you are not the intended recipient, you must not use or disseminate the information. If you have received this email in error, please immediately notify me by "Reply" command and permanently delete the original and any copies or printouts thereof. Although this email and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by American International Group, Inc. or its subsidiaries or affiliates either jointly or severally, for any loss or damage arising in any way from its use.

Basic SQL Part 1

2007-12-07T10:59:00.001+08:00

Select Statement

Sample Statement

Select * From Receipt

* = Wildcard or to Display all the Field in a Table

Receipt = Name of the Table.

Sample OutPut

XOR Encryption in VB

2007-12-07T00:57:00.000+08:00

Public Function XOREncryption(CodeKey As String, DataIn As String) As String
Dim lonDataPtr As Long
Dim strDataOut As String
Dim intXOrValue1 As Integer, intXOrValue2 As Integer

For lonDataPtr = 1 To Len(DataIn)
'The first value to be XOr-ed comes from
' the data to be encrypted
intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))
'The second value comes from the code ke
' y
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
strDataOut = strDataOut + chr(intXOrValue1 XOr intXOrValue2)
Next lonDataPtr
XOREncryption = strDataOut
End Function

'USAGE
Private Sub cmdEncryptdecrypt_Click()
Dim strCodeKey As String
strCodeKey = InputBox("Please enter your password", "XOr Encryption")
txtSource.Text = XOREncryption(strCodeKey, txtSource.Text)

End Sub

Read INI File in VB ( Visual Basic )

2007-10-23T09:18:00.000+08:00

Declare
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Code Function
Private Function INIRead(iAppName As String, iKeyName As String, iFileName As String) As String

Dim iStr As String

iStr = String(255, Chr(0))
INIRead = Left(iStr, GetPrivateProfileString(iAppName, ByVal iKeyName, "", iStr, Len(iStr), iFileName))

End Function

C# Link Generate to HTML Code

2007-09-16T05:51:00.000+08:00

Here is a sample program where user can generate HTML Link code just by inputing the address and description of the Site.. then the application will automatically generate the code

screen shot

Source Code:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace Link
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
String linkname = "", linksite = "", linkdesc = "", linkResult;
linkname = textBox1.Text;
linksite = textBox2.Text;
linkdesc = textBox3.Text;
string link = "" + linkname + "";
if (textBox4.Text != "" )
{
textBox4.Text += "
" + link;
}
else
{
textBox4.Text = link;
}
}
private void button2_Click(object sender, EventArgs e)
{
textBox4.SelectAll();
textBox4.Copy();
}
private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
WebBrowser web = new WebBrowser();
linkLabel1.Text = SiteAdvertise(1);
web.Navigate("http://zoul1380.blogspot.com","_new");
}
}
}

Download Source Code Here.

C# Sample Code : Exercise Palindrome

2007-09-03T23:57:00.000+08:00

Filename: Program.CS


using System;
using System.Collections.Generic;
using System.Text;

namespace Exercise_02___Palindromes
{
    class Program
    {
        //string aword;

        static void Main(string[] args)
        {
            bool wResult;

            Console.WriteLine("Palindrome Checker");
            

            for (int x = 0; x < 20; x++)
            {
                Console.Write("=");
            }
            Console.WriteLine();
            Console.Write("Input String : ");
            string aword = Console.ReadLine();

            clsCheckWord CheckWord = new clsCheckWord();

            CheckWord.Givenword = aword;
            int ix = CheckWord.isPalindrome();

            if (ix == 1)
            {
                Console.Write("Result : A Valid Palindrome");
            }
            else
            {
                Console.Write("Result : Not A Palindrome");
            }

            Console.ReadLine();
        }
    }
}

Class Filename : clsCheckWord.cs


using System;
using System.Collections.Generic;
using System.Text;

namespace Exercise_02___Palindromes
{
    class clsCheckWord
    {
        public clsCheckWord(){}

        public string givenword="";

        public string Givenword
        {
            get { return givenword; }
            set { givenword = value; }
        }

        public int isPalindrome()
        {
            string tmpcomp="";

            for (int x = 0; x < givenword.Length; x++)
            {
                tmpcomp = givenword.Substring(x, 1) + tmpcomp;
            }

            if (tmpcomp == givenword)
            {
                return 1;
            }
            else
            {
                return 0;
            }
        }
    }
}

I.T. Organization & Management

2007-05-07T23:05:00.000+08:00

April 23, 2007

Organizational Behavior

A contemporary field focusing on behavioral perspectives on management.

- draws on psychology, sociology, eonomics, and medicing -> interdischiplinary

Important topic in organizational behavior research:

- Job satisfaction and job stress

- Motivation and leadership

- Group dynamic and organizational politcis

- Interpersonal conflict

- The structure and design of organiztions

Click here to Download Full Article

----------------------------------------

April 25, 2007

Something…

Strategic Planning Tools

- SWOT Analysis

- Poter’s Generic Strategies regarding

o Cost

o Differentation

o Focus

- Porter’s 5 forces

- Porter’s value chain model

- Strategies based on product life cycle

SWOT = Strenght Weakneses Opportunities Threats

Click here to download full article

------------------------------------

April 27, 2007

INFORMATION TECHNOLOGY

- Definition

COMPUTER TECHNOLOGY (hardware & software)

for PROCESSING & STORING INFORMATION

as well as

COMMUNICATION TECHNOOGY

For TRANSMITTING INFORMATION

COMPETING IN AN eWORLD

- NEW WAYS to COMPETE: USING CAPABILITIES

o Particularly INTERNET

o MASS CUSTOMIZATION

§ Manufacturing customized prodcuts in large quantities

§ Eg.

· Dell

o Global Reach

§ Being able to market and sell anywhere in the world

§ Eg.

· Amazon.com

· Dell

o SUPPORT

§ 24/7 on-line support anywhere in the world

Click here to download full article

----------------------------

May 2, 2007

Decision Support Systems

- A computer based system, usually interactive, designed to assist managers in is making decisions.

- Incorporates both data & model

- Intended to assis in the solution of semi- or unstructured problems

- Data often extrated from

o TPS (Transaction Processing Systems)

o Data warehose

Click here to download full article

----------------------

May 4, 2007

Initiating the Purchasing Process

- Business manager makes a formal request to begin an investigation of a possible system purchase

o Proposed application needs

o Potential benefits

- Project team is established

- Project team is established & given the responsibility of acquiring the software

o IS analysis & other IS specialists

§ Who can help assess thebenefits and risks from an IT implementation perspective

§ Who will operate and support

· The package system

· Other packaged system that will interface with this package

- Representative from the business unit

o Who can assess the organizational benefits and risks

o Who will eventually implement & use the system

Click here to download full article

------------

May 7, 2007

6. Evaluate Vendor Responses to RFP & Choose the package

- Use criteria (mapped out in step 4) as basis for evaluation

- Deterine weights

- Evaluation criteria 1 – 10 (10 = perfect)

- Multiplyevaluation by weights to get weighted evaluation

- Add all weighted evaluation to get final scores

- Use these scores to discuss strengths and weaknesses of major candidate packages

Click here to download full article

Learning Visual C++ Win32 Programming

2007-04-28T00:45:00.000+08:00

I will be trying to learn Visual C++ Win32 Programming Come Join me thrue my journey in learning this programming language.. i will be posting all my Daily experience on this topic hope you can learn with me... and Join me on my Journey.....

Basic array operations in VB.NET

2007-04-06T12:19:00.000+08:00

The ability to work with arrays is important in any programming language. VB.NET offers a simple way of grouping data into the array structures similarly to other languages. In this article, I will look at array declaration and usage.

Purpose of the arrays

Arrays are generally used for storing similar types of values or objects. They allow grouping variables together and allow referring to them by using an index. Arrays have an upper bound and a lower bound, which simply refer to the starting index and the ending index of a given array structure. Additionally, the data in the array can be sorted. Simple arrays are one-dimensional; however, you can also use multi-dimensional arrays in VB.NET. You can loop through an array to determine and to modify the values stored in the array.

Declaring and initialising arrays

There are two ways of initialising the arrays: to declare and initialise them in one statement, or to declare an array and choose to initialise it later.

When declaring and initialising arrays in the same statement, you must specify the type of the array elements and the number of the elements the array will hold. In VB.NET, arrays are zero based, which means that the index of the first element is zero. The elements are numbered sequentially. You must specify the number of array elements by indicating the upper bound of the array. The upper bound is the number that specifies the index of the last element in the array. Listing A shows the declaration and initialisation of an array of integers.

Listing A

Dim arrNumbers(4) As Integer 'Declares & initialises an array of 5 integers, with indexes ranging from 0 to 4

Another way to declare and initialise arrays is to perform these operations in two separate steps. If you declare an array without specifying a number of elements on one line, you have to provide the values for each item of the array when you initialise it. The initial values are provided enclosed in the {} braces, using a comma as a separator. Listing B shows the declaration and initialisation of an array in two separate steps.

Listing B

Dim arrNumbers() As Integer 'Declares the array of integers arrNumbers = New Integer() {0,1,2,3,4} 'Initialises the array to five members & sets their values

Once an array is declared and initialised, it's possible to change the size of an array in run time by redefining it. You can use the ReDim statement to change the number of items in an array structure. Listing C shows declaration, initialisation, and then re-sizing of an array structure.

Listing C

Dim arrNumbers(32) As Integer' Declares & Initialises an array of integers ReDim arrNumbers(45) As Integer' Re-initialises the array

By default, the data stored in an array is lost whenever an array is re-initialised. However, you can use the ReDim statement with the Preserve keyword in order to keep the existing data in the array when it's being re-initialised. Listing D re-initialises an array structure using the Preserve statement to keep the data already stored in the array.

Listing D

Dim arrNumbers () As Integer = {0,1,2,3,4}' Declares & initialises the array ReDim Preserve arrNumbers (25) 'Resizes the array, but retains the data in elements 0 through 4

There are two types of multidimensional arrays: rectangular or jagged. In rectangular arrays, every member of each dimension is extended into the other dimensions by the same length. In jagged arrays, individual members of one dimension can be extended into other dimensions by different lengths. The more dimensions an array has, the more complex it becomes to work with it

How to use Direct Memory Access to do Graphics

2007-03-06T14:41:00.000+08:00

How to use Direct Memory Access to do Graphics

One of the easiest ways to speed up your graphics is to use the native API calls rather than the built in graphical methods. For example, using the API functions GetPixel and SetPixel is about 3x faster than using the built in methods PSet and Point. But while the the API is fast, you can get even better performance with direct memory access (DMA).

But wait! What about DirectX? Well, DirectX is great and is extremely fast for complex operations but most of its speed comes from its ability to interact with the coprocessor in your graphics card. If you don't have such a card (unlikely, true, but there it is) or if you are doing simple graphics (line and point stuff), then DMA is just as fast. Plus you don't need to distribute any particular version of DX.

Besides, I just like DMA. DX hides a lot of the logic of graphics which is great, but sometimes you can learn quite a bit from the algorithms behind a line, or a floodfill.

Anyway, here is how you do DMA.

The basic idea is that you access the actual bitmap that makes up the picture. You can do this indirectly by using the API functions GetDIBits and SetDIBits which extract a bitmap into an array and copy an array to a bitmap respectively, but you can do it directly if you had an array that pointed to the actual memory used by the bitmap.

To make such an array requires some API calls of course. Here they are:

Code:

Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" _
    (Ptr() As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" _
    (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Type SAFEARRAYBOUND
   cElements As Long
   lLbound As Long
End Type

Private Type SAFEARRAY2D
   cDims As Integer
   fFeatures As Integer
   cbElements As Long
   cLocks As Long
   pvData As Long
   Bounds(0 To 1) As SAFEARRAYBOUND
End Type

Private Type BITMAP
   bmType As Long
   bmWidth As Long
   bmHeight As Long
   bmWidthBytes As Long
   bmPlanes As Integer
   bmBitsPixel As Integer
   bmBits As Long
End Type

The VarPtr function can get the actual memory address of a variable. In this case, we type the function in such a way that it works on arrays and we call it VarPtrArray. The CopyMemory function can copy data from one memory location to another. The GetObjectAPI function can retrieve information out of an object. In this case, we will use it to extract the BITMAP information from a stdPicture object, thus we need to define a BITMAP structure. Finally, we define a SAFEARRAY structure since this is the raw format behind an array and we need to mess with this to get this method to work.

So we start with a stdPicture object. We will assume that this object has a picture loaded. We also have a dynamic array of bytes, but this array has not yet had any memory assigned to it. We then use our API functions to assign the memory used by the picture object to the array, thus any changes we make to the array will show up in the picture.

Here is how we do it:

Code:

Dim SA As SAFEARRAY2D
Dim BMP As BITMAP
Dim mvarBytesPerPixel

Public Sub LoadPicArray(p As StdPicture,Data() As Byte)
If GetObjectAPI(p.Handle, Len(BMP), BMP) Then    'retrieve bitmap information about p
   mvarBytesPerPixel = BMP.bmWidthBytes \ BMP.bmWidth
   ' make the local matrix point to bitmap pixels
   With SA
     .cbElements = 1
     .cDims = 2
     .Bounds(0).lLbound = 0
     .Bounds(0).cElements = BMP.bmHeight
     .Bounds(1).lLbound = 0
     .Bounds(1).cElements = BMP.bmWidthBytes
     .pvData = BMP.bmBits
   End With
   ' copy bitmap data into byte array
   CopyMemory ByVal VarPtrArray(Data), VarPtr(SA), 4
End If
End Sub

So what happened? Well, first, we use the GetObjectAPI function to extract the BITMAP info. We then use this information to set up the SA SafeArray2D structure. In particular, notice the line:
.pvData = BMP.bmBits
which assigns the memory stored in the bitmap to the SA structure.

Now we simply make the Data array point to the SA structure with the CopyMemory function while using the VarPtr functions to get the actual memory addresses of the SA structure and the array.

Simple? Well, not exactly....there are some caveats...
1) The Picture object MUST have a picture preloaded. This will set up the objects BMP structure. Otherwise, it will be uninstantiated.
2) The SA object MUST persist for the life of the array. Remember, the array points to the SA structure so if you destroy SA before you terminate the array, the array will point to nothing.
3) Before you destroy the array, you MUST reset it to point to null, otherwise you can crash the program or get a memory leak.
4) A 256 color Bitmap has 1 byte per pixel, but this byte is a palette index, not a color. So you need to convert colors into palette indexs before setting the array. The same applies to 16bit HiColor bitmaps. Fortunately, TrueColor (24bit) images are the actual colors, although you need to set each RGB byte individually.
5) Oddly enough, the array is mapped from the bottom up. In other words, array point 0, 0 is the BOTTOM left corner.

After you are done, you must reset the array. Here is how you can do it:

Code:

Public Sub ReleaseData(a() As Byte)
CopyMemory ByVal VarPtrArray(a), 0&, 4
End Sub

So now how do you use the array?

Well, the array is now a 2D array of the form Data(X, Y) where X is the column and Y is the row. Each element of the array is a byte. For 256 color bitmaps, this byte is a palette index for that pixel. But for 24 bit images, each byte is a colour value (BGR) for a pixel, so each pixel consists of 3 consecutive bytes. eg a 100pixel by 100 pixel image would generate an array 300x100 in size.

Since the array can vary in size, you have to take that into account when making functions to set or read a pixel. For instance:

Code:

Public Sub DrawPixel(Data() As Byte, ByVal x&, ByVal y&, ByVal c&)
Select Case mvarBytesPerPixel
   Case 1: Data(x, y) = c And &HFF
   Case 2
       Data(x + x, y) = (c \ 256) And &HFF
       Data(x + x + 1, y) = c And &HFF
   Case 3
       Data(x * 3, y) = (c \ 65536) And &HFF
       Data(x * 3 + 1, y) = (c \ 256) And &HFF
       Data(x * 3 + 2, y) = c And &HFF
End Select
End Sub

Public Function ReadPixel(Data() As Byte, ByVal x&, ByVal y&) As Long
Select Case mvarBytesPerPixel
   Case 1: ReadPixel = Data(x, y)
   Case 2: ReadPixel = Data(x + x, y) * 256& + Data(x + x + 1, y)
   Case 3: ReadPixel = ((Data(x * 3, y) * 256&) + Data(x * 3 + 1, y)) * 256& + Data(x * 3 + 2, y)
End Select
End Function

Here is a comparison of speed.

With a 100x100 24 bit bitmap loaded, I set each and every pixel to red using DMA, SetPixel and PSet. The time results were 5ms, 60ms and 550ms respectively. After compiling, the speeds were 4 ms, 50 ms and 70ms. So DMA was around 12x faster than SetPixel.

I've attached a class module to encapsulate the technique. Just compile the class into an ActiveX DLL and then reference it in your own projects. Here is my speed test program that demonstrates how to use this DLL:

Code:

Option Explicit
Private Declare Function GetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim pa As BCHPicArray.clsPicArray

Private Sub Command1_Click()
Dim x&, y&, t&
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       pa.DrawPixel x, y, vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = "PicArray=" & t
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       SetPixel Picture1.hdc, x, y, vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = Me.Caption & " SetPixel=" & t
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       Picture1.PSet (x, y), vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = Me.Caption & " PSet=" & t
End Sub

Private Sub Form_Load()
Set pa = New clsPicArray
pa.LoadPicArray Picture1.Picture
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set pa = Nothing
End Sub

Using OwnerDraw For Good-Looking Controls

2006-12-16T23:20:00.000+08:00

Code:

Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" _
    (Ptr() As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" _
    (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Type SAFEARRAYBOUND
   cElements As Long
   lLbound As Long
End Type

Private Type SAFEARRAY2D
   cDims As Integer
   fFeatures As Integer
   cbElements As Long
   cLocks As Long
   pvData As Long
   Bounds(0 To 1) As SAFEARRAYBOUND
End Type

Private Type BITMAP
   bmType As Long
   bmWidth As Long
   bmHeight As Long
   bmWidthBytes As Long
   bmPlanes As Integer
   bmBitsPixel As Integer
   bmBits As Long
End Type

Code:

Dim SA As SAFEARRAY2D
Dim BMP As BITMAP
Dim mvarBytesPerPixel

Public Sub LoadPicArray(p As StdPicture,Data() As Byte)
If GetObjectAPI(p.Handle, Len(BMP), BMP) Then    'retrieve bitmap information about p
   mvarBytesPerPixel = BMP.bmWidthBytes \ BMP.bmWidth
   ' make the local matrix point to bitmap pixels
   With SA
     .cbElements = 1
     .cDims = 2
     .Bounds(0).lLbound = 0
     .Bounds(0).cElements = BMP.bmHeight
     .Bounds(1).lLbound = 0
     .Bounds(1).cElements = BMP.bmWidthBytes
     .pvData = BMP.bmBits
   End With
   ' copy bitmap data into byte array
   CopyMemory ByVal VarPtrArray(Data), VarPtr(SA), 4
End If
End Sub

Code:

Public Sub ReleaseData(a() As Byte)
CopyMemory ByVal VarPtrArray(a), 0&, 4
End Sub

Code:

Public Sub DrawPixel(Data() As Byte, ByVal x&, ByVal y&, ByVal c&)
Select Case mvarBytesPerPixel
   Case 1: Data(x, y) = c And &HFF
   Case 2
       Data(x + x, y) = (c \ 256) And &HFF
       Data(x + x + 1, y) = c And &HFF
   Case 3
       Data(x * 3, y) = (c \ 65536) And &HFF
       Data(x * 3 + 1, y) = (c \ 256) And &HFF
       Data(x * 3 + 2, y) = c And &HFF
End Select
End Sub

Public Function ReadPixel(Data() As Byte, ByVal x&, ByVal y&) As Long
Select Case mvarBytesPerPixel
   Case 1: ReadPixel = Data(x, y)
   Case 2: ReadPixel = Data(x + x, y) * 256& + Data(x + x + 1, y)
   Case 3: ReadPixel = ((Data(x * 3, y) * 256&) + Data(x * 3 + 1, y)) * 256& + Data(x * 3 + 2, y)
End Select
End Function

Code:

Option Explicit
Private Declare Function GetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim pa As BCHPicArray.clsPicArray

Private Sub Command1_Click()
Dim x&, y&, t&
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       pa.DrawPixel x, y, vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = "PicArray=" & t
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       SetPixel Picture1.hdc, x, y, vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = Me.Caption & " SetPixel=" & t
t = timeGetTime()
For y = 0 To Picture1.ScaleHeight - 1
   For x = 0 To Picture1.ScaleWidth - 1
       Picture1.PSet (x, y), vbRed
   Next x
Next y
t = timeGetTime() - t
Picture1.Refresh
Me.Caption = Me.Caption & " PSet=" & t
End Sub

Private Sub Form_Load()
Set pa = New clsPicArray
pa.LoadPicArray Picture1.Picture
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set pa = Nothing
End Sub

How to load a dynamic link library (DLL) into a Microsoft Visual C++ 6.0 project

2006-12-08T19:49:00.000+08:00

Steps to perform:

Create in Microsoft Visual C++ 6.0 an MFC application (.dll or .exe);
Go to the menu View, ClassWizard.
Select an option Add Class…, from a type library.
Browse to the location of your *.dll.
A window, which displays the content of your *.dll, will appear. Select all classes you want to include in your project (Ctrl+A – select all content, or Ctrl + mouse click – for selecting a specific set of classes).
Push the button Open. Header file *.h and *.cpp implementation file will be generated.
Close the ClassWizard.

Now, all services you selected for use in you project are available!

Good day

2006-12-06T23:40:00.000+08:00

Good day people i would be posting tutorial on this blog. if you have any request on any programming tutorial. please leave a message and i will try my best to post that tutorial. thank you

Object Oriented Programming

2006-12-02T20:49:00.000+08:00

Take advantage of C# 2.0 platform advances by creating and using anonymous methods

C# developers are familiar with using delegates and named methods to implement a wide range of functionality, most notably events. With C# 2.0, Microsoft has introduced a new way to declare a delegate and the associated method called "anonymous methods." Zach Smith explains what anonymous methods are, and how to use them

News From http://uk.builder.com/architecture/oop/

Internet TV for Free!?

2006-12-01T14:31:00.000+08:00

Ever wanted to watch tv at your pc for free without buying any hardware?

All you need to have is a high speed internet connection.
And the software, TVU Player yes it is free.

What is TVU Player? it is a free tv software made by TVU Network and uses bittorrent technology to stream their tv channels.

anyway here is the link where you can download the software. Click Here

How do I do it in VB.NET?

2006-11-29T10:32:00.000+08:00

This tutorial explain some of the more common migrating problems from VB to VB.NET.

DoEvents

VB6
DoEvents

VB7
System.Windows.Forms.Application.DoEvents

App Object

Get the full application filepath

VB6
App.Path & App.EXEName

VB7 System.Reflection.Assembly.GetExecutingAssembly.Location.ToString

Get the app's instance

VB6 App.hInstance

VB7
System.Runtime.InteropServices.Marshal.GetHINSTANCE _(System.Reflection.Assembly.GetExecutingAssembly.GetModules() _(0)).ToInt32()

Check for a previous instance

VB6
App.PrevInstance

VB7
Function PrevInstance() As Boolean
If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess).ProcessName)) > 0 Then
Return True
Else
Return False
End If

End Sub

Graphics

Load a picture

VB6
Picture1.Picture = LoadPicture(path)

VB7
Dim img As Image = Image.FromFile(path)
Picture1.Image = img

Load a icon

VB6
Me.Icon = LoadPicture(path)

VB7
Dim ico As New Icon(path)
Me.Icon = ico
File I/0

Read from a file

VB6
Open path For Input As #1
Line Input #1, buffer
Close #1

VB7
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _ FileAccess.Read)
Dim sr As New StreamReader(fs)
Buffer = sr.ReadLine
sr.Close

Write to a file

VB6
Open path For Output As #1
Write #1, buffer
Close #1

VB7
Dim fs As FileStream = File.Open(path, FileMode.OpenOrCreate, _
FileAccess.Write)
Dim sr As New StreamWriter(fs)
sr.Write(buffer)
sr.Close
Errors

Check for an error

VB6
On Error Goto errhandler
...
errhandler:
MsgBox(err.Description)

VB7
Try
...
Throw New Exception("error description goes here")
...
Catch e as Exception
MsgBox(e.Description)
End Try
Events

Handling an event

In VB7, there is a new keyword called AddHandler. AddHandler makes handling events a snap.

AddHandler object.event, AddressOf procedure

C++ Intro…

2006-11-27T22:55:00.000+08:00

Before you write your first program. Start with a prayer to God, that you “Succeed in learning C++”.

Now that all your hopes are high let us start. Please enter the following code exactly as shown, without any questions. (This is to inform you that the explanation will follow after the code.)

#include
int main()
{
cout<< “ What you do is what you get”;
}

Although this may sound strange, once you compile this program you are a programmer.

<Warning: The numbered indentation is not to be included with the code while typing. It is only for your convenience>

Now let us read the first line. You read it as “Hash/Pound include eye-oh-stream-dot-h”

Iostream: Input Output stream. Don’t learn the definitions they automatically come to you.

You don’t pronounce the brackets while reading it loud, but is it a part of the code.

.h: Dot h files are known as header files. We place them in the beginning of the source code; it is like adding a DVD-Player to your deck. You don’t create .h files for now, nor would you add a DVD-Player to your deck each time you want to use it.

Iostream.h: Ok now you know what iostream and dot h stand for. If the terms input & output haven’t shed any light yet, keep reading. Iostream lets your program accept info/data/content or publish the same to the screen.

Wait we are still on the first line. Read the first line of source code again!

“Hash/Pound include eye-oh-stream-dot-h”

The Hash include is the standard form for telling the compiler that you want to include the Iostream.h file.

Now on line 2 we have int main(). Int is read as integer, read main() as main function. Without line 2 your program cannot work. On line 3 and 5 you have these {} braces.

Between the 2 braces all your code fits in. Make sure you enter line 4 exactly as it is. Pay attention to the punctuation.

Cout: See cout – It is the command with which you display text onto the screen

The <<>

Line 4 ends with a semi colon, don’t forget to type that, almost all c++ statements end with that. Now you may finally link, build and compile the code. Now you receive a message on a black terminal (Dos like): “What you do is what you get”

By: Amin Patel

Open Read/Write File Code Download

2006-11-26T15:45:00.000+08:00

i've decided to upload a sample code of my two previous post.

to download the code please click here
the password is: kodekruncher

VB: Open Save File

2006-11-25T23:23:00.000+08:00

Public Function SaveFile(File2Save As String, txtContent As String)

'Variable Declaration
Dim fLen As Integer

'Get the free file number
fLen = FreeFile

'Create Specified File
Open File2Save For Output As #fLen
Print #fLen, txtContent 'save the txtContent to the created file
Close #fLen 'Close the opened

End Function

VB: Open Read File

2006-11-24T19:17:00.000+08:00

Public Function ReadFile(File2Open As String) As String

'Variable Declaration
Dim fLen As Integer
Dim tmp As String
Dim val As String

'Get the free file number
fLen = FreeFile

'Open Specified declared in File2Open Variable
Open File2Open For Input As #fLen

        Do ' Start of "DO" Loop
                Line Input #fLen, tmp ' Read the line in a file and store it in TMP Variable
                val = val & vbCrLf & tmp ' Store the readed line in the Val variable
        Loop Until EOF(fLen) 'End Loop until Eof file is True

Close #fLen ' Close the opened file

ReadFile = val ' pass value

End Function

Welcome to The Code Cruncher

2006-11-23T23:50:00.000+08:00

This Blog is all about programming and and i will be sharing some code that I made and some code that i would find intresting and usefull. Hope you guys will find this blog usefull

Programming Codes that would be posted here are.

Visual Basic
Visual Basic.Net
ASP / ASP.NET
Visual C#/ C++ /C
Java
Pascal
ASM