Simple Conversion Utility

Summary:

Simple freeBASIC program to convert to and from pounds, ounces, and grams

Simple Conversion Utility

phatty 13 Apr 2007 19:52

This is my first real program i still have alot of work b4 i would call it a complete program(font color, bgcolor……that sorts) but it does work (thanx to hartnell) so run it and tell me what you think:

Print "           Welcome to Simple Conversion Utility(version0.1b)"
Print "      Developed by: PhatDawg Software Development Te(I)am (PDSDT)"

Locate 11
Print "This program was designed to help convert weights and measurements"
Locate 23, 27
Print "press any key to continue"

While Inkey$ = "": Wend

Cls

main:

Locate 4
Print "Choose form to convert from by pressing one of the following:"
Print "Type the number '1' for Pounds(lbs)"
Print "Type the number '2' Ounces(oz)"
Print "Type the number '3' for Grams(gr)"
Print 
Print "Then Press [enter] on your keyboard"
Print

Dim As Integer choice, lbs, oz, gr
Dim As Double l, o, g
Dim new As String

Input "Please make a choice:"; choice

If choice = 1 Then
    Input "How many pounds?"; lbs
Goto conv1
Elseif choice = 2 Then
    Input "How many ounces?"; oz
Goto conv2
Elseif choice = 3 Then
    Input "How many grams?"; gr
Goto conv3
Else 
    Cls
    Print "Please enter either: 1, 2, or 3"
     Print "press any key to continue"

    While Inkey$ = "": Wend

Cls
    Goto main 
End If

lbs = oz * 16 = gr * 448
oz = lbs / 16 = gr * 28
gr = oz / 28 = lbs / 448

conv1:

Print "What would you like to convert to? "
Print "Type the number '1' for Pounds(lbs)"
Print "Type the number '2' Ounces(oz)"
Print "Type the number '3' for Grams(gr)"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:"; l

If l = 1 Then
    Print "Total is: "; lbs * 1
Elseif l = 2 Then
    Print "Total is: "; lbs * 16
Elseif l = 3 Then
    Print "Total is: "; lbs * 448
Else 
    Cls
    Print "Please enter either: 1, 2, or 3"
    Print "press any key to continue"

    While Inkey$ = "": Wend

Cls

    Goto conv1
End If

While Inkey$ = "": Wend

Goto pass

conv2:

Print "What would you like to convert to? "
Print "Type the number '1' for Pounds(lbs)"
Print "Type the number '2' Ounces(oz)"
Print "Type the number '3' for Grams(gr)"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:"; o

If o = 1 Then
    Print "Total is: "; oz / 16
Elseif o = 2 Then
    Print "Total is: "; oz * 1
Elseif o = 3 Then
    Print "Total is: "; oz * 28
Else 
    Cls   

    Print "Please enter either: 1, 2, or 3"
     Print "press any key to continue"

    While Inkey$ = "": Wend

Cls

    Goto conv2
End If

While Inkey$ = "": Wend

Goto pass

conv3:

Print "What would you like to convert to? "
Print "Type the number '1' for Pounds(lbs)"
Print "Type the number '2' Ounces(oz)"
Print "Type the number '3' for Grams(gr)"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:"; g

If g = 1 Then
    Print "Total is: "; gr / 448
Elseif g = 2 Then
    Print "Total is: "; gr / 28
Elseif g = 3 Then
    Print "Total is: "; gr * 1
Else 
    Cls

    Print "Please enter either: 1, 2, or 3"
     Print "press any key to continue"

    While Inkey$ = "": Wend

Cls

    Goto conv3
End If

While Inkey$ = "": Wend

Goto pass

pass:

Cls

Input "Would you like to do another conversion (Y/N)?"; new

If new = "y" Then
    Goto main
Elseif new = "n" Then
    Print "Thank you for using Sack Master! Goodbye.
    Print "Press any key to exit"
Else
    Print "Please push either Y/N and press enter"
     Print "press any key to continue"

    While Inkey$ = "": Wend

Cls
    Goto pass
End If

While Inkey$ = "": Wend

p.s. im the only member of the development team so there is an "I" in team, as in team = I(me) just a little humor

Re: Simple Conversion Utility

hartnell 13 Apr 2007 20:36

It works great (though I didn't check the math). Superb menus. Great interface. One tip :

If you use a comma with input instead of a semicolon, there will be no additional question mark displayed.

For example try :

input "Enter a number :" ; someNumber
input "Enter a number :" , someNumber
end

-hartnell

Re: Simple Conversion Utility

hartnell 13 Apr 2007 20:45

Ok, your math is still wrong. Take a look at the Unit Conversion section of the Math Cheat Sheet for Programmers.

lbs = oz * 16 = gr * 448

The above doesn't do what you think it does. You have to do the math one part at a time.

If 1 pound is 448 grams then the math would be :

lbs = gr * 448

-hartnell

Last edited on 13 Apr 2007 20:45 by hartnell Show more

Re: Simple Conversion Utility

phatty 13 Apr 2007 20:52

actually ive checked the math and it works just like that and the results are accurate ive checked them against my own calculations (thats instead of oz=28.35grams i used oz=28 grams instead) and in all types of conversion the programs results are accurate!!! as for it being bad practice to write the formula like that, i would understand and if that is so then how should i write it? but as for the math being off im pretty sure the results are 99.9999999% accurate.

Re: Simple Conversion Utility

hartnell 13 Apr 2007 20:57

I've never seen it done this way. I'm going to ask the other guys to look at it. You may have found something new. :) —hartnell

Re: Simple Conversion Utility

phatty 13 Apr 2007 21:20

hmm {head swells up} well ok i was just experimenting and i figured if it can do math then a simple equation like that should work (plus i couldnt figure out how to define the values any other way so if i stumbled across something new it was by pure ignorance to any other possibility!!!!!!) also i was too busy defending the accuracy of my program to thank you for the compliments on my interface, and all the help you've given me. i really appreciate it and if you can think of any help i can be of then let me know!

GDN RULES!!!!!!!

Re: Simple Conversion Utility

hartnell 13 Apr 2007 21:38

You've already helped by asking questions. It let's me know what I need to write. :) —hartnell

Re: Simple Conversion Utility

phatty 13 Apr 2007 22:06

if asking questions is all i have to do to help then your gonna consider me a major contribution!!!!!! because if there is something im good at its asking a bunch of confusing questions(although i try to be very thorough when i ask questions to minimize misunderstandings and confusion) with that said this site(as simple and new as it is) has been the most helpful!! and ive been through pages and pages of google results for freebasic tutorials(and many other variations of the query)
so with that said thanx again and keep up the good work you'll be hearing plenty from me

Re: Simple Conversion Utility

hartnell 13 Apr 2007 22:39

Since you have your first working program done, any ideas for your next project? —hartenll

Re: Simple Conversion Utility

phatty 13 Apr 2007 23:45

not yet, i was just gonna run thru the fbhacker and soak up as much knowledge as i can until something pops in my head (usually known as an idea) then who knows? im gonna start doing games as soon as im just a little bit more familiar with how it all works. my overall goal is to learn how to develop useful software to help put microsoft out of business(then take over the world)but im not gonna get into that rite now. besides im not sure if microsoft bashing is allowed (hehe) but fo now im gonna try to get a 1.0 release of my conversion utility (more complex than just the black and white dos interface) once i do that then i figure ill be ready for games……world domination? but any good advice on which path will get me there is welcome