Pete's QBASIC Site

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...

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...

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...

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);...

The code is complete the NEXT is for the next number

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...

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...

I was able to figure that out and fix it! Thanks for the help!

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 ...

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 ' ****...

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


I added a print statement after the calculations

Just "DIM"ed it, but am still getting the eror

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...

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

Thanks for the help!

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 ...

Thanks for your reply! I did as you said and still see no difference when i print the data....

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...

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...

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...

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 p...