MegaX CB

[=Joku=]

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

[kaneli2000]

Offtopic: OPETTELE KIRJOITTAMAAN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[nevssons]

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

[Lobodomy]

Juu mistä sää ladata tä betan?

[=Joku=]

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

[phons]

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

[=Joku=]

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?

[kaneli2000]

Mun sydän itkee.

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

[Ozcar]

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.

[kaneli2000]

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

[=Joku=]

Joo jatkossa parempaa tulossa ja lopetetaan off-topic.