cbFUN lisäkirjasto CoolBasicille

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
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 »

Ei sitä luokitella virukseksi, ellei se leviä itsestään. Muuten se on vain "harmiton" pilailuohjelma.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Valtzu »

Waau, kivoja funktioita :shock:
Kun tuossa on tuo hiiren emulointikin, oliskos mahdollista tehdä myös näppäimistön "emulointi"?
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: cbFUN lisäkirjasto CoolBasicille

Post by koodaaja »

Lol noobs, tällaisella mitään viruksia kuulu tehdä. Tämähän on hiano leikkikalu, saa vihdoin muokattua ikkunoita kuten tahtojaa.
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 »

Valtzu wrote:Waau, kivoja funktioita :shock:
Kun tuossa on tuo hiiren emulointikin, oliskos mahdollista tehdä myös näppäimistön "emulointi"?
Näppäimistön emulointi olisi tarkoitus tehdä.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
Kerosiinipelle
Newcomer
Posts: 5
Joined: Sat Nov 17, 2007 4:18 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Kerosiinipelle »

Tähän voisi lisätä sellaiset pari ominaisuutta (joita itse tarvitsisin :twisted: ) että saisi Ctrl+Alt+Deleten pois toiminnasta ja että ohjelma käynnistyy itsestään Windowsin mukana.
Henkru
Advanced Member
Posts: 359
Joined: Sun Aug 26, 2007 2:46 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Henkru »

^^Tehtävän hallinan saa niin pois että, loopissa aina piilottaa tehtävän hallinnan tai sitten, jos painetaan Ctrl + alt + del niin tuhotaan tehtävän hallinan ikkuna. Tuon kohjelman käynistyksen saa sillen tehtyä, että kopioi exe:n

Code: Select all

C:\Documents and Settings\All Users\Käynnistä-valikko\Ohjelmat\Käynnistys
kansioon. Tuo edellinen ei ole kauhean luotettava tapa siksi että 1. Toimii vain suomen kilisessä WinXp:ssä ja suomenkilisessä 2000:ssa.
Pabni

Re: cbFUN lisäkirjasto CoolBasicille

Post by Pabni »

Hehe :D
Hieno on. Vielä kun saisi taustavärin läpinäkyväksi ;)
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 »

Kyllähän tuolla normaalit ikkunat menevät kokonaan läpinäkyviksi, mutta cb:n ikkunoissa kaikki sisältö jää normaaliksi.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
Pabnih
Newcomer
Posts: 34
Joined: Thu Sep 20, 2007 3:15 pm
Location: Hirvas

Re: cbFUN lisäkirjasto CoolBasicille

Post by Pabnih »

Niin, eli taustaväri on oletuksena musta, eikä sitä saa läpinäkyväksi? :/ Olisi nääs tarpeellinen tieto uuteen projektiini :roll:
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 »

SetWindowAlpha muuttaa läpinäkyvyyttä, mutta koska cb.ssä jokin kusee ja pahasti ikkunan sisällön läpinäkyvyys ei muutu, muuten kuin siirtämällä ikkunaa, jolloin kaikki sisältö katoaa häivytykseen.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: cbFUN lisäkirjasto CoolBasicille

Post by MaGetzUb »

mites on screenshottien paikka cbn omalla komennolla? saako otettua shotin jos ruutu on läpinäkyvä, eli siin kuvas näkysi ruudun taustaa ja sitte sitä kuvaa?!? :o
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
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 »

Kokeilin tässä cb:n screenshot() komennolla, ja vaikka alpha oli asetettuna 125 niin pelkkä musta ruutu näkyi.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras
redshadow
Newcomer
Posts: 8
Joined: Tue Oct 02, 2007 3:50 pm
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by redshadow »

Kokeilin tässä tehdä Beep() komennolla jonkunlaisia "kappaleen alkuja" esim. ukkonoa ja joistakin peleistä joitakin äänipätkiä. Aika vekkulilta kuulosti.
Kokeilkaapa muutkin. 8-)
Rc$ - infoa tulossa pian :)
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Harakka »

Haa, hauska idea. Innostuinpa ohjelmoimaan musakoneen joka päästelee tyylikkäitä retrolurituksia. Kappaleet voi säveltää itse suoraan tekstimuuttujaan. Ohjelmassa olisi vielä paljon parantamisen varaa mutta toimii se näinkin.

Code: Select all

Include "cbFUN\cbFUN.cb"

song$   = "300 8 200 8 80 8 100 8 LOOP"
song2$  = "500 1 50 1 400 1 50 1 300 1 50 1 200 1 50 1 300 1 50 1 400 1 50 1 300 1 50 1 200 1 50 1 LOOP"
song3$  = "10 1 20 1 30 1 40 1 500 1 450 1 300 1 LOOP"
song4$  = "10 8 15 8 10 8 8 6 LOOP"
song5$  = "60 1 10 1 70 1 20 1 80 1 30 1 80 1 40 1 300 4 200 4 595 8 LOOP"

playSong(song$,2)
playSong(song2$,4)
playSong(song3$,3)
playSong(song4$,1)
playSong(song5$,1)
End


Function PlaySong(notes$, loops = 1) 
    t = 0
    loop = 1
    Repeat
        k + 1
        If k > 3 Then
            k = 0
            j - 1
            If j < 1 Then
                t + 1
                j = GetWord(notes$,t*2)
                b$ = GetWord(notes$,(t*2) - 1)
                If b = "LOOP" Then
                    If loop < loops Then
                        t = 1
                        j = GetWord(notes$,t*2)
                        b = GetWord(notes$,(t*2) - 1)
                        k = 1
                        loop + 1
                    Else
                        Return 1
                    EndIf
                EndIf
            EndIf
        EndIf
        Beep(int(b) + int(k)*100,30)
    Forever
End Function
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Valtzu »

Tämä nyt menee vallan piipperikeskusteluksi, mutta minkäs teet...

Code: Select all

Include "cbFUN\cbFUN.cb"

Const NOTES = "131139147156165175185196208220233247262277294311330349370392415440466494523554587622659698740784831880932988"
Const NAMES = "C C#D D#E F F#G G#A A#B "

tempo=250
isku#=(60.0/tempo)*4*1000

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"

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
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by temu92 »

Valtzu wrote:Tämä nyt menee vallan piipperikeskusteluksi, mutta minkäs teet...

Code: Select all

koodi
Just paras :D
User avatar
Jare
Devoted Member
Posts: 877
Joined: Mon Aug 27, 2007 10:18 pm
Location: Pori
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jare »

En testannut vielä, mutta jos Lock-näppäinten tila on mahdollista asettaa, niin kai se on myös mahdollista lukea?

Tuohon voisi lisätä myös tiettyjen polkujen selvittämisen:
-Windows-kansio
-Käyttäjän työpöytä
-Käyttäjän My Documents
-Fonts
-Temp
-Program Files
-Käyttäjän Startup-kansio
-Sekä myös ihan pelkästään Windows-käyttäjän nimi
User avatar
elmo123
Active Member
Posts: 153
Joined: Sun Sep 09, 2007 4:19 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by elmo123 »

Ei toimi, asennus on onnistunut, varmaan johtuu siitä että mulla on vanha p**** Windows 98... :(
Taidan jäädä paljosta kivasta paitsi :cry:

...Mutten enää!
Vihdoin ja viimein sain viikko sitten vaarilta täysin käyttämättömän XP:n, jonka myötä saattaa vanha koneeni joutaa kirpputorille tai jopa kaatopaikalle! Tuo Harakan piipperi oli muuten hauskan kuuloinen! :D
Last edited by elmo123 on Mon Jul 20, 2009 4:53 pm, edited 2 times in total.
Kiinnostuin pelien tekemisestä ennen 1. luokkaa.
Sitten 3. luokalla tuli CB. Ja siitä se alkoi.

Blender! TF2! CB! Game Maker! Nokia-mollaus! Kitaransoitto! Breakdance! MadTracker! Minecraft!
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: cbFUN lisäkirjasto CoolBasicille

Post by MaGetzUb »

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
Last edited by MaGetzUb on Wed Nov 28, 2007 7:15 pm, edited 1 time in total.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: cbFUN lisäkirjasto CoolBasicille

Post by iTKEVAnAKKI »

Ja ite tarttisin sen, että ohjelma voisi laittaa tuonne alakulmaan(tray?). Voisi tehdä "hyötyohjelmia" :)
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
Post Reply