Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Aeveus

Pages: [1]
1
Programs / Re: Help with program
« on: May 11, 2020, 05:36:25 pm »
Thanks for the help as always! You guys are the best

2
Programs / Help with program
« on: May 11, 2020, 02:18:31 pm »

Hi there, I know this program might look crude but I've almost got it to do what I want. I can't get it to display the everything at the end, it seems to only show the two that are above 80000.

Code: QB64: [Select]
  2. GOSUB InitializeVariables
  3. GOSUB PrintHeadings
  4. GOSUB ProcessDetail
  6. '
  7. '****************************InitializeVariables**************************
  8. InitializeVariables:
  9. T1$ = "     XYZ COMPANY"
  10. H1$ = "Salesperson          Earnings"
  11. D1$ = "\               \          $$#####"
  13. '
  14. '***************************** Print Headings ****************************
  15. PrintHeadings:
  17. PRINT T1$
  19. PRINT H1$
  23. '**************************** Process Detail *****************************
  24. ProcessDetail:
  25. GOSUB ReadData
  26. DO UNTIL Name$ = "END"
  27.     GOSUB CalculateAnswer
  28.     GOSUB PrintDetail
  29.     GOSUB ReadData
  32. '************************* Print Detail ******************************
  33. PrintDetail:
  34. PRINT USING D1$; Name$,Pay
  35. '*************************** Read Data *************************************
  36. ReadData:
  37. READ Name$, Sales
  38. DATA JILL JOHNSON,90000
  39. DATA DON WILLIAMS,70000
  40. DATA DEE JONES,95000
  41. DATA AL ENNIS,40000
  44. '************************** Calculate Answer ******************************
  45. CalculateAnswer:
  46. IF Sales > 80000 THEN
  47.     PAY = (SALES * 1.1) + 10500
  48.     ELSE
  49.     PAY = SALES + 10000
  52.  
  53.  

3
Programs / Help with program
« on: April 05, 2020, 03:09:08 am »
Hello, I'm having trouble with this program. When I run it it seems like it's looping the menu over and over or something and it won't let me do inputs, and I'm not sure why (or even if that's the case). Any help is appreciated! :)

Code: QB64: [Select]
  1. '******************************* Program Mainline **************************
  3.     GOSUB DisplayMainMenu
  4.     SELECT CASE Choice$
  5.         CASE "1"
  6.             GOSUB UStoPounds
  7.             CASE "2"
  8.             GOSUB PoundstoUS
  9.             CASE "3"
  10.             GOSUB UStoCanadian
  11.             CASE "4"
  12.             GOSUB CanadiantoUS
  13.     END SELECT
  14. LOOP UNTIL Choice$ = "5"
  16. '******************************* Display Main Menu ***********************
  17. DisplayMainMenu:
  18. GOSUB PrintMainTitle
  19. LOCATE 5, 26
  20. PRINT "CURRENCY CONVERTER"
  21. LOCATE 8, 18
  22. PRINT "1. CONVERT US DOLLARS TO POUNDS"
  23. LOCATE 10, 18
  24. PRINT "2. CONVERT POUNDS TO US DOLLARS"
  25. LOCATE 12, 18
  26. PRINT "3. CONVERT US DOLLARS TO CANADIAN DOLLARS"
  27. LOCATE 14, 18
  28. PRINT "4. CONVERT CANADIAN DOLLARS TO US DOLLARS"
  29. LOCATE 16, 18
  30. PRINT "5. END"
  31. LOCATE 19, 16
  32. PRINT "ENTER SELECTION:";
  34. '*************************Print Main Title *******************************
  35. PrintMainTitle:
  37. LOCATE 3, 12
  38. PRINT " C O N V E R T  C U R R E N C Y "
  40. '**************************UstoPounds************************************
  41. UStoPounds:
  42. PRINT "ENTER AMOUNT:"; Amount
  43. ConvertedAmount = AMOUNT * .81
  44. PRINT ConvertedAmount
  46. '****************************PoundstoUS***************************
  47. PoundstoUS:
  48. PRINT "ENTER AMOUNT:"; Amount
  49. ConvertedAmount = AMOUNT * 1.23
  50. PRINT ConvertedAmount
  52. '**************************UStoCanadian****************************
  53. UStoCanadian:
  54. PRINT "ENTER AMOUNT:"; Amount
  55. ConvertedAmount = AMOUNT * 1.42
  56. PRINT ConvertedAmount
  58. '*******************************CanadiantoUS************************
  59. CanadiantoUS:
  60. PRINT "ENTER AMOUNT:"; Amount
  61. ConvertedAmount = AMOUNT * .7
  62. PRINT ConvertedAmount
  64.  

4
Programs / Re: Help with program
« on: March 13, 2020, 02:56:44 pm »
Quote from: bplus on March 13, 2020, 02:37:13 pm
Type-O line #3 spelling not same as sub

Looks good after that (well you could fix up alignments of header labels with data columns).

Thank you so much, lol! I swear I was staring at my screen for an hour looking for typos but I just kept glossing past it I guess.

5
Programs / Help with program
« on: March 13, 2020, 02:32:56 pm »
Hi I'm taking a class where we are learning with qb64 and I can't seem to get this program to run and I just can't figure out why. Any help is very much appreciated!
Code: QB64: [Select]
  1. '*************************** Program Mainline ******************************
  3. GOSUB InitializeVariables
  4. GOSUB PrintHeadings
  5. GOSUB ProcessDetail
  6. GOSUB PrintOutput
  8. '*************************** Initialize Variables ************************
  9. IntitializeVariables:
  10. T1$ = "     MODEL CARS"
  11. H1$ = "Manufacturer#   Yr  Make    Model       Description         Price"
  12. D1$ = "\          \  ##  \     \  \    \   \                          \    ##.##"
  13. TL$ = "TOTAL PRICE                                                  ###.##"
  15. '************************** Print Headings *******************************
  16. PrintHeadings:
  18. PRINT T1$
  20. PRINT H1$
  24. '***************************  Process Detail *****************************
  25. ProcessDetail:
  26. GOSUB ReadData
  27. DO UNTIL Manufacturer$ = "END"
  28.     GOSUB CalculateAnswer
  29.     GOSUB PrintDetail
  30.     GOSUB ReadData
  33. '***************************** Read Data *********************************
  34. ReadData:
  35. READ Manufacturer$, Year, Make$, Model$, Description$, Price
  36. DATA BMR-R79,49,FIAT,500B,GILLETE RAZOR,7.99
  37. DATA HOTWELS-34,57,CHEVY,NOMAD,4/DR STATION WAGON,12.95
  38. DATA MATCHBX-878,73,FORD,BRONC,3/DR 4X4 RED SPARE WHL,25.99
  39. DATA MATCHBX-72,69,BUIK,CENTY,YELLOW TAXI,1.49
  40. DATA BRM-R88,34,BUGAT,TY575,RACER BLACK,35.00
  41. DATA MATCHBX-25,80,LINCO,MRKIV,WHITE LIMOUSINE,14.99
  42. DATA LESNEY-Y42,82,CHEVY,MALBU,4/DR GREEN PASSENGER,1.99
  43. DATA HASBRO-119,75,AMC,GRMLN,2/DR SEDAN YELLOW,1.69
  44. DATA TABY-6332,71,TOYOT,CELIC,2/DR SEDAN BLUE,2.99
  45. DATA BMR-SY238,36,ROLRY,SYLVC,4/DR SEDAN SILVER-GRAY,60.00
  46. DATA "END",0,0,0,0,0
  48. '**************************** Calculate Answer ************************
  49. CalculateAnswer:
  50. TotalPrice = TotalPrice + PRICE
  52. '*************************** Print Detail *******************************
  53. PrintDetail:
  54. PRINT USING D1$; Manufacturer$, Year, Make$, Model$, Description$, Price
  56. '**************************** Print Output ********************************
  57. PrintOutput:
  59. PRINT USING TL$; TotalPrice
  63. '

Pages: [1]