Pete's QBASIC Site

I'm dumb, I just had to not put a string on the variable that saves the number. I'm glad I asked though, because it's much easier to gather the input with the FOR NEXT loop, which I completely forgot about since it's been a while since I made a lot of QBASIC programs (not like I knew a lot anyway). ...

Hi, I'm doing an Arabic-Roman and vice versa numerals converter. When I thought I had everything complete, a problem appeared: INPUT "Roman Number: ", r$ r1$ = MID$(r$, 1, 1) r2$ = MID$(r$, 2, 1) r3$ = MID$(r$, 3, 1) ... r15$ = MID$(r$, 15, 1) 'This takes each of the input characters into ...

Okay, I solved it myself. I thank you for your last advice, I'm sure it will help me in the future. Here is how I solved it: DO LINE (320, 240)-(320 - 150 * xs, 240 + 150 * ys), 0 'Erases the previous seconds hand s$ = MID$(TIME$, 7, 2) s = VAL(s$) xs = COS((45 - s) * 6 * 3.1415926# / 180) ys = SIN(...

Hi again. I have a new problem, and this is the only thing that separates me from having my program completely done. I'll put the part of the code where I have the problem: DO LINE (320, 240)-(320 - 150 * xs, 240 + 150 * ys), 0 'Erases the previous seconds hand s$ = MID$(TIME$, 7, 2) s = VAL(s$) xs ...

Thank you very much, that solved my problem.

Hi. I'm doing a clock wich first shows the current time and then it keeps working until you press ESC. h$ = MID$(TIME$, 1, 2) 'Gets the value of the hour x = COS((45 - h$ ) * 6 * 3.1415926# / 180) y = SIN((45 - h$ ) * 6 * 3.1415926# / 180) LINE (320, 240)-(320 - 175 * x, 240 +175 * y), 0 'Creates a ...