Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: mynameispaul on September 06, 2020, 06:19:01 am

Title: Knight Rider ; dash and voice modulator
Post by: mynameispaul on September 06, 2020, 06:19:01 am
KITT  dash simulator
- animated lights and sound
- power up/down sequence

KITT voice modulator
- select from provided MP3 to play while the voice modulator is animated
Title: Re: Knight Rider ; dash and voice modulator
Post by: johnno56 on September 06, 2020, 06:49:15 am
Ran the dash simulator... and got the following message...

No changes made. Downloaded. Placed in its own directory. Loaded and executed the Dash simulator...

QB64v1.4 Linux Mint 19.3
Title: Re: Knight Rider ; dash and voice modulator
Post by: bplus on September 06, 2020, 12:07:51 pm
@johnno56

Did you see this from ReadMe?
Quote
ReadMe file for:
- KITT_dash
- KITTVM_sound

Put all files in the folder where you have QB64

...\(QB64 folder)
      \PgmFiles
         \KITT_dash
            \tv
            \voiceBox
               \KARR
               \KITT
         \KITTTalk
Title: Re: Knight Rider ; dash and voice modulator
Post by: SierraKen on September 07, 2020, 02:34:07 pm
Paul that is totally awesome! I grew up with that show and could recognize the panel and sounds. I also like how you added a video on the right side of the panel. Plus you tossed in the code for the voice modulator as a second program for people to learn by it. Great job!
Title: Re: Knight Rider ; dash and voice modulator
Post by: Unseen Machine on September 09, 2020, 02:55:19 am
Hi @ mynameispaul

Great stuff, got me very nostalgic so i decided to meddle and put this together, now your voice can be displayed using the lightbars! This is something i SOOOOOO wanted to be able to do when i was 6, only took 31 years! You can use the same method to get the light bars to sync with your sound files too.

This WILL ONLY RUN USING SDL QB64!
Code: QB64: [Select]
  1. '// Knight Rider industries voice modulator v.01
  2. '// By John Onyon a.k.a Unseen Machine
  3.  
  4. SCREEN _NEWIMAGE(800, 600, 32)
  5.  
  7.  
  8.   _LIMIT 30
  9.  
  10.   CLS
  11.  
  12.   KB$ = INKEY$
  13.  
  14.   IF NOT Recording% THEN
  15.     _PRINTSTRING (0, 0), "Press Enter to start recording."
  16.   ELSE
  17.     Time! = TIMER(.01) - TM!
  18.     _PRINTSTRING (0, 0), STR$(Time!) + " Seconds recorded, press ESC to stop."
  19.   END IF
  20.  
  21.   IF KB$ = CHR$(27) THEN '// ESC
  22.     IF Recording% = -1 THEN
  23.       Mic_End '// End the recording
  24.       Mic_Save "TmpSnd.wav"
  25.       Recording% = 0
  26.       PlayBack% = -1
  27.       _SNDCLOSE (snd&)
  28.       snd& = _SNDOPEN("Tmpsnd.wav")
  29.       _SNDPLAY snd&
  30.     END IF
  31.   ELSEIF KB$ = CHR$(13) THEN '// Enter
  32.     IF NOT PlayBack% THEN
  33.       '// Record audio @ 3600 samples per second
  34.       Recording% = -1
  35.       Mic_Start 3600
  36.       TM! = TIMER(.01)
  37.     END IF
  38.   END IF
  39.  
  41.     l! = Mic_Get_Sample(_SNDGETPOS(snd&) * 3600)
  42.     Left! = -(l! / 3600) * 5
  43.     Right! = Left!
  44.     Middle! = Left! * 2
  45.     '    PRINT l!, r!, Left!, Right!, Middle!
  46.   ELSE
  47.     PlayBack% = 0
  48.     Left = 0
  49.     Right! = 0
  50.     Middle! = 0
  51.   END IF
  52.  
  53.  
  54.   '// Draw the light bars
  55.   x% = 320
  56.   FOR Col% = 0 TO 2
  57.     y% = 130
  58.     FOR Row% = 0 TO 29
  59.       SELECT CASE Col%
  60.         CASE 0
  61.           IF Row% > (14 - Left!) AND Row% < (15 + Left!) THEN Clr = _RGB32(255, 0, 0) ELSE Clr = _RGB32(200, 0, 0)
  62.  
  63.         CASE 1
  64.           IF Row% > (14 - Middle!) AND Row% < (15 + Middle!) THEN Clr = _RGB32(255, 0, 0) ELSE Clr = _RGB32(200, 0, 0)
  65.  
  66.         CASE 2
  67.           IF Row% > (14 - Right!) AND Row% < (15 + Right!) THEN Clr = _RGB32(255, 0, 0) ELSE Clr = _RGB32(200, 0, 0)
  68.  
  69.       END SELECT
  70.  
  71.       DrawLightBar x%, y%, Clr
  72.  
  73.       y% = y% + 12
  74.     NEXT
  75.     x% = x% + 65
  76.   NEXT
  77.  
  78.  
  80.  
  82.  
  83.  
  84. SUB DrawLightBar (x, y, clr) '##############################################
  85.  
  86. w = 50
  87. h = 8
  88.  
  89. CIRCLE (x, y + 4), 4, clr
  90. PAINT STEP(0, 0), clr, clr
  91. CIRCLE (x + 50, y + 4), 4, clr
  92. PAINT STEP(0, 0), clr, clr
  93.  
  94. LINE (x, y)-(x + w, y + h), clr, BF
  95.  
  97.  
  98.  
  99. '/////////
  100.  
  101.  
  102.  
  103. '// Library Declerations
  104. DECLARE LIBRARY "SFML_Audio_Wrapper", "sfml\libsfml-audio"
  105.   SUB Mic_Start (BYVAL SampleRate&)
  106.   SUB Mic_End
  107.   SUB Mic_Play
  108.   SUB Mic_Pause
  109.   SUB Mic_Stop
  110.   SUB Mic_Save (Filename$)
  111.   FUNCTION Mic_Get_SampleCount&
  112.   FUNCTION Mic_Get_Sample% (BYVAL SampleNum&)
  113.   FUNCTION Sound_Load (FileName$)
  114.   FUNCTION Sound_Num_Samples
  115.   FUNCTION Sound_Get_Sample% (BYVAL SampleNum&)
  116.   SUB SNDRAW_Save (RawSnd%, BYVAL NumSamples&, BYVAL SampleRate&, BYVAL Channels&, FileName$)
  117.   FUNCTION Sound_Num_Channels&
  119.  

Requires the attached files to be extracted to your qb64 directory.

Happy coding folks,

Unseen
Text Only | Text with Attachments