NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Diskuze – Lekce 6 - VB.NET - Aréna s bojovníky

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
Avatar
Jaroslav Trojan
Tvůrce
Avatar
Jaroslav Trojan:28.6.2016 10:04

Všechno funguje perfektně, jen mi to nepíše ta poškození, nevím kde je ten nedostatek. Zatím jsem nic neobjevil.

Odpovědět
28.6.2016 10:04
statik
Avatar
Bohouš Bílý
Člen
Avatar
Bohouš Bílý:31.1.2017 13:33

Díky. Super ukázky.
Konečně mi to někdo dokázal osvětlit zábavnou formou.

 
Odpovědět
31.1.2017 13:33
Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 12:32

Thread.Sleep mi nefunguje funguje jen Threading.Thre­ad.Sleep
Poprosím o opravení či vysvětlení :)

Odpovědět
24.7.2017 12:32
Neaktivní uživatelský účet
Avatar
David Hartinger
Vlastník
Avatar
Odpovídá na Neaktivní uživatel
David Hartinger:24.7.2017 13:27

Protože to nemáš naimportované. Cituji článek:

Aby vše fungovalo, musíme přidat Imports System.Threading na začátek souboru Arena.vb.

Odpovědět
24.7.2017 13:27
New kid back on the block with a R.I.P
Avatar
Neaktivní uživatel
Člen
Avatar
Neaktivní uživatel:24.7.2017 15:00

Aha... Tak to se omlouvám čtení = (čtení - 1) :D

Odpovědět
24.7.2017 15:00
Neaktivní uživatelský účet
Avatar
Ivan Hradec
Člen
Avatar
Ivan Hradec:28.3.2019 21:34

myslím, že na konci lekce je omylem zobrazena předchozí verze arena.vb bez úpravy ukončení cyklu je-li 2. útočník mrtvý, a bez náhodného pořadí útočníků. Sice jsem to vyřešil ale velmi pravděpodobně ne optimálně. Je možné si konečnou verzi prohlédnout?

 
Odpovědět
28.3.2019 21:34
Avatar
František Střelka
Člen
Avatar
Odpovídá na Ivan Hradec
František Střelka:4.5.2019 4:49

Také jsem hledal upravený cyklus, ale alespoň nás to donutilo přemýšlet :-)
Nabízím své řešení úpravy cyklu v Arena.vb, ale budu rád za tipy, co vylepšit:

While bojovnik1.Nazivu() And bojovnik2.Nazivu()
    ' Přiřazení instancí bojovníků do proměnných b1 a b2
    Dim b1 As Bojovnik = bojovnik1
    Dim b2 As Bojovnik = bojovnik2
    ' Náhodné prohození instancí
    If (kostka.Hod() > (kostka.VratPocetSten() / 2)) Then
        b1 = bojovnik2
        b2 = bojovnik1
    End If
    b1.Utoc(b2)
    Vykresli()
    ' Zpráva o útoku
    VypisZpravu(b1.VratPosledniZpravu())
    ' Zpráva o obraně
    VypisZpravu(b2.VratPosledniZpravu())
    If b2.Nazivu() Then ' Ověření, jestli bojovníka b2 v předchozím kroku nezabil bojovník b1, aby b2 neútočil již mrtvý
        b2.Utoc(b1)
        Vykresli()
        ' Zpráva o útoku
        VypisZpravu(b2.VratPosledniZpravu())
        ' Zpráva o obraně
        VypisZpravu(b1.VratPosledniZpravu())
    End If
    Console.WriteLine()
End While
 
Odpovědět
4.5.2019 4:49
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 7 zpráv z 7.