Mikuláš je tady! Získej 90 % extra kreditů ZDARMA s promo kódem CERTIK90 při nákupu od 1199 kreditů. Pouze do neděle 7. 12. 2025! Zjisti více:
NOVINKA: Staň se datovým analytikem od 0 Kč a získej jistotu práce, lepší plat a nové kariérní možnosti. Více informací:

Diskuze – Lekce 5 - Bojovník do arény

Zpět

Upozorňujeme, že diskuze pod našimi online kurzy jsou nemoderované a primárně slouží k získávání zpětné vazby pro budoucí vylepšení kurzů. Pro studenty našich rekvalifikačních kurzů nabízíme možnost přímého kontaktu s lektory a studijním referentem pro osobní konzultace a podporu v rámci jejich studia. Toto je exkluzivní služba, která zajišťuje kvalitní a cílenou pomoc v případě jakýchkoli dotazů nebo projektů.

Komentáře
Nejnovější komentáře jsou na konci poslední stránky.
Avatar
Aleš Brychta
Člen
Avatar
Aleš Brychta:24.8.2015 12:17

Public Sub Utoc(souper As Bojovnik)
Dim uder As Integer = utok + kostka.hod()
NastavZpravu(Strin­g.Format("{0} útočí s úderem za {1} hp", jmeno, uder))
souper.BranSe(uder)
End Sub

Public Sub BranSe(uder As Integer)
Dim zraneni As Integer = uder - (obrana + kostka.hod())
If zraneni > 0 Then
zivot -= zraneni
Dim zprava = String.Format("{0} utrpěl poškození {1} hp", jmeno, zraneni)
If zivot <= 0 Then
zivot = 0
zprava &= " a zemřel"
Else
zprava = String.Format("{0} odrazil útok", jmeno)
End If
NastavZpravu(zpra­va)
End If
End Sub**Public Sub Utoc(souper As Bojovnik)
Dim uder As Integer = utok + kostka.hod()
NastavZpravu(Strin­g.Format("{0} útočí s úderem za {1} hp", jmeno, uder))
souper.BranSe(uder)
End Sub

Public Sub BranSe(uder As Integer)
Dim zraneni As Integer = uder - (obrana + kostka.hod())
If zraneni > 0 Then
zivot -= zraneni
Dim zprava = String.Format("{0} utrpěl poškození {1} hp", jmeno, zraneni)
If zivot <= 0 Then
zivot = 0
zprava &= " a zemřel"
Else
zprava = String.Format("{0} odrazil útok", jmeno)
End If
NastavZpravu(zpra­va)
End If
End Sub**Public Sub Utoc(souper As Bojovnik)
Dim uder As Integer = utok + kostka.hod()
NastavZpravu(Strin­g.Format("{0} útočí s úderem za {1} hp", jmeno, uder))
souper.BranSe(uder)
End Sub

Public Sub BranSe(uder As Integer)
Dim zraneni As Integer = uder - (obrana + kostka.hod())
If zraneni > 0 Then
zivot -= zraneni
Dim zprava = String.Format("{0} utrpěl poškození {1} hp", jmeno, zraneni)
If zivot <= 0 Then
zivot = 0
zprava &= " a zemřel"
Else
zprava = String.Format("{0} odrazil útok", jmeno)
End If
NastavZpravu(zpra­va)
End If
End Sub

Avatar
Aleš Brychta
Člen
Avatar
Aleš Brychta:24.8.2015 12:19

Nemá být předposlední zdrojový kód takto ? PS: omlouvám se za předešlý komentář, poprosím smazat.

Public Sub Utoc(souper As Bojovnik)
        Dim uder As Integer = utok + kostka.hod()
        NastavZpravu(String.Format("{0} útočí s úderem za {1} hp", jmeno, uder))
        souper.BranSe(uder)
End Sub

Public Sub BranSe(uder As Integer)
        Dim zraneni As Integer = uder - (obrana + kostka.hod())
        If zraneni > 0 Then
                zivot -= zraneni
                Dim zprava = String.Format("{0} utrpěl poškození {1} hp", jmeno, zraneni)
                Else
                        zprava = String.Format("{0} odrazil útok", jmeno)
                End If
                If zivot <= 0 Then
                        zivot = 0
                        zprava &= " a zemřel"
                End If
                NastavZpravu(zprava)
End Sub
Avatar
Jaroslav Trojan
Tvůrce
Avatar
Odpovídá na Aleš Brychta
Jaroslav Trojan:26.6.2016 15:02

Tak,jak to máš, to bude programově správně. Chyběla tam verse, když je život <0.

Odpovědět
statik
Avatar
Miroslav Němeček
Člen
Avatar
Miroslav Němeček:15.2.2017 20:11

V modulu1 mi po napsání tříd vyskočila chyba, příkaz Console.writeline() bralo jako hodnotu třídu a ne jako příkaz aby něco ukázal na obrazovce. Neví někdo co s tím?

Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 12:11

Chci tě jen upozornit že ve funkci
Public Overrides Function ToString() As String
Return jmeno;
End Function

Je nepoužitelný znak ; poprosím o opravení :)

Odpovědět
Neaktivní uživatelský účet
Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 12:24

Když jsem otestoval poslední kód tak mi to napsalo že se zalgoren ubránil ale ubralo mu to jeden znak.. tak jsem to pustil znovu a měl ubrané 2 znaky co to je?

Odpovědět
Neaktivní uživatelský účet
Avatar
Michal Žůrek - misaz
Tvůrce
Avatar
Odpovídá na Neaktivní uživatel
Michal Žůrek - misaz:24.7.2017 12:26

a četl jsi ten článek? Četl jsi všechny ve který se tvoří toto demo. Vstupuje tma do hry objekt kostka, který generuje náhodné číslo.

Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 15:06

Jo četl proč?

Odpovědět
Neaktivní uživatelský účet
Avatar
Ondrej Zadrapa
Člen
Avatar
Odpovídá na Michal Žůrek - misaz
Ondrej Zadrapa:5.5.2020 17:53

Po nespoctu kontrol porad muj bojovnik odrazi utok. A není to jen u me, i tady na strankach porad odrazi utok. Je to prvek nahody, nebo to tak ma proste byt, nebo je nekde chyba, poradíš mi prosim Te?

Avatar
Alesh
Tvůrce
Avatar
Odpovídá na Ondrej Zadrapa
Alesh:19.5.2020 19:56

Tak jsi to kontroloval špatně, resp. nepřipouštíš variantu, že to má autor špatně! :-)
Správně to má být takto:

Public Sub BranSe(uder As Integer)
        Dim zraneni As Integer = uder - (obrana + kostka.hod())
        Dim zprava As String
        If zraneni > 0 Then
                zivot -= zraneni
                zprava = String.Format("{0} utrpěl poškození {1} hp", jmeno, zraneni)
                If zivot <= 0 Then
                        zivot = 0
                        zprava &= " a zemřel"
                End If
        Else
                zprava = String.Format("{0} odrazil útok", jmeno)
        End If
        NastavZpravu(zprava)
End Sub
Nejnovější komentáře jsou na konci poslední stránky.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 10 zpráv z 12.