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 » Thu Nov 27, 2008 1:15 pm

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 » Thu Nov 27, 2008 4:18 pm

Vai niin, hyvä tietää :D Luulin, että se määrittää sen värisyvyyden automaattisesti ja samalla laittaa kokoruutuun, jos siihen kirjoittaa cbfullscreen.

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jani » Fri Dec 19, 2008 8:44 pm

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

User avatar
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: cbFUN lisäkirjasto CoolBasicille

Post by MAVmaggot » Sat Dec 20, 2008 4:53 am

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 » Sat Dec 20, 2008 10:51 am

Last edited by Pettis on Sat Dec 20, 2008 4:23 pm, edited 1 time in total.
Reason: Linkki poistettu
⁴⁰Ar
<@mikeful> kissatehtaalla on miukuhihna.

User avatar
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: cbFUN lisäkirjasto CoolBasicille

Post by phons » Sat Dec 20, 2008 3:57 pm

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

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jani » Sat Dec 20, 2008 8:50 pm

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

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jani » Sat Dec 20, 2008 11:28 pm

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

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jani » Mon Dec 22, 2008 9:59 pm

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

User avatar
Eur0-5isu
Active Member
Posts: 106
Joined: Mon Sep 01, 2008 5:12 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Eur0-5isu » Tue Jan 06, 2009 9:29 pm

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: 1584
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by valscion » Tue Jan 06, 2009 10:05 pm

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

User avatar
Eur0-5isu
Active Member
Posts: 106
Joined: Mon Sep 01, 2008 5:12 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Eur0-5isu » Tue Jan 06, 2009 10:11 pm

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 » Tue Jan 20, 2009 10:16 pm

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- » Tue Jan 20, 2009 10:50 pm

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 » Tue Jan 20, 2009 11:04 pm

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?

User avatar
KilledWhale
Tech Developer
Tech Developer
Posts: 543
Joined: Sun Aug 26, 2007 2:43 pm
Location: Liminka

Re: cbFUN lisäkirjasto CoolBasicille

Post by KilledWhale » Wed Jan 21, 2009 8:54 am

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 » Sun Sep 13, 2009 6:27 pm

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 » Sun Sep 13, 2009 6:29 pm

Ä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: 1584
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by valscion » Mon Sep 14, 2009 9:13 pm

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 » Mon Sep 14, 2009 9:38 pm

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

Who is online

Users browsing this forum: No registered users and 1 guest