Post by donnybowers on Apr 30, 2021 16:54:10 GMT -5
With this code you can search for songs, artists, music genres etc. and you get a list of options. Just type it in the first input field [Music Search]. In the next screen (after both input fields) you can click on "Karaoke" and get a Youtube search of your favorite song or artist sing-along tracks. Or if you're learning to play an instrument input the instrument in the second field [Instrument] and you can click "InstrumentName Tutorial" or get cheat sheets and sheet music (otherwise just hit [ENTER] or click accept - or remove this part of the program if you prefer). Or find documentaries and interviews of your favorite artists.
You are free to use this code however you like. I place it in the public domain. No need to credit me. I will probably use it in future websites. In fact this is an RB clone of a PHP script I wrote a few years ago. I use it when I feel like singing, or just to listen to music or when I want to learn new songs on guitar and ukulele (occasionally harmonica).
While I was writing this code and playing around with it I found this video of a street band that I thought was pretty cool. You never know what you'll find.
METALICA - Nothing Else Matters
You are free to use this code however you like. I place it in the public domain. No need to credit me. I will probably use it in future websites. In fact this is an RB clone of a PHP script I wrote a few years ago. I use it when I feel like singing, or just to listen to music or when I want to learn new songs on guitar and ukulele (occasionally harmonica).
titlebar "Music Search"
YTsearchTerm$="https://www.youtube.com/results?search_query="
DDGsearchTerm$="https://duckduckgo.com/?q="
gosub [pageStyle]
[restart]
cls
html "<b>"
print
print "Song, Artist, Band, Genre etc. - any combination"
print
input "Music Search"; search$
cls
print
print "Only needed if you're searching for tutorials, sheet music etc."
print
input "Instrument";instrument$
'instrument$="Ukulele"
html "</b>"
' ---- FIX SEARCH TERMS ----
gosub [fixSearch]
print
cls
' ---- CREATE LINKS -----
html "<center><b>"
html "<h4>"
'link #one, "One", [oneClicked]
link #search, "MUSIC SEARCH", [restart]
html " > ";search$;"</h4>"
html "<table width=640px border=0><tr><td width=50%>"
'---- KARAOKE ----
html "<u><a href='"+karaoke$+"' target='_blank'>Sing Karaoke</a></u>"
print
html "<a href='"+withLyrics$+"' target='_blank'>Songs with Lyrics</a>"
print
html "<a href='"+karaokeList$+"' target='_blank'>Karaoke Playlists</a>"
print
html "<a href='"+karaokeChannel$+"' target='_blank'>Karaoke Channels</a>"
print : print
'---- VIDEOS ----
html "<a href='"+vid$+"' target='_blank'>Music Videos</a>"
print
html "<a href='"+vidPlaylist$+"' target='_blank'>Video Playlists</a>"
print
html "<a href='"+vidChannel$+"' target='_blank'>Video Channels</a>"
print
html "<a href='"+live$+"' target='_blank'>Live Performance</a>"
print
html "<a href='"+album$+"' target='_blank'>Albums</a>"
html "</td><td>"
'---- MUSIC LESSONS ----
html "<a href='"+tutorial$+"' target='_blank'>"+instrument$+" Tutorial</a>"
print
html "<a href='"+tutorialChannel$+"' target='_blank'>"+instrument$+" Tutorial Channels</a>"
print
html "<a href='"+backingTracks$+"' target='_blank'>"+instrument$+" backing tracks</a>"
print
html "<a href='"+cheatSheet$+"' target='_blank'>"+instrument$+" Cheat Sheets</a>"
print : print
'---- ABOUT ----
html "<a href='"+documentary$+"' target='_blank'>Documentary</a>"
print
html "<a href='"+funnyMoment$+"' target='_blank'>Funny Moments</a>"
print
html "<a href='"+where$+"' target='_blank'>Where are they now?</a>"
print
html "<a href='"+behindScenes$+"' target='_blank'>Behind The Scenes</a>"
print
html "<a href='"+interview$+"' target='_blank'>Inteviews</a>"
print
html "</td></tr></table></b></center>"
wait
'---- SUBROUTINES ----
[fixSearch]
searchTerm$=""
length=len(search$)
for i=1 to length
char$=mid$(search$,i,1)
if char$=" " then char$="+"
searchTerm$=searchTerm$+char$
next i
karaoke$=YTsearchTerm$+"karaoke+"+searchTerm$
withLyrics$=YTsearchTerm$+searchTerm$+"+lyrics"
karaokeList$=YTsearchTerm$+searchTerm$+"karaoke+playlist&sp=EgIQAw%253D%253D"
karaokeChannel$=YTsearchTerm$+"karaoke+channel+"+searchTerm$+"&sp=EgIQAg%253D%253D"
vid$=YTsearchTerm$+searchTerm$+"+official"
vidPlaylist$=YTsearchTerm$+searchTerm$+"+playlist&sp=EgIQAw%253D%253D"
vidChannel$=YTsearchTerm$+searchTerm$+"+channel&sp=EgIQAg%253D%253D"
live$=YTsearchTerm$+searchTerm$+"+live"
album$=YTsearchTerm$+searchTerm$+"+album"
backingTracks$=YTsearchTerm$+instrument$+"+"+searchTerm$+"+backing+tracks+chords+lyrics"
tutorial$=YTsearchTerm$+searchTerm$+"+"+instrument$+"+lesson+tutorial+solo+cover"
tutorialChannel$=YTsearchTerm$+searchTerm$+"+"+instrument$+"+lesson+tutorial+solo+cover&sp=EgIQAg%253D%253D"
cheatSheet$=DDGsearchTerm$+searchTerm$+"+"+instrument$+"+sheet+music+chords+sheet+music+notes+tab&t=h_&ia=web"
funnyMoment$=YTsearchTerm$+searchTerm$+"+funny+moment"
documentary$=YTsearchTerm$+searchTerm$+"+documentary"
where$=YTsearchTerm$+searchTerm$+"+where+are+they+now"
interview$=YTsearchTerm$+searchTerm$+"+interview"
behindScenes$=YTsearchTerm$+searchTerm$+"+behind+the+scenes"
streetBand$=YTsearchTerm$+searchTerm$+"+street+band+artist"
return
[pageStyle]
cssclass "body", "{background:#222;color:white;}"
cssclass "a", "{background:black;color:white;padding:.2em .3em;text-decoration:none;text-transform: uppercase;border:1px;border-color:lightblue;border-style:dotted;line-height:1.5em;}"
cssclass "input", "{margin:4px}"
cssclass "table", "{padding:4px}"
cssclass "td", "{margin:8px}"
return
While I was writing this code and playing around with it I found this video of a street band that I thought was pretty cool. You never know what you'll find.
METALICA - Nothing Else Matters