MegaX CB

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: MegaX CB

Post by =Joku= » Wed Nov 05, 2008 9:51 am

Cb on ollut hiukan tylsää kun ei keksi miten tehdänpolkusysteemi.
Näin:kirjoitetaan filun polku ja avaa sen.
Kirjoitus systemi on.
*Poistunut foorumilta*

User avatar
kaneli2000
Guru
Posts: 1059
Joined: Mon Mar 17, 2008 3:40 pm
Location: Lempäälä

Re: MegaX CB

Post by kaneli2000 » Fri Nov 07, 2008 5:02 pm

Offtopic: OPETTELE KIRJOITTAMAAN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
I see the rainbow rising

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: MegaX CB

Post by nevssons » Fri Nov 07, 2008 5:51 pm

=Joku= wrote:Cb on ollut hiukan tylsää kun ei keksi miten tehdänpolkusysteemi.
Näin:kirjoitetaan filun polku ja avaa sen.
Kirjoitus systemi on.
CbAPI? Sillä saisi tiedosto selaimen
Koodarina kohtalainen, henkilönä vittumainen
Image

User avatar
Lobodomy
Member
Posts: 77
Joined: Tue Sep 09, 2008 6:11 pm
Location: Pälkäne

Re: MegaX CB

Post by Lobodomy » Mon Nov 10, 2008 5:08 pm

Juu mistä sää ladata tä betan?

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: MegaX CB

Post by =Joku= » Tue Nov 18, 2008 8:01 pm

Betaa ei saa koska Gm:llä en tehnyt. Ismo ongelma ja kuinka tekisi:
Kun ohjelmassani voi kirjoitella komennon niin... Miten saisi tämän toteutettua tai miten voisi tehdä:
Kirjoitetaan open:(Tiedoston polku) Miten tuo voitaisiin tehdä?
*Poistunut foorumilta*

User avatar
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: MegaX CB

Post by phons » Tue Nov 18, 2008 8:25 pm

meinaatko jotain tällaista?:

Code: Select all

Repeat
'se inputti
u$=Input("Open:")

'sitten vaikka
If KeyHit(cbkeyreturn) Then
g=OpenToRead(u$)

Text 0,0,ReadLine(g)

CloseFile g

Drawscreen
Until Escapekey()

Image

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: MegaX CB

Post by =Joku= » Thu Nov 20, 2008 7:20 pm

Mites tuota käytetään kun olen tällänen evo.

Code: Select all

SCREEN 640,480,16,cbfullscreen
Locate 3,0
ClsColor 29,w,250
arial=LoadFont("arial",20)
SetFont arial


        hm$ = Chr(34) 'heittomerkki
        alku:                        
            AddText "#-MegaX-#"
                        AddText "Kello "+Time()
                                AddText ""
            AddText ""
            AddText ""
            AddText ""
            AddText   hm+"End"+hm+" Jos haluat lopettaa MegaXin"
            AddText   hm+"Reset"+hm+" Jos haluat päivittää kellon"
            AddText   hm+"Help"+hm+" Jos haluat nähdä ohjeet"            
            komento$ = Syöte() 'Input looppaus funktiossa
           
            //poistetaan AddTextilla lisätty teksti ruudulta ja resetoidaan AddTextin ja Inputin sijainti
            ClearText : Locate 0,0
            If( komento$ = "Help" ) Then
                Goto Help
            ElseIf( komento$ = "End" ) Then
                Goto loppu
            Else
                Goto alku
                ElseIf( komento$ = "Reset" ) Then
                Goto alku
            EndIf

        help:
            AddText "#-MegaX-#"
            AddText "Takaisin alkuun, Back komennolla ja "+hm+"End"+hm+" jos haluat lopettaa MegaXin"
            AddText ""
            AddText ""
            AddText ""
            AddText ""
            AddText "ohje"
            komento$ = Syöte()
            ClearText : Locate 0,0
            If( komento$ = "Back" ) Then
                Goto alku
            ElseIf( komento$ = "End" ) Then
                Goto loppu
            Else
                Goto Help
            EndIf
           
        loppu:
            AddText "MegaX sammuu kahden sekunnin kuluttua"
            DrawScreen
            Wait 2000
            End

        //============================================================================
       
        //============================================================================

        Function Syöte$(komentokehote$="")

            Locate 0,40

            Repeat
                komento$ = Input(komentokehote$)
                DrawScreen
            Until KeyHit(cbkeyreturn)
            CloseInput 'suljetaan Input
            Return komento$ 'palautetaan se, mitä kirjoitettiin
        EndFunction
Mites tohon toi sovelletaan?
*Poistunut foorumilta*

User avatar
kaneli2000
Guru
Posts: 1059
Joined: Mon Mar 17, 2008 3:40 pm
Location: Lempäälä

Re: MegaX CB

Post by kaneli2000 » Sat Nov 22, 2008 11:33 am

Mun sydän itkee.
=Joku= wrote:Betaa ei saa koska Gm:llä en tehnyt. Ismo ongelma ja kuinka tekisi:
Kun ohjelmassani voi kirjoitella komennon niin... Miten saisi tämän toteutettua tai miten voisi tehdä:
Kirjoitetaan open:(Tiedoston polku) Miten tuo voitaisiin tehdä?
Mitä sä koitat sanoo? En mä haluu olla epäystävällinen, mutta kun en kato tiekkö oikeen silleen saa tyyliin selvää tosta sun sönkötyksestä.
I see the rainbow rising

User avatar
Ozcar
Advanced Member
Posts: 439
Joined: Mon Aug 27, 2007 8:43 pm
Location: Helsinki

Re: MegaX CB

Post by Ozcar » Sat Nov 22, 2008 2:16 pm

1) Ongelmat-osion asioita

2) Kielioppi kuntoon, oikeasti. Jos ei viestiä ymmärrä, ei puhekielisyys ainakaan auta sitä. Te ette istu äikän tunnilla turhaan.

Jooko? Tämä touhu menossa jo naurettavaksi.
Ratkaisit juuri universaaliongelman! Hienoa, ota keksi.

Filosofia on ajattelun taidetta, mutta sen maalari elää juoden apurahojaan masennukseensa.

User avatar
kaneli2000
Guru
Posts: 1059
Joined: Mon Mar 17, 2008 3:40 pm
Location: Lempäälä

Re: MegaX CB

Post by kaneli2000 » Sun Nov 23, 2008 3:16 pm

Ozcar wrote:1) Ongelmat-osion asioita

2) Kielioppi kuntoon, oikeasti. Jos ei viestiä ymmärrä, ei puhekielisyys ainakaan auta sitä. Te ette istu äikän tunnilla turhaan.

Jooko? Tämä touhu menossa jo naurettavaksi.
Meni jo, sillon heti kun tää topicci alko.
Ja oon samaa mieltä tosta kieliasusta, niinku oonkin jo sanonu...
I see the rainbow rising

User avatar
=Joku=
Active Member
Posts: 184
Joined: Mon Aug 04, 2008 2:26 am

Re: MegaX CB

Post by =Joku= » Sun Nov 23, 2008 3:17 pm

Joo jatkossa parempaa tulossa ja lopetetaan off-topic.
*Poistunut foorumilta*

Post Reply