case statement problem

[badger]

Hell

Back from the er about to loose a toe nail to save the toe LOL first time in front of the computer

why does this select case skip  the line with chr$(13) if enter is hit it need to goto s1 meaning the string value is "" or chr$(13)

Code: QB64: [Select]

1. _define sr as string
2. SELECT CASE sr
3.         CASE CHR$(88): RETURN 'X
4.         CASE CHR$(45): GOTO inv6 '-
5.         CASE CHR$(13): GOTO s1 ' enter key or ""
6.         CASE ELSE
7.                 GOSUB custinforec_null
8.                 custinforec.id = sr
9.                 GOSUB inv0
10.                 GOTO s2
11. END SELECT
12.  

Thanks in advance

Badger

[FellippeHeitor]

I may be to quick to say we have too little context here, but it does seem like too short a snippet for any help to be useful.

[FellippeHeitor]

BTW, that's not how _DEFINE is supposed to work: http://www.qb64.org/wiki/DEFINE

You probably meant DIM http://www.qb64.org/wiki/DIM.

[badger]

Hello

The way i am using it all variables that starts with the letter _defined is that type.

here is the whole module i am using
if this is not enough i will post the whole thing but it is sorta a long program

any variable thats starts with an s is a string
the gosub to custinforec.null just sets all custinforec files to ""
the gosub to dupidsearch calls a search to check for a duplicate id entered

Code: QB64: [Select]

1. s1:
2. saction = "Enter Customer ID X to Exit "
3. ib = 10
4. ilow = 1
5. ihigh = 999999999
6. iflag1 = 0
7. searchid = sr
8. GOSUB dupidsearch
9. SELECT CASE sr
10.         CASE CHR$(88): RETURN 'X
11.         CASE CHR$(45): GOTO inv6 '-
12.         CASE CHR$(13): GOTO s1 ' enter key or ""
13.         CASE ELSE
14.                 GOSUB custinforec_null
15.                 custinforec.id = sr
16.                 GOSUB inv0
17.                 GOTO s2
18. END SELECT
19.  

Badger

[FellippeHeitor]

How are you getting input?

[badger]

Hello

first of all i use a lot of rem statements i found that my poor eye sight sees better this way dont ask my why so please do not get frustrated ok.. I have never before used subs and functions i need this done real quick. I will rewrite it later to use all subs and functions and then another rewrite using forms..

Code: QB64: [Select]

1. REM ***************************************************************************
2. REM **** Program Bridal Store *************************************************
3. REM ***************************************************************************
4. REM ***************************************************************************
5. REM **** Author Philip King  **************************************************
6. REM ***************************************************************************
7. REM ***************************************************************************
8. REM ***************************************************************************
9. REM **** Includes go here *****************************************************
10. REM ***************************************************************************
11.  
12. REM ***************************************************************************
13. REM ***************************************************************************
14. REM **** Sreen statements here ************************************************
15. REM ***************************************************************************
16. $COLOR:32
17. REM ***************************************************************************
18.  
19. REM ***************************************************************************
20. REM **** defines for quick use data types *************************************
21. REM ***************************************************************************
22. _DEFINE I AS INTEGER : _DEFINE S AS STRING : _DEFINE D AS DOUBLE :
23. _DEFINE F AS _FLOAT : _DEFINE L AS LONG : _DEFINE Z AS _INTEGER64
24. REM ***************************************************************************
25.  
26. REM ***************************************************************************
27. REM **** Listing of subs and funtions *****************************************
28. REM ***************************************************************************
29.  
30. REM ***************************************************************************
31.  
32. REM ***************************************************************************
33. REM **** arrays decleared here ************************************************
34. REM ***************************************************************************
35. imenu = 4
36. DIM SHARED smenu(imenu) AS STRING
37. REM ***************************************************************************
38.  
39. REM ***************************************************************************
40. REM **** arrays set to data here **********************************************
41. REM ***************************************************************************
42. smenu(1) = "1) Edit Customer Info": smenu(2) = "3) Edit Inventory Data "
43. smenu(3) = "2) Edit Sales ": smenu(4) = "4) System Maintenance "
44. REM ***************************************************************************
45.  
46. REM ***************************************************************************
47. REM **** variables declares go here *******************************************
48. REM ***************************************************************************
49. DIM SHARED sr AS STRING
50. CONST null = ""
51. DIM SHARED zrecordnum
52. DIM SHARED lrecordlen
53. REM ***************************************************************************
54.  
55. REM ***************************************************************************
56. REM **** customer info record type ********************************************
57. REM ***************************************************************************
58. TYPE customer
59.         id AS STRING * 10
60.         sfirst_name AS STRING * 25
61.         slast_name AS STRING * 25
62.         saddress AS STRING * 30
63.         scity AS STRING * 25
64.         sstate AS STRING * 2
65.         szip AS STRING * 5
66.         sphone AS STRING * 10
67.         sfiller AS STRING * 124
68. END TYPE
69. REM ***************************************************************************
70.  
71. REM ***************************************************************************
72. REM **** inventory record type ************************************************
73. REM ***************************************************************************
74. TYPE inventory
75.         id AS STRING * 10
76.         sdesc AS STRING * 10
77.         sdate_bought AS STRING * 8
78.         sdate_sold AS STRING * 8
79.         fcost AS STRING * 15
80.         fretail AS STRING * 15
81.         ssize AS STRING * 2
82.         ssold AS STRING * 1
83.         sfiller AS STRING * 59
84. END TYPE
85. REM ***************************************************************************
86.  
87. REM ***************************************************************************
88. REM **** system data file record **********************************************
89. REM ***************************************************************************
90. TYPE systemdat
91.         last_rec AS STRING * 9
92.         system_data_path AS STRING * 25
93.         customer_db AS STRING * 25
94.         inventory_db AS STRING * 25
95.         invoice_db AS STRING * 25
96.         sfiller AS STRING * 19
97. END TYPE
98. REM ***************************************************************************
99.  
100. REM ***************************************************************************
101. REM **** point of sale type ***************************************************
102. REM ***************************************************************************
103. TYPE sposlposid
104.         sposid AS STRING * 10
105. END TYPE
106. REM ***************************************************************************
107. DIM SHARED custinforec AS customer
108. DIM SHARED systemrec AS systemdat
109. DIM SHARED sinventoryrec AS inventory
110. linventorylen = LEN(sinventoryrec)
111. lcustreclen = LEN(custinforec)
112. lsystemreclen = LEN(systemrec)
113. 'PRINT lsystemreclen
114. 'PRINT lcustreclen
115. 'PRINT linventorylen
116. 'END
117. CLS
118. GOTO main
119. REM ***************************************************************************
120.  
121. REM ***************************************************************************
122. REM **** main menu loop *******************************************************
123. REM ***************************************************************************
124. menuloop:
125. GOSUB systemheader
126. GOSUB printmain
127. GOSUB mainmenuchoice
128. IF sr = "" OR sr = CHR$(13) THEN GOTO menuloop
129. IF sr = "X" THEN END
130. IF sr = "1" THEN
131.         CLS
132.         GOSUB custinforec_null
133.         GOSUB systemheader
134.         GOSUB s0
135. END IF
136. IF sr = "3" THEN
137.         CLS
138.         GOSUB inventoryrec_null
139.         GOSUB systemheader
140.         GOSUB inv0
141. END IF
142.  
143. RETURN
144. REM ***************************************************************************
145.  
146. REM ***************************************************************************
147. REM **** Sytem Header *********************************************************
148. REM ***************************************************************************
149. systemheader:
150. CLS
151. COLOR White, Blue
152. CLS
153. LOCATE 1, 1: PRINT CHR$(201): LOCATE 1, 80: PRINT CHR$(187)
154. LOCATE 1, 2: PRINT STRING$(78, 205):
155. FOR ix = 2 TO 7
156.         LOCATE ix, 1: PRINT CHR$(186)
157.         LOCATE ix, 80: PRINT CHR$(186)
158. NEXT ix
159. LOCATE 7, 2: PRINT STRING$(78, 205)
160. LOCATE 7, 1: PRINT CHR$(200): LOCATE 7, 80: PRINT CHR$(188)
161. LOCATE 4, 30: PRINT "Main System Menu"
162. LOCATE 4, 63: PRINT "Date ": LOCATE 4, 68: PRINT DATE$
163. LOCATE 4, 4: PRINT "Virsion 1.0"
164. RETURN
165. REM ***************************************************************************
166.  
167. REM ***************************************************************************
168. REM **** printes in system erros **********************************************
169. REM ***************************************************************************
170. sprintserrors:
171. CLS
172. SCREEN 0
173. IF se = "" THEN se = "INVALID RESPONSE"
174. itemp = LEN(se)
175. itemp1 = 40 - (itemp / 2)
176. BEEP
177. COLOR 16, 7
178. 'COLOR Yellow, Blue
179. LOCATE 25, itemp1: _BLINK ON: PRINT se;
180. idelay = 1.5
181. CALL Delay(1.5)
182. _BLINK OFF
183. iflag2 = 1
184. REM ***************************************************************************
185.  
186. REM *****************************************************************************
187. REM **** numeric input sub ******************************************************
188. REM *****************************************************************************
189. snumeric:
190. ftemp = VAL(sr)
191. IF ftemp < ilow OR ftemp > ihigh THEN
192.         se = "INPUT OUT OF BOUNDS"
193.         GOSUB sprintserrors
194. END IF
195. REM ***************************************************************************
196.  
197. REM ***************************************************************************
198. REM **** alpha input sub ******************************************************
199. REM ***************************************************************************
200. salphainput:
201. iflag2 = 0
202. ilength1 = LEN(sr)
203. ilength2 = LEN(saction) + 2
204. LOCATE 23, 1: PRINT saction; '               prints action menu
205. LOCATE 23, ilength2 '                        set prompt one space after action menu print
206. COLOR Yellow, Black: PRINT SPC(ib); '                changes color and prints ib spaces to screen for input lenght
207. LOCATE 23, ilength2 '                        sets curser at the begining of input space from previouse line
208. LINE INPUT sr: sr = UCASE$(sr) '             inputs data from user changes it to upper case
209. IF LEN(sr) > ib THEN
210.         se = "INVALID INPUT LENGTH"
211.         GOSUB sprintserrors
212.         sr = ""
213.         iflag2 = 1
214.         GOTO salphainput
215. END IF
216. IF sr = "X" AND iflag1 = 1 THEN iflag1 = 0
217. IF iflag1 = 1 AND VAL(sr) < ilow AND VAL(sr) > ihigh THEN GOSUB snumeric
218. COLOR White, Blue
219. RETURN
220. REM ***************************************************************************
221.  
222. REM ***************************************************************************
223. REM **** main menu to the screen **********************************************
224. REM ***************************************************************************
225. printmain:
226. COLOR White, Blue
227. FOR ix = 11 TO imenu
228.         READ smenu(ix): LOCATE ix, 20: PRINT smenu(ix)
229. NEXT ix
230. LOCATE 11, 15: PRINT smenu(1)
231. LOCATE 11, 40: PRINT smenu(2)
232. LOCATE 13, 15: PRINT smenu(3)
233. LOCATE 13, 40: PRINT smenu(4)
234. RETURN
235. REM ***************************************************************************
236.  
237. REM ***************************************************************************
238. REM **** menu prompts start here **********************************************
239. REM ***************************************************************************
240. mainmenuchoice:
241. ib = 1
242. ihigh = 99
243. ilow = 1
244. saction = "Choose Menu Option or X to Quit "
245. GOSUB salphainput
246. RETURN
247. REM ***************************************************************************
248.  
249. REM ***************************************************************************
250. REM **** clean up the prompt area *********************************************
251. REM ***************************************************************************
252. clearprompt:
253. LOCATE 23, 1: PRINT STRING$(79, 32)
254. RETURN
255. REM ***************************************************************************
256.  
257. REM ***************************************************************************
258. REM **** inventory input modual ***********************************************
259. REM ***************************************************************************
260. inv0:
261. LOCATE 10, 1: PRINT "Inventory Number         ";: PRINT sinventoryrec.id
262. LOCATE 11, 1: PRINT "Description File Name    ";: PRINT sinventoryrec.sdesc
263. LOCATE 12, 1: PRINT "Date Purchased           ";: PRINT sinventoryrec.sdate_bought
264. LOCATE 13, 1: PRINT "Date Sold                ";: PRINT sinventoryrec.sdate_sold
265. LOCATE 14, 1: PRINT "Coste of Item            ";: PRINT sinventoryrec.fcost
266. LOCATE 15, 1: PRINT "Retail Price             ";: PRINT sinventoryrec.fretail
267. LOCATE 16, 1: PRINT "Size Of Item             ";: PRINT sinventoryrec.ssize
268. LOCATE 17, 1: PRINT "Remove for Inventory Y/N ";: PRINT sinventoryrec.ssold
269. RETURN
270. REM **************************************************************************
271. inv1:
272. saction = "Enter Enventory Number X to Exit "
273. ib = 10
274. ilow = 1
275. ihigh = 999999999
276. iflag1 = 0
277. GOSUB clearprompt
278. GOSUB salphainput
279.  
280. SELECT CASE sr
281.         CASE CHR$(88): RETURN 'X
282.         CASE CHR$(28): GOTO inv2 ' enter key or ""
283.         CASE ELSE
284.                 sdesc = sr
285.                 sinventoryrec.id = sr
286.                 GOSUB dupidsearch
287.                 GOSUB inv0
288.                 GOTO inv2
289.  
290. END SELECT
291.  
292. 'sinventoryrec.id = sr: GOSUB inv0: GOTO inv2
293. REM ***************************************************************************
294. inv2:
295. saction = "Enter D for Default, Type Name, X to Exit - To Backup "
296. ib = 10
297. ilow = 1
298. ihigh = 999999999
299. iflag1 = 0
300. GOSUB clearprompt
301. GOSUB salphainput
302. SELECT CASE sr
303.         CASE CHR$(88): RETURN 'X
304.         CASE CHR$(45): GOTO inv1 '-
305.         CASE CHR$(68)
306.                 sinventoryrec.sdesc = sinventoryrec.id
307.                 sdesc = sinventoryrec.id
308.                 GOSUB descinput
309.                 GOSUB inv0
310.                 GOTO inv3
311.         CASE ELSE
312.                 sinventoryrec.sdesc = sr
313.                 sdesc = sr
314.                 GOSUB descinput
315.                 GOSUB inv0
316.                 GOTO inv3
317. END SELECT
318. REM ***************************************************************************
319. inv3:
320. saction = "Enter Date Bought X to Exit - To Backup "
321. ib = 8
322. ilow = 1
323. ihigh = 999999999
324. iflag1 = 0
325. GOSUB clearprompt
326. GOSUB salphainput
327. SELECT CASE sr
328.         CASE CHR$(88): RETURN 'X
329.         CASE CHR$(45): GOTO inv2 '-
330.         CASE CHR$(28): GOTO inv4 ' enter key or ""
331.         CASE ELSE
332.                 sinventoryrec.sdate_bought = sr
333.                 GOSUB inv0
334.                 GOTO inv4
335. END SELECT
336.  
337. REM ***************************************************************************
338. inv4:
339. saction = "Enter Date Sold X to Exit - To Backup "
340. ib = 10
341. ilow = 1
342. ihigh = 999999999
343. iflag1 = 0
344. GOSUB clearprompt
345. GOSUB salphainput
346. SELECT CASE sr
347.         CASE CHR$(88): RETURN 'X
348.         CASE CHR$(45): GOTO inv2 '-
349.         CASE CHR$(28): GOTO inv5 ' enter key or ""
350.         CASE ELSE
351.                 GOSUB inventoryrec_null
352.                 sinventoryrec.sdate_sold = sr
353.                 GOSUB inv0
354.                 GOTO inv5
355. END SELECT
356.  
357. REM ***************************************************************************
358. inv5:
359. saction = "Enter Cost X to Exit - To Backup "
360. ib = 10
361. ilow = 1
362. ihigh = 999999999
363. iflag1 = 0
364.  
365. GOSUB clearprompt
366. GOSUB salphainput
367. SELECT CASE sr
368.         CASE CHR$(88): RETURN 'X
369.         CASE CHR$(45): GOTO inv4 '-
370.         CASE CHR$(28): GOTO inv6 ' enter key or ""
371.         CASE ELSE
372.                 GOSUB inventoryrec_null
373.                 sinventoryrec.fcost = sr
374.                 GOSUB inv0
375.                 GOTO inv6
376. END SELECT
377. REM ***************************************************************************
378. inv6:
379. saction = "Enter Retail Price X to Exit - To Backup "
380. ib = 15
381. ilow = 1
382. ihigh = 999999999
383. iflag1 = 0
384. GOSUB clearprompt
385. GOSUB salphainput
386. SELECT CASE sr
387.         CASE CHR$(88): RETURN 'X
388.         CASE CHR$(45): GOTO inv5 '-
389.         CASE CHR$(28): GOTO inv7 ' enter key or ""
390.         CASE ELSE
391.                 GOSUB inventoryrec_null
392.                 sinventoryrec.fretail = sr
393.                 GOSUB inv0
394.                 GOTO inv7
395. END SELECT
396.  
397. REM ***************************************************************************
398. inv7:
399. saction = "Enter Dress Size X to Exit - To Backup "
400. ib = 2
401. ilow = 1
402. ihigh = 999999999
403. iflag1 = 0
404. GOSUB clearprompt
405. GOSUB salphainput
406. SELECT CASE sr
407.         CASE CHR$(88): RETURN 'X
408.         CASE CHR$(45): GOTO inv6 '-
409.         CASE CHR$(28): GOTO inv8 ' enter key or ""
410.         CASE ELSE
411.                 GOSUB inventoryrec_null
412.                 sinventoryrec.ssize = sr
413.                 GOSUB inv0
414.                 GOTO inv8
415. END SELECT
416. REM ***************************************************************************
417. inv8:
418. saction = "Date Sold X to Exit - To Backup "
419. ib = 8
420. ilow = 1
421. ihigh = 999999999
422. iflag1 = 0
423. GOSUB clearprompt
424. GOSUB salphainput
425. SELECT CASE sr
426.         CASE CHR$(88): RETURN 'X
427.         CASE CHR$(45): GOTO inv7 '-
428.         CASE CHR$(28): GOTO inv9 ' enter key or ""
429.         CASE ELSE
430.                 GOSUB inventoryrec_null
431.                 sinventoryrec.ssold = sr
432.                 GOSUB inv0
433.                 GOTO inv9
434. END SELECT
435. REM ***************************************************************************
436. inv9:
437. saction = "Enter Take Out of Eventory Y/N X to Exit - To Backup "
438. ib = 1
439. ilow = 1
440. ihigh = 999999999
441. iflag1 = 0
442. GOSUB clearprompt
443. GOSUB salphainput
444. SELECT CASE sr
445.         CASE CHR$(88): RETURN 'X
446.         CASE CHR$(45): GOTO inv6 '-
447.                 'CASE CHR$(28): GOTO inv7 ' enter key or ""
448.         CASE ELSE
449.                 GOSUB inventoryrec_null
450.                 sinventoryrec.ssold = sr
451.                 GOSUB inv0
452.                 GOSUB puttorecord
453. END SELECT
454.  
455.  
456. REM ***************************************************************************
457. REM ***************************************************************************
458. REM **** customer input modual ************************************************
459. REM ***************************************************************************
460. s0:
461. LOCATE 10, 1: PRINT "Customer ID           ";: PRINT custinforec.id
462. LOCATE 11, 1: PRINT "Customer First Name   ";: PRINT custinforec.sfirst_name
463. LOCATE 12, 1: PRINT "customer Last Name    ";: PRINT custinforec.slast_name
464. LOCATE 13, 1: PRINT "Customer Address      ";: PRINT custinforec.saddress
465. LOCATE 14, 1: PRINT "Customer City         ";: PRINT custinforec.scity
466. LOCATE 15, 1: PRINT "customer State        ";: PRINT custinforec.sstate
467. LOCATE 16, 1: PRINT "customer Zip          ";: PRINT custinforec.szip
468. LOCATE 17, 1: PRINT "Customer Phone Number ";
469. PRINT LEFT$(custinforec.sphone, 3) + "/"; MID$(custinforec.sphone, 4, 3) + "/"; RIGHT$(custinforec.sphone, 4)
470. RETURN
471. REM ********************************************************************
472.  
473. s1:
474. saction = "Enter Customer ID X to Exit "
475. ib = 10
476. ilow = 1
477. ihigh = 999999999
478. iflag1 = 0
479. 'IF iflag2 = 1 THEN
480. '        GOSUB clearprompt
481. 'GOSUB salphainput
482. 'ELSE
483. '        GOSUB clearprompt
484. 'GOSUB salphainput
485. 'END IF
486. 'IF sr = "X" THEN RETURN
487. 'IF sr = "" OR sr = CHR$(13) GOTO s2
488. searchid = sr
489. GOSUB dupidsearch
490.  
491. 'IF iflag3 = 1 THEN
492. 'GOSUB custinforec_null
493. 'iflag3 = 0
494. 'GOTO s1
495. 'END IF
496. 'custinforec.id = sr: GOSUB s0: GOTO s2
497. SELECT CASE sr
498.         CASE CHR$(88): RETURN 'X
499.         CASE CHR$(45): GOTO inv6 '-
500.         CASE CHR$(13): GOTO s1 ' enter key or ""
501.         CASE ELSE
502.                 GOSUB custinforec_null
503.                 custinforec.id = sr
504.                 GOSUB inv0
505.                 GOTO s2
506. END SELECT
507.  
508.  
509.  
510.  
511. REM ********************************************************************
512.  
513. s2:
514. saction = "Enter First Name X to Exit - To Backup "
515. ib = 25
516. ilow = 99
517. ihigh = 99
518. iflag1 = 0
519. IF iflag2 = 1 THEN
520.         GOSUB clearprompt
521.         GOSUB salphainput
522. ELSE
523.         GOSUB clearprompt
524.         GOSUB salphainput
525. END IF
526. IF sr = "-" THEN GOTO s1
527.  
528. IF sr = "X" THEN RETURN
529. IF sr = "" OR sr = CHR$(13) GOTO s3
530. custinforec.sfirst_name = sr: GOSUB s0
531. REM ***************************************************************************
532.  
533. s3:
534. saction = "Enter Last Name X to Exit - To Back up "
535. ib = 25
536. ilow = 99
537. ihigh = 99
538. iflag1 = 0
539. IF iflag2 = 1 THEN
540.         GOSUB clearprompt
541.         GOSUB salphainput
542. ELSE
543.         GOSUB clearprompt
544.         GOSUB salphainput
545. END IF
546. IF sr = "-" THEN GOTO s2
547. IF sr = "X" THEN RETURN
548. IF sr = "" OR sr = CHR$(13) GOTO s4
549. custinforec.slast_name = sr: GOSUB s0
550. REM ***************************************************************************
551.  
552. s4:
553. saction = "Enter Address X to Exit - To Back up "
554. ib = 30
555. ilow = 99
556. ihigh = 99
557. iflag1 = 0
558. IF iflag2 = 1 THEN
559.         GOSUB clearprompt
560.         GOSUB salphainput
561. ELSE
562.         GOSUB clearprompt
563.         GOSUB salphainput
564. END IF
565.  
566. IF sr = "-" THEN GOTO s3
567. IF sr = "X" THEN RETURN
568. IF sr = "" OR sr = CHR$(13) GOTO s5
569. custinforec.saddress = sr: GOSUB s0
570. REM ***************************************************************************
571.  
572. s5:
573. saction = "Enter City Name X to Exit - To Back up "
574. ib = 25
575. ilow = 99
576. ihigh = 99
577. iflag1 = 0
578. IF iflag2 = 1 THEN
579.         GOSUB clearprompt
580.         GOSUB salphainput
581. ELSE
582.         GOSUB clearprompt
583.         GOSUB salphainput
584. END IF
585. IF sr = "-" THEN GOTO s4
586. IF sr = "X" THEN RETURN
587. IF sr = "" OR sr = CHR$(13) GOTO s6
588. custinforec.scity = sr: GOSUB s0
589. REM ***************************************************************************
590.  
591. s6:
592. saction = "Enter State X to Exit - To Back up "
593. ib = 2
594. ilow = 99
595. ihigh = 99
596. iflag1 = 0
597. IF iflag2 = 1 THEN
598.         GOSUB clearprompt
599.         GOSUB salphainput
600. ELSE
601.         GOSUB clearprompt
602.         GOSUB salphainput
603. END IF
604. IF sr = "-" THEN GOTO s5
605. IF sr = "X" THEN RETURN
606. IF sr = "" OR sr = CHR$(13) GOTO s7
607. custinforec.sstate = sr: GOSUB s0
608. REM ***************************************************************************
609.  
610. s7:
611. saction = "Enter Zip Code Name X to Exit - To Back up "
612. ib = 5
613. ilow = 99
614. ihigh = 99
615. iflag1 = 0
616. IF iflag2 = 1 THEN
617.         GOSUB clearprompt
618.         GOSUB salphainput
619. ELSE
620.         GOSUB clearprompt
621.         GOSUB salphainput
622. END IF
623. IF sr = "-" THEN GOTO s6
624. IF sr = "X" THEN RETURN
625. custinforec.szip = sr: GOSUB s0
626. REM ***************************************************************************
627.  
628. s8:
629. saction = "Enter Phone Number X to Exit - To Back up "
630. ib = 10
631. ilow = 99
632. ihigh = 99
633. iflag1 = 0
634. IF iflag2 = 1 THEN
635.         GOSUB clearprompt
636.         GOSUB salphainput
637. ELSE
638.         GOSUB clearprompt
639.         GOSUB salphainput
640. END IF
641.  
642. IF sr = "-" THEN GOTO s7
643. IF sr = "X" THEN RETURN
644. custinforec.sphone = sr: GOSUB s0
645. REM ***************************************************************************
646.  
647. REM ***************************************************************************
648. REM **** ask if you want to put data to record ********************************
649. REM ***************************************************************************
650. puttorecord:
651. saction = "Commit Data to File Y/N"
652. ib = 1
653. ilow = 99
654. ihigh = 99
655. iflag1 = 0
656. GOSUB clearprompt
657. GOSUB salphainput
658. IF sr = "Y" THEN GOSUB insertrec
659. IF sr = "N" THEN RETURN
660. RETURN
661. REM ***************************************************************************
662.  
663.  
664. REM ***************************************************************************
665. REM **** set custinforrec variables to zero or null ***************************
666. REM ***************************************************************************
667. custinforec_null:
668. custinforec.id = null
669. custinforec.sfirst_name = null
670. custinforec.slast_name = null
671. custinforec.saddress = null
672. custinforec.scity = null
673. custinforec.sstate = null
674. custinforec.szip = null
675. custinforec.sphone = null
676. RETURN
677. REM ***************************************************************************
678.  
679. REM ***************************************************************************
680. REM **** set inventoryrec variables to zero or null ***************************
681. REM ***************************************************************************
682. inventoryrec_null:
683. sinventory.id = null
684. sinventory.sdesc = null
685. sinventory.sdate_bought = null
686. sinventory.sdate_sold = null
687. sinventory.fcost = null
688. sinventory.fretail = null
689. sinventory.ssize = null
690. sinventory.ssold = null
691. RETURN
692. REM ***************************************************************************
693.  
694. REM ***************************************************************************
695. REM **** opens random files ***************************************************
696. REM ***************************************************************************
697. randomfiles:
698. OPEN "jbradal.db" FOR RANDOM AS #1 LEN = lcustreclen
699. OPEN "system.db" FOR RANDOM AS #5 LEN = lsystemreclen
700. OPEN "inventory.db" FOR RANDOM AS #2 LEN = linventorylen
701. zcustrecnum = LOF(1) / lcustreclen
702. zenventorynum = LOF(2) / lenventorylen
703. zsystemrecnum = LOF(5) / lsystemreclen
704. RETURN
705.  
706. REM ***************************************************************************
707.  
708. REM ***************************************************************************
709. REM **** inserts record into random file **************************************
710. REM ***************************************************************************
711. insertrec:
712. SELECT CASE ifilenum
713.         CASE 1
714.                 zcustrecnum = zcustrecnum + 1
715.                 PUT #1, zcustrecnum, custinforec
716.         CASE 3
717.                 zenventorynum = zenventorynum + 1
718.                 PUT #3, zenventorynum, sinventoryrec
719. END SELECT
720. RETURN
721. REM ***************************************************************************
722.  
723. REM ***************************************************************************
724. REM **** custinforec duplicate id search **************************************
725. REM ***************************************************************************
726. dupidsearch:
727. zx = 1
728. iflag3 = 0
729. SELECT CASE ifilenum
730.         CASE 1
731.                 DO
732.  
733.                         GET #1, zx, custinforec
734.                         zx = zx + 1
735.                         IF LTRIM$(RTRIM$(sr)) = LTRIM$(RTRIM$(custinforec.id)) THEN
736.                                 BEEP
737.                                 iflag3 = 1
738.                                 EXIT DO
739.                         END IF
740.                 LOOP UNTIL zx > zcustrecnum
741.                 IF zx > zcustrecnum THEN GOSUB custinforec_null
742.         CASE 3
743.                 DO
744.  
745.                         GET #1, zx, senventoryrec
746.                         zx = zx + 1
747.                         IF LTRIM$(RTRIM$(sr)) = LTRIM$(RTRIM$(senventory.id)) THEN
748.                                 BEEP
749.                                 iflag3 = 1
750.                                 EXIT DO
751.                         END IF
752.                 LOOP UNTIL zx > zenventorynum
753.                 IF zx > zenventorynum THEN GOSUB inventoryrec_null
754. END SELECT
755. RETURN
756. REM **************************************************************************
757. REM **** shell for notepad for description files by inventory number *********
758. REM **************************************************************************
759. descinput:
760. ifileexists = _FILEEXISTS(sdesc + ".txt")
761. IF ifileexists = -1 THEN
762.         SHELL "wordpad " + CHR$(34) + sdesc + ".txt" + CHR$(34)
763. ELSE
764.         OPEN sdesc + ".txt" FOR OUTPUT AS #6
765.         PRINT #6, "Type in your stuff. Save the file and exit."
766.         CLOSE #6
767.         SHELL "wordpad " + CHR$(34) + sdesc + ".txt" + CHR$(34)
768. END IF
769. RETURN
770. REM **************************************************************************
771.  
772. REM ***************************************************************************
773. REM **** main modual **********************************************************
774. REM ***************************************************************************
775. main:
776. GOSUB randomfiles
777. SCREEN _NEWIMAGE(640, 400, 32)
778. COLOR LightCyan, MidnightBlue
779. iflag2 = 0
780. iflag3 = 0
781. CLS
782. 'SCREEN 12
783. _FULLSCREEN
784. IF se = "X" THEN
785.         CLOSE
786.         END
787. END IF
788. mainloop:
789. GOSUB menuloop:
790. IF saction = "X" THEN
791.         CLOSE
792.         END
793. END IF
794. IF sr = "1" THEN
795.         ifilenum = 1
796.         GOSUB custinforec_null
797.         GOSUB s1
798.         GOTO mainloop
799. END IF
800. 'IF sr = "2" THEN
801. 'ifilenum = 2
802. 'GOSUB inventoryrec_null
803. 'GOSUB inv1
804. 'GOTO mainloop
805. 'END IF
806.  
807. IF sr = "3" THEN
808.         ifilenum = 2
809.         GOSUB inventoryrec_null
810.         GOSUB inv1
811.         GOTO mainloop
812. END IF
813. 'IF sr = "4" THEN
814. '        ifilenum = 2
815. 'GOSUB inventoryrec_null
816. 'GOSUB inv1
817. 'GOTO mainloop
818. 'END IF
819.  
820.  
821. END
822. REM **************************************************************************
823.  
824. REM **************************************************************************
825. REM **** delay loop **********************************************************
826. REM **************************************************************************
827. SUB Delay (dlay!)
828.         start! = TIMER
829.         DO WHILE start! + dlay! >= TIMER
830.                 IF start! > TIMER THEN start! = start! - 86400
831.         LOOP
832. END SUB
833.  
834.  

[FellippeHeitor]

This is your problem:

Code: QB64: [Select]

1. LINE INPUT sr: sr = UCASE$(sr)

LINE INPUT handles ENTER so the user can finish the input session. You won't ever capture CHR$(13) with LINE INPUT.

It will work with INPUT though.

I take it back. You will have to roll your own input routine using INKEY$.

[badger]

Hello

hmmm never knew that i always changed it to something else. so i will have to rethink some things


Thank You very very much this answers a lot of problems.   Sorry it it looks like spaghetti code

Badger