Hey Leute,
also ich muss einen Primzahlberechner mit VB programmieren und krieg es ehrlich gesagt einfach nicht auf die Reihe. Also ein Struktogramm hab ich schon angefertigt(müssen wir in der Schule immer machen, also zur Hilfe), das war auch einfach aber das programmieren krieg ich nicht hin![:S](https://www.vb-paradise.de/wcf/images/smilies/wacko.png)
Also ich hab jetzt eine Textbox zum eintragen der zu überprüfenden Zahl erstellt einen Button und ein Label,wo später das Ergebnis : ist eine Pimzahl oder ist keine Primzahl stehen soll.
Nur jetzt hört es schon auf
Also ich hab mich dann mal so über google informiert und dann kam sowas:
Function IsPrimeNumber(ByVal Number As Long) As Boolean
also Boolean ist mir klar
aber wir haben noch nie Function vor etwas stehen gehabt
sonst hatten wir immer Private Sub ... wäre es irgendwie auch damit machbar?
dann kam bei Google dieser Teil:
If Number Mod 2 = 0 Or Number = 1 Then 'Wenn die angegebene Zahl
If Number <> 2 Then 'durch 2 teilbar ist (jedoch
IsPrimeNumber = False 'ungleich 2) oder gleich 1 ist,
Exit Function 'ist es keinesfalls eine Primzahl
End If
End If
Also hier wär ich zwar alleine nicht drauf gekommen
aber es ist nachvollziehbar.
Naja und jetzt kommt die Schleife und die versteh ich schon mal so überhaupt nicht.
For Counter = 1 To Number - 1 Step 2 'Eine Schleife von
If Number Mod Counter = 0 Then '1 bis zur angegebenen
If Counter <> 1 Then 'Zahl - 1 durchlaufen,
IsPrimeNumber = False 'wobei jede 2. Zahl aus-
Exit Function 'gelassen wird, da die
End If 'Teilbarkeit durch 2 bereits
End If 'geprüft wurde. Wird ein
Next Counter 'Teiler <> 1 gefunden, ist
'die Zahl keine Primzahl.
IsPrimeNumber = True
Also insgesamt hab ich verstand was der Computer nun machen muss um eine Primzahl "zu finden", doch ich weiß halt nicht wie man das in VB aufschreibt
und noch so ne Frage zu Schleifen generell was hat es mit dem i oder j immer auf sich ( zum Beispiel: for i=1 to 100)
Vielleicht kann mir das hier ja jemand erklären
Bei meinem Lehrer versteh ich das nämlich mal so überhaupt nicht :((
also ich muss einen Primzahlberechner mit VB programmieren und krieg es ehrlich gesagt einfach nicht auf die Reihe. Also ein Struktogramm hab ich schon angefertigt(müssen wir in der Schule immer machen, also zur Hilfe), das war auch einfach aber das programmieren krieg ich nicht hin
![:S](https://www.vb-paradise.de/wcf/images/smilies/wacko.png)
Also ich hab jetzt eine Textbox zum eintragen der zu überprüfenden Zahl erstellt einen Button und ein Label,wo später das Ergebnis : ist eine Pimzahl oder ist keine Primzahl stehen soll.
Nur jetzt hört es schon auf
![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
Also ich hab mich dann mal so über google informiert und dann kam sowas:
Function IsPrimeNumber(ByVal Number As Long) As Boolean
also Boolean ist mir klar
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
![:S](https://www.vb-paradise.de/wcf/images/smilies/wacko.png)
dann kam bei Google dieser Teil:
If Number Mod 2 = 0 Or Number = 1 Then 'Wenn die angegebene Zahl
If Number <> 2 Then 'durch 2 teilbar ist (jedoch
IsPrimeNumber = False 'ungleich 2) oder gleich 1 ist,
Exit Function 'ist es keinesfalls eine Primzahl
End If
End If
Also hier wär ich zwar alleine nicht drauf gekommen
![^^](https://www.vb-paradise.de/wcf/images/smilies/grin.png)
Naja und jetzt kommt die Schleife und die versteh ich schon mal so überhaupt nicht.
For Counter = 1 To Number - 1 Step 2 'Eine Schleife von
If Number Mod Counter = 0 Then '1 bis zur angegebenen
If Counter <> 1 Then 'Zahl - 1 durchlaufen,
IsPrimeNumber = False 'wobei jede 2. Zahl aus-
Exit Function 'gelassen wird, da die
End If 'Teilbarkeit durch 2 bereits
End If 'geprüft wurde. Wird ein
Next Counter 'Teiler <> 1 gefunden, ist
'die Zahl keine Primzahl.
IsPrimeNumber = True
Also insgesamt hab ich verstand was der Computer nun machen muss um eine Primzahl "zu finden", doch ich weiß halt nicht wie man das in VB aufschreibt
![:S](https://www.vb-paradise.de/wcf/images/smilies/wacko.png)
Vielleicht kann mir das hier ja jemand erklären
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)