Simple Conversion Utility

Summary:

text version

Simple Conversion Utility

phatty 14 Apr 2007 00:45

here is the text input version of my 1st program i think its a little more work(both for user and programmer) to type the abbr (lbs, oz…. etc) than to type the integer(1,2,3) but its less tacky, so i myself prefer the txt version! with that being said :

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 'lbs' for Pounds"
Print "Type 'oz' Ounces"
Print "Type 'gr' for Grams"
Print 
Print "Then Press [enter] on your keyboard"
Print

Dim As Double p, z, r
Dim As String choice, l, o, g, y, n, new

Input "Please make a choice:", choice

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

    While Inkey$ = "": Wend

Cls
    Goto main 
End If

p = z * 16 = r * 448
z = p / 16 = r * 28
r = z / 28 = p / 448

conv1:

Print "What would you like to convert to? "
Print "Type 'lbs' for Pounds"
Print "Type 'oz' Ounces"
Print "Type 'gr' for Grams"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:", l

If l = "lbs" Then
    Print "Total is: "; p * 1; "pounds"
Elseif l = "oz" Then
    Print "Total is: "; p * 16; "ounces"
Elseif l = "gr" Then
    Print "Total is: "; p * 448; "grams"
Else 
    Cls
    Print "Please enter either: lbs, oz, or gr"
    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 'lbs' for Pounds"
Print "Type 'oz' Ounces"
Print "Type 'gr' for Grams"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:", o

If o = "lbs" Then
    Print "Total is: "; z / 16; "pounds"
Elseif o = "oz" Then
    Print "Total is: "; z * 1; "ounces"
Elseif o = "gr" Then
    Print "Total is: "; z * 28; "grams"
Else 
    Cls   

    Print "Please enter either: lbs, oz, or gr"
     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 'lbs' for Pounds"
Print "Type 'oz' Ounces"
Print "Type 'gr' for Grams"
Print
Print "Then Press [enter] on your keyboard"
Print
Print

Input "Please make a choice:", g

If g = "lbs" Then
    Print "Total is: "; r / 448; "pounds"
Elseif g = "oz" Then
    Print "Total is: "; r / 28; "ounces"
Elseif g = "gr" Then
    Print "Total is: "; r * 1; "grams"
Else 
    Cls

    Print "Please enter either: lbs, oz, or gr"
     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 S.C.U.! 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

again all criticism is welcome

Re: Simple Conversion Utility

hartnell 14 Apr 2007 07:46

Articoz pointed out that this code may not cause errors, but it's also not doing anything either as you are doing your actual unit conversion later on. You should be able to just remove this from the source

p = z * 16 = r * 448
z = p / 16 = r * 28
r = z / 28 = p / 448

He also posted an improved version of your code, which is here :

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

conv1:

Print "What would you like to convert to? "
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 = 2 Then
    Print "Total is: "; lbs * 16
Elseif l = 3 Then
    Print "Total is: "; lbs * 448
Else 
    Cls
    Print "Please enter either: 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 '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 = 3 Then
    Print "Total is: "; oz * 28
Else 
    Cls   

    Print "Please enter either: 1, 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
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
Else 
    Cls

    Print "Please enter either: 1, or 2"
     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

-hartnell

Re: Simple Conversion Utility

phatty 14 Apr 2007 15:42

ahhhh!!! i see, so then there is no need for that table, then since i did the math in each seperate line? is there someway to do the equation in a table(just once) like the one i just deleted? also i under stand about skipping the whole 'p * 1, o * 1, g * 1' but after i thought about it(during the "hi! im a noob" stage b4 it was functional) I just thought about my own preferences and decided to go ahead and leave it in there. but my preferences change overnight(literally) when i posted the text version i said i prefered it but after using it a few(dozens) times i started respecting the ease of the integer input!!!! so basically i had already factored that in when i designed it and for now I'm pretty sure the 1.0 release is gonna have it. I do respect every1s opinion (unless it conflicts with mine!!!!j/k hehe) and appreciate the criticism though? as for my "p = z * 16 = r * 448
z = p / 16 = r * 28
r = z / 28 = p / 448 consider it gone!!!!