Page 7 of 9

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Thu Nov 27, 2008 1:15 pm
by TheFish
Sepi wrote:No niin niin, mutta olihan se tuossa koodissa jonka postasin aiemminkin, tuo cbfullscreen. Erona vain tuo värisyvyys tuossa välissä.
Tuo "cbfullscreen" on vain tavallinen vakio (jonka arvo on pikaisen testin perusteella 0). Eli jos laitat sen värisyvyyden paikalle, se vastaa samaa kuin jos kirjoittaisit siihen nollan.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Thu Nov 27, 2008 4:18 pm
by Sepi
Vai niin, hyvä tietää :D Luulin, että se määrittää sen värisyvyyden automaattisesti ja samalla laittaa kokoruutuun, jos siihen kirjoittaa cbfullscreen.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Fri Dec 19, 2008 8:44 pm
by Jani
miksi vain lataamis vaiheessa näkyy .rarit?

Käyttiksenä Vista Home Premium

EDIT: Lähettäiskö joku .zip pakettina tänne?

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sat Dec 20, 2008 4:53 am
by MAVmaggot
cbFUN sdk asennettuna.zip
cbFUN.zip
WinRAR
Oikeasti hankkikaa nyt ohjelmat jolla avata .rar-tiedostot.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sat Dec 20, 2008 10:51 am
by esa94

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sat Dec 20, 2008 3:57 pm
by phons
Tiiän ton. Se on ihan tyhmä ja sitä ei saa millään pois. :x Ainoa on tehtävienhallinta.
Miksi edes pistit sen?

Edit: Menee vähän Offtopic:si

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sat Dec 20, 2008 8:50 pm
by Jani
programmer of DSG wrote:Otan osaa, niin minulta tuli viel 2 parantelu ominaisuutta:
Jos saisi äänen tulon, ja sen nauhoottamisen + se ruutujen reunojen piilootus kokonaan... ne ois kivat :D
En tiedä että kerrottinko tämä jo, mutta näin onnistuu:

Code: Select all

Include "cbFUN\cbFUN.cb"

SetWindow "cb"

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

WaitKey
EDIT: Ei mistään löytynyt, niin oisiko jotain esimerkkejä Beep() functiolle? Yritin ukkonooaa soittaa mut äänet tulee ihan väärin.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sat Dec 20, 2008 11:28 pm
by Jani
Nopeutin vähän tuota Bepperin kakkos näytettä:

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
Niin niitä esimerkkejä Beep() funktiolle onko?

EDIT: Oma UkkoNooa Piipperi :D

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
Voit myös kirjoittaa tiedostoon pelkät numerot ja kutsua niitä ParseBeep_File(tiedosto$,kovuus,pituus) funktiolla

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Mon Dec 22, 2008 9:59 pm
by Jani
Sairaala Piipperi (pakko harjoitella)

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

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 06, 2009 9:29 pm
by Eur0-5isu
Onko tällä mahdollista jo mitenkään simuloida enterin painallusta? Jos ei niin onko ylipäätänsä keinoa cb:llä?

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 06, 2009 10:05 pm
by valscion
Eur0-5isu wrote:Onko tällä mahdollista jo mitenkään simuloida enterin painallusta? Jos ei niin onko ylipäätänsä keinoa cb:llä?

Code: Select all

TypeStr(Chr(10) + Chr(13))
Muuta en keksi...

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 06, 2009 10:11 pm
by Eur0-5isu
OonSuomesta wrote:
Eur0-5isu wrote:Onko tällä mahdollista jo mitenkään simuloida enterin painallusta? Jos ei niin onko ylipäätänsä keinoa cb:llä?

Code: Select all

TypeStr(Chr(10) + Chr(13))
Muuta en keksi...
Joo tuohan toimii. Kiitos.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 20, 2009 10:16 pm
by Siekkis
Hienolta näyttää, pitänee kokeilla kunhan saan cb:n taas asennetuksi. =) Tuli mieleen tuosta ikkunan piilotuksesta, että piilottaako se cb ikkunan, mutta pitää ohjelman yhä aktiivisena?

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 20, 2009 10:50 pm
by -Z-
Siekkis wrote:Hienolta näyttää, pitänee kokeilla kunhan saan cb:n taas asennetuksi. =) Tuli mieleen tuosta ikkunan piilotuksesta, että piilottaako se cb ikkunan, mutta pitää ohjelman yhä aktiivisena?
Omfg, Siekkis!

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Tue Jan 20, 2009 11:04 pm
by Siekkis
Täytynee vielä täsmentää, että tarkoitin edellisellä kysymykselläni sitä, että jos avaan vaikka mozilla selaimen päälimmäiseksi, niin toimiiko piilotettu cbohjelma edelleen aktiivisena?

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Wed Jan 21, 2009 8:54 am
by KilledWhale
Siekkis wrote:Täytynee vielä täsmentää, että tarkoitin edellisellä kysymykselläni sitä, että jos avaan vaikka mozilla selaimen päälimmäiseksi, niin toimiiko piilotettu cbohjelma edelleen aktiivisena?
Kyllä toimii. Tosin coolbasicin alkuperäiset komennot syötteiden lukemiseen eivät toimi.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sun Sep 13, 2009 6:27 pm
by Guest
VesQ wrote:

Code: Select all

blaah...
Muuta en keksi...
Äääääh kokeile ennenkun laitat tänne :x tuo esti minua tekemästä mitään.

En voinut edes sammuttaa konetta muualta kuin virtakytkimestä. :x

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Sun Sep 13, 2009 6:29 pm
by martti
Äs, jo toinen kerta peräkkäin kun unohdan kirjautua ennen kun lähetän viestin. :|

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Mon Sep 14, 2009 9:13 pm
by valscion
Vieras wrote:
VesQ wrote:

Code: Select all

blaah...
Muuta en keksi...
Äääääh kokeile ennenkun laitat tänne :x tuo esti minua tekemästä mitään.

En voinut edes sammuttaa konetta muualta kuin virtakytkimestä. :x
Se toimii kyllä mulla ihan hyvin. Näköjään konekohtainen ongelma, elä lähde mua turhaan syyttelemään.
EDIT: Ja niin näyttäis toimivan kysymyksen esittäneelläkin henkilöllä, katso vaikka sen vastaus.

Re: cbFUN lisäkirjasto CoolBasicille

Posted: Mon Sep 14, 2009 9:38 pm
by martti
Kyllä se toimi muttei saanu millään loppumaan, mutta mitäs menin googlaa jotain esimerkkii jossa ei ollu lopetus-käskyä.