Offtopic

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

Re: Offtopic

Post by Valtzu »

Ää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 »

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ä »

Jännä juttu...

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

Re: Offtopic

Post by CCE »

Äänen nauhotus cb:llä:
Kiitos tästä! Tuosta koodista voi kehitellä vaikka mitä hienompaa.
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Offtopic

Post by Jani »

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 »

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

Image
CoolBasic on tehty Blitzillä. Ainakin osittain.
temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Offtopic

Post by temu92 »

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.
osmo112
Member
Posts: 85
Joined: Tue Dec 09, 2008 10:56 pm

Re: Offtopic

Post by osmo112 »

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- »

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: 688
Joined: Thu Aug 30, 2007 5:11 pm
Location: Finland, Sipoo

Re: Offtopic

Post by Ruuttu »

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ä...
Cérebro
Newcomer
Posts: 35
Joined: Wed Jul 16, 2008 8:56 pm

Re: Offtopic

Post by Cérebro »

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
osmo112
Member
Posts: 85
Joined: Tue Dec 09, 2008 10:56 pm

Re: Offtopic

Post by osmo112 »

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

Re: Offtopic

Post by temu92 »

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).
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 »

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

Re: Offtopic

Post by temu92 »

WMA -> MP3 -> GP3

Tuossa järjestyksessä niin löytyy kyllä.
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 »

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

1Onko se GP3 vai GPP3?

EDIT:

2Videota joka toimisi puhelimessa

Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Offtopic

Post by Jani »

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 »

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.
rami123
Advanced Member
Posts: 354
Joined: Mon Jun 23, 2008 8:20 pm
Location: Kittilä

Re: Offtopic

Post by rami123 »

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

http://www.avs4you.com/AVS-Video-Converter.aspx
Tuxi
Active Member
Posts: 190
Joined: Wed Jan 21, 2009 10:25 pm
Contact:

Re: Offtopic

Post by Tuxi »

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