CoolBasic Forums

Code: Select all

Include "cbFUN\cbFUN.cb"

SetWindow "cb"

CreateRectRoundWindow("cb",3,23,ScreenWidth(),ScreenHeight(),0,0)

WaitKey

Code: Select all

Include "cbFUN\cbFUN.cb"

SetWindow "."

CreateRectRoundWindow(".",3,23,ScreenWidth(),ScreenHeight(),30,30)

Const NOTES = "131139147156165175185196208220233247262277294311330349370392415440466494523554587622659698740784831880932988"
Const NAMES = "C C#D D#E F F#G G#A A#B "

tempo=250
isku#=(60.0/tempo)*4*300*4/2

song$="E 28E 28E 28E 28F 28E 28E 28E 28F 28E 28E 28E 28D#28E 28E 28E 28"
song=song+"E 28E 28E 28E 28F 28E 28E 28E 28F 28E 28E 28E 28D#28E 28E 28E 28"
song=song+"D 28D 28D 28D 28D#28D 28D 28D 28D#28D 28D 28D 28C#28D 28D 28D 28"
song=song+"D 28D 28D 28D 28D#28D 28D 28D 28D#28D 28D 28D 28C#28D 28D 28D 28"
song=song+"F#14G 18F#18C#21F#24G 28F#28C#21F#14G 18F#18G 14F#24E 21"

For i=1 To 20

    ParseBeep2(song,isku)
    
Next i

Function ParseBeep2(song$,isku)
    bt=1
    While bt-1<(Len(song)/4)
        tmp$=Mid(song,bt*4-3,4)
        note$=Mid(tmp,1,2)
        l=Mid(tmp,4,1)
        If note="  " Then
            Wait Int(isku/l)
        Else
            Print Chr(34)+note+Chr(34)
            For i=1 To 12
                If Mid(NAMES,i*2-1,2)=note Then Exit
            Next i
            i=i+(Int(Mid(tmp,3,1))-1)*12
            t=Mid(NOTES,i*3-2,3)
            Beep(t,(isku/l))
        EndIf
        bt+1
    Wend
EndFunction

Code: Select all

Include "cbFUN\cbFUN.cb"

UkkoNooa_Huono_Piipperi$="1 1 1 3 2 2 2 4 3 3 2 2  1  3 3 3 3  5 5  4 4  2 2 2 2  4  3  1 1 1 3 2 2 2 4 3 3 2 2  1 1"

For i=1 To 2
    ParseBeep(UkkoNooa_Huono_Piipperi)
Next i

WaitKey

Function ParseBeep(_line$, kovuus = 100, pituus = 300, Kertoja=1)
    For i = 0 To CountWords(_line)
        word = GetWord(_line, i)
	number=word
	For PBiB=1 To Kertoja
            Beep(kovuus * number * 2 + number * (Rand(1,10)+Rand(0,5)) / Rand(1,5) / 3, pituus+(number/56)) //en kyllä tiedä mitä nämä parametrit tekevät, mutta laitoin ne vastaamaan omaa versiotasi
	Next PBiB
    Next i
EndFunction

Function ParseBeep_File(tiedosto$,kovuus=100,pituus=300)
    PBf=OpenToEdit(tiedosto)
        While Not EOF(PBf)
            turha=ReadLine(PBf)
            riveja=riveja+1
        Wend
    CloseFile PBf
    PBf=OpenToEdit(tiedosto)
        Dim linePBF(riveja) As String
        i=0
        For PBi=0 To riveja
            linePBF(PBi)=ReadLine(PBf)
        Next PBi
    CloseFile PBf
    For PBi=0 To riveja
        ParseBeep(linePBF(PBi),kovuus,pituus)
    Next PBi
EndFunction

Code: Select all

Include "cbFUN\cbFUN.cb"

song$="255 162 145"
song$=song$+"255 154 245 244 167"

Beepperi(song,10)


Function Beepperi(_line$,kertoja=4)
    lop=0
    Repeat
        For ie=1 To kertoja
            k+1
            If k>5
                k-5
                j-1
                If j<1
                    For i=1 To CountWords(_line)
                        j=GetWord(_line,i)
                        b$=GetWord(_line,i)
                        lopetus$=GetWord(_line,i)
                        If Upper(b)="L"
                            k=1
                            j=3
                            lop=1
                        EndIf
                        Beep(Int(k)*Int(j)+lop*20*3*3,100)
                    Next i
                EndIf
            EndIf
            Beep(Int(k)*(Int(j)*3)*5,200)
            If ie=kertoja+1 Then lop=1
        Next ie
    Until lop
EndFunction

Code: Select all

TypeStr(Chr(10) + Chr(13))