IT rekvalifikácia. Seniorní programátori zarábajú až 6 000 €/mesiac a rekvalifikácia je prvým krokom. Zisti, ako na to!

Diskusia – 5. diel - Bojovník do arény

Späť

Upozorňujeme, že diskusie pod našimi online kurzami sú nemoderované a primárne slúžia na získavanie spätnej väzby pre budúce vylepšenie kurzov. Pre študentov našich rekvalifikačných kurzov ponúkame možnosť priameho kontaktu s lektormi a študijným referentom pre osobné konzultácie a podporu v rámci ich štúdia. Toto je exkluzívna služba, ktorá zaisťuje kvalitnú a cielenú pomoc v prípade akýchkoľvek otázok alebo projektov.

Komentáre
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

 
Odpovedať
24.8.2015 12:17
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
 
Odpovedať
24.8.2015 12:19
Avatar
Jaroslav Trojan
Tvůrce
Avatar
Odpovedá 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.

Odpovedať
26.6.2016 15:02
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?

 
Odpovedať
15.2.2017 20:11
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í :)

Odpovedať
24.7.2017 12:11
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?

Odpovedať
24.7.2017 12:24
Neaktivní uživatelský účet
Avatar
Michal Žůrek - misaz
Tvůrce
Avatar
Odpovedá 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.

 
Odpovedať
24.7.2017 12:26
Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 15:06

Jo četl proč?

Odpovedať
24.7.2017 15:06
Neaktivní uživatelský účet
Avatar
Ondrej Zadrapa
Člen
Avatar
Odpovedá 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?

 
Odpovedať
5.5.2020 17:53
Avatar
Alesh
Tvůrce
Avatar
Odpovedá 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
 
Odpovedať
19.5.2020 19:56
Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zatiaľ nikto nevložil komentár - buď prvý!