Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - +KZ

Pages: [1]
1
QB64 Discussion / C++ Compilation Failed But no text in compile log :0
« on: June 07, 2020, 10:08:34 pm »
I want to compile this program (last post), but I get the error "c ++ compilation failed Check ./path to /Compilelog.txt" but i don't see text in this file :0

I don't know if I'm doing something wrong

some people helped me on private, no needing more help


2
QB64 Discussion / Recover AutoSaved Backup
« on: May 24, 2020, 02:32:42 pm »
there is a way to do this?

3
Programs / DONKEY.BAS adapted to qb64
« on: May 14, 2020, 06:46:53 pm »
Hi, only for fun i tried to search "DONKEY.BAS" for qb64/qbasic and i found a link on Wikipedia (Donkey.bas (Qbasic) link) but it runned with a unplayable speed, then i added some Delays to program and you can now simply compile and play :D

(the only problem is the delayed sounds, if you have time, you can replace SOUNDs with _SNDLOAD/PLAY/STOP/etc...)

Code: QB64: [Select]
  1. '==============
  2.  
  3. ' **** Donkey ****
  4.  
  5. 'THIS IS ONLY AN ADAPTATION FROM QuickBasic DONKEY.BAS TO QB64
  6. 'Adapted Because DONKEY.BAS (QuickBasic) run so fast when compile with QB64
  7.  
  8. '**************
  9. 'Used QuickBasic DONKEY.BAS (from https://web.archive.org/web/20050405104141/http://www.jujusoft.com/drivey/DONKEYQB.BAS.html) as base
  10. 'Used GW-BASIC DONKEY.BAS (from http://peyre.x10.mx/GWBASIC/) as guide
  11. 'Used "PC-BASIC" (https://robhagemans.github.io/pcbasic/) to run GW-BASIC DONKEY.BAS
  12.  
  13. 'Added some DELAYs to make the program run like GW-BASIC version (on PC-BASIC)
  14.  
  15. 'TO DO:
  16. ' * If possible, Make the game sound dont delay (For example when you press space)
  17.  
  18. '===============
  19.  
  20. REM The IBM Personal Computer Donkey
  21. REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
  22. REM Licensed Material - Program Property of IBM
  23. DEF SEG: POKE 106, 0
  24. SAMPLES$ = "NO"
  25. DIM CAR%(900)
  26. GOTO 1010
  27. SAMPLES$ = "YES"
  28. 1010 KEY OFF: SCREEN 0, 1: COLOR 15, 0, 0: WIDTH 40: CLS: LOCATE 5, 19: PRINT "IBM"
  29. LOCATE 7, 12, 0: PRINT "Personal Computer"
  30. COLOR 10, 0: LOCATE 10, 9, 0: PRINT CHR$(213) + STRING$(21, 205) + CHR$(184)
  31. LOCATE 11, 9, 0: PRINT CHR$(179) + "       DONKEY        " + CHR$(179)
  32. LOCATE 12, 9, 0: PRINT CHR$(179) + STRING$(21, 32) + CHR$(179)
  33. LOCATE 13, 9, 0: PRINT CHR$(179) + "    Version 1.10     " + CHR$(179)
  34. LOCATE 14, 9, 0: PRINT CHR$(212) + STRING$(21, 205) + CHR$(190)
  35. COLOR 15, 0: LOCATE 17, 4, 0: PRINT "(C) Copyright IBM Corp 1981, 1982"
  36. COLOR 14, 0: LOCATE 23, 7, 0: PRINT "Press space bar to continue"
  37. 1100 IF INKEY$ <> "" THEN GOTO 1100
  38. 1110 CMD$ = INKEY$
  39. IF CMD$ = "" THEN GOTO 1110
  40. IF CMD$ = CHR$(27) THEN GOTO 1298
  41. IF CMD$ = " " THEN GOTO 1160
  42. GOTO 1110
  43. 1160 DEF SEG = 0
  44. IF (PEEK(&H410) AND &H30) <> &H30 THEN DEF SEG: GOTO 1291
  45. WIDTH 80: CLS: LOCATE 3, 1
  46. PRINT "HOLD IT!"
  47. PRINT "YOU'RE NOT USING THE COLOR/GRAPHICS MONITOR ADAPTER!"
  48. PRINT "THIS PROGRAM USES GRAPHICS AND REQUIRES THAT ADAPTER."
  49. PRINT "PRESS THE SPACE BAR TO CONTINUE."
  51. 1240 IF INKEY$ <> "" THEN GOTO 1240
  52. 1250 CMD$ = INKEY$
  53. IF CMD$ = "" THEN GOTO 1250
  54. IF CMD$ = CHR$(27) THEN GOTO 1298
  55. IF CMD$ = " " THEN GOTO 1298
  56. GOTO 1250
  57. 1291 KEY OFF
  59. PLAY "p16"
  60. GOTO 1300
  61. 1295 COLOR 31, 0, 0
  62. PRINT "THIS PROGRAM REQUIRES ADVANCED BASIC -- USE COMMAND 'BASICA'": COLOR 15, 0, 0: FOR I = 1 TO 9000: NEXT: RESUME 1298
  63. 1298 ON ERROR GOTO 0
  64. SCREEN 0, 1: COLOR 7, 0, 0: CLS: END
  65. 1300 REM
  67. DEFINT A-Y
  68. SCREEN 1, 0: COLOR 8, 1
  69. DIM Q%(500)
  70. DIM D1%(150), D2%(150), C1%(200), C2%(200)
  71. DIM DNK%(300)
  72. GOSUB 1940
  73. GOSUB 1780
  75. DIM B%(300)
  76. FOR I = 2 TO 300: B%(I) = -16384 + 192: NEXT
  77. B%(0) = 2: B%(1) = 193
  78. 1540 REM
  79. CX = 110: CLS
  80. LINE (0, 0)-(305, 199), , B
  81. LINE (6, 6)-(97, 195), 1, BF
  82. LINE (183, 6)-(305, 195), 1, BF
  83. LOCATE 3, 5: PRINT "Donkey"
  84. LOCATE 3, 29: PRINT "Driver"
  85. LOCATE 19, 25: PRINT "Press Space ";
  86. LOCATE 20, 25: PRINT "Bar to switch";
  87. LOCATE 21, 25: PRINT "lanes ";
  88. LOCATE 23, 25: PRINT "Press ESC ";
  89. LOCATE 24, 25: PRINT "to exit ";
  90. FOR Y = 4 TO 199 STEP 20: LINE (140, Y)-(140, Y + 10): NEXT
  91. CY = 105: CX = 105
  92. LINE (100, 0)-(100, 199): LINE (180, 0)-(180, 199)
  93. 1670 LOCATE 5, 6: PRINT SD: LOCATE 5, 31: PRINT SM
  94. CY = CY - 4: IF CY < 60 THEN 2230
  95. PUT (CX, CY), CAR%(), PRESET
  96. DX = 105 + 42 * INT(RND * 2)
  97. FOR Y = (RND * -4) * 8 TO 124 STEP 6
  98.  
  99.     'Delay added
  100.     _DELAY 0.05
  101.  
  102.     SOUND 20000, 0.9 'Modified SOUND Duration
  103.     A$ = INKEY$: IF A$ = CHR$(27) THEN 1298 ELSE POKE 106, 0: IF LEN(A$) > 0 THEN LINE (CX, CY)-(CX + 28, CY + 44), 0, BF: CX = 252 - CX: PUT (CX, CY), CAR%(), PRESET: SOUND 200, 1
  104.     IF Y >= 3 THEN PUT (DX, Y), DNK%(), PSET
  105.     IF CX = DX AND Y + 25 >= CY THEN 2060
  106.     IF Y AND 3 THEN PUT (140, 6), B%()
  107. NEXT: LINE (DX, 124)-(DX + 32, 149), 0, BF: GOTO 1670
  108. 1780 CLS
  109. DRAW "S8C3"
  110. DRAW "BM12,1r3m+1,3d2R1ND2u1r2d4l2u1l1"
  111. DRAW "d7R1nd2u2r3d6l3u2l1d3m-1,1l3"
  112. DRAW "m-1,-1u3l1d2l3u6r3d2nd2r1u7l1d1l2"
  113. DRAW "u4r2d1nd2R1U2"
  114. DRAW "M+1,-3"
  115. DRAW "BD10D2R3U2M-1,-1L1M-1,1"
  116. DRAW "BD3D1R1U1L1BR2R1D1L1U1"
  117. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
  118. DRAW "BD2BL2D1R1U1L1BR2R1D1L1U1"
  119. LINE (0, 0)-(40, 60), , B
  120. PAINT (1, 1)
  121. REM DIM CAR%(900)
  122. GET (1, 1)-(28, 44), CAR%() 'Modified "29" and "45" for a line that appeared on the side of the car
  124. 1940 CLS
  125. DRAW "S08"
  126. DRAW "BM14,18"
  127. DRAW "M+2,-4R8M+1,-1U1M+1,+1M+2,-1"
  128. DRAW "M-1,1M+1,3M-1,1M-1,-2M-1,2"
  129. DRAW "D3L1U3M-1,1D2L1U2L3D2L1U2M-1,-1"
  130. DRAW "D3L1U5M-2,3U1"
  131. PAINT (21, 14), 3
  132. PRESET (37, 10): PRESET (40, 10)
  133. PRESET (37, 11): PRESET (40, 11)
  134. GET (13, 0)-(45, 25), DNK%()
  136. 2060 SD = SD + 1: LOCATE 14, 6: PRINT "BOOM!"
  137. GET (DX, Y)-(DX + 16, Y + 25), D1%()
  138. D1X = DX: D1Y = Y: D2X = DX + 17
  139. GET (DX + 17, Y)-(DX + 31, Y + 25), D2%()
  140. GET (CX, CY)-(CX + 14, CY + 44), C1%()
  141. GET (CX + 15, CY)-(CX + 28, CY + 44), C2%()
  142. C1X = CX: C1Y = CY: C2X = CX + 15
  143. FOR P = 6 TO 0 STEP -1: Z = 1 / (2 ^ P): Z1 = 1 - Z
  144.  
  145.     'Delay added too
  146.     _DELAY 0.20
  147.  
  148.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
  149.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
  150.     C1X = CX * Z1: D1Y = Y * Z1: C2X = C2X + (291 - C2X) * Z
  151.     D1X = DX * Z1: C1Y = C1Y + (155 - C1Y) * Z: D2X = D2X + (294 - D2X) * Z
  152.     PUT (C1X, C1Y), C1%(): PUT (C2X, C1Y), C2%()
  153.     PUT (D1X, D1Y), D1%(): PUT (D2X, D1Y), D2%()
  154. SOUND 37 + RND * 200, 4: NEXT
  155. FOR Y = 1 TO 2000: NEXT
  156.  
  157. 'More Delay
  158. _DELAY 0.25
  159.  
  160. CLS: GOTO 1540
  161. 2230 SM = SM + 1: LOCATE 7, 25: PRINT "Donkey loses!"
  162. FOR Y = 1 TO 1000: NEXT
  163. CLS: GOTO 1540
  164.  



 
Captura de pantalla 2020-05-14 a las 6.43.08 p.m..png

4
QB64 Discussion / stop sound
« on: May 12, 2020, 07:04:00 pm »
i need to know how to stop the sound that is being played, as i see in https://www.qb64.org/wiki/SOUND i cant stop this with "SOUND 0, 0"


or it can also helps me to "replace" the sound being played


im not qbasic expert

Pages: [1]