Nejste přihlášen/a.
Dobrý den.
Rád bych se zeptal na otázku ohledně Power pointu. Nevíte někdo, jak udělat aby na otázku musel dotyčný napsat správnou odpověď. Celkovvý kvíz dělám skrz tlačítka, ale k tomuhle jsem se dostal až teď. Děkuji.
Zeptám se hned umíte programovat ve VB? Je to nutny jestli chcete ovládat ActiveX.
1, Soubor->Možnosti->Přistpůsobit pás karet-> zatrhnout Vývojáře
2, Karta vývojář natáhnout Textové pole (textbox) a tlačítko (button).
3, 2x klik na tlačítko.
4, V Okně Kódu napište asi takovéhle kód:
Private Sub CommandButton1_Click()
If TextBox1.Text = "něco" Then
With SlideShowWindows(1).View
.GotoSlide 2
End With
Else
With SlideShowWindows(1).View
.GotoSlide 3
End With
End If
End Sub
Samozdřejmě ukládat s koncovkou ".ppsm" a v nastavení Power Pointu povolit ActiveX.
| textbox_quiz.pptx | 41.92 kB | |
| textbox_quiz.ppsm | 45.52 kB |
Dobrý den.
Děkuji za odpověď. Asi mám na mysli, co myslíte a věřím, že to bude fungovat, ale moje znalosti nejsou tak dobré. Mohl bych poprosit o podrobnější vysvětlení, jako pro začátečníka. Moc mě to zajímá a chtěl bych se tomu věnovat. Děkuji.
Je to jednoduchý návod skládající se ze čtyř očíslovaných kroků.
Začni krokem č 1 , pokud máš v něm nejasnosti, tak napiš jaké.
Pak pokračuj bodem 2 ...
Dobře zřejmě neumíte programovat a přejete si omáčku. Dobře, trochu to nastíním. Přiznám se s jazyk VB moc neovládám preferuji C#, který (neúplně) podobný. Ono programování v Power Pointu nemá moc smysl, když můžu udělat něco podobného jako web nebo jako aplikaci a tam nejsem limitován prostředím, tak to moho pořádně vystylovat.
Takž začnu.
Všechny okna aplikací se obsahují prvky (Controls). Control může být text (label), textové pole (textbox), tlačítko (button), obrázek (Image), přepínač (Radio button) a mnoho dalších. Power Point používá pro obyčejné uživatele svoje speciální, které jsou víceméně statické (moc se s nimi v průběhu prezentace nedá nic moc dělat). Pokud aktivujete vývojáře, můžete přidat základní prvky, takové co používají běžné aplikace. Tyto prvky se nazývají ActiveX. Jelikož se běžné aplikace (třeba malování, průzkumník) programují, tak je třeba i tyto prvky naprogramovat. V případě Power Pointu je možné použít jazyk Visual Basic (zkráceně VB). Programovací jazyk je speciální psaná řeč, určená pak k pozdějšímu převedení na instrukce, kterému rozumí počítač - tomu říkáme kompilace (může být před nebo během, ale to teď není důležité). V programovacím jazyce se píší algoritmy, to jsou něco jako recepty. Př. 1, Připrav si tyto ingradience 2, Do mísi dej toto a toto 3, zamýchej to 4, Když se to bude lepit přidej to těsta ještě trochu mouky...
Každý prvek má své vlastnosti (Properties). Vlastností může být jeho název, barva, typ písma, ... Když kliknete pravím na vývojářský prvek myší a vyberete "Seznam vlastností"objeví se malé okynko s tabulkou kde jsou vlastnosti toho prvku.
V kódu se vlastnost získá: název prvku tečka název vlastnosti. Př. textBox1.Text (->získej text z prvku který se jmenuje textBox1).
Dále každý prvek má svoje události (Event), to může být kliknutí, změna textu, načtení, ... Každá událost odkazuje nanějakou funkci (metodu). Něco ve smyslu - když kliknu na prvek mám provést metodu. Metoda je pojmenovaný něco jako recept jak něco udělat. Např. metoda s názvem "Otevři okno"obsahuje něco jako: 1, Uchop kliku 2, Oteč s klikou 3, Zatáhni za kliku. V Poverpointu je nejjednoduší dvakrát kliknout na ActiveX prvek, tak přidám jeho předzvolenou událost.
Metoda se zapisuje ve VB jako: označení začátku "Private Sub název události ()"konec se značí "End Sub" . Název události je složen ve výchozím režimu složen název prvku _ název události (např. název události CommandButton1_Click). Private značí něco jako, že k tomu nejde přistupovat zvenčí (to asi není teďka moc důležité).
Dále je třeba znát podmínky. Podmínka je: když něco platí udělej něco nebo když neplatí udělej něco jiného. Zapisuje se takto.
If prvdivé/nepravdivý výrok Then
Něco proveď
Else
Něco jiného proveď
End If
Výrok např. TextBox1.Text = "něco" (-> když se text prvku shodný s "něco"). Připodobníme to matematicex<1.
Dále jsem použil kód - přejdi na Power Point snímek:
With SlideShowWindows(1).View
.GotoSlide číslo snímku
End With
Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.