MegaX CB
Re: MegaX CB
Cb on ollut hiukan tylsää kun ei keksi miten tehdänpolkusysteemi.
Näin:kirjoitetaan filun polku ja avaa sen.
Kirjoitus systemi on.
Näin:kirjoitetaan filun polku ja avaa sen.
Kirjoitus systemi on.
*Poistunut foorumilta*
- kaneli2000
- Guru
- Posts: 1059
- Joined: Mon Mar 17, 2008 2:40 pm
- Location: Lempäälä
Re: MegaX CB
Offtopic: OPETTELE KIRJOITTAMAAN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
I see the rainbow rising
Re: MegaX CB
CbAPI? Sillä saisi tiedosto selaimen=Joku= wrote:Cb on ollut hiukan tylsää kun ei keksi miten tehdänpolkusysteemi.
Näin:kirjoitetaan filun polku ja avaa sen.
Kirjoitus systemi on.
Koodarina kohtalainen, henkilönä vittumainen
Re: MegaX CB
Juu mistä sää ladata tä betan?
BINÄÄRI KOODIA
http://www.hs.fi/fingerpori/1135231649043
http://www.hs.fi/fingerpori/1135231649043
Re: MegaX CB
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ä?
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*
Re: MegaX CB
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()
Re: MegaX CB
Mites tuota käytetään kun olen tällänen evo.
Mites tohon toi sovelletaan?
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
*Poistunut foorumilta*
- kaneli2000
- Guru
- Posts: 1059
- Joined: Mon Mar 17, 2008 2:40 pm
- Location: Lempäälä
Re: MegaX CB
Mun sydän itkee.
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ä.=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ä?
I see the rainbow rising
Re: MegaX CB
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.
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.
Filosofia on ajattelun taidetta, mutta sen maalari elää juoden apurahojaan masennukseensa.
- kaneli2000
- Guru
- Posts: 1059
- Joined: Mon Mar 17, 2008 2:40 pm
- Location: Lempäälä
Re: MegaX CB
Meni jo, sillon heti kun tää topicci alko.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.
Ja oon samaa mieltä tosta kieliasusta, niinku oonkin jo sanonu...
I see the rainbow rising