cbFUN lisäkirjasto CoolBasicille

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
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 Nov 14, 2007 8:56 pm

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

User avatar
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Valtzu » Sat Nov 17, 2007 7:14 pm

Waau, kivoja funktioita :shock:
Kun tuossa on tuo hiiren emulointikin, oliskos mahdollista tehdä myös näppäimistön "emulointi"?

User avatar
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 » Sat Nov 17, 2007 7:22 pm

Lol noobs, tällaisella mitään viruksia kuulu tehdä. Tämähän on hiano leikkikalu, saa vihdoin muokattua ikkunoita kuten tahtojaa.

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 » Sun Nov 18, 2007 10:24 am

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 5:18 pm

Re: cbFUN lisäkirjasto CoolBasicille

Post by Kerosiinipelle » Sun Nov 18, 2007 7:20 pm

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 » Sun Nov 18, 2007 7:29 pm

^^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 » Sun Nov 18, 2007 8:00 pm

Hehe :D
Hieno on. Vielä kun saisi taustavärin läpinäkyväksi ;)

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 » Mon Nov 19, 2007 8:52 am

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 » Mon Nov 19, 2007 4:31 pm

Niin, eli taustaväri on oletuksena musta, eikä sitä saa läpinäkyväksi? :/ Olisi nääs tarpeellinen tieto uuteen projektiini :roll:

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 » Mon Nov 19, 2007 8:31 pm

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

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: cbFUN lisäkirjasto CoolBasicille

Post by MaGetzUb » Mon Nov 19, 2007 8:42 pm

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.

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 » Mon Nov 19, 2007 9:04 pm

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

User avatar
redshadow
Newcomer
Posts: 8
Joined: Tue Oct 02, 2007 3:50 pm
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by redshadow » Sun Nov 25, 2007 12:50 pm

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 :)

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Harakka » Sun Nov 25, 2007 4:23 pm

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)

User avatar
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: cbFUN lisäkirjasto CoolBasicille

Post by Valtzu » Sun Nov 25, 2007 5:23 pm

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

User avatar
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 » Sun Nov 25, 2007 7:36 pm

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: 862
Joined: Mon Aug 27, 2007 10:18 pm
Location: Helsinki

Re: cbFUN lisäkirjasto CoolBasicille

Post by Jare » Mon Nov 26, 2007 3:41 pm

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 » Mon Nov 26, 2007 10:01 pm

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!

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: cbFUN lisäkirjasto CoolBasicille

Post by MaGetzUb » Wed Nov 28, 2007 7:47 pm

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 8:15 pm, edited 1 time in total.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

User avatar
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: cbFUN lisäkirjasto CoolBasicille

Post by iTKEVAnAKKI » Wed Nov 28, 2007 7:55 pm

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