Esimerkkejä aloittelijoille.

Jani · Post by **Jani** » Sat Dec 13, 2008 2:47 pm

DatsuniG wrote:Ja minkähän takia niin pitäisi tehdä? Ja tuo funktio on niin alkeellinen kuin olla ja voi.

Ei miksikään. (en edes sanonut niin)

phons · Post by **phons** » Sun Dec 14, 2008 3:52 pm

Tässäp' tällainen esim. TTD:hen sopiva kirjasto:

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

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

Lowhunter · Post by **Lowhunter** » Mon Dec 15, 2008 3:00 pm

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.

KillBurn · Post by **KillBurn** » Mon Dec 15, 2008 4:05 pm

Lowhunter 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.

viewtopic.php?f=12&t=1050

Katso tuo.Ehkä saat apua.

MikkoK · Post by **MikkoK** » Tue Dec 16, 2008 10:12 am

phons wrote:Tässäp' tällainen esim. TTD:hen sopiva kirjasto:

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

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

Itselläni tuo ei toimi ikkuna aukeaa ja sitten sammuu...

Sly_Jack0 · Post by **Sly_Jack0** » Tue Dec 16, 2008 1:53 pm

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

axu · Post by **axu** » Tue Dec 16, 2008 2:47 pm

phons wrote:Tässäp' tällainen esim. TTD:hen sopiva kirjasto:
Code: Select all
kooooodia...
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

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?

Post by **KilledWhale** » Tue Dec 16, 2008 4:01 pm

axu 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?

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/OpenTTD

Sly_Jack0 · Post by **Sly_Jack0** » Tue Dec 16, 2008 4:27 pm

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.

värikäs_ · Post by **värikäs_** » Tue Dec 16, 2008 7:31 pm

Sly_Jack0 wrote:Offtopic:
Pelaako kukaan OpenTTD:tä? Jos pelaajia löytyy voitaisiin laittaa nettipeli pystyyn.

Pelasin niin kauan kun , veljen kans pelattii netissä , --> tuli viirus.. isä ilmeisesti poisti enkä kehtaa ottaa uudellee.

Sly_Jack0 · Post by **Sly_Jack0** » Tue Dec 16, 2008 8:00 pm

Ot:
Kuinka et kehtaa? Ei siitä pelistä kyllä mitään viiruksia tule.

Post by **KilledWhale** » Tue Dec 16, 2008 8:11 pm

/me pelailee satunnaisesti openTTD

Sly_Jack0 · Post by **Sly_Jack0** » Tue Dec 16, 2008 8:16 pm

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

phons · Post by **phons** » Tue Dec 16, 2008 8:42 pm

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.

Jonhu · Post by **Jonhu** » Thu Dec 18, 2008 7:59 pm

Tässä tähtifunctio

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

phons · Post by **phons** » Thu Dec 18, 2008 10:11 pm

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

Tuxu · Post by **Tuxu** » Tue Dec 23, 2008 10:13 pm

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

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()

EDIT. Lisäsin myös vähän kommentointia.

Post by **KilledWhale** » Tue Dec 23, 2008 11:39 pm

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
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()
EDIT. Lisäsin myös vähän kommentointia.

Zero kun on laittanut ceebeeseen pari kätevää ominaisuutta miksi jättää niitä käyttämättä?

Kulman kasvatus ja rajoitus 0 - 360 kun hoituisi yksinkertaisesti:

Code: Select all

kulma# = WrapAngle(kulma# + 1)

Jonhu · Post by **Jonhu** » Wed Dec 24, 2008 11:13 am

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öä.

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)

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

Tuxu · Post by **Tuxu** » Wed Dec 24, 2008 11:20 am

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.

CoolBasic Forums

Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.

Re: Esimerkkejä aloittelijoille.