Narodil jsem se v Mostě a žiji v Mostě. Jméno Jaroslav mi dala maminka při narození. Druhé jméno jsem přijal 22. 04. 2000 při křtu. Biřmovací jméno mám Adam a jméno Emanuel je jméno řádové. Má to tak být.
Digg  Sphinn  del.icio.us  Facebook  Mixx  Google  BlinkList  Furl  Live  Ma.gnolia  Netvouz  NewsVine  Pownce  Propeller  Reddit  Simpy  Slashdot  Spurl  StumbleUpon  TailRank  Technorati  TwitThis  YahooMyWeb
 
 
 

Basic

10 REM Ctverecek
20 CLS
30 SCREEN 1
40 LINE (1,1)-(230,1)
50 LINE (1,1)-(1,170)
60 LINE (1,170)-(230,170)
70 LINE (230,170)-(230,1)
80 END
10 REM Zmena barvy
20 CLS
30 COLOR 1
40 PRINT "Co je to za barvu"
50 END
10 REM Pouziti barev
20 SCREEN 7
30 COLOR 1
40 PRINT "Barva"
50 COLOR 2
60 PRINT "Barva"
70 END
10 REM Pouziti zvuku
20 FOR I=440 TO 1000 STEP 5
30 SOUND I,I/1000
40 NEXT I
50 END
10 REM Vypocet
20 CLS
30 BEEP
40 PRINT "Rok vaseho narozeni? ";:INPUT A
50 PRINT " "
60 PRINT "Jaky je rok? ";:INPUT B
70 PRINT " "
80 COLOR 2
90 PRINT "Je vam ";:PRINT B-A;:PRINT "roku."
100 END
10 REM Dotaz na jmeno
20 CLS
30 DIM A$ (20)
40 PRINT "Dotaz na jmeno..."
50 PRINT
60 PRINT "Napiste sve jmeno ";:INPUT A$
70 PRINT "Vase jmeno je ";:PRINT A$
80 END
10 REM Nazorny vypocet dvou hodnot A a B
20 A=10
30 B=20
40 LET C=A+B
50 PRINT C
60 END
10 REM Vyuziti funkce FOR/NEXT
20 CLS
30 BEEP
40 FOR A=1 TO 100
50 PRINT A;
60 NEXT A
70 END
10 REM Nahodna cisla
20 CLS:BEEP
30 RANDOMIZE TIMER
40 FOR A=1 TO 30
50 Y=INT(RND*6)+22
60 NEXT Y
70 NEXT A
80 END
10 REM Nahodne scitani dvou cisel
20 CLS:BEEP
30 RANDOMIZE TIMER
40 Y = INT(RND * 10) + 29
50 X = INT(RND * 50) + 50
60 PRINT Y;: PRINT "+";: PRINT X;
70 PRINT "=";: INPUT A
80 IF A = X+Y THEN PRINT "Spravne."
90 IF A<> X+Y THEN PRINT "Spatne."
100 END
10 REM Domecek
20 CLS:BEEP
30 SCREEN 1
40 LINE (10,10) - (300,10)
50 LINE (300,10) - (300,150)
60 LINE (300,150) - (10,150)
70 LINE (10,150) - (10,10)
80 LINE (50,100) - (100,100)
90 LINE (100,100) - (100,50)
100 LINE (100,50) - (50,50)
110 LINE (50,50) - (50,100)
120 LINE (100,50) - (75,25)
130 LINE (75,25) - (50,50)
140 END
10 REM Poplachovy signal
20 CLS:BEEP
30 FOR B=1 TO 10
40 SOUND 500,20
50 FOR A=1 TO 50
60 NEXT A
70 SOUND 1000,20
80 FOR A=1 TO 50
90 NEXT A
100 NEXT B
110 END
10 REM Umisteni textu
20 LOCATE 5,5: PRINT "Ahoj svete..."
30 END
10 REM Spousteci tlacitko
20 PRINT "Stiskni ESC"
30 DO
40 LOOP UNTIL INKEY$=CHR$(27)
50 END
10 REM Trojuhelnik
20 CLS
30 SCREEN 1
40 FOR A=1 TO 100
50 LINE (100,100) - (A,A)
60 LINE (20,A) - (100,50)
70 NEXT A
80 END
Tyto programy jsou na procvičení v programovacím jazyce QUICK BASIC. Autor těchto stránek je nabízí zdarma, neboť přešel na tzv. objektové programování ve Visual Basic 2010 Express. Přeji hodně zábavy při programování.
10 REM Volné místo v pameti
20 CLS : BEEP
30 PRINT "Kolik je mista v pameti: "
40 LOCATE 5,5 : PRINT "Volneho mista je: ",FRE("");:PRINT " bajtů."
50 DIM A$(20)
60 LOCATE 10,5 : PRINT "Zadejte text";:INPUT A$
70 LOCATE 15,5 : PRINT A$
80 LOCATE 5,5 : PRINT "Volneho mista je: ", Fre("");:PRINT " bajtů."
90 END
10 REM Heslo
20 CLS:BEEP
30 DIM A$(20)
40 DIM B$(20)
50 LET A$ = "ABCD"
60 LOCATE 5,5:PRINT "Vložte heslo: ";:INPUT B$
70 IF A$ = B$ THEN COLOR 10:LOCATE 10,5:PRINT "Ok."
80 END

Tento program se vás zeptá na heslo. V tomoto případě je heslo: "ABCD". Na řádku 50 je možné heslo změnit. Maximální velikost hesla je zadána na řádku 30 a 40.  V našem případě nesmí přesáhnout 20 znaků.
10 REM Graficky rezim
15 CLS:BEEP
20 SCREEN 7
30 COLOR 2
35 FOR E = 1 TO 6
40 LOCATE 18,5 : PRINT "Cislo 1: ";:INPUT A
50 LOCATE 19,5 : PRINT "Cislo 2: ";:INPUT B
60 LOCATE 20,5 : PRINT "Cislo 3: ";:INPUT C
70 LOCATE 21,5 : PRINT "Cislo 4: ";:INPUT D
80 LINE (A,B)-(C,D)
90 NEXT E
100 END

 
10 REM Alarm
20 CLS:BEEP
25 FOR A = 1 TO 6
30 SOUND 1000,6
40 SOUND 2000,6
50 SOUND 3000,6
60 NEXT A
70 SOUND 500,6
80 END

 
10 REM Barevne pruhy
20 CLS : BEEP
30 SCREEN 1
40 COLOR 1
50 FOR A = 1 TO 200
55 B = INT(RND * 10) + 22
57 COLOR B : PRINT
60 LINE (1, A)-(315, A)
70 NEXT A
80 CLS : BEEP
90 LOCATE 5,5 : PRINT "Jak se dari?" : COLOR 5
100 LOCATE 20, 5 : PRINT "Siskni tlacitko ESC"
110 DO
120 LOOP UNTIL INKEY$=CHR(27)
130 END
10 REM Rámecek
20 SCREEN 2
30 LINE (1,1)-(630,1)
40 LINE (630,1)-(630,150)
50 LINE (1,150)-(630,150)
60 LINE (1,1)-(1,150)
70 END
10 REM Hodiny a datum
20 CLS : COLOR 20 : LOCATE 23,70 : PRINT "ESC"
30 COLOR 2
40 DO
50 LOCATE 2,59 : PRINT "Hodiny: " ; TIME$
60 LOCATE 2,3 : PRINT "Datum: " ; DATE$
70 LOOP UNTIL INKEY$ = CHR$ (27)
80 END