Page 7 of 9
Re: cbFUN lisäkirjasto CoolBasicille
Posted: Thu Nov 27, 2008 12: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 3:18 pm
by Sepi
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
Posted: Fri Dec 19, 2008 7: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 3: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 9:51 am
by esa94
Re: cbFUN lisäkirjasto CoolBasicille
Posted: Sat Dec 20, 2008 2:57 pm
by phons
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
Re: cbFUN lisäkirjasto CoolBasicille
Posted: Sat Dec 20, 2008 7: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
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 10: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
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 8: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 8: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 9: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ä?
Muuta en keksi...
Re: cbFUN lisäkirjasto CoolBasicille
Posted: Tue Jan 06, 2009 9: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ä?
Muuta en keksi...
Joo tuohan toimii. Kiitos.
Re: cbFUN lisäkirjasto CoolBasicille
Posted: Tue Jan 20, 2009 9: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 9: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 10: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 7: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:
Muuta en keksi...
Äääääh kokeile ennenkun laitat tänne
tuo esti minua tekemästä mitään.
En voinut edes sammuttaa konetta muualta kuin virtakytkimestä.
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:
Muuta en keksi...
Äääääh kokeile ennenkun laitat tänne
tuo esti minua tekemästä mitään.
En voinut edes sammuttaa konetta muualta kuin virtakytkimestä.
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ä.