cbFUN lisäkirjasto CoolBasicille

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: cbFUN lisäkirjasto CoolBasicille

Post 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.
CoolBasic henkilökuntaa
Kehittäjä
Sepi
Member
Posts: 84
Joined: Thu Jun 05, 2008 1:38 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Sepi »

Vai niin, hyvä tietää :D Luulin, että se määrittää sen värisyvyyden automaattisesti ja samalla laittaa kokoruutuun, jos siihen kirjoittaa cbfullscreen.
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jani »

miksi vain lataamis vaiheessa näkyy .rarit?

Käyttiksenä Vista Home Premium

EDIT: Lähettäiskö joku .zip pakettina tänne?
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: cbFUN lisäkirjasto CoolBasicille

Post by MAVmaggot »

cbFUN sdk asennettuna.zip
cbFUN.zip
WinRAR
Oikeasti hankkikaa nyt ohjelmat jolla avata .rar-tiedostot.
User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by esa94 »

Last edited by Pettis on Sat Dec 20, 2008 3:23 pm, edited 1 time in total.
Reason: Linkki poistettu
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: cbFUN lisäkirjasto CoolBasicille

Post 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
Image
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post 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.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post 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
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post 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
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Eur0-5isu
Active Member
Posts: 106
Joined: Mon Sep 01, 2008 5:12 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Eur0-5isu »

Onko tällä mahdollista jo mitenkään simuloida enterin painallusta? Jos ei niin onko ylipäätänsä keinoa cb:llä?
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post 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...
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Eur0-5isu
Active Member
Posts: 106
Joined: Mon Sep 01, 2008 5:12 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post 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.
Siekkis

Re: cbFUN lisäkirjasto CoolBasicille

Post 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?
User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: cbFUN lisäkirjasto CoolBasicille

Post 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!
"Fallout 3 (#10) marked a shift in the industry, a move that saw the western RPG begin to surpass its Japanese counterparts." -IGN top 100 RPGs of all time
Siekkis

Re: cbFUN lisäkirjasto CoolBasicille

Post 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?
KilledWhale
Tech Developer
Tech Developer
Posts: 545
Joined: Sun Aug 26, 2007 2:43 pm
Location: Liminka

Re: cbFUN lisäkirjasto CoolBasicille

Post 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.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
Guest

Re: cbFUN lisäkirjasto CoolBasicille

Post 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
martti
Newcomer
Posts: 27
Joined: Mon Aug 31, 2009 6:21 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by martti »

Äs, jo toinen kerta peräkkäin kun unohdan kirjautua ennen kun lähetän viestin. :|
OpenTTD

Projektit:
  • Land of guy's 10.0%
ylimääräistä:
---------------------------- ...kyläkaupunkiin.
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post 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.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
martti
Newcomer
Posts: 27
Joined: Mon Aug 31, 2009 6:21 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by martti »

Kyllä se toimi muttei saanu millään loppumaan, mutta mitäs menin googlaa jotain esimerkkii jossa ei ollu lopetus-käskyä.
OpenTTD

Projektit:
  • Land of guy's 10.0%
ylimääräistä:
---------------------------- ...kyläkaupunkiin.
Post Reply