Pomoc s jednoduchým operačním systémem

[faraon]

20 je číslo řádku na kterém k té chybě došlo, a Type mismatch znamená že se pokoušíš přiřadit do řetězcové proměnné obsah číselné nebo naopak. Nezapomněl jsi k názvu dát znak $? V BASICu jsou typy proměnných rozlišené právě takhle, nijak se nedeklarují ale je:

a - číselná v plovoucí desetinné čárce (float nebo real)
a% - celočíselná (integer)
a$ - řetězcová (string)

Můžou tak současně v jednom programu existovat proměnné různých typů se stejnými názvy, což ve většině programovacích jazyků není možné.
Některé dialekty BASICu mají jen číselné a řetězcové, jiné dalších pár typů navíc, například s dvojitou přesností... Těch dialektů existují stovky a programy jsou mezi nimi někdy velmi těžko přenosné

Nevýhoda BASICu je to, že se při každé běhové chybě zastaví, a tak se ti ani nemůže vrátit zpátky do té dávky, musel bys ručně napsat příkaz SYSTEM. To by šlo obejít tímhle:

Kód: Vybrat vše

10 ON ERROR GOTO 50
20 INPUT "Zadej nazev aplikace: ",r$
30 r$="set aplikace="+r$
40 SHELL r$
50 SYSTEM

P.S. Teď koukám že jsem to uhodl, v tom prvním programu máš na konci řádku místo $ znak "
20 s$ = "set cesta=" + s"
Změň to s" na s$ a uvidíme.

[mar00m]

Achhhhh jo! Nefunguje.

S tím tvojím se mi to rozjede,(Avšak...) Proměnná není funkční a aplikace se neukončí.....

Relativní zadaná cesta: A:\BTMR.bat
Ale vypíše: Zadaná cesta nebyla nalezena! Protože proměnná nebyla předtím deklarována jako r$, nefunguje asi v tom případě SHELL (nebo co hodit obsah proměnné do uvozovek. To ale myslím nebude funkční...

[faraon]

SHELL spustí COMMAND a předá mu jako příkaz to co je v té řetězcové proměnné, tam problém není.

Už jsem rozchodil ten komp* a zrovna to zkouším, ale s tím SET je problém, ono to totiž funguje jen z autoexec.bat a ani když odtamtud spustím ten gwbasic tak se ta požadovaná proměnná nenastaví

No nic, vezmu si příručku a půjdu se z toho zrelaxovat k Dundeemu, snad z ní něco vyčtu. Asi bude nejlepší to celé vyřešit jinak, třeba s tím GWBasicem místo dávek. Z něj se dají příkazy také spouštět, takže udělat v něm instalátor by mělo jít.

---

* Nakonec to dopadlo úplně jinak než jsem plánoval, s tou 486kou mi ta klávesnice nefunguje! Zkoušel jsem to se dvěma Compaqy Presario s vestavěným monitorem a oba nechodily stejně. Asi Compaq nesnáší Hewlett Packard
Takže tu mám na židli monitor, na něm krabici od puzzle (tak aby neclonila větrání), na krabici je položená deska které nefungovaly hodiny, vedle na plném stolku na vrchu zdroj, na židli vedle monitoru je disketovka a před židlí další krabice nastojato, na které je položená ta klávesnice. Hrozný pohled Trochu problém byl najít do toho RAMku.

[mar00m]

Neboj. To jak já jsem prvně stavěl počítač tak se mi stala nepříjemná věc:
Dal jsem RAMku naopak.
A co myslíš že se stalo???
















Odvařil jsem RAMku spolu s grafikou, procákem (naštěstí jen Athlon) a nakonec mi zhasla i MB

[faraon]

Já jsem kdysi čistil mojí první 486ku a otočil jsem procesor v patici o 90˚. Když jsem jí zapnul a nic se nestalo, tak mi to došlo, tak jsem ho o čtvrtku otočil. Zapnul jsem počítač a zase se nic nestalo. tak jsem ho teda otočil o 180˚ zpátky a pak už bez problémů fungoval. Holt ty primitivní technoligie byly odolnější

[mar00m]

Tak víš. Předtím byly dráty z OCELI!
Teď je vyrábějí kvůli menším nákladům z HLINÍKU!
Otočíš a koupíš

A vytvořit teda ten instalátor v tom BASICu??? Ještě tu hodím upravený skriptík. Pak si s ním buděš muset pohrát ty, protože já nejsem na BASIC velký expert.
Diky

--- Doplnění předchozího příspěvku (28 Čer 2011 08:53) ---

Instalátor: Potřebuje ale doladit:

TARS.bat

Kód: Vybrat vše

@echo off
echo Nahravani Instalatoru
gwbasic vstup.bas
cls
call MAIN.bat

vstup.bas

Kód: Vybrat vše

10 REM Instalator Programu
20 PRINT "============================================================="
30 PRINT "TARS - Instalace programu, Operacniho systemu                "
40 PRINT "============================================================="

50 IF MISSING C:\APLIKACE
--------------------------------------------------------------------------
Když nebude existovat složka C:\APLIKACE tak ji vytvoř
--------------------------------------------------------------------------
60 PRINT "1) Vlozte instalacni Disketu do mechaniky 
70 PRINT " "
80 IF MISSING A:\*.* PRINT "Problem u jednotky A:\"
90 PRINT " "
100 PRINT "2) Nyni zadejte cestu k souboru ktery chcete nainstalovat "
110 PRINT "   Vzor.:    A:\SOUBORY\instal.exe "
120 PRINT "   V pripade ze chcete nainstalovat tento OS "
130 PRINT "  Vzor.:    A:\*.* "
140 PRINT "  Kdyz bude program mit vice casti "
150 PRINT "  Vzor.:    A:\PROGRAMEK\*.* "
160 PRINT "  Nejdrive vsak stisknete jakoukoli klavesu... "
170 PRINT " "
180 INPUT "Zadej cestu k Aplikaci: ",c$
190 PRINT " "
200 PRINT "3) Pockejte nez bude dokoncena instalace... "

210 copy c$ C:\APLIKACE\
-----------------------------------------------------------------------
Kopírování s proměnnou c$ do složky C:\Aplikace
-----------------------------------------------------------------------
220 PRINT " "
230 PRINT "Nyni si navolte moznosti programu: "
240 PRINT "Zadejte jeho jmeno (i s priponou (COMMAND.COM)) "
250 INPUT "Zadej název Aplikace: ",a$ 

260 LET x$ = "N: ",+RND$,+a$
370 WRITE "C:\INSTALAPP.bat": x$ 
-----------------------------------------------------------------------------------
Zapiš náhodné číslo a jméno aplikace do souboru C:\INSTALAPP.bat
Použil bych RND - Pseudonáhodné číslo vytvářené procesorem 
A proměnnou a$
Co myslíš? Ale jak to tam zapsat aby to zapsalo do toho souboru?
-----------------------------------------------------------------------------------
280 PRINT " "
290 PRINT "4) Instalacni procedura byla ukoncena "
300 PRINT "  Nyni muzete zmacknout jakoukoliv klavesu... "
310 END

[faraon]

Pár nápověd:

Když chceš vytisknout prázdný řádek, stačí samotný příkaz PRINT.

Práce s textovými soubory na disku:

Kód: Vybrat vše

100 REM zapis do souboru - co v nem bylo se smaze a zacne od zacatku
110 OPEN "soubor.txt" FOR OUTPUT AS #1
120 PRINT #1, "zapisovana data"
130 CLOSE #1

Kód: Vybrat vše

200 REM cteni ze souboru
210 OPEN "soubor.txt" FOR INPUT AS #1
220 INPUT #1,a$
230 CLOSE #1

Kód: Vybrat vše

300 REM pridani dalsich dat na konec existujiciho souboru
310 OPEN "soubor.txt" FOR APPEND AS #1
320 PRINT #1, a$,12345,":-)"
330 CLOSE #1

Kód: Vybrat vše

400 REM cekani na stisk nejake klavesy
410 IF INKEY$="" THEN GOTO 410

Ten název souboru můžeš mít v řetězcové proměnné, PRINT # a INPUT # pracují úplně stejně jako PRINT a INPUT, se všemi druhy proměnných.
Pracuje se takhle s textovými soubory, takže i čísla jsou v nich uložená v textovém formátu.
Číslo kanálu může být myslím 1 až 15, jen tolik souborů současně GWBasic umí otevřít.
Soubor se pro čtení dá otevřít jen když existuje, když otevřeš pro APPEND neexistující, tak se automaticky vytvoří nový. Bacha na to, že když otevřeš pro normální zápis existující soubor, tak se všechno co je v něm vymaže!

Na tom instalátoru zapracuji, musím odzkoušet pár věcí. Na první pokus jsi to napsal dost dobře

[mar00m]

Jesli neco chceš za to tak si řekni. Uvedu tě určitě jako spoluautora... Ten vstup.bas je nedokonalý. Takže ho PLS přepracuj, ale jen jestli budeš mít čas...

[faraon]

To co jsem ti přetím posílal byl jen návrh jak by to mohlo jít, ale zapomněl jsem na nedůslednost M$ v kopírování cizích nápadů, zrovna jsem se spolehl na to co v DOSu funguje všude jinde, jenom ne v tomhle případě

Takže tady je fukční soustava:

autoexec.bat

Kód: Vybrat vše

@ECHO off

REM nastaveni 1. promenne
SET zprava=Zadej 1. slovo
SET gw=ERROR
CALL vstup.bat
SET slovo1=%gw%

REM nastaveni 2. promenne
SET zprava=A ted zadej 2. slovo
SET gw=ERROR
CALL vstup.bat
SET slovo2=%gw%

REM vymazani docasnych promennych
SET zprava=
SET gw=

REM zobrazeni hodnot
CLS
ECHO 1. slovo je %slovo1%
ECHO 2. slovo je %slovo2%

vstup.bat

Kód: Vybrat vše

gwbasic input.bas

input.bas

Kód: Vybrat vše

10 SHELL "echo %zprava%"
20 PRINT
30 INPUT "",s$
40 OPEN "vstup.bat" FOR OUTPUT AS #1
50 PRINT #1,"gwbasic input.bas"
60 IF s$="" THEN GOTO 80
70 PRINT #1,"set gw="+s$
80 CLOSE #1
90 SYSTEM

Dá se to použít vícenásobně, proto se dočasná proměnná %gw% kopíruje do zvolené.
Problém je, že GWBasic po spuštění smaže obrazovku i se zprávou co se má vložit, to jsem obešel proměnnou %zprava%, která se z toho basicovského prográmku vypíše. Pokud bys nechtěl vypisovat nic, vlož do ní mezeru, jinak to ukáže ECHO = Off.
Pokud uživatel nic nezadá, proměnná %gw% se nemění, takže je možné do ní předem nastavit defaultní hodnotu, v tomhle případě hlášení ERROR. Dá se pak otestovat a podle toho dávku větvit.
Klíčový je soubor vstup.bat, kde na 1. řádku musí být vždy příkaz gwbasic input.bas, který po spuštění na druhý řádek vloží příkaz pro nastavení proměnné %gw%. A nebo nevloží, když nebylo nic zadáno.

[mar00m]

Tím si mě zabil. Teď v tom mám teprve CH4O$. Už ani nevím co kde mám změnit....
1 proměnná = cesta
2 proměnná = aplikace

\\EDIT
Tak už to zkouším, a díky. Ještě ti sem hodím nynější MAIN.bat. Trošku grafiky

Kód: Vybrat vše

call USERConfig.bat

:RUN
@echo off
cls
echo.
echo __                                    __                                               __
echo )(____________________________________)(_______________________________________________)(
echo )(              Nabidky               )(                                               )(
echo )(------------------------------------)( () () () ()() ()    ()()  ()()         ()()() )(
echo )( Nabidka RSUI - R - Reboot, atd..   )( () () () ()   ()   () () ()  () ()  () ()     )(
echo )( Nabidka SEIE - I - Sys. Info       )( () () () ()   ()   ()    ()  () ()()() ()     )(
echo )( Nabidka RNUI - U - Run Utility     )( () () () ()() ()   ()    ()  () ()  () ()()() )(
echo )( Nabidka HELP - H - Pomoc           )( () () () ()   ()   ()    ()  () ()  () ()     )(
echo )( Nabidka BTEI - B - Textovy editor  )( () () () ()   ()   ()    ()  () ()  () ()     )(
echo )( Nabidka QWBE - Q - Basic editor    )( () () () ()   ()   ()    ()  () ()  () ()     )(
echo )( Nabidka UTIL - T - Utility         )( () () () ()   ()   () () ()  () ()  () ()     )(
echo )( Nabidka DSUI - D - RealDOS         )( ()()()() ()() ()()  ()()  ()()  ()  () ()()() )(
echo )( Nabidka TARS - A - Instalace       )(                                               )(
echo )(____________________________________)(_______________________________________________)(
echo __                                    __                                               __
echo. 
echo.
echo.
choice /c:RIUHBQTDA Vyberte Nabidku
if errorlevel 9 GOTO TARS
if errorlevel 8 GOTO DSUI
if errorlevel 7 GOTO UTIL
if errorlevel 6 GOTO QWBE 
if errorlevel 5 GOTO BTEI 
if errorlevel 4 GOTO HELP
if errorlevel 3 GOTO RNUI
if errorlevel 2 GOTO SEIE
if errorlevel 1 GOTO RSUI
pause

:UTIL
@echo off
cls
call BTMR.bat
pause
cls
call MAIN.bat

:QWBE
@echo off
cls
qwbasic.com
pause
cls
call MAIN.bat

:BTEI
@echo off
cls
edit.com
pause
cls
call MAIN.bat

:HELP
@echo off
cls
type HELP.txt
pause
cls
call MAIN.bat

:DSUI
@echo off
cls
call DSUI.bat
pause
cls
call MAIN.bat

:RNUI
@echo off
cls
call RNUI.bat
pause
cls
call MAIN.bat

:SEIE
@echo off
cls
systeminfo
pause
cls
call MAIN.bat

:RSUI
@echo off
cls
call RSUI.bat
pause
cls
call MAIN.bat

:TARS
@echo off
cls
call TARS.bat
pause
cls
call MAIN.bat

--- Doplnění předchozího příspěvku (29 Čer 2011 11:40) ---

Ten tvůj faraóne funguje. Poslal jsem ti SZ, tak to testni. Teď du ještě to rozjet na noťas. Zatím CS

[faraon]

Trocha ASCII Artu nikdy nemůže uškodit, umění cvakajících a blikajích terminálových konzolí šedesátých a sedmdesátých let...

Kód: Vybrat vše

              a8888b.
             d888888b.
             8P"YP"Y88
             8|o||o|88
             8'    .88
             8`._.' Y8.
            d/      `8b.
          .dP   .     Y8b.
         d8:'   "   `::88b.
        d8"           `Y88b
       :8P     '       :888
        8a.    :      _a88P
      ._/"Yaa_ :    .| 88P|
 jgs  \    YP"      `| 8P  `.
 a:f  /     \._____.d|    .'
      `--..__)888888P`._.'

Viděl jsem takhle provedený celý první film Star Wars

Akorát mě je divná jedna věc, na konci toho MAIN.BAT máš volání MAIN.BAT, mít rekurzi v dávkovém souboru je dost odvážné.
Jsou dva způsoby jak dávkový soubor zavolat. Pokud je tam CALL BATCH.BAT, tak se do něj odskočí, a po ukončení se zase vrací do předchozího. Ale když zadáš jen BATCH.BAT, command do něj přejde a pokračuje až do konce, už se nevrací.

Toho co jsem ti posílal se nemusíš děsit, prostě použiješ VSTUP.BAT a INPUT.BAS, a v tom autoexecu je jen příklad jak se to má správně použít. Vlastně je v tom souboru expresní manuál

Zkouším ten basicový instalátor, pak dám vědět až to bude nějak chodit.

[mar00m]

Zatím tam nechám ten co jsem vytvořil, z toho tvojeho.
Alespoň to kopíruje soubory a nastavuje proměnné.
Ještě mám problém s datumem. Ale asi použiju ten vstup.bat
Nevíš jakým způsobem si windowsy nastavují proměnnou %date% a %time% ?? Myslím, že podle biosu. Ale nevím.

PS: Jaké jsou funkce např.: v nějaké softwérové firmě?
Konzultant, Vedoucí programátor, programátor, ???

--- Doplnění předchozího příspěvku (29 Čer 2011 18:41) ---

Kód: Vybrat vše

!!!!!!!' ,!!!!;  ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,   ,;; ` 
!!!!' ,!!!!' ,!!!!!!!!!!!!!''`````````````!!!!!!!!!!!!!!!!!!!!!!!!!,`'!!!; 
!'',;!!!!'' ,!!!!!!!!!!''`                   .``'!!!!!!!!!!!!!!!!!!!!!!,``!! 
 ;!!!!!' ,!!!!!!!!!''                        '`. `'!!!!!!!!!!!!!!!!!!!!, ` 
!!!!' ,!!!!!!!!!''                               `. `!!!!!!!!!!!!!!!!!!!!, 
!' ,;!!!!!!!!!!'                                     ` `'!!!!!!!!!!!!!!!!!! 
,;!!!!!!!!!!!'                                         `.`'!!!!!!!!!!!!!!!! 
!!!!!!!!!!!'                                              `!!!!!!!!!!!!!!! 
!!!!!!!!!!                                                `! `!!!!!!!!!!!!! 
!!!!!!!!'                                                  `! `!!!!!!!!!!!! 
!!!!!!!                                          .,,.       `! !!!!!!!!!!! 
!!!!!!             .,cc$$$$$c                 ,d$$$$$$$c,    `! `!!!!!!!!!!! 
!!!!!          ,,c$$$$$$$$$$$$e              z$F$$$$$$$$b,   ! !!!!!!!!!!! 
!!!!          d$$$$$$$$$$$-           d$$P  $$$$$,  `! !!!!!!!!!`! 
!!!           $$     `c, ,,cccc, `              `!`!!!!!!!! ! 
!! zc,._                    ,cc,$$$$$$$$$$bc                  ! !!!!!!!! ! 
!! $$L   `c,   b,       ,c$$$$$$$$$$$$$$$$$$c ,,c,           `! `!!!!!!! ! 
!! $$$$$$ccc$$ `M, ;;' c$$$$$$$$$'  `$$$b`$$`           `!  !!!!!!! ! 
! $$$$$$$$P ,!,,;! ,$$$$$$$$$P  ,c,  `$$h`$'              `! !!!!!!!!! 
! $$$$L._ ;!!!''`,,  $$$$$$$$$$F ,$PFz,  $F ,cb             !! !!!!!!!!! 
 $$$$$r`Mn,`!' ,d$$F d$$$$$$$$$$$c$$$ $$c. ,;' )             !! !!!!!!!!! 
 $$$$P,,, ,$$$$$F,$$$$$$$$$$$$$$$$    34$,ccF ....      !! !!!!!!!!! 
 J$$$P !!!! z$$$$$$bJ$$$$$$$$$$$$$$$,`hcdFdF .CC    ;!! !!!!!!!!! 
 $b =e,_`!! $$$$$$$$$$$$$$$$$$$$$$h$$,`.- .'    ;! !!!!!!!!! 
 $$$c M';f $$$$$$$$$$$$$$$$$$$$$$$$$L$,,z$$L`'' .    !! !!!!!!!!! 
J$$$F ;;!  $$$$P)$$$$$$$$$$$$$$$$$$$$$$bd$$$$$ 4c,,,,cd$Fc   !! !!!!!!!!! 
J$$$F !!!! $$$P,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ J$$$$$P$P'$$  !!' !!!!!!!!! 
J$$$F `,,` $F,$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $c$$3$ bcr !!  !!!!!!!!! 
J$$c,`,!;  J$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'$cP  ,$c$$F !! .!!!!!!!!! 
$Pb,`!!!;  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' c,,cdP ,$$$$P !! !!!!!!!!! 
L    d$$c `!!! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$' d$$$F,zP $$$$F z,`` !!!!!!!!! 
$$$$$$$$$$c `' `$$$$$$$$$$$$$$$$$$$$$$$$$$$',$$$,d$ d$$P,d . `!!!!!!!! 
   `$$$$$cc, `,,,,,,,.`$$$$$$$$ z$$$c$$$.$$$,c$$c    c,``!!!!! 
      ,$$$$$ ,c$$PF)$$$$$$$$bc,. $P,c$$PFF,,, d$$$$$$ccc$$$b, `!!! 
     ,$$$$F d$$P,zd$$$PF,J$$$$$$$be. `.,ccd$$$$$$$$b, $$$$$$$$$$$$$$. `! 
  ,zd$$$$$L $,d$$$P,cd$$$$$$$P,,cd$$$$$$$$$$$$$$$-`$$$$$$$$$$$$$b,` 
$$$$$$$$$$b,. $$$$,d$$$$$$$P,c$$$$$$$$$$$$$$$$$P ,ccccccc,,.CC$$$$$$$$$, 
$$$$$$$$$$$$$, L $$$$$$$P,$$$$$$$$$$$$$$$$$$P,d$$$$$$$$$$$$$$$$$$$$$$$$ 
$$$$$$$$$$$$$$$$cc,. ,c$$$$$$$$$$$$$$$$$$ z$$$$$$$$$$$$$$$$$$$$$$$$P 
`$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$P,z$$$$$$$$$$$$$$$$$$$$$$$P    
  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$P',d$$$$$$$$$$$$$$$$$$$PF        
    $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$P    `               
       $$$$$$$$$$$$$$$$$$$$$$$$PF                                       
           $$$$$$$$$$PF'