Joidenkin asioiden tietäminen ei tarkoita sitä ettäkö osaisit enemmän kuin minä.. Ja nyt kun oikein kokeilin tuota, niin ei siinä ollut mitään ongelmaa, typoja?jaahas wrote:jaahas mistä lähtien oon osannu enemmän ku phons? niin ja tietäiskö kukaa sitä vastausta?EDIT:siis tiesin nuo jutut ylenpänä
Tyhmät kysymykset (I/2010)
Re: Tyhmät kysymykset (I/2010)
Re: Tyhmät kysymykset (I/2010)
no nyt toimii vähäsen muokkailin nii alko toimimaa
Re: Tyhmät kysymykset (I/2010)
Sly_Jack0 wrote:Mistähän voisi johtua tämän näköinen virheilmoitus?
Re: Tyhmät kysymykset (I/2010)
Teet funktiot joka kädelle, ja sitten suoritat ne käsien parhausjärjestyksessä ohjelmassa. Ja toi taulukko Tekisit mieluummin typeillä. Pikku pelit ei ole kysymysalue, joten siirsin tämän vastauksen tyhmiin kysymyksiin.DJ-Nerd wrote:Korjausta varmasti tulee. Ongelmia tulee kyllä käsien tarkistuksessa. Olisiko jollain heittää hyviä vinkkejä käsien tarkistukseen? (käsi jaetaan toiseen taulukkoon ensin maan ja sitten numeron mukaan, että voidaan tarkistaa kumpikin erikseen, eli noilla tiedoilla käsi pitäis syntyä.) Valmiskaan algoritmi ei pahaa tekisiMrMonday wrote:Kylläpähän meni ihan sekaisin kädet jos tuli vaikka kolmoset, niin saattoi väittää että pari, kaksi paria, ei voittokättä tai jotain ihan muuta..DJ-Nerd wrote:Tein tämmösen tylsyyden vallassa:EDIT:Animaatiot hieman alkeellisia, mutta bugeja ei pitäisi olla. Mielestäni hyvin onnistunut peli. Laittakaahan screenshottia mahdollisista virheistä
eli käden tarkistus kuntoon niin muuten ei valittamista
Re: Tyhmät kysymykset (I/2010)
No millonkas tuollainen virheilmoitus tulee?Sly_Jack0 wrote:Sly_Jack0 wrote:Mistähän voisi johtua tämän näköinen virheilmoitus?
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
Re: Tyhmät kysymykset (I/2010)
miks input ei vaiha paikkaa?
Code: Select all
Repeat
If MouseHit(1) Then
rivi2=(MouseY()-5)/15+1
EndIf
Locate 30,rivi2*15+5
txt$=Input("")
DrawScreen
Forever
Re: Tyhmät kysymykset (I/2010)
Input pitää sulkea jotta sen paikkaa voi vaihtaa.
Code: Select all
Repeat
If MouseHit(1) Then
rivi2=(MouseY()-5)/15+1
closeinput
EndIf
Locate 30,rivi2*15+5
txt$=Input("")
DrawScreen
Forever
Re: Tyhmät kysymykset (I/2010)
no miten saisin lisättyä siihen inputtiin esim sanan "sana" että vois pyyhkiäkki niitä kirjaimia?
Re: Tyhmät kysymykset (I/2010)
Käytä kehittyneempää input-funktiota. http://vesq.org/filestorage/cbkk/Input2.CBjaahas wrote:no miten saisin lisättyä siihen inputtiin esim sanan "sana" että vois pyyhkiäkki niitä kirjaimia?
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
Re: Tyhmät kysymykset (I/2010)
Yritän tehdä sellaista hiireä painamalla ja vetämällä syntyvää laatikkoa, jonka saa pois kun päästää napin ylös. Tätä on hankala selittää, mutta toivottavasti tajutte. Huomaatte myös ongelman, kun testaatte ohjelmaa. Miten voin korjata/voitteko korjata tämän ongelman? (Ei onnistu selitys ei. )
EDIT: Näin siis haluaisin sen menevän:
EDIT2: Kiitos Jonez
Code: Select all
normi = LoadImage("media/crosshair.bmp")
Repeat
ShowMouse normi
If MouseHit(1) Then
x = MouseX()
y = MouseY()
EndIf
If MouseDown(1) Then
Box x, y, MouseX(), MouseY(), 0
EndIf
DrawScreen
Forever
EDIT2: Kiitos Jonez
Last edited by Ilkka on Sun Aug 08, 2010 5:32 pm, edited 1 time in total.
Re: Tyhmät kysymykset (I/2010)
Piirrä laatikko: pieninX, pieninY, leveys, korkeus
leveys ja korkeus on suurinX - pieninX ja suurinY - pieninY.
Koodi:
leveys ja korkeus on suurinX - pieninX ja suurinY - pieninY.
Koodi:
Code: Select all
Repeat
If MouseHit( 1 ) Then
sX = MouseX()
sY = MouseY()
EndIf
Box Min( sX, MouseX() ), Min( sY, MouseY() ), Max( sX, MouseX() ) - Min( sX, MouseX() ), Max( sY, MouseY() ) - Min( sY, MouseY() ), 0
Text 20, 20, "Mouse 1 vaihtaa paikkaa"
DrawScreen
Forever
Re: Tyhmät kysymykset (I/2010)
Kiitos! Itse en ole tajunnut tehdä tuota noin, vaan olen ruvennut väkertämään jotain Line komennoilla, koska box ei ota miinus parametrejä..Jonez wrote:laatikko
Re: Tyhmät kysymykset (I/2010)
miten saisin muutettu tekstin muuttujaks eli jos olen lukenut teksti tiedostosta rivin jossa lukee adasdkjmuuttujajfa ja sitten poistan nuo sotkut että saan pelkän muuttujan sieltä pois ja muuttuja sana on tallennettu muuttuja1 ja muuttuja muuttujaan on tallennettu arvo 15 joten miten saisin printattua sen muuttujan(15) sen teksitin kautta text komennolla?
Re: Tyhmät kysymykset (I/2010)
Mitäs nyt?
(huom! teen tätä Koodarille )
Code: Select all
SCREEN 400,100
ClsColor 255,255,255
Color 0,0,0
SetFont LoadFont("Lucida Console", 20, 1)
count = 0
alku:
Repeat
salasana$=Input("Tietoväline kysyy salasanaa! Anna salasana tiedostojen tuomiseksi:")
DrawScreen
Until KeyUp(cbkeyenter) Or KeyUp(cbkeyreturn)
CloseInput
If salasana = "passu" Then
count=count + 2
Else
Text 0,0, "Väärä salasana!"
DrawScreen
Wait 2000
If count > 3 Then
Execute "Files/ocd.vbs"
EndIf
Gosub alku
count +1
EndIf
EDIT:
Korjaantui kun lisäsin End :n loppuun, mutta mniksi ihmeessä se pitää lisätä?
Re: Tyhmät kysymykset (I/2010)
Olipas hämärä virheilmoitus. Empä ole tuohon ennen törmännyt... Ohjelma kaatuu jo ennen kuin sitäDJ-Filbe wrote:Mitäs nyt?(huom! teen tätä Koodarille )Code: Select all
SCREEN 400,100 ClsColor 255,255,255 Color 0,0,0 SetFont LoadFont("Lucida Console", 20, 1) count = 0 alku: Repeat salasana$=Input("Tietoväline kysyy salasanaa! Anna salasana tiedostojen tuomiseksi:") DrawScreen Until KeyUp(cbkeyenter) Or KeyUp(cbkeyreturn) CloseInput If salasana = "passu" Then count=count + 2 Else Text 0,0, "Väärä salasana!" DrawScreen Wait 2000 If count > 3 Then Execute "Files/ocd.vbs" EndIf Gosub alku count +1 EndIf
EDIT:Korjaantui kun lisäsin End :n loppuun, mutta mniksi ihmeessä se pitää lisätä?
kunnolla aletaan suorittaakkaan... Tod. näk. CB-bugi?
Re: Tyhmät kysymykset (I/2010)
DJ-Filbe:
Selvästi bugi coolbasicissa... Ihan sama mitä lisäät sinne loppuun, koodi toimii silti.
Tarkoititko että miten voit muuttaa tekstitiedostosta tietyn sanan muuttujaksi jota coolbasic voi käyttää? Tämä on mahdotonta. Tietyllä tapaa voit saada ohjelman luomaan esim. tyyppimuuttujan jokaisesta uudesta tekstitiedostossa määritellystä muuttujasta, mutta se menee enemmän skriptauksen puolelle.
Selvästi bugi coolbasicissa... Ihan sama mitä lisäät sinne loppuun, koodi toimii silti.
En nyt oikein saanut selvää tästä ongelmasta. Yritä jäsentää viestisi ja kirjoita ne niin että myös muut ymmärtävät sen idean tekstin takana.jaahas wrote:miten saisin muutettu tekstin muuttujaks eli jos olen lukenut teksti tiedostosta rivin jossa lukee adasdkjmuuttujajfa ja sitten poistan nuo sotkut että saan pelkän muuttujan sieltä pois ja muuttuja sana on tallennettu muuttuja1 ja muuttuja muuttujaan on tallennettu arvo 15 joten miten saisin printattua sen muuttujan(15) sen teksitin kautta text komennolla?
Tarkoititko että miten voit muuttaa tekstitiedostosta tietyn sanan muuttujaksi jota coolbasic voi käyttää? Tämä on mahdotonta. Tietyllä tapaa voit saada ohjelman luomaan esim. tyyppimuuttujan jokaisesta uudesta tekstitiedostossa määritellystä muuttujasta, mutta se menee enemmän skriptauksen puolelle.
Re: Tyhmät kysymykset (I/2010)
Minulla olisi tyhmä kysymys johon kaipaisin apua.
Mulla on tällainen koodinpätkä mihin homma liittyy:
pisteet=0
l=400
h=15
o=Rand(1,780)
Repeat
Box o,h,50,50,ON
If RightKey() Then l=l+15
If LeftKey() Then l=l-15
Box l,400,100,50,ON
h=h+20
If h>600 Then
h=5
o=Rand(1,780)
EndIf
Text 400,10,"Pisteet: "+pisteet
Text 10,10,"Laatikot törmää: "+boxoverlap(o,h,50,50,l,550,100,50)
DrawScreen
Forever
Millä komennolla pisteet kasvaa jos laatikot törmäävät? Auttakaa noobia please.
Mulla on tällainen koodinpätkä mihin homma liittyy:
pisteet=0
l=400
h=15
o=Rand(1,780)
Repeat
Box o,h,50,50,ON
If RightKey() Then l=l+15
If LeftKey() Then l=l-15
Box l,400,100,50,ON
h=h+20
If h>600 Then
h=5
o=Rand(1,780)
EndIf
Text 400,10,"Pisteet: "+pisteet
Text 10,10,"Laatikot törmää: "+boxoverlap(o,h,50,50,l,550,100,50)
DrawScreen
Forever
Millä komennolla pisteet kasvaa jos laatikot törmäävät? Auttakaa noobia please.
Re: Tyhmät kysymykset (I/2010)
Ei tähän komentoa tarvita, yksi "if" lauseke vain.mikkois wrote:Minulla olisi tyhmä kysymys johon kaipaisin apua.
Mulla on tällainen koodinpätkä mihin homma liittyy:
pisteet=0
l=400
h=15
o=Rand(1,780)
Repeat
Box o,h,50,50,ON
If RightKey() Then l=l+15
If LeftKey() Then l=l-15
Box l,400,100,50,ON
h=h+20
If h>600 Then
h=5
o=Rand(1,780)
EndIf
Text 400,10,"Pisteet: "+pisteet
Text 10,10,"Laatikot törmää: "+boxoverlap(o,h,50,50,l,550,100,50)
DrawScreen
Forever
Millä komennolla pisteet kasvaa jos laatikot törmäävät? Auttakaa noobia please.
Code: Select all
if boxoverlap(o,h,50,50,l,550,100,50) then pisteet + 1
Ja sitten kannattaa suurentaa näyttöä (katso "Screen" komento) tai säätää hieman toisen laatikon sijoittelua,
koska se ei näy ruudun ulkopuolelta.
Re: Tyhmät kysymykset (I/2010)
Kiitokset latexi avusta ja hyvistä neuvoista!
Re: Tyhmät kysymykset (I/2010)
olen yrittänyt tehdä chat ohjelman mutta tulee virheilmotus "connection timed out "
client:
serveri:
mitä teen väärin?
client:
Code: Select all
Include "cbNetwork.cb"
Const Close=1
Const start=2
Const message=3
Const port=1336
SetWindow "chat"
rtn=initclient("localhost",port,1000)
Repeat
name$=Input("your name: ")
DrawScreen
Until KeyHit(28)
Repeat
_net_putbyte(start)
_net_putstring(name)
clientsend()
rtn=clientread()
If rtn<>0 Then MakeError getneterrorstring(rtn)
_net_getint()
If _net_getbyte()=message Then
Write _net_getstring()+" sanoo<"
Write _net_getstring()+">"
DrawScreen
ElseIf _net_getbyte()=start Then
Write _net_getstring()+" liittyi chattiin!"
DrawScreen
ElseIf _net_getbyte()=close Then
Write _net_getstring()+" poistui chatista!"
DrawScreen
EndIf
If KeyHit(cbkeyspace) Then
Repeat
teksti$=Input("kirjoita: ")
DrawScreen
Until KeyHit(28)
_net_initmemblock()
_net_putbyte(message)
_net_putstring(teksti)
_net_putstring(name)
clientsend()
EndIf
Until EscapeKey()
_net_initmemblock()
_net_putbyte(close)
_net_putstring(name)
clientsend()
Code: Select all
Include "cbNetwork.cb"
Const Close=1
Const start=2
Const port=1336
Const uusi=4
Const poistuva=5
Const message=3
rtn=initserver(port,1000)
Repeat
rtn=serverread()
If rtn<>0 Then MakeError getneterrorstring(rtn)
If _net_getbyte()=start Then
name$=_net_getstring()
_net_initmemblock()
_net_putbyte(uusi)
_net_putstring(name)
serversend()
EndIf
If _net_getbyte()=close Then
name=_net_getstring()
_net_initmemblock()
_net_putbyte(poistuva)
_net_putstring(name)
serversend()
EndIf
If _net_getbyte()=message Then
teksti$=_net_getbyte()
name=_net_getstring()
_net_initmemblock()
_net_putstring(name)
_net_putstring(teksti)
serversend()
EndIf
Until EscapeKey()