Ei miksikään. (en edes sanonut niin)DatsuniG wrote:Ja minkähän takia niin pitäisi tehdä? Ja tuo funktio on niin alkeellinen kuin olla ja voi.
Esimerkkejä aloittelijoille.
Re: Esimerkkejä aloittelijoille.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: Esimerkkejä aloittelijoille.
Tässäp' tällainen esim. TTD:hen sopiva kirjasto:
Eli auto, sille talli, ja tie jossa ajaa. Voi olla että se tie ei oikein sovi niiden muiden kanssa, kun se on vähän erillainen.
Teinpähän kuitenkin ja saa käyttä.
Edit: Oho katoin topikin nimen väärin... Luulin että se on "esimerkkejä kaikille", mutta se onkin "esimerkkejä aloittelijoille" no ei kai se mitään haittaa
Code: Select all
Function Auto(x=0,y=0,modi=0)
DrawToWorld ON
If modi=0 Then
'runko
Color cbYellow
Line x,y,x+30,y-12
Line x+30,y-12,x+30,y-22
Line x+30,y-22,x+40,y-26
Line x+40,y-26,x+40,y-34
Line x+40,y-34,x+30,y-30
Line x+30,y-30,x+30,y-26
Line x+30,y-26,x+24,y-22
Line x+24,y-22,x+24,y-28
Line x+24,y-28,x+8,y-21
Line x+8,y-21,x+8,y-17
Line x+8,y-17,x+4,y-15
Line x+4,y-15,x+3,y-18
Line x+3,y-18,x,y-17
Line x,y-17,x,y
'tämä tekee tästä auton näköisen
Line x,y,x+14,y+6
Line x+14,y+6,x+44,y-6
Line x+44,y-6,x+44,y-16
Line x+44,y-16,x+52,y-20
Line x+52,y-20,x+52,y-28
Line x+52,y-28,x+40,y-34
'väli viivat
Line x++30,y-12,x+44,y-6
Line x+30,y-22,x+44,y-16
Line x+40,y-26,x+52,y-20
'akkuna
Color cbCyan
Line x+24,y-14,x+27,y-16
Line x+27,y-16,x+27,y-19
Line x+27,y-19,x+24,y-17
Line x+24,y-17,x+24,y-14
Line x+25,y-15,x+25,y-17
Line x+26,y-16,x+26,y-18
'tuulilasi
Line x+32,y-19,x+42,y-15
Line x+42,y-15,x+42,y-9
Line x+42,y-9,x+32,y-13
Line x+32,y-13,x+32,y-19
Line x+33,y-18,x+33,y-13
Line x+34,y-18,x+34,y-13
Line x+35,y-17,x+35,y-12
Line x+36,y-17,x+36,y-12
Line x+37,y-16,x+37,y-11
Line x+38,y-16,x+38,y-11
Line x+39,y-15,x+39,y-10
Line x+40,y-15,x+40,y-10
Line x+41,y-14,x+41,y-9
EndIf
If modi=1 Then
'runko
Color cbYellow
Line x,y,x-30,y-12
Line x-30,y-12,x-30,y-22
Line x-30,y-22,x-40,y-26
Line x-40,y-26,x-40,y-34
Line x-40,y-34,x-30,y-30
Line x-30,y-30,x-30,y-26
Line x-30,y-26,x-24,y-22
Line x-24,y-22,x-24,y-28
Line x-24,y-28,x-8,y-21
Line x-8,y-21,x-8,y-17
Line x-8,y-17,x-4,y-15
Line x-4,y-15,x-3,y-18
Line x-3,y-18,x,y-17
Line x,y-17,x,y
'tämä tekee tästä auton näköisen
Line x,y,x-14,y+6
Line x-14,y+6,x-44,y-6
Line x-44,y-6,x-44,y-16
Line x-44,y-16,x-52,y-20
Line x-52,y-20,x-52,y-28
Line x-52,y-28,x-40,y-34
'väli viivat
Line x-30,y-12,x-44,y-6
Line x-30,y-22,x-44,y-16
Line x-40,y-26,x-52,y-20
'akkuna
Color cbCyan
Line x-24,y-14,x-27,y-16
Line x-27,y-16,x-27,y-19
Line x-27,y-19,x-24,y-17
Line x-24,y-17,x-24,y-14
Line x-25,y-15,x-25,y-17
Line x-26,y-16,x-26,y-18
'tuulilasi
Line x-32,y-19,x-42,y-15
Line x-42,y-15,x-42,y-9
Line x-42,y-9,x-32,y-13
Line x-32,y-13,x-32,y-19
Line x-33,y-18,x-33,y-13
Line x-34,y-18,x-34,y-13
Line x-35,y-17,x-35,y-12
Line x-36,y-17,x-36,y-12
Line x-37,y-16,x-37,y-11
Line x-38,y-16,x-38,y-11
Line x-39,y-15,x-39,y-10
Line x-40,y-15,x-40,y-10
Line x-41,y-14,x-41,y-9
EndIf
EndFunction
Function Talli(x,y,modi)
DrawToWorld ON
If modi=0 Then
'seinät
Color cbBlackSkin
Line x,y,x,y+30
Line x,y+30,x+30,y+18
Line x+30,y+18,x+30,y-13
Line x+30,y-13,x,y
Line x+30,y+18,x+60,y+30
Line x+60,y+30,x+60,y
Line x+60,y,x+56,y-2
Line x+56,y-2,x+56,y+24
Line x+56,y+24,x+34,y+15
Line x+34,y+15,x+34,y-10
Line x+34,y-10,x+30,y-13
'katto
Color 160,160,160
Line x,y+30,x+17,y+44
Line x+30,y+18,x+47,y+32
Line x+17,y+44,x+47,y+32
Line x+17,y+44,x+30,y+42
Line x+47,y+32,x+60,y+30
Line x+60,y+30,x+30,y+42
EndIf
If modi=1 Then
'seinät
Color cbBlackSkin
Line x,y,x,y+30
Line x,y+30,x-30,y+18
Line x-30,y+18,x-30,y-13
Line x-30,y-13,x,y
Line x-30,y+18,x-60,y+30
Line x-60,y+30,x-60,y
Line x-60,y,x-56,y-2
Line x-56,y-2,x-56,y+24
Line x-56,y+24,x-34,y+15
Line x-34,y+15,x-34,y-10
Line x-34,y-10,x-30,y-13
'katto
Color 160,160,160
Line x,y+30,x-17,y+44
Line x-30,+18,x-47,y+32
Line x-17,y+44,x-47,y+32
Line x-17,y+44,x-30,y+42
Line x-47,y+32,x-60,y+30
Line x-60,y+30,x-30,y+42
EndIf
EndFunction
Function Tie(x,y,modi)
DrawToWorld ON
If modi=0 Then
'tie
Color cbSilver
Line x,y,x+40,y-14
Line x+40,y-14,x+60,y-4
Line x+60,y-4,x+20,y+12
Line x+20,y+12,x,y
EndIf
If modi=1 Then
'tie
Color cbSilver
Line x,y,x-40,y-14
Line x-40,y-14,x-60,y-4
Line x-60,y-4,x-20,y+12
Line x-20,y+12,x,y
EndIf
EndFunction
Teinpähän kuitenkin ja saa käyttä.
Edit: Oho katoin topikin nimen väärin... Luulin että se on "esimerkkejä kaikille", mutta se onkin "esimerkkejä aloittelijoille" no ei kai se mitään haittaa
Re: Esimerkkejä aloittelijoille.
En saanut toimimaan health-muuttujien esimerkkien avulla. Yritän tehdä ammuntapeliä ja en saa tehtyä sillein, että kun ammus osuu, niin menettää elkkiä. Myäs se, että kun haluaa kloonata lisää vihuja, niin miten se tehdään.
Re: Esimerkkejä aloittelijoille.
viewtopic.php?f=12&t=1050Lowhunter wrote:En saanut toimimaan health-muuttujien esimerkkien avulla. Yritän tehdä ammuntapeliä ja en saa tehtyä sillein, että kun ammus osuu, niin menettää elkkiä. Myäs se, että kun haluaa kloonata lisää vihuja, niin miten se tehdään.
Katso tuo.Ehkä saat apua.
Sumu Games: Sam, Ur eye!
Re: Esimerkkejä aloittelijoille.
Itselläni tuo ei toimi ikkuna aukeaa ja sitten sammuu...phons wrote:Tässäp' tällainen esim. TTD:hen sopiva kirjasto:
Eli auto, sille talli, ja tie jossa ajaa. Voi olla että se tie ei oikein sovi niiden muiden kanssa, kun se on vähän erillainen.Code: Select all
Function Auto(x=0,y=0,modi=0) DrawToWorld ON If modi=0 Then 'runko Color cbYellow Line x,y,x+30,y-12 Line x+30,y-12,x+30,y-22 Line x+30,y-22,x+40,y-26 Line x+40,y-26,x+40,y-34 Line x+40,y-34,x+30,y-30 Line x+30,y-30,x+30,y-26 Line x+30,y-26,x+24,y-22 Line x+24,y-22,x+24,y-28 Line x+24,y-28,x+8,y-21 Line x+8,y-21,x+8,y-17 Line x+8,y-17,x+4,y-15 Line x+4,y-15,x+3,y-18 Line x+3,y-18,x,y-17 Line x,y-17,x,y 'tämä tekee tästä auton näköisen Line x,y,x+14,y+6 Line x+14,y+6,x+44,y-6 Line x+44,y-6,x+44,y-16 Line x+44,y-16,x+52,y-20 Line x+52,y-20,x+52,y-28 Line x+52,y-28,x+40,y-34 'väli viivat Line x++30,y-12,x+44,y-6 Line x+30,y-22,x+44,y-16 Line x+40,y-26,x+52,y-20 'akkuna Color cbCyan Line x+24,y-14,x+27,y-16 Line x+27,y-16,x+27,y-19 Line x+27,y-19,x+24,y-17 Line x+24,y-17,x+24,y-14 Line x+25,y-15,x+25,y-17 Line x+26,y-16,x+26,y-18 'tuulilasi Line x+32,y-19,x+42,y-15 Line x+42,y-15,x+42,y-9 Line x+42,y-9,x+32,y-13 Line x+32,y-13,x+32,y-19 Line x+33,y-18,x+33,y-13 Line x+34,y-18,x+34,y-13 Line x+35,y-17,x+35,y-12 Line x+36,y-17,x+36,y-12 Line x+37,y-16,x+37,y-11 Line x+38,y-16,x+38,y-11 Line x+39,y-15,x+39,y-10 Line x+40,y-15,x+40,y-10 Line x+41,y-14,x+41,y-9 EndIf If modi=1 Then 'runko Color cbYellow Line x,y,x-30,y-12 Line x-30,y-12,x-30,y-22 Line x-30,y-22,x-40,y-26 Line x-40,y-26,x-40,y-34 Line x-40,y-34,x-30,y-30 Line x-30,y-30,x-30,y-26 Line x-30,y-26,x-24,y-22 Line x-24,y-22,x-24,y-28 Line x-24,y-28,x-8,y-21 Line x-8,y-21,x-8,y-17 Line x-8,y-17,x-4,y-15 Line x-4,y-15,x-3,y-18 Line x-3,y-18,x,y-17 Line x,y-17,x,y 'tämä tekee tästä auton näköisen Line x,y,x-14,y+6 Line x-14,y+6,x-44,y-6 Line x-44,y-6,x-44,y-16 Line x-44,y-16,x-52,y-20 Line x-52,y-20,x-52,y-28 Line x-52,y-28,x-40,y-34 'väli viivat Line x-30,y-12,x-44,y-6 Line x-30,y-22,x-44,y-16 Line x-40,y-26,x-52,y-20 'akkuna Color cbCyan Line x-24,y-14,x-27,y-16 Line x-27,y-16,x-27,y-19 Line x-27,y-19,x-24,y-17 Line x-24,y-17,x-24,y-14 Line x-25,y-15,x-25,y-17 Line x-26,y-16,x-26,y-18 'tuulilasi Line x-32,y-19,x-42,y-15 Line x-42,y-15,x-42,y-9 Line x-42,y-9,x-32,y-13 Line x-32,y-13,x-32,y-19 Line x-33,y-18,x-33,y-13 Line x-34,y-18,x-34,y-13 Line x-35,y-17,x-35,y-12 Line x-36,y-17,x-36,y-12 Line x-37,y-16,x-37,y-11 Line x-38,y-16,x-38,y-11 Line x-39,y-15,x-39,y-10 Line x-40,y-15,x-40,y-10 Line x-41,y-14,x-41,y-9 EndIf EndFunction Function Talli(x,y,modi) DrawToWorld ON If modi=0 Then 'seinät Color cbBlackSkin Line x,y,x,y+30 Line x,y+30,x+30,y+18 Line x+30,y+18,x+30,y-13 Line x+30,y-13,x,y Line x+30,y+18,x+60,y+30 Line x+60,y+30,x+60,y Line x+60,y,x+56,y-2 Line x+56,y-2,x+56,y+24 Line x+56,y+24,x+34,y+15 Line x+34,y+15,x+34,y-10 Line x+34,y-10,x+30,y-13 'katto Color 160,160,160 Line x,y+30,x+17,y+44 Line x+30,y+18,x+47,y+32 Line x+17,y+44,x+47,y+32 Line x+17,y+44,x+30,y+42 Line x+47,y+32,x+60,y+30 Line x+60,y+30,x+30,y+42 EndIf If modi=1 Then 'seinät Color cbBlackSkin Line x,y,x,y+30 Line x,y+30,x-30,y+18 Line x-30,y+18,x-30,y-13 Line x-30,y-13,x,y Line x-30,y+18,x-60,y+30 Line x-60,y+30,x-60,y Line x-60,y,x-56,y-2 Line x-56,y-2,x-56,y+24 Line x-56,y+24,x-34,y+15 Line x-34,y+15,x-34,y-10 Line x-34,y-10,x-30,y-13 'katto Color 160,160,160 Line x,y+30,x-17,y+44 Line x-30,+18,x-47,y+32 Line x-17,y+44,x-47,y+32 Line x-17,y+44,x-30,y+42 Line x-47,y+32,x-60,y+30 Line x-60,y+30,x-30,y+42 EndIf EndFunction Function Tie(x,y,modi) DrawToWorld ON If modi=0 Then 'tie Color cbSilver Line x,y,x+40,y-14 Line x+40,y-14,x+60,y-4 Line x+60,y-4,x+20,y+12 Line x+20,y+12,x,y EndIf If modi=1 Then 'tie Color cbSilver Line x,y,x-40,y-14 Line x-40,y-14,x-60,y-4 Line x-60,y-4,x-20,y+12 Line x-20,y+12,x,y EndIf EndFunction
Teinpähän kuitenkin ja saa käyttä.
Edit: Oho katoin topikin nimen väärin... Luulin että se on "esimerkkejä kaikille", mutta se onkin "esimerkkejä aloittelijoille" no ei kai se mitään haittaa
Code: Select all
#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Re: Esimerkkejä aloittelijoille.
No ei siihen muuta pitäisikään tulla koska tossa on vaan funktiot eikä mitään esimerkkiohjelmaa, mikä olisi kyllä kiva meinaan itse en ainakaan jaksa alkaa säätää.
Re: Esimerkkejä aloittelijoille.
Ne kuvat olivat ihan hienot, mutta muokattavuuteen se sitten jäikin, ei voi kääntää eikä edes muuttaa väriä. Kaara oli siisti lineillä tehdyksi, mutta mitä eroa oli niillä modeilla?phons wrote:Tässäp' tällainen esim. TTD:hen sopiva kirjasto:
Eli auto, sille talli, ja tie jossa ajaa. Voi olla että se tie ei oikein sovi niiden muiden kanssa, kun se on vähän erillainen.Code: Select all
kooooodia...
Teinpähän kuitenkin ja saa käyttä.
Edit: Oho katoin topikin nimen väärin... Luulin että se on "esimerkkejä kaikille", mutta se onkin "esimerkkejä aloittelijoille" no ei kai se mitään haittaa
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: Esimerkkejä aloittelijoille.
Noiden sanottiin sopivaan TTD:hen ja siihenhän ne sopivatkin. Oletko joskus nähnyt TTD:ssä pyöriviä autoja? TTD on siis isometrinen peli jossa on kuvakulma niitattu yläviistoon. http://fi.wikipedia.org/wiki/OpenTTDaxu wrote: Ne kuvat olivat ihan hienot, mutta muokattavuuteen se sitten jäikin, ei voi kääntää eikä edes muuttaa väriä. Kaara oli siisti lineillä tehdyksi, mutta mitä eroa oli niillä modeilla?
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: Esimerkkejä aloittelijoille.
Kyllähän nuo TTD:n tyyliseen peliin sopivat. Lulen että axu tarkoitti että noita ei saa kuin yhteen suuntaan, en sitten tiedä saako vai ei.
Offtopic:
Pelaako kukaan OpenTTD:tä? Jos pelaajia löytyy voitaisiin laittaa nettipeli pystyyn.
Offtopic:
Pelaako kukaan OpenTTD:tä? Jos pelaajia löytyy voitaisiin laittaa nettipeli pystyyn.
Re: Esimerkkejä aloittelijoille.
Pelasin niin kauan kun , veljen kans pelattii netissä , --> tuli viirus.. isä ilmeisesti poisti enkä kehtaa ottaa uudellee.Sly_Jack0 wrote:Offtopic:
Pelaako kukaan OpenTTD:tä? Jos pelaajia löytyy voitaisiin laittaa nettipeli pystyyn.
Re: Esimerkkejä aloittelijoille.
Ot:
Kuinka et kehtaa? Ei siitä pelistä kyllä mitään viiruksia tule.
Kuinka et kehtaa? Ei siitä pelistä kyllä mitään viiruksia tule.
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: Esimerkkejä aloittelijoille.
/me pelailee satunnaisesti openTTD
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: Esimerkkejä aloittelijoille.
Mahtavaa! Vielä vähän lisää porukkaa niin saatais peli pystyyn, mutta nyt voisi lopettaa offtopicin tässä topikissa. Tehdään oma topikki jos tarpeelliseksi sen katsomme. Anteeksi että leikin modea. =P
Re: Esimerkkejä aloittelijoille.
Mul oli eile servy pystys nimeltään: Phons's Finland Server(nytki pääl)... Ja kyl mä pelaan melkein joka päivä, tosi hyvä peli on.
Edit: Jos mod on 1 niin se osoittaa toiseen suuntaan kun taas 0 on se normi.
Edit: Jos mod on 1 niin se osoittaa toiseen suuntaan kun taas 0 on se normi.
Re: Esimerkkejä aloittelijoille.
Tässä tähtifunctio
Melko Offtopiciksi mennyt tämä ketju
Melko Offtopiciksi mennyt tämä ketju
Code: Select all
SCREEN 800,600
Type LINET
Field x1#
Field y1#
Field y2#
Field x2#
EndType
Const size=100
For x=6 To 24 Step 6
AddStar((x/6)*size*2-100,200,size,size/2,0,x) ' kolmio
Next x
'AddStar(120,120,100,50,0,10) ' tähti 5 sakaraa
'AddStar(330,120,80,40,0,12)' tähti 6 sakaraa
'AddStar(510,120,100,50,0,18)' tähti 9 sakaraa
Repeat
For an.LINET=Each LINET
Line an\x1, an\y1, an\x2, an\y2
Next an
Text 600,10,"FPS: "+FPS()
DrawScreen
Forever
// FUNCTION SELOSTEET:
//
// kuvion paikka (xx1#,yy1#)
// kuvion ulkoreunan koko (koko)
// kuvion sisäreunan koko (koko2)
// kuvion kallistuma (ang#)
// Kuinka monta viivaa (sakaroita) [min 6 muodostaa kuvion]
Function AddStar(xx1#,yy1#,koko,koko2,ang#,sakaroita)
vali#=360/sakaroita
For i=1 To sakaroita
aa.LINET=New(LINET)
If (i Mod 2) Then
aa\x1 = xx1# + Sin(ang#+i*vali#)*koko2
aa\y1 = yy1# - Cos(ang#+i*vali#)*koko2
aa\x2 = xx1# + Sin(ang#+(i+1)*vali#)*koko
aa\y2 = yy1# - Cos(ang#+(i+1)*vali#)*koko
Else
aa\x1 = xx1# + Sin(ang#+i*vali#)*koko
aa\y1 = yy1# - Cos(ang#+i*vali#)*koko
aa\x2 = xx1# + Sin(ang#+(i+1)*vali#)*koko2
aa\y2 = yy1# - Cos(ang#+(i+1)*vali#)*koko2
EndIf
Next i
EndFunction
Tekeillä pikkupelejä ja ohjelmia
Re: Esimerkkejä aloittelijoille.
Tein tässä tällasen geometria kirjaston. Voi olla että nää on vähän turhia mutta ihan ok esimerkkejä silti(vai?).
Code: Select all
Function Cm3ToMl(luku)
Return luku
EndFunction
'--------------------
Function Dm3ToMl(luku)
Return luku*1000
EndFunction
'--------------------
Function M3ToMl(luku)
Return luku*1000000
EndFunction
'--------------------
Function Cm3ToL(luku)
Return luku/1000
EndFunction
'--------------------
Function Dm3ToL(luku)
Return luku
EndFunction
'-------------------
Function M3ToL(luku)
Return luku*1000
EndFunction
Const SQUARE
Const TRIANGLE
'--------------------------------------------------
Function CountLastAngle(shape,angle1,angle2,angle3)
If shape=SQUARE Then
Return 360-(angle1+angle2+angle3)
ElseIf shape=TRIANGLE
Return 180-(angle1+angle2)
EndIf
EndFunction
'---------------------
Function CubeCm3(edge)
Return edge*edge*edge
EndFunction
'-----------------------------------------
Function RectangleCm3(width,length,height)
Return width*length*height
EndFunction
Re: Esimerkkejä aloittelijoille.
Tässä pyörivä viiva. Itselleni aikoinaa tuottanut ongelmia ERITTÄIN PALJON.
Eli uskoisin aloittelijoiden hyötyvän tästä, kun voivat tutkia vähän sinin ja cosinin käyttöä.
EDIT. Lisäsin myös vähän kommentointia.
Eli uskoisin aloittelijoiden hyötyvän tästä, kun voivat tutkia vähän sinin ja cosinin käyttöä.
Code: Select all
FrameLimit 40
Repeat
kulma# = WrapAngle(kulma# + 1)'pyörimisnopeutta voi säädellä vaihtamalla ykkösen paikalle jonkun muun luvun
x# = 110+(Cos(kulma#)*100)'110 meinaa viivan keskipistettä ja
y# = 110+(Sin(kulma#)*100)'tuo 100 viivan pituutta
Color cbred
Circle 10,10,200,0
Color cbblue
Line 110,110,x#,y#//Täällä sitten itse viiva
DrawScreen
Until EscapeKey()
Last edited by Tuxu on Wed Dec 24, 2008 11:21 am, edited 2 times in total.
aivot pohtii ja raksuttaa
TuxuGames | Projektiblogi
TuxuGames | Projektiblogi
-
- Tech Developer
- Posts: 545
- Joined: Sun Aug 26, 2007 2:43 pm
- Location: Liminka
Re: Esimerkkejä aloittelijoille.
Zero kun on laittanut ceebeeseen pari kätevää ominaisuutta miksi jättää niitä käyttämättä?Tuxu wrote:Tässä pyörivä viiva. Itselleni aikoinaa tuottanut ongelmia ERITTÄIN PALJON.
Eli uskoisin aloittelijoiden hyötyvän tästä, kun voivat tutkia vähän sinin ja cosinin käyttöä.
EDIT. Lisäsin myös vähän kommentointia.Code: Select all
FrameLimit 40 Repeat kulma# = kulma# + 1 If kulma#>360 Then kulma#=0 x# = 110+(Cos(kulma#)*100)'110 meinaa viivan keskipistettä ja y# = 110+(Sin(kulma#)*100)'tuo 100 viivan pituutta Color cbred Circle 10,10,200,0 Color cbblue Line 110,110,x#,y#//Täällä sitten itse viiva DrawScreen Until EscapeKey()
Kulman kasvatus ja rajoitus 0 - 360 kun hoituisi yksinkertaisesti:
Code: Select all
kulma# = WrapAngle(kulma# + 1)
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: Esimerkkejä aloittelijoille.
Tässä sama functiolla toteutettuna (paljon käytännöllisempi). Tämä esimerkkejä aloittelijoille on vähän epämääräinen osio. Osa katsoo koodinsa aloittelijalle sopivalle, vaikka se olisikin joidenkin mielestä itsestään selvyys.. (itse olen mielestäni vielä aloittelija)Tuxu wrote:Tässä pyörivä viiva. Itselleni aikoinaa tuottanut ongelmia ERITTÄIN PALJON.
Eli uskoisin aloittelijoiden hyötyvän tästä, kun voivat tutkia vähän sinin ja cosinin käyttöä.
Code: Select all
Repeat
a+1
Line2(150,150,a,100)
DrawScreen
Forever
// Function LINE2
// alkupaikka ( x# & y# )
// kulma ( ang# )
// viivan pituus ( pituus# )
Function Line2(x#,y#,ang#,pituus#)
x2# = x# + Sin(ang#)*pituus#
y2# = y# - Cos(ang#)*pituus#
Line x#,y#,x2#,y2#
EndFunction
Tekeillä pikkupelejä ja ohjelmia
Re: Esimerkkejä aloittelijoille.
Niinpä niin KilledWhale :---) Kaikkea sitä oppii. Muokkaan tuon koodiin.
Ja juuri olin tekemässä tuosta funktiota, mutta Jonhu ehti näemmä ensin Funktiona tuo on tosiaan käytännöllisempi.
Ja juuri olin tekemässä tuosta funktiota, mutta Jonhu ehti näemmä ensin Funktiona tuo on tosiaan käytännöllisempi.
aivot pohtii ja raksuttaa
TuxuGames | Projektiblogi
TuxuGames | Projektiblogi