Visual Basic – jak naprogramovat Sportku?

26. 5. 2016 16:44:30

Ahoj, máme ve škole úkol naprogramovat Sportku. Nějak jsem to zvládl, moc mi programování nejde, a tak se chci zeptat zda neví někdo jak tuto sportku nějak zjednodušit, popřípadě mi dát nějake rady. :)

A další dotaz mám, zda tu někdo neumí napsat vyvojový diagram, vůbec mi to nejde a dost by mě pomohlo, kdyby mě někdo s tímto pomohl.

ZDE příkládám screeny programku:

Děkuji předem za jakoukoliv pomoc!:)

26. 5. 2016 16:44:30

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198436

qwertr

(7 hodnocení)

26. 5. 2016 17:10:08

Skus napriklad nieco taketo

maz tam cyklus ktory prechadza po jednotlivych zadanych cislach a zistuje, ci v zozname vygenereovanych cisel sa to zadane nachadza

Pokial ano tak, zvysuje pocet najdenych cisel.

Len neviem, v akej verzii visual basicu to programujes. Za mi zda nejake stare to prostredie.

Toto je nahrada tvojich if- ov. Mozes vyhodit vsetky if zadej(0_ .....

26. 5. 2016 17:10:08

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198435

Fido123

(13 hodnocení)

26. 5. 2016 17:15:18

Nesázej 99, nepadne.

26. 5. 2016 17:15:18

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198434

Sebik

(3 hodnocení)

26. 5. 2016 17:17:47

Ahoj, je to přes Visual Basic 2010 Express, ten máme i ve škole, proto jsem jsi ho stáhl i doma, jinak by jsem nejspíše šel radši i do vyšší verze.

Jinak vlastně to co jsi napsal, upřímně nechápu. Mohl by jsi to vypsat znovu i s hodnoty co mám zadány v prográmku ? Jelikož nevím kde to dosadit aby to fungovalo s dalšími částmi.

26. 5. 2016 17:17:47

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198433

Steeta

(3 hodnocení)

26. 5. 2016 17:29:34

jazyk neznám, ale sportka je jen do 49 :))

26. 5. 2016 17:29:34

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198432

Sebik

(3 hodnocení)

26. 5. 2016 17:33:19

Je to jen úkol, tudíž jsem nějak neřešil čísla. Ale změnou program již prošel a je do 49 :-)

26. 5. 2016 17:33:19

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198431

qwertr

(7 hodnocení)

26. 5. 2016 17:43:25

z tvojho kodu vyhod vsetko od

if zadaj(0)= x(0)

po koniec programu

a nahrad to tymto

texty si doplnis sam

26. 5. 2016 17:43:25

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198430

Smazaný účet hvLPwPN09D

(3 hodnocení)

26. 5. 2016 17:50:43

Dostal jsi úkol naprogramovat sportku, ale kam si máš do kódu dosadit jednoduchou funkci nevíš? Co studuješ?

26. 5. 2016 17:50:43

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198429

Sebik

(3 hodnocení)

26. 5. 2016 17:54:37

Super funguje to. Díky moc. +1

EDIT: Tomáš Maňhal, jsem teprve v prvním ročníku a funkci For Each a dále x.Contains jsme například nebrali. Proto jsem nevěděl jak to tam dosadit. :)

26. 5. 2016 17:54:37

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198428

Fido123

(13 hodnocení)

26. 5. 2016 20:42:15

Takhle bych to napsal, třeba tě něco z toho inspiruje:

Module Module1    Sub Main()        Dim vsazenaCisla = NactiCisla()        Dim r As New Random()        Dim tazenaCisla = Enumerable.Range(1, 49).OrderBy(Function(n) r.Next).Take(6).ToArray()        Dim uhodnutaCisla = vsazenaCisla.Intersect(tazenaCisla).ToArray()        Console.WriteLine("Tipoval jsi čísla {0}", String.Join(", ", vsazenaCisla.OrderBy(Function(n) n)))        Console.WriteLine("Padly čísla {0}", String.Join(", ", tazenaCisla.OrderBy(Function(n) n)))        If uhodnutaCisla.Any()            Console.WriteLine("Uhodl jsi {0} čísla ({1})", uhodnutaCisla.Count, String.Join(", ", uhodnutaCisla.OrderBy(Function(n) n)))        Else            Console.WriteLine("Neuhodl jsi nic")        End If        Console.ReadKey()    End Sub    Private Function NactiCisla As Integer()        Dim cisla = New List (Of Integer)        While (cisla.Count < 6)            Console.Write("Zadej {0}. číslo (1-49): ", cisla.Count + 1)            Dim cislo = 0            If Integer.TryParse(Console.ReadLine(), cislo) And cislo >= 1 And cislo <= 49 And Not cisla.Contains(cislo)                cisla.Add(cislo)            End If        End While        Return cisla.ToArray()    End FunctionEnd Module

26. 5. 2016 20:42:15

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198427

Sebik

(3 hodnocení)

26. 5. 2016 21:31:40

Fido123: Díky. Určitě si ten kód uložím a pokusím se něco z toho použít i v jiném programu :) Toto kdyby jsem zaslal učitelce, tak si myslím že by mi určitě nevěřila že jsem to psal já. :D

EDIT: Ale vidím že nedáváš na začátek programu Imports System.Console, a podle mě ten source je o dóst lepší než píšeme ve škole. :))

26. 5. 2016 21:31:40

https://webtrh.cz/diskuse/visual-basic-jak-naprogramovat-sportku#reply1198426

Fido123

(13 hodnocení)

26. 5. 2016 21:43:19