http://www.coolbasic.com/oldforumsOonSuomesta wrote:Anteeksi nyt hieman offtopikkia, mutta voiskos joku heittää linkin näille paljon puhutuille "vanhoille foorumeille"?Henkru wrote:Voihan sen lähdekoodin tehdä vaikka notepadillä, mutta tarvitaan sitten se kääntäjä joka kääntää sen lähdekoodin DLLksi. Kannattaa kattoa se Marcoderin DLL-opas. Löytyy vanhoilta foorumeilta.
cbFUN lisäkirjasto CoolBasicille
Re: cbFUN lisäkirjasto CoolBasicille
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: cbFUN lisäkirjasto CoolBasicille
Juu eli ihan tässä yleisesti: olen ottanyt lomaa ohjelmoinnista.programmer of DSG wrote:Hmmm... todella mielen kiintoinen... Onko sellaista funkkaria tuolla jolla sais ruudun reunat pois on/off tyylillä? Jos on olisin todella kiitollinen...
Offtopick: edittaan sitte jos löydän sen , ja kiitän tietysti
... mutta asiaan
Itse onnistuin saamaan reunat pois SetWindowAlphalla. Cb kun kusee eika osaa käsitellä ruudun sisältöä kunnolla niin sisältö jää sitten yksin ruudulle.
kas näin.
Code: Select all
Include "cbFUN\cbFUN.cb"
SetWindow "cb"
SetWindowAlpha("cb", 0)
For i=0 To 400
Text 0,0,"Hoo, ei reunoja!"
Text 0,15,i
DrawScreen
Next i
Cls
Text 0,0,"Tää teksti jä tähän viel hilluu..."
DrawScreen
Since 24-March 05
Re: cbFUN lisäkirjasto CoolBasicille
Kiitti tuost on tosipaljo hyötyä... "Thanks to you" (Itte en oo mikää älykkö, mutta noh..)
EDIT:
Erm... kuva jäi näyttöön kummittelemaan.. CBn kuvan käsittelyt on suolesta... Se on kylmä tosiasia.
Solar Eclipse
We're in a simulation, and God is trying to debug us.
Re: cbFUN lisäkirjasto CoolBasicille
Olis kiva jos ton _putpixel komennon saisi toimimaan muillakin väreillä.
Lisäksi tuo piipperinsoittofunktio sai minulla piipperin soimaan kerran, jonka jälkeen koko cbrun.exe kaatui.
Eli vähän on säätämistä, mutta muuten tää on TOSI UPEE!!!!!
KIITOS!!!
Offtopic:
Tein Joulun kunniaksi ohjelman joka vilkuttaa näppäimistövaloja joulumusiikin tahdissa. Mutku on Acerin kone ni aina ku painaa Scroll Lockia ni aukee Acerin Emprowering Center -ohjelma. Siitä tuli vähän ongelmia. Lopulta piti poistaa koko emprowering center. Ois kiva jos vois säätää niin että se valo syttyy, muttei se toiminto kuitenkaan tapahdu.
Lisäksi tuo piipperinsoittofunktio sai minulla piipperin soimaan kerran, jonka jälkeen koko cbrun.exe kaatui.
Eli vähän on säätämistä, mutta muuten tää on TOSI UPEE!!!!!
KIITOS!!!
Offtopic:
Tein Joulun kunniaksi ohjelman joka vilkuttaa näppäimistövaloja joulumusiikin tahdissa. Mutku on Acerin kone ni aina ku painaa Scroll Lockia ni aukee Acerin Emprowering Center -ohjelma. Siitä tuli vähän ongelmia. Lopulta piti poistaa koko emprowering center. Ois kiva jos vois säätää niin että se valo syttyy, muttei se toiminto kuitenkaan tapahdu.
Re: cbFUN lisäkirjasto CoolBasicille
Ummm... mistäs toi marcoderin dll-opas löytyy??? (jostain syystä oldforumin hakutoiminto ei toimi )
esimerkeissä vai projuissa
esimerkeissä vai projuissa
Re: cbFUN lisäkirjasto CoolBasicille
http://koti.mbnet.fi/marcoder/cb/dll/Vieras wrote:Ummm... mistäs toi marcoderin dll-opas löytyy??? (jostain syystä oldforumin hakutoiminto ei toimi )
esimerkeissä vai projuissa
Re: cbFUN lisäkirjasto CoolBasicille
Itselläni ainakin toimii tuo _putpixel kaikilla väreillä (0-16.7milj.), vaikka ohjeissakin lukee että toimii vain musta, mitä ihmettä GetPixel(0,0) edes tekee siinä esimerkkikoodissa?Ruuttu1 wrote:Olis kiva jos ton _putpixel komennon saisi toimimaan muillakin väreillä.
Asettamalla tuon ihme GetPixelin sijalle jokin arvo väliltä 0-16.7milj. saadaan kaikki värit näkymään.
Re: cbFUN lisäkirjasto CoolBasicille
Eipähä mulla ainakaan toimi mikään muu väri.Marcor wrote:Itselläni ainakin toimii tuo _putpixel kaikilla väreillä (0-16.7milj.), vaikka ohjeissakin lukee että toimii vain musta, mitä ihmettä GetPixel(0,0) edes tekee siinä esimerkkikoodissa?Ruuttu1 wrote:Olis kiva jos ton _putpixel komennon saisi toimimaan muillakin väreillä.
Asettamalla tuon ihme GetPixelin sijalle jokin arvo väliltä 0-16.7milj. saadaan kaikki värit näkymään.
Yritin tehä kuvan piirtoa tuloksetta..
Code: Select all
Include "cbFUN\cbFUN.cb"
map=LoadImage("media\map.bmp")
Repeat
_DrawImage(map,0,0)
DrawScreen
Forever
Function _DrawImage(img,x,y)
Lock Image(img)
For Xd=1 To ImageWidth(img)
For Yd=1 To ImageHeight(img)
_PutPixel(x+xd,y+yd,GetPixel2(XD,YD,Image(img)))
Next Yd
Next Xd
Unlock Image(img)
EndFunction
Solar Eclipse
We're in a simulation, and God is trying to debug us.
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Coolbasicin pikseliarvot eivät yllä 16 miljoonaan asti.
Kokeile saatko haluamasi värin
Kokeile saatko haluamasi värin
Code: Select all
väri=( b + (g Shl 8) + (r Shl 16) + (a Shl 24) )
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
Code: Select all
For x=1 To 100
For y=1 To 100
_PutPixel(x,y,Rand(1,16700000))
Next y
Next x
programmer of DSG wrote: Eipähä mulla ainakaan toimi mikään muu väri.
Yritin tehä kuvan piirtoa tuloksetta..
Code: Select all
kuva=LoadImage("kuva.jpg")
ResizeImage kuva,100,100
For x=1 To 100
For y=1 To 100
PickImageColor kuva,x,y
_PutPixel(x,y,(getRGB(BLUE) + (getRGB(GREEN) Shl 8) + (getRGB(RED) Shl 16) + (a Shl 24) ))
Next y
Next x
Kyllä saan, ainakin suurinpiirtein, ainoastaan vähän sinertää se väri. Mikä tuo "a" on?KilledWhale wrote:Coolbasicin pikseliarvot eivät yllä 16 miljoonaan asti.
Kokeile saatko haluamasi värinCode: Select all
väri=( b + (g Shl 8) + (r Shl 16) + (a Shl 24) )
-
- Moderator
- Posts: 1583
- Joined: Mon Aug 27, 2007 11:24 pm
- Location: Otaniemi - Mikkeli -pendelöinti
Re: cbFUN lisäkirjasto CoolBasicille
RGBA nevahööd? D: sehän on alpha eli läpinäkyvyyskanava. Laita siihen 255, silloin pikseli on kokonaan näkyvä.Marcor wrote:Kyllä saan, ainakin suurinpiirtein, ainoastaan vähän sinertää se väri. Mikä tuo "a" on?KilledWhale wrote:Coolbasicin pikseliarvot eivät yllä 16 miljoonaan asti.
Kokeile saatko haluamasi värinCode: Select all
väri=( b + (g Shl 8) + (r Shl 16) + (a Shl 24) )
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Uutta versiota alkaisi pikkuhiljaa olla valmiina, kunhan innostun ohjeita kirjoittamaan. Nyt olisi mahdollisuus saada omia toiveita mukaan pakettiin.
Uutta:
DestroyWindow() tuhoaa nyt minkä tahansa ikkunan
_GetPixel() poimii ruudulta pikselin
GetEnv() hakee pyydetyn osion sijainnin windowsista
TypeStr() matkii näppäimistöä
SetWindowText() vaihtaa minkä tahansa ikkunan otsikon
Uutta:
DestroyWindow() tuhoaa nyt minkä tahansa ikkunan
_GetPixel() poimii ruudulta pikselin
GetEnv() hakee pyydetyn osion sijainnin windowsista
TypeStr() matkii näppäimistöä
SetWindowText() vaihtaa minkä tahansa ikkunan otsikon
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
Tämä koodi toimii:
Ongelmana teidän koodeissa on vain se, että käytitte väärin päin värejä _PutPixel komennossa. Järjestyshän on RED, GREEN, BLUE eikä mikään BLUE, GREEN, RED
Code: Select all
Include "cbFUN\cbFUN.cb"
kuva=LoadImage("Media/guy.bmp")
For x=1 To ImageWidth(kuva)
For y=1 To ImageHeight(kuva)
PickImageColor kuva,x,y
_PutPixel(x,y,(getRGB(RED) + (getRGB(GREEN) Shl 8) + (getRGB(BLUE) Shl 16)))
Next y
Next x
DrawScreen
WaitKey
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
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: cbFUN lisäkirjasto CoolBasicille
Kirjoittaa tekstiä automaattisesti ilman näppäimistöä? Eli voisko tällä tehdä auto-typerin?KilledWhale wrote:TypeStr() matkii näppäimistöä
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Kyllä. Tosin tuo tukee vain kirjaimia, mutta sekin asia on korjattavissa.Grandi wrote: Kirjoittaa tekstiä automaattisesti ilman näppäimistöä? Eli voisko tällä tehdä auto-typerin?
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
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Uusi versio ulkona
Uusi versio on vihdoin valmistunut ja on ladattavissa tämän viestin alalaidasta. Uuteen versioon on korjattu manuaalia, lisätty pari uutta funktiota ja korjattu DestroyWindowin bugi. Versio tulee näillä näkymin olemaan viimeinen, ellei löydy bugeja tai uusia ideoita tule enemmän kuin viisi. Kehitysideoita ja bugiraportteja voi edelleen lähetellä yksityisviestinä.
Uusi versio sisältää:
-Korjattu DestroyWindow, joka nyt tuhoaa minkä tahansa ikkunan
-Lisätty TypeStr näppäimistön matkimiseen
-Lisätty getenv jolla voit hakea ympäristömuuttujia
-Lisätty _GetPixel jolla voit poimia koko ruudulta pikselin
-Lisätty SetWindowText jolla voit muuttaa jonkin ikkunan otsikon
Lataa:
Jos sinulla on asennettu CoolBasic SDK niin lataa tämä paketti http://koti.mbnet.fi/henkruz/cbFUN/cbFU ... alled).rar
Jos CoolBasic SDK ei ole asennettettunu, lataa tämä paketti http://koti.mbnet.fi/henkruz/cbFUN/cbFUN.rar
Pura paketti Coolbasicin kansioon ja asennus on valmis.
Uusi versio on vihdoin valmistunut ja on ladattavissa tämän viestin alalaidasta. Uuteen versioon on korjattu manuaalia, lisätty pari uutta funktiota ja korjattu DestroyWindowin bugi. Versio tulee näillä näkymin olemaan viimeinen, ellei löydy bugeja tai uusia ideoita tule enemmän kuin viisi. Kehitysideoita ja bugiraportteja voi edelleen lähetellä yksityisviestinä.
Uusi versio sisältää:
-Korjattu DestroyWindow, joka nyt tuhoaa minkä tahansa ikkunan
-Lisätty TypeStr näppäimistön matkimiseen
-Lisätty getenv jolla voit hakea ympäristömuuttujia
-Lisätty _GetPixel jolla voit poimia koko ruudulta pikselin
-Lisätty SetWindowText jolla voit muuttaa jonkin ikkunan otsikon
Lataa:
Jos sinulla on asennettu CoolBasic SDK niin lataa tämä paketti http://koti.mbnet.fi/henkruz/cbFUN/cbFU ... alled).rar
Jos CoolBasic SDK ei ole asennettettunu, lataa tämä paketti http://koti.mbnet.fi/henkruz/cbFUN/cbFUN.rar
Pura paketti Coolbasicin kansioon ja asennus on valmis.
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
Bugi, vai enkö vain osaa.
Tuossahan pitäsi tulla teksti "jee", jos painaa "a"-näppäintä(tarkistettu cb:n ascii-taulukosta).
Kun testaan, tekstiä tulee jatkuvasti.
Toinen kysymys: miten typestr:ssä saa enterin?
Code: Select all
Include "cbFUN.cb"
SetWindow "Autotalker",2
Repeat
If GetAscKey(65) Then TypeStr("jee")
DrawScreen
Forever
Kun testaan, tekstiä tulee jatkuvasti.
Toinen kysymys: miten typestr:ssä saa enterin?
CoolBasic henkilökuntaa
Graafikko
Graafikko
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: cbFUN lisäkirjasto CoolBasicille
Se tukee vain kirjaimia, kuten Killedwhale sanoi.Pate5 wrote:Toinen kysymys: miten typestr:ssä saa enterin?
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: cbFUN lisäkirjasto CoolBasicille
Kyllä tuo sinun koodisi ainakin minulla toimi niin kuin sanoit.Pate5 wrote:Bugi, vai enkö vain osaa.
Tuossahan pitäsi tulla teksti "jee", jos painaa "a"-näppäintä(tarkistettu cb:n ascii-taulukosta).Code: Select all
Include "cbFUN.cb" SetWindow "Autotalker",2 Repeat If GetAscKey(65) Then TypeStr("jee") DrawScreen Forever
Kun testaan, tekstiä tulee jatkuvasti.
Toinen kysymys: miten typestr:ssä saa enterin?
Enter ja muut erikoisnäppäimet laitan mahdollisesti myöhemmin.
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
tuon TypeStr:n esimerkkikoodi ei toimi minulla... Missä vika?