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.Sepi wrote:No niin niin, mutta olihan se tuossa koodissa jonka postasin aiemminkin, tuo cbfullscreen. Erona vain tuo värisyvyys tuossa välissä.
cbFUN lisäkirjasto CoolBasicille
Re: cbFUN lisäkirjasto CoolBasicille
CoolBasic henkilökuntaa
Kehittäjä
Kehittäjä
Re: cbFUN lisäkirjasto CoolBasicille
Vai niin, hyvä tietää Luulin, että se määrittää sen värisyvyyden automaattisesti ja samalla laittaa kokoruutuun, jos siihen kirjoittaa cbfullscreen.
Re: cbFUN lisäkirjasto CoolBasicille
miksi vain lataamis vaiheessa näkyy .rarit?
Käyttiksenä Vista Home Premium
EDIT: Lähettäiskö joku .zip pakettina tänne?
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
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: cbFUN lisäkirjasto CoolBasicille
cbFUN sdk asennettuna.zip
cbFUN.zip
WinRAR
Oikeasti hankkikaa nyt ohjelmat jolla avata .rar-tiedostot.
cbFUN.zip
WinRAR
Oikeasti hankkikaa nyt ohjelmat jolla avata .rar-tiedostot.
Re: cbFUN lisäkirjasto CoolBasicille
Last edited by Pettis on Sat Dec 20, 2008 3:23 pm, edited 1 time in total.
Reason: Linkki poistettu
Reason: Linkki poistettu
Re: cbFUN lisäkirjasto CoolBasicille
Tiiän ton. Se on ihan tyhmä ja sitä ei saa millään pois. Ainoa on tehtävienhallinta.
Miksi edes pistit sen?
Edit: Menee vähän Offtopic:si
Miksi edes pistit sen?
Edit: Menee vähän Offtopic:si
Re: cbFUN lisäkirjasto CoolBasicille
En tiedä että kerrottinko tämä jo, mutta näin onnistuu: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
Code: Select all
Include "cbFUN\cbFUN.cb"
SetWindow "cb"
CreateRectRoundWindow("cb",3,23,ScreenWidth(),ScreenHeight(),0,0)
WaitKey
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: cbFUN lisäkirjasto CoolBasicille
Nopeutin vähän tuota Bepperin kakkos näytettä:
Niin niitä esimerkkejä Beep() funktiolle onko?
EDIT: Oma UkkoNooa Piipperi
Voit myös kirjoittaa tiedostoon pelkät numerot ja kutsua niitä ParseBeep_File(tiedosto$,kovuus,pituus) funktiolla
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
EDIT: Oma UkkoNooa Piipperi
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
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: cbFUN lisäkirjasto CoolBasicille
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
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: cbFUN lisäkirjasto CoolBasicille
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
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))
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
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Re: cbFUN lisäkirjasto CoolBasicille
Joo tuohan toimii. Kiitos.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ä?Muuta en keksi...Code: Select all
TypeStr(Chr(10) + Chr(13))
Re: cbFUN lisäkirjasto CoolBasicille
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?
- -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
Omfg, Siekkis!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?
"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
Re: cbFUN lisäkirjasto CoolBasicille
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?
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Kyllä toimii. Tosin coolbasicin alkuperäiset komennot syötteiden lukemiseen eivät toimi.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?
CoolBasic henkilökuntaa
Kehittäjä
cbFUN Kello
cbSDL
Whale.dy.fi
<@cce> miltäs tuntuu olla suomen paras
Kehittäjä
cbFUN Kello
cbSDL
Whale.dy.fi
<@cce> miltäs tuntuu olla suomen paras
Re: cbFUN lisäkirjasto CoolBasicille
Äääääh kokeile ennenkun laitat tänne tuo esti minua tekemästä mitään.VesQ wrote:Muuta en keksi...Code: Select all
blaah...
En voinut edes sammuttaa konetta muualta kuin virtakytkimestä.
Re: cbFUN lisäkirjasto CoolBasicille
Äs, jo toinen kerta peräkkäin kun unohdan kirjautua ennen kun lähetän viestin.
Re: cbFUN lisäkirjasto CoolBasicille
Se toimii kyllä mulla ihan hyvin. Näköjään konekohtainen ongelma, elä lähde mua turhaan syyttelemään.Vieras wrote:Äääääh kokeile ennenkun laitat tänne tuo esti minua tekemästä mitään.VesQ wrote:Muuta en keksi...Code: Select all
blaah...
En voinut edes sammuttaa konetta muualta kuin virtakytkimestä.
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
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Re: cbFUN lisäkirjasto CoolBasicille
Kyllä se toimi muttei saanu millään loppumaan, mutta mitäs menin googlaa jotain esimerkkii jossa ei ollu lopetus-käskyä.