Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: *QB* Dos klooni apuwa!

juhaz [28.04.2002 18:38:25]

#

Mitäs tälle koodille voisi tehdä, että, kun ensin kirjoittaa vaikka B:\, että se menee tonne B-asemalle niin, kun sitten kirjoittaisi dir niin se näyttäisi kaikki tiedostot (kuten oikea dos) niin siinä.

Screen 12
  Print "Juhaz dos"
  Print
  thedrive = 1
  Color 7
  Do
          IF thedrive = 1 THEN INPUT "C:\>", move$
          IF thedrive = 2 THEN INPUT "A:\>", move$
          IF thedrive = 3 THEN INPUT "B:\>", move$
          IF thedrive = 4 THEN INPUT "D:\>", move$
          IF thedrive = 5 THEN INPUT "E:\>", move$
          IF thedrive = 6 THEN INPUT "F:\>", move$
          If Move$ = "a:\" Or Move$ = "A:" Then
                  thedrive = 2
          ElseIf Move$ = "c:\" Or Move$ = "C:\" Then
                  thedrive = 1
          ElseIf Move$ = "b:\" Or Move$ = "B:\" Then
                  thedrive = 3
          ElseIf Move$ = "d:\" Or Move$ = "D:\" Then
                  thedrive = 4
          ElseIf Move$ = "e:\" Or Move$ = "E:\" Then
                  thedrive = 5
          ElseIf Move$ = "f:\" Or Move$ = "F:\" Then
                  thedrie = 6
          ElseIf Move$ = "Ver" Then
                  Print "Juhaz dos 1.0"
          ElseIf Move$ = "VER" Then
                  Print "Juhaz dos 1.0"
          ElseIf Move$ = "ver" Then
                  Print "Juhaz dos 1.0"
          ElseIf Move$ = "help" Then
                  Print "Dos klooni"
                  Print "kirjoita "reference" nähdäksesi kaikki komennot."
                  Print "Tässä on kaikki mitä tarvitset tietää"
          ElseIf Move$ = "reference" Then
                  Print "Reference Thing:"
                  Print
                  Print "help   - the help screen"
                  Print "reference   - this screen"
                  Print "color 1 - changes text color (numbers 1-15 can be used)"
                  Print "quit    - leave and go to main menu"
          ElseIf Move$ = "color 1" Then
                  Color 1
          ElseIf Move$ = "color 2" Then
                  Color 2
          ElseIf Move$ = "color 3" Then
                  Color 3
          ElseIf Move$ = "color 4" Then
                  Color 4
          ElseIf Move$ = "color 5" Then
                  Color 5
          ElseIf Move$ = "color 6" Then
                  Color 6
          ElseIf Move$ = "color 7" Then
                  Color 7
          ElseIf Move$ = "color 8" Then
                  Color 8
          ElseIf Move$ = "color 9" Then
                  Color 9
          ElseIf Move$ = "color 10" Then
                  Color 10
          ElseIf Move$ = "color 11" Then
                  Color 11
          ElseIf Move$ = "color 12" Then
                  Color 12
          ElseIf Move$ = "color 13" Then
                  Color 13
          ElseIf Move$ = "color 14" Then
                  Color 14
          ElseIf Move$ = "color 15" Then
                  Color 15
          Else
                  Shell Move$
          End If
  Loop Until Move$ = "quit"

Antti Laaksonen [28.04.2002 18:55:49]

#

Ensinnäkin värin valinta kannattaisi vaihtaa:

...
Print "quit - leave and go to main menu"
ElseIf left$(move$,5)="color" then
Color val(mid$(move$,6))
Else
...

Sitten asemanvalinta:

...
Print
asema$="C"
INPUT asema$+":\>",move$
IF len(move$)=2 and right$(move$,1)=":" then
asema$=left$(move$,1)
ElseIf Move$ = "Ver" Then
...

juhaz [28.04.2002 19:20:21]

#

Hehheheh? No jaah! Täytyy yrittää nyt sitten saada tuo, mutta tuntuu, että pää sekosi =)

juhaz [28.04.2002 20:27:00]

#

Hörm! Ei toimi! Ei!

juhaz [28.04.2002 20:38:18]

#

Ratkaisin ongelman! Mutta koodin koko kasvaa ihan melko isoksi.
Mä lisäsin sinne esimerkiksi tähän tyyliin tekstiä

elseif move$ = "dir c:\" or move$ = "DIR C:\" then
      shell ("dir C:\")

Ja miten minä saan halutun osoitteen tavarat näkymään?
No näin!

elseif move$ = "dir x" or move$ = "DIR X" then
      input "Path: "; p$
      shell ("dir " + p$)

Eli tämä on toimiva, mutta koodin koko kasvaa hieman isommaksi.

juhaz [28.04.2002 20:38:57]

#

Tohon tuli mulla kirjoitus virheitä, mutta kyllä varmaan ymmärrätte

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta