Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 3 von 3

Thema: VB 6 Programm für Primzahlen

  1. #1
    Registriert seit
    03.01.2006
    Ort
    Im sonnigen Süden von Österreich!
    Beiträge
    1.377
    Danke
    227
    Erhielt 183 Danke für 168 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo!

    Ich habe jetzt ein Programm geschrieben zur Ermittlung von Primzahlen zwischen zwei Zahlen (von bis):

    Code:
    Option Explicit
     
    Private Sub Form_Load()
    txtPrimzahl.Locked = True
    txtvon = 0
    txtbis = 100
    End Sub
     
    Private Sub cmdErmitteln_Click()
    Dim von As Long
    Dim bis As Long
    Dim Primzahl As Long
    Dim Mögliche_Zahlen As Long
    Dim Divisor As Long
    Dim Rest As Long
    Dim boolPrimzahl As Boolean
    Dim Zahl As Long
     
    If Not IsNumeric(txtvon) Then
        MsgBox prompt:=("Geben sie bitte eine Zahl für 'Von' ein!")
        Exit Sub
    End If
     
    If Not IsNumeric(txtbis) Then
        MsgBox prompt:=("Geben sie bitte eine Zahl für 'bis' ein!")
        Exit Sub
    End If
     
    txtPrimzahl.Text = ""
    von = txtvon
    bis = txtbis
    Zahl = 0
     
    'Ermittle Primzahlen
    For Mögliche_Zahlen = von To bis                 'Ermitteln der Zahlen die in Frage kommen können
        For Divisor = 2 To Mögliche_Zahlen - 1       'Divisor ermitteln (2 bis Mögliche Zahl minus 1)
            Rest = Mögliche_Zahlen Mod Divisor       'Ermittle den Rest
            If Rest = 0 Then                         'Kontrolliere ob Rest überbleibt
                boolPrimzahl = True
            End If
        Next
        DoEvents
        If Not boolPrimzahl And Not (Mögliche_Zahlen = 0 Or Mögliche_Zahlen = 1) Then
            Zahl = Zahl + 1
            Primzahl = Mögliche_Zahlen
            txtPrimzahl.Text = txtPrimzahl.Text & "Primzahl " & Zahl & ": " & Primzahl & vbCrLf
        End If
        boolPrimzahl = False
    Next
     
    End Sub
    1) Kann man das Programm einfacher auch noch schreiben?
    2) Wenn ich die Primzahlen von 0 bis 100000 haben will dann bleibt das Programm bei 28433 stehen. Warum ist das so?

    godi
    Zitieren Zitieren VB 6 Programm für Primzahlen  

  2. #2
    Registriert seit
    27.05.2004
    Ort
    Thüringen/Berlin
    Beiträge
    12.222
    Danke
    533
    Erhielt 2.698 Danke für 1.950 Beiträge

    Standard

    Sieh dir mal diesen Algo an:

    http://de.wikipedia.org/wiki/Sieb_des_Eratosthenes

    und auch das ist interessant:

    http://www.java-forum.org/de/viewtopic.php?p=283069

    Leider nicht in VB, sollte aber kein Problem sein.
    Gruß
    Ralle

    ... there\'re 10 kinds of people ... those who understand binaries and those who don\'t …
    and the third kinds of people … those who love TIA-Portal

  3. Folgender Benutzer sagt Danke zu Ralle für den nützlichen Beitrag:

    godi (15.06.2007)

  4. #3
    Registriert seit
    11.07.2004
    Beiträge
    1.597
    Danke
    10
    Erhielt 213 Danke für 183 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren

Ähnliche Themen

  1. S5 Programm überschreiben zu S7 Programm
    Von Tabler im Forum Simatic
    Antworten: 20
    Letzter Beitrag: 29.03.2011, 22:37
  2. Antworten: 8
    Letzter Beitrag: 09.12.2010, 18:08
  3. F-Programm
    Von tobl2002 im Forum Simatic
    Antworten: 5
    Letzter Beitrag: 16.01.2009, 07:19
  4. Antworten: 0
    Letzter Beitrag: 05.10.2006, 13:56
  5. S5 Programm in ein S7 Programm umwandeln
    Von 1schilcher im Forum HMI
    Antworten: 3
    Letzter Beitrag: 15.01.2006, 11:53

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •