Search found 42 matches

by JasonQuinn1992
Mon Nov 26, 2012 6:05 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Bad File Mode Error
Replies: 4
Views: 6186

I believe i fixed that error as I try to print the data on the screen, the screen just prints blank or black, im not sure if im missing data because here is my .txt file data COMMISSION AMOUNT BY SALESMAN Salesman Number Salesman Name Sales Amount Commission Rate 1245, HERMAN HOLLERITH, 1157.85, 6.5...
by JasonQuinn1992
Sun Nov 25, 2012 10:23 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Bad File Mode Error
Replies: 4
Views: 6186

LoadFile: DO UNTIL UCASE$(SalesmanNam$) = "END" INPUT "Salesman Number", SalesNum INPUT "Salesman Name", SalesmanNam$ INPUT "Sales Amount", SalesAmt INPUT "Commission Rate", CommRt INPUT "Commission Amount", CommissionAm PRINT LINE INPUT #1, SalesNum, SalesmanNam$, SalesAmt, CommRt, CommissionAm LOO...
by JasonQuinn1992
Sun Nov 25, 2012 12:46 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Bad File Mode Error
Replies: 4
Views: 6186

Bad File Mode Error

I get a bad file mode error on the WRITE #1, SalesNum, SalesmanNam$, SalesAmt, CommRt, CommissionAm line what should I do? My Code ' This program reads a sequential file ' ' ' ' ' SalesNum = Salesman Number ' SalesmanNam$ = Salesman Name ' SalesAmt = Sales Amount ' CommRt = Commission Rate ' Commiss...
by JasonQuinn1992
Wed Nov 21, 2012 1:56 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error (UPDATED CODE)
Replies: 4
Views: 5604

I was able to fix it: part of it: CalcPoverty: IF NumPersons(N) <2> 2 THEN PovertyLevel(N) = 8000 + (2000 * (NumPersons(N) - 2)) END IF IF AnIncome(N) < PovertyLevel(N) THEN LET TotBelowPov = TotBelowPov + 1 END IF RETURN PrintDetail: PRINT H2$ FOR N = 1 TO 14 PRINT USING D1$; IDNum(N); AnIncome(N);...
by JasonQuinn1992
Fri Nov 16, 2012 12:42 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error (UPDATED CODE)
Replies: 4
Views: 5604

The code is complete the NEXT is for the next number
by JasonQuinn1992
Thu Nov 15, 2012 8:29 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error (UPDATED CODE)
Replies: 4
Views: 5604

Subscript out Of Range error (UPDATED CODE)

Why would I be getting an Subscript out of range error on this line? IF NumPersons(N) <= 2 THEN My Code: DIM IDNum(14), AnIncome(14), NumPersons(14) GOSUB InitializeVariables GOSUB LoadTables GOSUB CalcPoverty GOSUB CalcAvg InitializeVariables: LET TotIncome = TotIncome + AnIncome(N) 'Calc total LET...
by JasonQuinn1992
Tue Nov 13, 2012 2:00 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Sequential Data File
Replies: 0
Views: 5626

Sequential Data File

how do I create a sequential data file? Im thinking it looks something like this.... REM*****THIS PROGRAM IS DESIGNED TO CERATE A SEQUENTIAL DATA FILE****** REM*******************PROGRAM VARIABLES**************** REM SPERSONNUM$ SALES PERSON'S NUMBER REM NAM$ NAME REM COMMR$ COMMISSION RATE REM SALA...
by JasonQuinn1992
Sun Nov 04, 2012 12:36 am
Forum: QBASIC and QB64 Questions & Answers
Topic: FOR/NEXT program question
Replies: 2
Views: 4079

I was able to figure that out and fix it! Thanks for the help!
by JasonQuinn1992
Fri Nov 02, 2012 11:25 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: FOR/NEXT program question
Replies: 2
Views: 4079

FOR/NEXT program question

Im working on two homework assignments at once my next assignment is to Use a FOR/NEXT loop to total the numbers from 1 through 100. Print the numbers on the screen. Here is what I have so far.... DIM X AS INTEGER CLS FROM X = 1 TO 100 RANDOMIZE TIMER PRINT (RND * 100); NEXT X The program Im having ...
by JasonQuinn1992
Fri Nov 02, 2012 10:51 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error
Replies: 6
Views: 6064

I believe I corrected it: My full code: DIM AnIncome(100) ' Variables used: ' T1$ H1$, H2$, D1$ Print images ' ST$, TL$ Print images ' PrevTotal Previous Total ' LineCt Line number ' PageCt Page number ' TotHours Total ' IDNum ID Number ' AnIncome$ Annual Income ' NumPersons Number of Persons ' ****...
by JasonQuinn1992
Fri Nov 02, 2012 5:38 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error
Replies: 6
Views: 6064

Counting the next number..... I have to print a 3 part report about income


I added a print statement after the calculations
by JasonQuinn1992
Fri Nov 02, 2012 12:01 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error
Replies: 6
Views: 6064

Just "DIM"ed it, but am still getting the eror
by JasonQuinn1992
Thu Nov 01, 2012 3:58 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Subscript out Of Range error
Replies: 6
Views: 6064

Subscript out Of Range error

Why am I getting an subscript out of range error on this line? AboveAve(N) = 0 My code: DIM AnnIncome(40) AS INTEGER ' Variables used: ' T1$ H1$, H2$, D1$ Print images ' ST$, TL$ Print images ' PrevTotal Previous Total ' LineCt Line number ' PageCt Page number ' TotHours Total ' IDNum ID Number ' An...
by JasonQuinn1992
Tue Oct 30, 2012 5:45 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Another Illegal Fuction Call Error
Replies: 2
Views: 4625

I was able to get it to work after fixing the screen width

Thanks for the help!
by JasonQuinn1992
Mon Oct 29, 2012 8:21 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Another Illegal Fuction Call Error
Replies: 2
Views: 4625

Another Illegal Fuction Call Error

I can't figure out why I'm getting an Illegal Function Call error on this line PRINT M4$ LOCATE 26, 21 My code: '************************** PROGRAM 9.2 ************************* ' THIS IS A MENU-DRIVEN PROGRAM TO CONVERT TO AND FROM U'S', ' EUROPEAN, AND GREAT BRITAIN CURRENCIES ' PROGRAM VARIABLES ...
by JasonQuinn1992
Sat Oct 20, 2012 2:12 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Not All Data is printing
Replies: 2
Views: 4091

Thanks for your reply! I did as you said and still see no difference when i print the data....
by JasonQuinn1992
Thu Oct 18, 2012 8:28 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Not All Data is printing
Replies: 2
Views: 4091

Not All Data is printing

Hello again guys, so I was working on a program within the syntax error thread... I finally got the program to run but i notice that when i run the program my heading and the first couple lines of my data is missing, can someone help me solve this problem ' Program that lists inventory for your coll...
by JasonQuinn1992
Wed Oct 17, 2012 8:54 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Syntax Error
Replies: 20
Views: 14131

Even when i retried the template you provided me with I still got an error on ReadData: READ Manufact$, Yr, Make, Model, Desc, Price here is my code now: ' Program that lists inventory for your collection of model cars ' ' ' ' Variables Used ' T1$, H1$, H2$, D1$ Print images ' TL$ Print images ' Man...
by JasonQuinn1992
Wed Oct 17, 2012 10:26 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Syntax Error
Replies: 20
Views: 14131

Okay I believe I was able to get the Type Mismatch error to disappear.. I emailed a fellow student in my class andthey emailed to me how their process detail was set up so I fix it as shown below; 'Process Detail ProcessDetail: GOSUB ReadData DO UNTIL Manufact$ = "END" GOSUB CalculateTotal GOSUB Pri...
by JasonQuinn1992
Tue Oct 16, 2012 6:10 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: Syntax Error
Replies: 20
Views: 14131

https://www.dropbox.com/s/c12o7q3r3s2y0i6/ch5.jpg this is what i need the output screen to look like..... as i said I already have the headings set.. I need a total line that gives me the sum of the "Price column I tried switching the PRINT Detail to print using d1$, since that what i need to print ...