Knight Rider ; dash and voice modulator

[mynameispaul]

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

[johnno56]

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

[bplus]

@johnno56

Did you see this from ReadMe?

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

[SierraKen]

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!

[Unseen Machine]

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.  
6. DO
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.  
40.   IF _SNDPLAYING(snd&) THEN
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.  
79.   _DISPLAY
80.  
81. LOOP
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.  
96. END SUB
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&
118. END DECLARE
119.  

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

Happy coding folks,

Unseen