Weekly Qbasic and Qb64 Lesson Topics
January 17, 2019, 04:57:10 pm
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
  Home Help Search Arcade Links Staff List Login Register  

Code not working in QB64. Have I mucked up double precision?

Pages: [1]
Author Topic: Code not working in QB64. Have I mucked up double precision?  (Read 143 times)
Posts: 2

« on: April 23, 2014, 01:21:55 am »

This code, opening a data file in line 9010, returning to the main program to get a record # R, and then collecting data in line 9020, works perfectly in GWBasic but not in QB64.   The values C,S,SG,DY returned are all zero in QB64.

I have change the open statement to:

OPEN "Moneyrec.dat" for random as #1 Len=32
but no improvement.

Any help is appreciated.   Thanks.

9010 OPEN "R", #1, "MONEYREC.DAT", 32: FIELD #1, 8 AS C$, 8 AS S$, 8 AS SG$, 8 AS DY$: LOR = LOF(1) / 32: RETURN

9020 GET #1, R: C = CVD(C$): S = CVD(S$): SG = CVD(SG$): DY = CVD(DY$): RETURN
Report Spam   Logged

Pages: [1]
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum

Buy traffic for your forum/website
Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy