Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Aeveus on March 13, 2020, 02:32:56 pm

Title: Help with program
Post by: Aeveus 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. '
Title: Re: Help with program
Post by: 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).
Title: Re: Help with program
Post by: Aeveus 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.
Title: Re: Help with program
Post by: bplus on March 13, 2020, 02:59:54 pm
Yeah a time for another pair of eyes to look at it!

Welcome to forum :)

I confess I could not see the difference either, like an optical illusion!

I just copy/pasted the sub name on the red-lined GOSUB line.
Text Only | Text with Attachments