Dobry den s visual basic teprve zacinam ale potreboval bych udelat Formular na faktorial kde by bylo osetreni textu, nuly, zapornych cisel, desetinnych cisel... mohl by jste me prosim nekdo pomoct na napsat sem kod? Dekuji.. :-)
Fórum › Visual Basic
Prosim pomoc s faktorialem
Formulář ... editační pole, tlačítko, label na výsledek. Pokud nenajdeš ve vlastnostech editačního pole možnost "pouze čísla", tak jednoduché ošetření (po stisku tlačítka) je převést řetězec z editačního pole na celé neznamenkové číslo a znovu ho zpět převést na řetězec a tyto 2 řetězce porovnat. Když jsou stejné, tak počítat faktoriál a když ne tak zahlásit chybu. Není to sice úplně 100%, ale když nic nemáš, tak lepší než drátem do oka :).
Formulář ... editační pole, tlačítko, label na výsledek. Pokud nenajdeš ve vlastnostech editačního pole možnost "pouze čísla", tak jednoduché ošetření (po stisku tlačítka) je převést řetězec z editačního pole na celé neznamenkové číslo a znovu ho zpět převést na řetězec a tyto 2 řetězce porovnat. Když jsou stejné, tak počítat faktoriál a když ne tak zahlásit chybu. Není to sice úplně 100%, ale když nic nemáš, tak lepší než drátem do oka :).
Sice už je to mrtvé téma,ale kdyby se uživatel vrátil.
Public Class Form1
Public Function Factorial(ByVal Number As Integer) As String
Try
If Number = 0 Then
Return 1
Else
Return Number * Factorial(Number - 1)
End If
Catch ex As Exception
Return ex.Message
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Integer
num = Val(InputBox("Zadej číslo pro Faktorial"))
MsgBox(Factorial(num), 10, "Výsledek Faktoriálu")
End Sub
End Class
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Pomoc.... nějaká chybka prosím pomoc - více v podrobném popisu — založil tkstudent
Prosim o pomoc — založil bbeni
Prosím pomoc — založil Matej
C / C++ → Prosim pomoc — založil Nory
Prosim o pomoc...... — založil Cassper
Moderátoři diskuze