dotNETportal.cz

Sestavil jsem seznam několika doporučení pro všechny návštěvníky těchto diskuzí:

- volte název tématu, který bude mít co největší informační hodnotu o daném problému

- na začátek zprávy uveďte verzi a edici programovacího jazyka (například Visual Basic .NET 2005 Express)

- pokud vytvoříte nové téma jako otázku a někdo Vám odpoví, označte jeho příspěvek jako odpověď

- při psaní používejte čárky a háčky a snažte se dodržovat alespoň základní gramatická pravidla, zkvalitníte tím obsah diskuzí

- vyvarujte se osobních narážek a arogantního chování, nezapomínejte, že jste také začínali, ale na druhou stranu ani to, že ostatní nejsou povinní pomáhat, řekněte si o radu slušně :)

- pokuste se přiložit alespoň část zdrojového kódu v případě, že to bude možné

- procházejte příspěvky a pokuste se pomoci ostatním s jejich problémy, jednou zase pomůže někdo Vám

chcem program na VB.2005..nejaky co bude fungovat.....ale bleskem:D:D

nevíte o nějakých zdrojích odkud by se dalo naučit programovat ve vb i když je mi 12 a chodím normálně do školy.

NO, PRÁVĚ TADY!!!

http://vbnet.cz/kategorie--12.aspx

doporučuju web programujte.com je to tam trochu chaotický ale návody atd na visual basic najdeš, doporučil mi ho kámoš

Dobrý den, chtěl bych program na řízení jaderné elektrárny. Stačí zdrojový kód :D

If MsgBox("Chcete spustit řetězovou reakci?", MsgBoxStyle.OkOnly, "Temelin") = MsgBoxResult.Ok Then

Priravit_Jederny_Vybuch()

End If

:D MsgBoxStyle.OkOnly ? No zbohom....nie je to trochu nebezpečný program? Ale mám lepší:

If MsgBox("Chcete odpáliť bombu?", MsgBoxStyle.OkOnly, "Temelin") = MsgBoxResult.Ok Then
  Odpalit(new AtomovaBomba())
End If

Dobrý den, narazil jsem na zvláštní chybu ve funkčnosti mých podmínek. Podmínky vypadají zhruba takto:

Dim zprava As String
        If (txtcesta_k_programu.Text <> "") And (txtcas.Text <> "") Then zprava = "Úspěch 2"
        If (txtproces.Text <> "") And (txtcas.Text <> "") Then zprava = "Úspěch 1"
        If (txtwindows_akce.Text <> "") And (txtcas.Text <> "") Then zprava = "Úspěch 3"
        If (txtcas.Text = "") Then zprava = "Nevyplnil(a) jste políčko čas !!"
        If (txtcesta_k_programu.Text = "") And (txtproces.Text = "") And (txtwindows_akce.Text = "") And (txtcas.Text <> "") Then zprava = "Nevyplnil(a) jste akci, kterou chce v daný čas použít."
        vysledek.Text = (zprava)

S tím, že když vezmu první podmínku, tak při zadání textu do textboxu "txtcesta_k_programu" a aktivuju pomocí buttonu tyto podmínky, tak mi to vypíše tu zprávu, i když nebyl vyplněný textbox "txtcas". Poradil by mi někdo, kde jsem udělal botu. Předem děkuji.

S pozdravem Jiří Sládek

No jednak bych doporučoval založit na tento dotaz nové vlákno, čímž zvýšíte šanci že se dočkáte odpovědi.

A za druhé já bych to řešíl asi takhle:

 If txtcesta_k_programu.Text.Trim.Length > 0 And txtcas.Text.Trim.Length > 0 Then zprava = "Úspěch 2"

Příkazem trim oříznete případné mezery na začátku a konci (to jste neměl ošetřeno, takže pokud by uživatel zadal do textboxu mezeru, aplikace by brala jako že je textbox vyplněn).

A pak příkazem Length zjistít počet znaku v textboxu. Pokud je Length>0 textbox není prázdný.

Díky za radu. Nicméně stále to nedělá to co má, dalo by se říci že přehlíží "txtcas". Myslíte, že by to mohlo být tím že to není klasický textbox, ale je to MaskedTextBox ?

Už to mám, díky za trpělivost.

Potrebuju udelat program na vygenerovani nahodnych cisel ve vb je to ve stylu neco jako SAZKA

pocet tazenych cisel: 10

mnozina cisek vyberu: 35

rozpis na pocet cisel: 10

cena sloupce: 30 Kč

uz mam udelano pocet moznosti kolik je na prvni cenu a ted potrebuju asi tohle:

a) vytvořit zankový řetězec, který bude obsahovat pro každé číslo dva znaky (tzn. největší možný počet množiny tažených čísel je 99)

b) vygenerovat náhodné číslo do POČET ZNAKŮ/2

c) umístí do buňky

d) zkrátí se znakový řetězec o dva znaky představující náhodné číslo

e) zjištění počtu znaku v znakovém řetězci

Diky moc za pokus se to udelat prosim kdyztak mi to poslete na email [email protected]

Já bych toho potřeboval... Snad si nemyslíte že Vám tu někdo bude dělat domácí úkoly. Mátě v zásadě 3 možnosti:

1) Hoďte sem kus kódu, napište s čím máte konkrétní problém a my Vám rádí poradíme (ale věci typu neumím programovat nejsou konkrétní problém)

2) Projděte si tutorial pro začátečníky na tomto webu, po jeho pochopení Vámi požadovanou aplikaci hravě naprogramujete. Pokud si s něčím nebudete vědět rady, viz. bod 1.

Ale vzhledem k tomu, že body 1 a 2 jsou pro Vás zřejmě moc pracné, máte ještě jednu možnost:

3) Navrhněte nějákou částku jakou jste ochoten za takový program zaplatit a třeba se někdo ozve (ale upozorňuji Vás, že čas programátora bývá dost drahý).

A kromě toho že tento příspěvek porušuje pravidla fóra, je navíc v nesmyslném vlákně.

mam spravit nieco taketo :

Napíšte program, ktorý bude vykonávať nasledujúce činnosti :

- vyžiadate si vstup dvoch čísel „a“ a „b“

pokiaľ bude prvé číslo menšie ako druhé, prevediete nasledujúce činnosti :

-určíte, koľko je takých čísel, ktoré sú väčšie ako najčastejšie sa vyskytujúce číslo

- tieto čísla budú vypísané vo fonte Courier o veľkosti 14

- počet uložíte do bunky D8

pokiaľ bude prvé číslo väčšie ako druhé, prevediete nasledujúce činnosti :

- určíte hodnotu smerodajnej odchylky

- do buniek v stĺpci C ( jedným zápisom ) určíte výsledky podľa nasledujúceho vzorca :

( ( hodnoty*odchylka) + (b +8) ) / ( a + b )

- výsledok v bunke C7 zobrazíte v okne

pokiaľ budú čísla rovnaké, ukončíme činnosti.

takto som to zacal no dalej sa neviem pohnut :/ a aj to co mam mi neako nejde prosim poradte

Sub David()

Dim a As Integer

Dim b As Integer

a = Application.InputBox("zadaj A")

b = Application.InputBox("zadaj B")

Range("b1").Formula = a

Range("b2").Formula = b

If a < d Then

End If

Range("b2").Formula = "=mode(b1:b2)"

Range("b1:b2").Select

For Each bunka In Selection

If bunka < Range("b2") Then

End If

With bunka.Font

.Name = "courier"

.Size = 14

End With

Next bunka

End Sub

Dobrý den,

Chtěl bych se zeptat, při kopírování dat z DataGridView do schránky a následném vložení do Excelu/Wordu (jako HTML) dojde ke špatnému vložení znaků s diakritikou. Jsou zastoupeny kódem z Ascii tabulky (např. #237; pro í - popř. jiným znakem. Jedná se o VS2008 - vb.net a Excel 2003. Předem děkuji za nápady.

Označme přehledněji podmínky takto:

napíšeme-li něco do A pak je

txtcesta_k_programu.Text A je TextBox1 F

txtcas.Text B je TextBox2 F

txtproces.Text C je TextBox3 F

txtwindows_akce.Text D je TextBox4 T =U4

zprava je TextBox5 F

If (A <>"") And (B<>"") Then zprava = "Úspěch 2" U1

If (C <>"") And (B<>"") Then zprava = "Úspěch 1" U2

If (D <>"") And (B<>"") Then zprava = "Úspěch 3" U3

If (B = "") Then zprava = "Nevyplnil čas -" U4

If (A = "") And (C="")And(D="")AND(B<>"")

Then zprava = "Nevyplnil akci- " U5

vysledek.Text = (zprava)

Takže algoritmus funguje matematicky správně a není se čemu divit

zdravím - Ludvak

Zdravim všechny. Mám hotovej program, kterej mi generuje zdrojovej kód pro gpx soubor do GPSky, ale když si ve StreamWriteru naprogramuju koncovku .gpx GPSka mi to už neotevře. Tuším, že je potřeba napsat nebo někde najít knihovnu nebo něco takovýho, aby ten export proběhl bezproblemu a GPSka pracovala. Mohli byste mi někdo něco poradit???? Díky

stačí se podívat v jakém formátu má být výstup. To je ten problém.

( Například mezera může být způsobena mezerníkem nebo tabelátorem. Každý z těchto dvou způsobů má jinou hodnotu znaku. )

Dobrý den potřeboval bych program který my podle tlačítka přejmenuje určitý soubor.Asi jsem přišel na všechno ostatní jen nevim jak udelat aby se přejmenoval určitý soubor. Za odpoved predem děkuji

Tak to teď nevím, ale nevím, proč pro svůj dotaz nevytvoříte samostatné vlákno??? To si tady máme všímat příspěvků v dlouhém a starém vlákně?

Ahoj potřeboval bych poradit jak nadeklarovat jednu proměnnou která bude složená ze dvou dalších př:

A(16) as (B(8) as byte, C(8) as byte)

A poté jak oindexovat více názvů objektu na jeden př:

Dim A(5) as  REM Hlavní proměnnou jako co ?
A(0) = textbox1
A(1) = textbox2
REM atd

Díky za odpověď

Já nevím, jestli jsem to dobře pochopil, ale třeba takové

Dim A(5) as Object
A(0) = textbox1
A(1) = textbox2

by Vám fungovat mělo. A pokud se budete chtít naučit programovat, časem pochopíte i věci typu:

    Dim a As List(Of TextBox) = New List(Of TextBox)
    a.Add(textbox1)
    a.Add(textbox2)

Má to pouze dva předpoklady - nebýt líný a zkusit ty dotazy precizněji formulovat. Svoji šanci na relevantní odpověďi zvýšíte tím, že založíte pro Váš dotaz nové vlákno.

A nebo použijte strukturu:

 Structure MujTyp
  Dim a(8) As String
  Dim b(8) As String
 End Structure

 Dim MojeProm(16) As MujTyp

Celý den přemýšlím nad úplně triviálním programem, ale nemůžu na to přijít. Řekla jsem si, že vytvořím program, který načte číslo a poté vypíše, zda-li je kladné celé, kladné reálné,záporné celé, záporné reálné.

Vím, že v pascalu to bude vypadat asi takhle:

if (cislo > 0 ) and ((cislo - trunc(cislo)) = 0) then klad:=' kladny cele ';

if (cislo > 0 ) and ((cislo - trunc(cislo)) <> 0) then klad:=' kladny realne ';

if (cislo < 0 ) and ((cislo - trunc(cislo)) = 0) then klad:=' zaporny cele ';

if (cislo < 0 ) and ((cislo - trunc(cislo)) <> 0) then klad:=' zaporny realne ';

write(klad);

writeln;

Ale trunc ve Visualu není a já nemůžu přijít, jak na to. Prosím poraďte:)

Celý den přemýšlím nad úplně triviálním programem, ale nemůžu na to přijít. Řekla jsem si, že vytvořím program, který načte číslo a poté vypíše, zda-li je kladné celé, kladné reálné,záporné celé, záporné reálné.

Vím, že v pascalu to bude vypadat asi takhle:

if (cislo > 0 ) and ((cislo - trunc(cislo)) = 0) then klad:=' kladny cele ';

if (cislo > 0 ) and ((cislo - trunc(cislo)) <> 0) then klad:=' kladny realne ';

if (cislo < 0 ) and ((cislo - trunc(cislo)) = 0) then klad:=' zaporny cele ';

if (cislo < 0 ) and ((cislo - trunc(cislo)) <> 0) then klad:=' zaporny realne ';

write(klad);

writeln;

Ale trunc ve Visualu není a já nemůžu přijít, jak na to. Prosím poraďte:)

1. Položte dotaz do nového vlákna!

2. Co ten trunc v Pascalu dělá?

Pokud si vzpomínám dobže, tak trunc je převod čísla na jeho celou část. Stačí tedy ve VB udělat převod výsledku na integer, tedy přes Cint(něco) nebo Ctype(něco, Integer).

Keď to má byť vo VB.NET, tak by som použil blok Select Case na určenie kladné/záporné a na rozlíšenie reálneho a celého sa dá použiť to isté, ale namiesto trunc dáte funkciu Math.Floor .Taktiež ak výstupom má byť String, tak najprv overím iba znamienko a nastavím príslušnú hodnotu do String premennej a potom iba reálne/celé a zreťaziť dva String -y dokopy operátorom & .

Dobrý den, ve Visual Basic 2010 professional a potřebuju vědět, jak do tlačítka přidat hypertextový odkaz (web stránku), tak aby po kliknutí se ta stránka zobrazila. Pokud možno přidejte kód.

Když chcete kdekoliv otevřít web. stránku tak normálně pomocí Process.Start()

Process.Start("http://www.seznam.cz")

A ještě bych se chtěl zeptat, kdybych chtěl dát okaz na spuštění nějakého souboru, nebo programu.

Dřív než se začnete ptát tak někde hledejte!

A v mém předchozím příspěvku je to napsáno.

Process.Start("CESTA")

A jen tak pro zajímavost:

Process je česky proces a start je start. Nedává vám to logiku? Process.Start - Proces.Nastartovat/zapnout

Dobrý večer.

Potreboval by som poradiť len takú drobnosť.Keď napíšem do TextBoxu nejaké číslo, chcem, aby sa mi zobrazili všetky položky v ListView ktoré začínajú zadaným číslom.Neviem či som vám to dostatočne opísal.

Ďakujem za pomoc.

Proč to píšete do tématu, které s tím vůbec nesouvisí a nezaložíte samostatné vlákno jako všechny dotazy zde? Pak tu vzniká bordel. Moderátorům bych doporučoval toto téma uzamknout.

Ospravedlňujem sa.Som tu nový a ešte sa tu tak dobre nevyznám.Napravím to.

Dobrý den, potřebuji ve Visual basic naprogramovat hru Othello tak, aby fungovala, něco už mám hotové, zbývá dodělat dokončení a kontrola. Kratochvílová

[email protected]

Pls jak by jste ve VB udělali ten 4 příklad? děkujuu

http://www.uloz.to/9045746/imag1139-jpg

Dobrý den, prosím vás chci se zeptat jestli ve visual studiu 2010 jde ve vlastnostech nebo jak koliv jinak nastavit chování dvouch tlačítek (buttons).

Aby když kliknu na button1 poprvé ,.."něco se stane"

a podruhé kliknutím aby se nic už nestalo (jako kdyby to bylo "mrtvé" tlačítko).Ale když potom kliknu na button2, aby se opět button1 z aktivoval, ale pouze opět na jedno kliknutí.

,. doufám, že to z toho jde pochopit ;)

Diky moc za jakoukoliv odpověď

Samozřejmě lze,v metodě Click daného tlačítka si udělejte disable a enable tlačítka..

Prosímtě na 100 1000x mohl by si mi vysvětlit jak to myslíš nebo alespoň napsat pod čím to mám hledat na netu... na VB.net jsem našel funkci Click, ale jenom zmínku o ní k jinému tématu.

Děkuji

Vysvětlit potřebujete v prvé řadě to, že když chcete programovat, musíte se učit. Zde k tomu máte vynikající příležitost - základy od začátku:

http://vbnet.cz/serial--1-vb_net_od_zaca...

To, co hledáte najdete hned ve 2. dílu.

Když ve vývojovém prostředí vložíte tlačítko na formulář a na tlačítko poklepete, do kódu se vloží procedura a totéž uděláte pro druhé tlačítko. Do procedur vložíte kromě toho, co se má po kliknutí na tlačítko vykonat, "vypnutí" tlačítka a "zapnutí" druhého a opačně. Zkuste si:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        Button1.Enabled = True
    End Sub

Mám takový dotaz programuju zrovna jednu super hru podobné hře minecraft. A chtěl bych tam dát stavový řádek, který by po nějakém příkazu se spustil. Tím stavovým řádkem myslím listbox,

ale potřebuju vědět jak ho udělat P R Ů H L E D N Ý M !!!

Prosím vás, založte si na tento dotaz nové téma, toto téma je čistě informativní!

Hele prosimvas uživatelé... Já bych chtěl vědět jak do filesystemwatcheru přidám funkci, že když nějaký program vytvoří soubor, tak aby se v listboxu zobrazil jaký program, ale ne to co bylo vytvořeno!!! děkuji

Prosím jen o radu, protoze jsem uplny zacatecnik...nechci, aby mi nekdo delal domaci ukol, na to se mi kazdej z vysoka vykasle, to je jasny...jenom potrebuji navest nebo poradit, kde bych to mohl tady najit...neco uz mam hotove, ale nejsem si jisty...jde o to, ze ve skole jsme to zatim nebrali a patlam se v tom....jde o tento priklad..mockrat vam dekuji...

Napište program, který ze vstupního TextBoxu zpracuje jeden údaj ve tvaru, např. 1402d nebo 1402t. Je to

časový údaj, vyjadřující počet hodin. Písmeno za číslem udává jakou nejvyšší časovou jednotku bude

zobrazovat výstup po převedení hodnoty, např. d nejvyšší zobrazenou jednotkou jsou dny (170 dnů 5

hodin), na týdny se již nepřevádí. Pro t je nejvyšší zobrazenou jednotkou týden (5 týdnů, 4 dny, 3 hodiny),

na měsíce se již nepřevádí. Až na nejvyšší zobrazenou časovou jednotku budou všechny údaje zarovnány

způsobem obvyklým u časových údajů: 0-23 hodin, 0-7 dnů.

Výstup bude zapsán v TextBoxu.

Vžš dotaz rozhodně nepatří sem do všeobecného tématu. Podívejte se na začátek vlákna a zkuste vyhovět pořadavkům, kvůli kterým téma vzniklo.

Ptejte se na konkrétní problém a ty až hloupé zdůvodnění dotazu klidně vynechte. Jestli jde o školní úkol, všimněte si, že co nevidět končí školní rok a zeptejte se sám sebe, proč jste stále úplný začátečník.

holt vsichni nejsou na takove urovni jak ty no...nekomu to jde a nekdo potrebuje navest kdyz zacina...a tohle neni muj ukol, jenom pomaham vyresit problem...a misto kritiky, bys mohl radsi poradit, kde bych se to mohl naucit resp. precist...myslim ze by ti to zabralo mnohem min casu nez jenom poukazovat na neci neznalost kazdej nekdy zacina a nerikej, ze ses na neco nikdy neptal....

Krávy jsme spolu nepásli, tak si netykáme!

A rada byla zcela konkrétní: řídit se tím, co je na začátku tohoto vlákna a ptát se na konkrétní problém, tj. nežádat řešení úlohy maskované s "neco uz mam hotove, ale nejsem si jisty...". Jestli něco máte a nejste si jistý, zda je to dobré, předložte kód k posouzení, jistě se vám ho dostane případně i s radou, jak postupovat lépe.

A k dotazu "... kde bych to mohl tady najit" - vše k tomu potřebné najdete zde!. K programování samotnému jsou zde lekce pro začátečníky - nabídka vlevo: Začínáme, v Seriály je VB.NET od začátku, řešení konkrétních problémů lze vyhledávat - jde o funkce pro datum a čas...

I kritická odpověď je v podstatě rada jak si počínat lépe.

Dobrý den všem. Na začátek musím upozornit, že jsem ASP.NET nováček, tak se možná ptám na úplnou "kravinu".

Mám program, v něm GridView do kterého načítám seznam souborů z nějakého adresáře na serveru (nebo ze síťového adresáře).

Potřebuji, aby se mi po kliknutí na daný soubor tento soubor otevřel pomocí vhodného asociovaného programu (textové soubory, obrázky např. v IE, pdf v Adobe Readru, atd.). Zkrátka klasické chování, jako kdybych si pomocí úplně čistého HTML zobrazil soubory z nějakého adresáře na serveru.

Nepotřebuji žádné složitosti, musí to jít určitě nějak jednoduše.

Nyní mi to funguje na půl - při kliknutí pravým tlačítkem je možné tento soubor otevřít, ale při kliknutí levým tlačítkem se nic nestane (ale měl by se soubor otebřít).

Můj GridView vypadá nějak takto:

<asp:DataGrid runat="server" id="articleList" AutoGenerateColumns="False">

<Columns>

<asp:HyperLinkColumn DataNavigateUrlField="Name" DataNavigateUrlFormatString="\\nejaky_adresar\{0}"

DataTextField="Name" HeaderText="File Name" />

<asp:BoundColumn DataField="LastWriteTime" HeaderText="Last Write Time"

ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />

<asp:BoundColumn DataField="Length" HeaderText="File Size"

ItemStyle-HorizontalAlign="Right"

DataFormatString="{0:#,### bytes}" />

</Columns>

</asp:DataGrid>

Pozn. Při kliknutí pravým tlačítkem se soubor neotevře, ale dá se uložit a uloží se správně. Takže cesty fungují, soubor je nalezen, ale prostě jej nejde otevřít, jen "Uložit cíl jako..."

Dotaz vložte prosím znovu jako nové vlákno do diskusí, nikoliv do tohoto existujícího vlákna.

OK :-) ... Už jsem se v tom fóru zorientoval (doufám) ... :-)

hh já vůbec nevím jak mám napsat svůj příspěvek :-D tak to napíšu takhle .. Našel by se tady nějaký ochotný člověk který umí VB.net a přidat si mně na steam : [KN] Lahvicka , skype: hinzahinza nebo napsat na email : [email protected] .. Když tak dám finanční odměnu .. díky ..

Dobrý den , nenašla by se tu nějaká hodná duše co by mi pomohla ?

Dostal jsem zadanou práci : Nakreslete VD a vytvořte KA algoritmu, který převede rodné číslo na datum. Využijte textové funkce (right,left,midatd..)

nějak jsem to zmákl ale nevím jak dát podmínku na rok narození a měsíc narození(zjistil jsem že se žen.rodná čísla odečítají od měsíce'-50´) mám to nějak takhle:

  WriteLine("Zadejte rodné číslo:")
        a = ReadLine()
        b = ReadLine()
        b = Left(a, 2)
        b = 19 & b
        Write("rok narození je:" & b)
        c = ReadLine()
        c = Mid(a, 3, 2)
            Write("měsíc narození:" & c)
            d = ReadLine()
            d = Mid(a, 5, 2)
            Write("den narození:" & d)

předem díky za odpověd pomohlo by mi to moc :)