Vianoce v ITnetwork sú tu! Dobí si teraz kredity a získaj až 80 % extra kreditov na e-learningové kurzy ZADARMO. Zisti viac.
Hľadáme nové posily do ITnetwork tímu. Pozri sa na voľné pozície a pridaj sa k najagilnejšej firme na trhu - Viac informácií.

Diskusia – 6. diel - VB.NET - Aréna s bojovníkmi

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
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.

Odpovedať
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.

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

Odpovedať
24.7.2017 12:32
Neaktivní uživatelský účet
Avatar
David Hartinger
Vlastník
Avatar
Odpovedá 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.

Odpovedať
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

Odpovedať
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?

 
Odpovedať
28.3.2019 21:34
Avatar
František Střelka
Člen
Avatar
Odpovedá 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
 
Odpovedať
4.5.2019 4:49
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ý!