Coolbasicin sisäiset tehtävät

DatsuniG · Post by **DatsuniG** » Tue Oct 28, 2008 2:24 pm

Eli kootaan tähän mahdollisia ratkaisuja Coolbasicin omiin tehtäviin.

A
A1:

A2:

A3:

A4:

A5:

A6:

A7:

A8:

A10:

A11:

B
B1:

B2:

B3:

C

C1:

C2:

DatsuniG · Post by **DatsuniG** » Tue Oct 28, 2008 4:15 pm

Nonniin, lisäilin tuonne B1, B2, B3 ja C1:n

MAVmaggot · Post by **MAVmaggot** » Tue Oct 28, 2008 4:22 pm

IMHO tehtävistä pitäisi ehdottomasti olla enemmän rivimäärää rajoittavia että opittaisiin välttämään purkkaa, sekä muistinkäyttöä rajoittavia tehtäviä, jotta vältettäisiin turhia muuttujia, ja joitakin ominaisuuksia pois sulkemalla, jotta opittaisiin käyttämään eri ominaisuuksia, esim. objektit pois suljettaisiin jossakin harjoituksessa, että opittaisiin käyttämään kuvia/piirtokomentoja. Mutta asiaan; ihan kivasti olit tehnyt noita. C1:tä olen koittanut monesti yrittää muttei siitä mitään ole tullut, hienosti teit senkin

otto90x · Post by **otto90x** » Tue Oct 28, 2008 9:40 pm

Tässä vielä C2.

Code: Select all

Repeat

    If MouseHit(1) Then //Pisteen A asetus
        pointAx=MouseX()
        pointAy=MouseY()
        pointAset=True
    EndIf
    
    If MouseHit(2) Then //Pisteen B asetus
        pointBx=MouseX()
        pointBy=MouseY()
        pointBset=True
    EndIf

    If pointAset And pointBset Then
        
        angle# = GetAngle (pointAx, pointAy, pointBx, pointBy)
        normal# = angle# + 90.0
        
        For i=-5 To 5 //yhteensä 11 kun nolla otetaan mukaan
            Line pointAx+Cos(normal)*i, pointAy-Sin(normal)*i,pointBx+Cos(normal)*i, pointBy-Sin(normal)*i
        Next i
    
    EndIf

    DrawScreen

Until EscapeKey()

Ris · Post by **Ris** » Tue Oct 28, 2008 9:58 pm

Postini tässä topikissa on nykyään turha / vanha.

DatsuniG · Post by **DatsuniG** » Wed Oct 29, 2008 1:57 pm

otto90x wrote:Tässä vielä C2.

Code: Select all

Repeat

    If MouseHit(1) Then //Pisteen A asetus
        pointAx=MouseX()
        pointAy=MouseY()
        pointAset=True
    EndIf
    
    If MouseHit(2) Then //Pisteen B asetus
        pointBx=MouseX()
        pointBy=MouseY()
        pointBset=True
    EndIf

    If pointAset And pointBset Then
        
        angle# = GetAngle (pointAx, pointAy, pointBx, pointBy)
        normal# = angle# + 90.0
        
        For i=-5 To 5 //yhteensä 11 kun nolla otetaan mukaan
            Line pointAx+Cos(normal)*i, pointAy-Sin(normal)*i,pointBx+Cos(normal)*i, pointBy-Sin(normal)*i
        Next i
    
    EndIf

    DrawScreen

Until EscapeKey()

Eikös tuo viivan tekeminen kannattaisi toteuttaa enemmin näin?

Code: Select all

    Repeat

        If MouseHit(1) Then //Pisteen A asetus
            pointAx=MouseX()
            pointAy=MouseY()
            pointAset=True
        EndIf
       
        If MouseHit(2) Then //Pisteen B asetus
            pointBx=MouseX()
            pointBy=MouseY()
            pointBset=True
        EndIf

        If pointAset And pointBset Then
           
            normal# = GetAngle (pointAx, pointAy, pointBx, pointBy)
            dis=Distance(pointax,pointay,pointbx,pointby)
           
            For i=0 To dis
                Circle pointAx+Cos(normal)*i, pointAy-Sin(normal)*i,11
            Next i
       
        EndIf

        DrawScreen

    Until EscapeKey()

Raskaampaa on, mutta nätimpää

korjausmiäs · Post by **korjausmiäs** » Fri Oct 31, 2008 8:58 am

A3:n vähemmän purkkainen tapa:

Code: Select all

Repeat
    If (Timer() / 500) Mod 2 Then Text 50, 50, "TOIMIIKO?"
    DrawScreen
Forever

DatsuniG · Post by **DatsuniG** » Sat Nov 01, 2008 11:08 am

korjausmiäs wrote:A3:n vähemmän purkkainen tapa:
Code: Select all
Repeat
    If (Timer() / 500) Mod 2 Then Text 50, 50, "TOIMIIKO?"
    DrawScreen
Forever

Eka välkäytys ei ole aina 0,5 sec *nus* *nus*

Post by **KilledWhale** » Sat Nov 01, 2008 11:10 am

A4 pakatumpana ja kommentoituna:

Code: Select all

Repeat
	stri$ = Str(Rand(1, 49)) // Merkkijonon tyhjennys ja ensimmäinen numero
	For i = 0 To 5 // Käydään läpi 6 numeroa
		While (InStr(stri$, Str(a)) Or a = 0) // Jos numeroa ei ole annettu tai numero löytyy jo merkkijonosta
			a = Rand(1, 49) // Arvotaan uusi numero
		Wend
		stri = stri + " " + a // Kun numero ON saatu lisätään se jonoon
	Next i
	Print stri // Tulostetaan jono käyttäjälle
	Repeat // Odotetaan että käyttäjä painaa enter tai esc (ilman esc ohjelmasta poistuminen hankalaa)
	Until (GetKey() = 13 Or KeyDown(1))
Until KeyDown(1) // Kierretään kunnes käyttäjä painaa esc

Koodiapina · Post by **Koodiapina** » Sat Nov 01, 2008 10:54 pm

Tässä vielä samainen A4 puristettuna 4 riviin:

Code: Select all

Repeat
  If InStr(a$,Str(Timer() Mod 49 + 1)+" ")=0 And CountWords(a)<>7 And Rand(7)=0 Then a=a+Str(Timer() Mod 49 + 1)+" " Else DrawScreen
  If CountWords(a)=7 And KeyHit(28) Then a="" Else Text 0,0,a
Until Escapekey()

phons · Post by **phons** » Sat Nov 01, 2008 11:01 pm

Eikö olisi sinäänsä parempi että porukat tekisivät tehtävät itse. Onhan hyvä antaa vastauksia noihin kysymyksiin ja mahdollisuuksiakin on monia.

Post by **KilledWhale** » Sun Nov 02, 2008 6:58 pm

A1 hieman pakatumpana ja lisäherkkuna vielä törmäystarkistus seiniin:

Code: Select all

For i$ = "" To i + " "
	s$ = Min(Max(Int(GetWord(s$, 1)) + RightKey() - LeftKey(), 0), ScreenWidth() - 30) + " " + Min(Max(Int(GetWord(s$, 2)) + DownKey() - UpKey(), 0), ScreenHeight() - 30)
	Box Int(GetWord(s$, 1)), Int(GetWord(s$, 2)), 30, 30
	If i = "" Then Color 255, 0, 0 Else DrawScreen
Next i$

KankiKalle · Post by **KankiKalle** » Tue Nov 18, 2008 3:54 pm

Todella hienoa, nyt näen oliko omista koodeistani mihinkään! Täytyy vain vastustaa kiusausta katsoa vastauksia etukäteen

Jani · Post by **Jani** » Wed Nov 19, 2008 5:15 pm

Taas tämä vanha A4 mutta tällä kertaa toteutettu suurimmaksi osakseen muuttujilla

Code: Select all

p=0 //ensimmäisen numeron korkeussuunnan muuttuja on p
p2=20 //toisen p2
p3=40 //kolmannen p3
p4=60 //neljännen p4
p5=80 //viidennen p5
p6=100 //kuudennen p6
p7=120 //seitsemännen p7

Randomize Timer()

uusi:

For i=1 To 1

    a=Rand(1,49) //ensimmäinen numero asetetaan muuttujaan a
    a2=Rand(1,49) //toinen muuttujaan a2
    a3=Rand(1,49) //kolmas muuttujaan a3
    a4=Rand(1,49) //neljäs muuttujaan a4
    a5=Rand(1,49) //viides muuttujaan a5
    a6=Rand(1,49) //kuudes muuttujaan a6
    a7=Rand(1,49) //seitsemäs muuttujaan a7
    
    //Kirjoitetaan nyt nämä
    
    Text 0,p,+a
    Text 0,p2,+a2
    Text 0,p3,+a3
    Text 0,p4,+a4
    Text 0,p5,+a5
    Text 0,p6,+a6
    Text 0,p7,+a7
    
    
Next i

DrawScreen

x:
Key=WaitKey() //odottaa näppäintä
If Key=28 Then //"Jos näppäin=28 sitten" HUOM. näppäin 28 on ENTER
    Goto uusi //"Mene kohtaan uusi"
Else //"Muuten"
    Goto x //"Mene kohtaan x
EndIf //lopeta ehtolause

mahdollisesti vasta alkajatkin saavat enemmän selvää...

DatsuniG · Post by **DatsuniG** » Wed Nov 19, 2008 5:59 pm

Jani wrote:Taas tämä vanha A4 mutta tällä kertaa toteutettu suurimmaksi osakseen muuttujilla

Code: Select all

p=0 //ensimmäisen numeron korkeussuunnan muuttuja on p
p2=20 //toisen p2
p3=40 //kolmannen p3
p4=60 //neljännen p4
p5=80 //viidennen p5
p6=100 //kuudennen p6
p7=120 //seitsemännen p7

Randomize Timer()

uusi:

For i=1 To 1

    a=Rand(1,49) //ensimmäinen numero asetetaan muuttujaan a
    a2=Rand(1,49) //toinen muuttujaan a2
    a3=Rand(1,49) //kolmas muuttujaan a3
    a4=Rand(1,49) //neljäs muuttujaan a4
    a5=Rand(1,49) //viides muuttujaan a5
    a6=Rand(1,49) //kuudes muuttujaan a6
    a7=Rand(1,49) //seitsemäs muuttujaan a7
    
    //Kirjoitetaan nyt nämä
    
    Text 0,p,+a
    Text 0,p2,+a2
    Text 0,p3,+a3
    Text 0,p4,+a4
    Text 0,p5,+a5
    Text 0,p6,+a6
    Text 0,p7,+a7
    
    
Next i

DrawScreen

x:
Key=WaitKey() //odottaa näppäintä
If Key=28 Then //"Jos näppäin=28 sitten" HUOM. näppäin 28 on ENTER
    Goto uusi //"Mene kohtaan uusi"
Else //"Muuten"
    Goto x //"Mene kohtaan x
EndIf //lopeta ehtolause

mahdollisesti vasta alkajatkin saavat enemmän selvää...

Tällaista tapaa ei kannata edes opetella. Ja kaiken lisäksi tuossa voi tulla samoja numeroita ^^

Jani · Post by **Jani** » Wed Nov 19, 2008 6:13 pm

hmm... Mulla ei kyllä ole tullut...

Koodiapina · Post by **Koodiapina** » Wed Nov 19, 2008 6:31 pm

Kyllä niitä tulee. Näkeehän sen jo koodista, jossa mitään lottonumeroihin liittyviä tarkastuksia ei tehdä.

MAVmaggot · Post by **MAVmaggot** » Wed Nov 19, 2008 9:08 pm

Oma versioni, tässäkin toki tulee samoja. Koodi on kommentoitu joten aloittelijat ymmärtävät ehkä jotain.

Code: Select all

For i=1 To 7 'toistetaan rivit nextiin asti 7 kertaa
    numero=Rand(1,39) 'arvotaan uusi numero
    Locate 15,i*15 'muutetaan tekstin paikkaa
    AddText Str(numero) 'tulostetaan numero
    DrawScreen 'piirretään näyttö
Next i 'se next
WaitKey 'odotetaan että nappia painetaan

Printillä olisi saanut 5 riviin, mutta aloittelijoiden on parempi oppia käyttämään addtextiä/textiä.

Ozcar · Post by **Ozcar** » Thu Nov 20, 2008 12:00 am

Edelleen, idea olisi varmaankin tarkistaa, ettei kahta samaa numeroa tule? Dim ja tarkistus loopissa on se paras tapa, ainakin aloittelijoille. Kerran kun sen periaatteen ymmärtää niin se on helppoa kuin heinänteko.

Character · Post by **Character** » Sun Nov 30, 2008 12:02 am

A3 lyhyempänä:

Code: Select all

aika=Timer()

Repeat

If Timer()>aika+500 Then
Text 0,0,"Toimiiko?"
EndIf

If Timer()>aika+1000 Then aika=Timer()

DrawScreen
Forever

CoolBasic Forums

Coolbasicin sisäiset tehtävät

Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät

Re: Coolbasicin sisäiset tehtävät