Projects

notepadnet

Introduction This is a simple and fully functional clone of the standard Windows Notepad. The article describes about the functions used in Notepad and tells the logic to write the code. Code is also provided Background Notepad basically has File, Edit, Format, View and Help. I have recreated ... [More] the menus File, Edit, Format and Help. I have excluded View menu because I think a simple notepad Application doesn't require any status bar. If you think you need a status bar, I've also provided the code for it. Using the code File Menu New - If the document is modified then a Message Box with the buttons Yes and No is displayed asking whether it should be saved or not. Code is : If doc.Modified = True Then Dim x As Integer = MsgBox("Do you want to save the modified document ?", MsgBoxStyle.YesNo) If x = vbYes Then SaveToolStripMenuItem.PerformClick() Else Me.Text = "Untitled - Notepad.NET" doc.Clear() End If Me.Text = "Untitled - Notepad.NET" doc.Clear() End If Open - File is opened and Notepad.NET uses Rijndael encryption - HEX is encoding type. I have took a Cryptography class from this site called "Crypto.vb". I have implemented this to decrypt the data in the TextBox doc. Save - File is saved using the same encryption algorithm. And A PageSetupDialog is also used. Edit menu has the standard Cut, Copy, Paste, Undo etc. When it came to the part of Find, Find Next and Replace, It was a big confusion and there was a difficulty doing it. But I turned up successfully with it. Logic and Code of both Find and Replace First I created a function called FindText with a dependency on the start_pos (declared as Integer). This is the starting position. Then I declared two private variables - target_pos (integer for determining the target's position) and target (declared as string). Then I declared pos as integer Pos is assigned to the function InStr that determines the position of the text. So if pos is above 0 then text is found. So to select text, target_pos is assigned to ps. The selection was a quite a difficulty for me. The textbox's SelectionStart property determines the starting position. So it is target_pos minus 1. The selection goes up to the end. So the SelectionLength property is set to Len(target)-(Len(target)-Len(target)) If its not found , Clear the target variable and display message that text is not found. Ain't it easy ??? The code I came up with is : The code is as following Private Sub FindText(ByVal start_pos as integer) Dim pos As Integer pos = InStr(start_pos, doc.Text.ToLower, tf.Text.ToLower) If pos > 0 Then target_pos = pos doc.SelectionStart = target_pos - 1 doc.SelectionLength = Len(target) - (Len(target) - Len(target)) Else MsgBox("Text Not Found") target = "" End If End Sub target = InputBox("Enter Word to find") FindText(1) If doc.SelectedText <> target Then Else x = InputBox(String.Format("Selected text is : {0}. Enter text to replace", target)) doc.SelectedText = x End If The above is the code for Replace. Word Wrap is a default property of the textbox. Code for FindNext is also simple Just add 1 to target_pos. So code will be FindText(target_pos + 1) Font can be changed by declaring a new FontDialog, assigning the selected font to the textbox font and textbox fontstyle to the dialog's selected style. Thats All. Simple isn't it ? [Less]

calculator-anshul

Introduction I am Anshul studying in Chennai ( in Tamil Nadu , India) and I am 12 years old. I am the developer of Calculator Details This program is made in Visual Basic 2005 Express Edition This requires .NET Framework 2.0 and runs on any Windows - XP tested , Vista Tested Calculator 1.1 ... [More] made in Visual Basic 2005 Express Edition Features 1.Date and time in Menubar 2.Unit Converter ( In View --> Converter) 3.Temperature Converter ( In View --> Temperature Converter) 4.Area and Volume Finder( In View Menu) 5.Fraction To Decimal and Fraction Simplifier ( In View --> Fractions) 6.HCF or GCD Finder 7.LCM Finder 8.Operation Shower 9.Last Entered Number 10.PI Insertion 11.Compound Interest 12.Formulas and Equations 13.Complete Steps for Fractions 14.Decimal to Binary Conversion 15.Fractional Operations 16.Multiplication Tables Generator 17.Prime Number Finder More features are listed in the program. You can download the Calculator 1.2.zip file or download the Calculator 1.2.exe and GlowingButton.dll separately Calculator 1.2.zip contains The Applciation and The Dll file Changelog Calculator 1.1 - Requires .NET Framework Calculator 1.2 - Requires .NET Framework and GlowningButtons.dll Feel free to comment on my program E-mail : calculator1.1@gmail.com [Less]

tagd2008

2D top-down side scrolling Medusa game

spellbee-anshul

This program is for children interested in spelling bee.This is a trainer program. This has the feature to pronounce.The voice is Microsoft Sam.This has 894 word’s spellings.This includes a spelling test.It also has word meanings.The spellings are based on Spartan’s Spelling Guide Book.There is also a word searching feature.

dealwagon

killer app for shopping

pipelprocessor

pipeline processor

solveequation

Background I'm a ninth grader from India. I was too bored to solve equations and check them all by myself. So I wrote this program Knowledge of the quadratic formula (including imaginary roots) and synthetic division will help a lot. Using the code The method for solving linear ... [More] equations in one variable is quite simple. ax+b = 0 is the format for one variable equations. The variables a and b are determined and x is computed by -b/a The method I have implemented for solving linear equations in two variables is a formula which can be derived by operating on both sets of the equation. The Formula for the equations is Collapse ax + by + c = 0 Collapse dx + ey + f = 0 Collapse x = (fb-ce)/(ae-db) Collapse y = (cd -fa)/(ae-db) To solve quadratic equations, we use the quadratic formula : Collapse Root 1 = (-b + Sqrt(b2 - 4ac))/2a Root 2 = (-b - Sqrt(b2 - 4ac))/2a b2-4ac is called the "Discriminant" which is generally denoted by D If D >= 0, we will get Real roots. Things get complicated when we get imaginary roots. If D [Less]