Qbasic Program help PLS!!!!!!!

If you have questions about any aspect of QBasic programming, or would like to help fellow programmers solve their problems, check out this board!

Moderators: Pete, Mods

Post Reply
User avatar
QT-Pi
Coder
Posts: 15
Joined: Sun Apr 10, 2005 4:36 pm
Location: We are from Venus!

Qbasic Program help PLS!!!!!!!

Post by QT-Pi » Sun Apr 10, 2005 4:42 pm

Hey! Im having an awful time with 4 Qbasic programs. If there is someone out there that could help a lady Pls reply or send me an email and we can go into futher details about them... GRR Im beginning not to like if then statements.

Life is sweet.
~QT-Pi~

User avatar
lurah-
Veteran
Posts: 206
Joined: Mon Nov 01, 2004 10:47 am
Location: Finland
Contact:

Post by lurah- » Sun Apr 10, 2005 5:06 pm

Well, showing a piece of those codes and telling whats the problem could help us to help you :wink:

User avatar
QT-Pi
Coder
Posts: 15
Joined: Sun Apr 10, 2005 4:36 pm
Location: We are from Venus!

Hehe...

Post by QT-Pi » Sun Apr 10, 2005 5:12 pm

mercy! LoL that would help wouldnt it? LoL If anyone could pls send me an email so i could foward these programs for an overlook, I would be deeply thankful!


Life is sweet!
~QT-Pi~

User avatar
Mitth'raw'nuruodo
Veteran
Posts: 839
Joined: Sat Jan 22, 2005 11:04 am
Location: Eastern Coast of US
Contact:

Post by Mitth'raw'nuruodo » Sun Apr 10, 2005 5:28 pm

How about you post them here?

FYI, People who want help and ask people to e-mail them rarely get it.
"But...It was so beutifully done"

User avatar
QT-Pi
Coder
Posts: 15
Joined: Sun Apr 10, 2005 4:36 pm
Location: We are from Venus!

Post by QT-Pi » Sun Apr 10, 2005 5:42 pm

Thx, didnt know that......well here is the complete code. It is as follows....

'******************************
'* Main Program *
'******************************
GOSUB A100.Initialization
GOSUB B100.Process.File
GOSUB C100.Wrap.Up
END

'******************************
'* Initialization *
'******************************
A100.Initialization:
Emp.Count = 0
Total.Gross = 0
CLS
GOSUB A200.Initialize.Report
GOSUB A210.Print.Heading
RETURN

'*******************************
'* Initialize Report *
'*******************************
A200.Initialize.Report:
H1$ = "Employee Salary Report"
H2$ = "Employee Employee"
H3$ = "Number Salary"
H4$ = "-------- --------"
D1$ = " \ \ ##,###.##"
T1$ = "Number of Employees ===> ###"
T2$ = "Average Salary ========> $$,###.##"
T3$ = "End of Employee Salary Report"
RETURN

'********************************
'* Print Heading *
'********************************
A210.Print.Heading:
PRINT H1$
PRINT
PRINT H2$
PRINT H3$
PRINT
RETURN

'********************************
'* Process File *
'********************************
B100.Process.File:
READ Emp.Number$, Emp.Salary
DO WHILE Emp.Number$ <> "EOF"
GOSUB B200.Compute.Gross
PRINT USING D1$; Emp.Number$; Emp.Salary
READ Emp.Number$, Emp.Salary
LOOP
RETURN

'*********************************
'* Compute Gross *
'*********************************
B200.Compute.Gross:
Emp.Count = Emp.Count + 1
Emp.Gross = Emp.Salary + Emp.Salary + Emp.Salary + Emp.Salary + Emp.Salary
RETURN

'********************************
'* Wrap Up *
'********************************
C100.Wrap.Up:
Average.Gross = Emp.Gross / Emp.Count
PRINT
PRINT USING T1$; Emp.Count
PRINT USING T2$; Average.Gross
PRINT
PRINT T4$
RETURN

'*******Data Follows*************
DATA 123, 16000
DATA 148, 18126
DATA 184, 14800
DATA 196, 17400
DATA 201, 18950
DATA EOF, 0
'*******End of Program***********


Life is Sweet!
~QT-Pi~

Z!re
Veteran
Posts: 887
Joined: Wed Aug 04, 2004 11:15 am

Post by Z!re » Sun Apr 10, 2005 6:12 pm

No, we wont do your homework for you.

Pay attention in class.
I have left this dump.

User avatar
Mitth'raw'nuruodo
Veteran
Posts: 839
Joined: Sat Jan 22, 2005 11:04 am
Location: Eastern Coast of US
Contact:

Post by Mitth'raw'nuruodo » Sun Apr 10, 2005 7:58 pm

Oh, Z!re...
Don't mind her. :wink:

We will NOT do your homework FOR you but we WILL help you with problems.
In our programming claas we needed to help each other with problems but we could NEVER DO anything for anybody do you follow?

What problems are you having?
I also don't understand all these objects. How can you have them without a TYPE?
"But...It was so beutifully done"

Guest

Post by Guest » Sun Apr 10, 2005 8:55 pm

That was cold but colorful. Its with the read statement. Never was asking you to do my work, rather asking for help. We were just stumped, we are not stupid. But we have the program running well now. Thanks alot for the help.


Life is Sweet
~QT-Pi~

QBERT

Post by QBERT » Mon Apr 11, 2005 7:15 am

Hi QT, i know of a site that could help you with your homework. They will not do the work for you but they will help you in solving your problems AND people correspond through email as well! I will not bash this forum for their lack of understanding, I will look beyond my nose and send you an email with the url to the forum i mentioned above. I could give you all the help you need.

They call me QBERT

User avatar
QT-Pi
Coder
Posts: 15
Joined: Sun Apr 10, 2005 4:36 pm
Location: We are from Venus!

Post by QT-Pi » Mon Apr 11, 2005 10:25 am

thanks qbert for the help :oops: . us girls got the program running. i came across this forum under a random search. Seems to be an OKAY forum. would love to check out the forum you post on. we all have our Moment of Arrogance! :wink:


Life is Sweet!
~QT-Pi~
Life is Sweet!
~QT-Pi~
_____________________________________
"Its never too late to be what you might have been"
_____________________________________
We are the Negative to your Positive, the Positive to your Negative....Always

Z!re
Veteran
Posts: 887
Joined: Wed Aug 04, 2004 11:15 am

Post by Z!re » Mon Apr 11, 2005 3:41 pm

In lack of a better response:

ZOMG LOL LIEK HELP ME WITH MY SCHOOL WORKS LOLZ!!11
IMA GURL LOLZ! SO LIEK HELP ME ZOMG!!!11


I wouldnt have reacted if you had entered a proper topic title, and explained your problem.

Oh, and not asking for people to email you, the forum exist for a reason.


Now, if you'll excuse me, I'll go and be arrogant with some old lady, or some guys balls.. :evil:
I have left this dump.

User avatar
QT-Pi
Coder
Posts: 15
Joined: Sun Apr 10, 2005 4:36 pm
Location: We are from Venus!

Post by QT-Pi » Mon Apr 11, 2005 5:10 pm

Yes, we were lacking in information due to fanatical panic sydrome caused by sudden instructional program must-dos'. LMAO. Thanks Z!re We are going to be great friends. PSST " stay away from hairy balls and old ladies" !! the two dont mix :P We just thought by viewing the whole code, someone could have helped us pin point the trouble, and after hours of curses and hair pulling we done it!
Life is Sweet!
~QT-Pi~
_____________________________________
"Its never too late to be what you might have been"
_____________________________________
We are the Negative to your Positive, the Positive to your Negative....Always

User avatar
Mitth'raw'nuruodo
Veteran
Posts: 839
Joined: Sat Jan 22, 2005 11:04 am
Location: Eastern Coast of US
Contact:

Post by Mitth'raw'nuruodo » Tue Apr 12, 2005 3:14 pm

:shock: Bad image..Bad image!!!! :P

Anyways check out QBasicnews.com
...

Ok I have nothing better to say.
"But...It was so beutifully done"

Post Reply