WCM Forum - Visual Basic - Primzahlenprogramm

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Visual Basic - Primzahlenprogramm (http://www.wcm.at/forum/showthread.php?t=94326)

coolbininet

17.04.2003 09:15

Visual Basic - Primzahlenprogramm

Hallo Leute!

Brauche Eure Hilfe! Suche ein Programm für VB, das mir die Primzahlen ausgibt. Wenn möglich mit der Eingabe Zahl A, dann Zahl B und die Primzahlen dazwischen sollen ausgegeben werden. Bitte helft mir!

mfg Coolbininet

blauesau

17.04.2003 09:45

So zum Beispiel:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim von As Integer = txtVon.Text

        Dim bis As Integer = txtBis.Text

        Dim i As Integer

        Dim j As Integer

        txtOutput.Text = ""

        For i = von To bis

            If isPrime(i) Then

                txtOutput.Text += CType(i, String) + ", "

            End If

        Next



    End Sub



    Function isPrime(ByVal zahl As Integer)

        Dim x As Integer

        Dim p As Boolean = True

        For x = 2 To Math.Sqrt(zahl)

            If zahl Mod x = 0 Then

                p = False

            End If

        Next

        If zahl = 1 Then

            p = False

        End If

        Return p

    End Function

coolbininet

18.04.2003 09:01

Danke für die Antwort!

Hi danke für die Antwort, und wo muss ich den Code jetzt einsetzen, bin nämlich VB Anfänger!

mfg

Coolbininet

blauesau

18.04.2003 17:11

Das ist VB.Net-Code. Ich weiß nicht, welche Version du verwendest - sollte aber kein großer Unterschied sein.

Wie du siehst, ist das eine ein Click-Ereignis eines Buttons -> da gehört dieser Code auch hin.
Die Function isPrime kannst du unverändert lassen. Dann brauchst du noch zwei Textfelder, wo du den Von- und den Bis-Wert eintragen kannst und ein Multiline-Textfeld, wo die Ausgabe reinkommt.

Aber vielleicht solltest du mal mit einfacheren Dingen anfangen?! ;)

pong	18.04.2003 18:15

Prog ist zwar nett und einfach, aber was machst du mit Zahlen jenseits der 32768?

pong

blauesau

18.04.2003 18:42

Das kann dann ja coolbininet modifizieren, wenn seine Ansprüche steigen...:D

Alle Zeitangaben in WEZ +2. Es ist jetzt 21:31 Uhr.