Offtopic

Muu yhteisön välinen keskustelu.
User avatar
Valtzu
Active Member
Posts: 115
Joined: Sun Aug 26, 2007 2:40 pm
Location: Sauvo
Contact:

Re: Offtopic

Post by Valtzu » Thu Feb 05, 2009 7:54 pm

Äänen nauhotus cb:llä:

Code: Select all

Function mciSendString(t$)
    in=MakeMEMBlock(Len(t)+1)
    For i=1 To Len(t)
        PokeByte in,i-1,Asc(Mid(t,i,1))
    Next i
    PokeByte in,Len(t),0
    CallDLL "winmm","mciSendStringA",in
    DeleteMEMBlock in
End Function

Function StartRecord() 
    mciSendString("open new type waveaudio alias capture")
    mciSendString("set capture time format ms")
    mciSendString("set capture channels 2 bitspersample 16 alignment 4 samplespersec 44100 bytespersec 16000")
    mciSendString("record capture") 
End Function

Function StopRecord() 
    mciSendString("stop capture")
End Function 

Function SaveRecord(file As String)
    mciSendString("save capture " + file) 
    mciSendString("close capture")
End Function

Print "Paina enteriä aloittaaksesi nauhoituksen"
k = WaitKey()

If k<>cbKeyReturn Then End

Print "Nauhoitus käynnissä"
Print "Paina mitä tahansa näppäintä lopettaaksesi nauhoituksen"

StartRecord()
WaitKey

StopRecord()
Wait 100
SaveRecord("test.wav")

Print "Nauhoitus on tallennettu."
PlaySound "test.wav"
WaitKey


m1c
Member
Posts: 65
Joined: Tue Aug 28, 2007 5:10 pm
Location: \o

Re: Offtopic

Post by m1c » Thu Feb 05, 2009 9:41 pm

Jaaha, valtzu katellu blitzin esimerkkikoodeja. :) Aiheeseen liittyen: Äänen soiton aloittaminen mistä tahansa päin biisiä:

Code: Select all

file$ = "Media\SK_Battle2.mp3"

execmci("open " + file$ + " alias " + file$)

execmci("play " + file$ + " from 10000")



WaitKey


execmci("stop " + file$)
execmci("close " + file$)


Function execmci(cmdstring$)
    block = MakeMEMBlock(Len(cmdstring$))
    For i = 1 To Len(cmdstring$) - 1
        PokeByte block, i - 1, Asc(Mid(cmdstring$, i, 1))
    Next i
    PokeByte block, Len(cmdstring$), 0
    CallDLL "winmm.dll", "mciExecute", block
    DeleteMEMBlock block
End Function
Tosin biisin pituus on tiedettävä tai tulee erroria. Harmi että MCI:ltä ei palautusarvojen hakeminen taida onnistua ilman ulkopuolista dll:ää, koska mciSendString ei suostu toimimaan vailinnaisilla parametreillä.
EDIT:

Eikun jaa, sitähän sä käytätkin, oon ite säätänny jotain. :) Testaa saatko paluuarvot talteen!


ihmettelijä

Re: Offtopic

Post by ihmettelijä » Thu Feb 05, 2009 10:44 pm

Jännä juttu...

Image

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Offtopic

Post by CCE » Thu Feb 05, 2009 11:57 pm

Äänen nauhotus cb:llä:
Kiitos tästä! Tuosta koodista voi kehitellä vaikka mitä hienompaa.

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Offtopic

Post by Jani » Fri Feb 06, 2009 2:22 pm

En löytänyt Googlesta enkä Wikipediasta.
Sain siis lahjaksi Aiptek Media Tablet 10000U.
Miten saan asetettua esim. painikkeeseen K11 Firefoxin?
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic

Post by esa94 » Fri Feb 06, 2009 3:30 pm

ihmettelijä wrote:Jännä juttu...

Image
CoolBasic on tehty Blitzillä. Ainakin osittain.

User avatar
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Offtopic

Post by temu92 » Fri Feb 06, 2009 4:40 pm

Jani wrote:En löytänyt Googlesta enkä Wikipediasta.
Sain siis lahjaksi Aiptek Media Tablet 10000U.
Miten saan asetettua esim. painikkeeseen K11 Firefoxin?
Ohjekirja tai manuaali ajuricd:llä vois auttaa maby? Tuommosia kun ei ilman sellaista toimiteta ollenkaan. Ellei sitä ole sitten jostakin kirppikseltä ostettu. Ja Wacom on paras piirtopöydän valmistaja.

User avatar
osmo112
Member
Posts: 85
Joined: Tue Dec 09, 2008 11:56 pm

Re: Offtopic

Post by osmo112 » Fri Feb 06, 2009 9:01 pm

Ozmotic Thunder Gamesin foorumien moderaattorit ovat lähteneet yksi kerrallaan joten uusia tarvitaan!

Eli jokainen joka postaa yli 40 asiallista viestiä Ozmotic Thunder Gamesin foorumeille saa itselleen moderaattorin oikeudet!
Viimeksi moderaattorin paikan ansaitsi Boot, joten pidin sanani.

Moderaattori ehdokkaiden on luvattava käyttää valtaansa oikein spämmin ja asiattomuuden poistamiseen oikeudenmukaisesti!

Foorumit: http://ozmoticthundergames.munpalsta.com/index.php

User avatar
-Z-
Devoted Member
Posts: 682
Joined: Tue Aug 28, 2007 3:33 pm
Location: In ur danmaku, grazin ur bullets

Re: Offtopic

Post by -Z- » Sat Feb 07, 2009 12:39 am

osmo112 wrote:Ozmotic Thunder Gamesin foorumien moderaattorit ovat lähteneet yksi kerrallaan joten uusia tarvitaan!

Eli jokainen joka postaa yli 40 asiallista viestiä Ozmotic Thunder Gamesin foorumeille saa itselleen moderaattorin oikeudet!
Viimeksi moderaattorin paikan ansaitsi Boot, joten pidin sanani.

Moderaattori ehdokkaiden on luvattava käyttää valtaansa oikein spämmin ja asiattomuuden poistamiseen oikeudenmukaisesti!

Foorumit: http://ozmoticthundergames.munpalsta.com/index.php
Voi V...

Miksi, miksi, miksi tulet offtopic-ketjuun tästä meille kertomaan? Eikö sinulla ole peräti oma topic foorumeitasi varten, jossa voisit kertoa tästä mahtavasta tilaisuudesta niille, joita se kiinnostaa (Joita en kovin montaa usko olevan, poislukien tietysti trollit ja häiriköt)?

Edit: Ja sivuhuomautuksena voisin sanoa että foorumeilta löytyikin mahtaisa osmo-sitaatti.
"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

User avatar
Ruuttu
Devoted Member
Posts: 687
Joined: Thu Aug 30, 2007 5:11 pm
Location: Finland, Sipoo

Re: Offtopic

Post by Ruuttu » Sat Feb 07, 2009 9:56 am

Mitenkäs tässä nyt näin kävi? Kun poistan riviltä 32 täysin tarpeettoman SetWindow -rivin, tulee MAV!

Code: Select all

Global g_frameTime As Float
g_frameTime = 0.0
Global g_tmpTime As Integer
g_tmpTime = 0

Function PxPerSec(px#)
    Return px# * g_frameTime
End Function

Function FrameTime()
    Return g_frameTime
End Function

Function UpdateFrameTimer()
    curTime = Timer()
    If g_tmpTime = 0 Then g_tmpTime = curTime
    g_frameTime = (curTime - g_tmpTime) / 1000.0
    g_tmpTime = curTime
End Function

SCREEN 1024,768
scrh = 768

Type Balls
    Field X
    Field Y
    Field C As Float
    Field Size As Float
    Field Size2 As Float
End Type

SetWindow "Tämä koodirivi pelastaa päivän!"

timer1 = Timer()
timer2 = Timer()

ClsColor 255,255,255
Repeat

    If MouseDown(1) Then
        If Timer() - timer1 > 400 And epic = 0 Then epic = 1 : angle# = Rand(360)
    Else
        timer1 = Timer()
        epic = 0
    End If

    If MouseHit(1) Or (MouseDown(1) And epic = 1 And Timer() - timer2 > 60) Then
        timer2 = Timer()
        Ball.Balls = New(Balls)
        Ball\X = MouseX()
        Ball\Y = MouseY()
        Ball\C = Rand(360)
        Ball\Size = scrh/30
        Ball\Size2 = Rand(scrh*0.4,scrh*0.5)
        If epic = 1 Then Ball\C = angle : Ball\size2 = scrh/3 : angle# + 10
    End If

    For Ball.Balls = Each Balls
        r = 128+Cos(Ball\c)*127
        g = 128+Cos(ball\c+120)*127
        b = 128+Cos(ball\c+240)*127
        
        r = r + (254-r)*(ball\size / ball\size2)
        g = g + (254-g)*(ball\size / ball\size2)
        b = b + (254-b)*(ball\size / ball\size2)
        
        Color r,g,b
        Circle Ball\x-Ball\size/2,Ball\y-Ball\size/2,Ball\size
        
        Ball\size = Ball\size + pxpersec(Ball\size2)
        If Ball\size > Ball\size2 Then Delete Ball
    
    Next ball
    
    UpdateFrameTimer()

DrawScreen
Forever
Siis mitä hemmettiä...

User avatar
Cérebro
Newcomer
Posts: 35
Joined: Wed Jul 16, 2008 8:56 pm

Re: Offtopic

Post by Cérebro » Sat Feb 07, 2009 10:44 am

Ruuttu wrote:Mitenkäs tässä nyt näin kävi? Kun poistan riviltä 32 täysin tarpeettoman SetWindow -rivin, tulee MAV!

Code: Select all

...
Siis mitä hemmettiä...
Mavin aiheuttaa joku CoolBasicin bugi (ilmenee joillakin tietyillä koodimäärillä?).
Tämän voi korjata vaikka laittamalla koodin loppuun End-komennon tai tietysti koodamalla lisää ;).
cbLib | XMap
In development: EasyBasic - Basic-tyylinen peliohjelmointikieli

User avatar
osmo112
Member
Posts: 85
Joined: Tue Dec 09, 2008 11:56 pm

Re: Offtopic

Post by osmo112 » Sat Feb 07, 2009 4:35 pm

-Z- wrote:
osmo112 wrote:Ozmotic Thunder Gamesin foorumien moderaattorit ovat lähteneet yksi kerrallaan joten uusia tarvitaan!

Eli jokainen joka postaa yli 40 asiallista viestiä Ozmotic Thunder Gamesin foorumeille saa itselleen moderaattorin oikeudet!
Viimeksi moderaattorin paikan ansaitsi Boot, joten pidin sanani.

Moderaattori ehdokkaiden on luvattava käyttää valtaansa oikein spämmin ja asiattomuuden poistamiseen oikeudenmukaisesti!

Foorumit: http://ozmoticthundergames.munpalsta.com/index.php
Voi V...

Miksi, miksi, miksi tulet offtopic-ketjuun tästä meille kertomaan? Eikö sinulla ole peräti oma topic foorumeitasi varten, jossa voisit kertoa tästä mahtavasta tilaisuudesta niille, joita se kiinnostaa (Joita en kovin montaa usko olevan, poislukien tietysti trollit ja häiriköt)?

Edit: Ja sivuhuomautuksena voisin sanoa että foorumeilta löytyikin mahtaisa osmo-sitaatti.
Viimeksi kun postasin kamppanjastani oman foorumini topiciin, sain bannit koska en kuulemma pysynyt aiheessa!
Pistin varmuuden vuoksi tänne.

User avatar
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Offtopic

Post by temu92 » Sat Feb 07, 2009 4:40 pm

No täällä se kyllä vielä enemmän on ohi aiheen. Offtopicissa on tarkoitus puhua offtopic ja tuo oli ontopic (ainakin semmoseen aiheeseen joka on jo olemassa).

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 » Sat Feb 07, 2009 5:02 pm

Mistä saisin sellaisen ohjelman joka muuttaa WMA tiedostot GP3 tiedostoon?
latauslinkkiä?

Hain googlella vaikka millä hakusanoilla niin ei löytynyt..tai sitten en vaan osaa.

User avatar
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Offtopic

Post by temu92 » Sat Feb 07, 2009 5:08 pm

WMA -> MP3 -> GP3

Tuossa järjestyksessä niin löytyy kyllä.

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 » Sat Feb 07, 2009 5:43 pm

mistä sen mp3 -> GP3 saa ladattua?
videota yritän muokata oikeaan tiedostoon.
EDIT:

1Onko se GP3 vai GPP3?

EDIT:

2Videota joka toimisi puhelimessa


User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Offtopic

Post by Jani » Sat Feb 07, 2009 8:11 pm

Pitihän se taas kokeilla piirtää:
http://i40.tinypic.com/14llvk8.png
Kuvassa on muka pieni pilvi sen talon päällä ja se vesi valuu maahan:D
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic

Post by esa94 » Sat Feb 07, 2009 10:45 pm

rami123 wrote:mistä sen mp3 -> GP3 saa ladattua?
videota yritän muokata oikeaan tiedostoon.
EDIT:

1Onko se GP3 vai GPP3?

EDIT:

2Videota joka toimisi puhelimessa

Se on 3GP.

User avatar
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 » Sat Feb 07, 2009 10:53 pm

sain toimimaan latasin tuon niin alko toimimaan sillä saa monille eri videolle

http://www.avs4you.com/AVS-Video-Converter.aspx

User avatar
Tuxi
Active Member
Posts: 189
Joined: Wed Jan 21, 2009 11:25 pm
Contact:

Re: Offtopic

Post by Tuxi » Sun Feb 08, 2009 12:02 am

Onks toi guru-arvonimi paras, vai onko sen jälkeen vielä joku?
Projektit:
Jotain pientä (Ehkä vähän suurempaakin)

-Tuxi- (myös Tuxi4321)

Locked