Klischeepunk  - 41
Champion
(offline)
Dabei seit 01.2005
8907
Beiträge
|
|
Geschrieben am: 26.07.2010 um 21:55 Uhr
|
|
Zitat von Y---_: Zitat von _Micha_93: yasin du als profi programmier benutzt cisual basic 2008?
wieso denn nicht visual studio 2010 ulti?^^
Weil Visual Basic 2008 immer Noch das Meist Gebrauchte ist. ^^
1. Bitte, bitte, bitte, bitte, änder seine Sig, das tut weh :(
2. Die am häufigsten genutzten Programmiersprachen sind nach wie vor C++ und Java.
Dieser Post wurde 2 mal ROT-13 verschlüsselt.
|
|
pixel - 40 
Team-Ulmler
(offline)
Dabei seit 03.2006
3363
Beiträge
|
|
Geschrieben am: 26.07.2010 um 21:58 Uhr
|
|
Ähm - hier gehts nicht um irgendwelche Signaturen ...
If it moves and shouldn't, use duct tape. If it doesn't move and it should, use WD40.
|
|
_Micha_93 - 32
Profi
(offline)
Dabei seit 09.2008
729
Beiträge
|
|
Geschrieben am: 26.07.2010 um 21:59 Uhr
|
|
@ yasin
wenn du es hast zeig ich dir gern auch meine lösung :)^^
...entweder man ist die welle... oder man reitet nur auf ihr... !
|
|
Y---_ - 28
Profi
(offline)
Dabei seit 03.2010
554
Beiträge
|
|
Geschrieben am: 26.07.2010 um 21:59 Uhr
|
|
Zitat von _Micha_93: Zitat von Y---_:
Ich ändere Nicht Meine Signatur Und dein Post wurde Als '' Spam '' Gekennzeichnet.
biste schon am programmieren von so einem Sieb des Eratosthenes ? :)
Das '' Sieb des Eratosthenes '' Kann man gar Nicht bei Visual Basic Erstellen ^^.
[MH] - {Coder} - C0D3RBL00D- CY [C++,VB.NET,C#]
|
|
bredator - 41
Champion
(offline)
Dabei seit 03.2008
5319
Beiträge
|
|
Geschrieben am: 26.07.2010 um 21:59 Uhr
|
|
Zitat von Y---_:
Wirst sehen, Morgen ist Das Programm Hier das auch was kann.
Zurzeit ist Nur die Demo Version verfügbar.
Ich bin gespannt, will es aber auch sehen. Vielleicht kriegst du ja doch irgendwann mal was zu Wege.
Lache nicht über jemanden, der einen Schritt zurück macht. Er könnte Anlauf nehmen.
|
|
bredator - 41
Champion
(offline)
Dabei seit 03.2008
5319
Beiträge
|
Geschrieben am: 26.07.2010 um 22:00 Uhr
Zuletzt editiert am: 26.07.2010 um 22:00 Uhr
|
|
Zitat von Y---_: Zitat von _Micha_93: Zitat von Y---_:
Ich ändere Nicht Meine Signatur Und dein Post wurde Als '' Spam '' Gekennzeichnet.
biste schon am programmieren von so einem Sieb des Eratosthenes ? :)
Das '' Sieb des Eratosthenes '' Kann man gar Nicht bei Visual Basic Erstellen ^^.
Ja da leck mich einer. Einen blöderen Post hab ich von dir wirklich noch nie gesehen. Du weisst schon, was es mit dem "Programmieren" auf sich hat, oder?
Lache nicht über jemanden, der einen Schritt zurück macht. Er könnte Anlauf nehmen.
|
|
Rifleman - 40
Experte
(offline)
Dabei seit 09.2003
1540
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:00 Uhr
|
|
Zitat von Y---_: Und Ich Kann Programmieren. Sonst könnte ich Ja nicht Meinen Neuen Server Supporter Nicht machen.
Möglicherweise doch 
Aber jetzt würde die Demo schon gern sehen...
Es sind die kleinen Dinge, die einen zum Wahnsinn treiben.
|
|
_Micha_93 - 32
Profi
(offline)
Dabei seit 09.2008
729
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:02 Uhr
|
|
Zitat von Y---_:
Das '' Sieb des Eratosthenes '' Kann man gar Nicht bei Visual Basic Erstellen ^^.
mhh 2 minuten google benutzt und ich glaube schon das es geht .. sieht wenigstens dannach aus 
...entweder man ist die welle... oder man reitet nur auf ihr... !
|
|
Klischeepunk - 41
Champion
(offline)
Dabei seit 01.2005
8907
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:02 Uhr
|
|
Zitat von pixel: Ähm - hier gehts nicht um irgendwelche Signaturen ...
Das stimmt hier gehts um sorgenfreies, rücksichtsloses, erheiterndes gesperme mit und für Yasin unseren einzig wahren Programmiergott! (Ich hab das wort spam durch sperm ersetzt, kommt einfach besser wenn man sag sperm mich nicht voll.)
Dieser Post wurde 2 mal ROT-13 verschlüsselt.
|
|
Y---_ - 28
Profi
(offline)
Dabei seit 03.2010
554
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:02 Uhr
|
|
Aha- Das hat aber Nix damit Zu tun Hier geht Es um Visual Basic Codes Und nicht um Andere. Von Anderen Programmierern Programmen.
[MH] - {Coder} - C0D3RBL00D- CY [C++,VB.NET,C#]
|
|
Klischeepunk - 41
Champion
(offline)
Dabei seit 01.2005
8907
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:03 Uhr
|
|
Zitat von Rifleman: Zitat von Y---_: Und Ich Kann Programmieren. Sonst könnte ich Ja nicht Meinen Neuen Server Supporter Nicht machen.
Möglicherweise doch
Aber jetzt würde die Demo schon gern sehen...
Rifleman, du verstehst nicht, ein Programm mit Funktion gibts morgen - die Demo tut noch nichts, die ist doch nur Demo.
Dieser Post wurde 2 mal ROT-13 verschlüsselt.
|
|
Y---_ - 28
Profi
(offline)
Dabei seit 03.2010
554
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:03 Uhr
|
|
Zitat von Rifleman: Zitat von Y---_: Und Ich Kann Programmieren. Sonst könnte ich Ja nicht Meinen Neuen Server Supporter Nicht machen.
Möglicherweise doch
Aber jetzt würde die Demo schon gern sehen...
Ok Morgen die Demo Und Übermorgen Die Vollversion
[MH] - {Coder} - C0D3RBL00D- CY [C++,VB.NET,C#]
|
|
scw - 42
Experte
(offline)
Dabei seit 09.2002
1836
Beiträge
|
|
Geschrieben am: 26.07.2010 um 22:03 Uhr
|
|
Zitat von Y---_: Zitat von _Micha_93:
biste schon am programmieren von so einem Sieb des Eratosthenes ? :)
Das '' Sieb des Eratosthenes '' Kann man gar Nicht bei Visual Basic Erstellen ^^.
Könntest du es vielleicht begründen, wieso man es deiner Meinung nach nicht mit Visual Basic lösen kann?
|
|
_Micha_93 - 32
Profi
(offline)
Dabei seit 09.2008
729
Beiträge
|
Geschrieben am: 26.07.2010 um 22:04 Uhr
Zuletzt editiert am: 26.07.2010 um 22:06 Uhr
|
|
Hier haste programmcode ( dürfte eigentlich passen ist aber nur aus google rauskopiert also NICHT von mir )
Dim i, bis As Long
bis = Text7.Text
Dim Sieb() As Boolean
ReDim Sieb(bis + 1)
For i = 0 To bis + 1
Sieb(i) = True
Next i
Dim currentPrim, viel As Double
currentPrim = 2
While (currentPrim < (bis + 1) / 2)
viel = currentPrim + currentPrim 'Vielfache initialisieren
If Sieb(currentPrim) Then 'Ueberpruefen, ob mit einer Primzahl gesiebt wird, wenn ja:
For i = 2 To bis + 1
Sieb(viel) = False 'Vielfache heraussieben, das sind keine Primzahlen
viel = viel + currentPrim
If viel > bis + 1 Then Exit For
Next i
End If
currentPrim = currentPrim + 1
Wend
Dim ColCount As Double
ColCount = 0 'eine Spaltenzaehlvariable wird initialisiert.
Dim intervallAnfang As Integer
intervallAnfang = 2
For i = intervallAnfang To bis + 1 ' { //gemaess d. Eingabe bis z. Ende ausgeben
If Sieb(i) Then 'wenn es sich um eine Primzahl handelt.
ColCount = ColCount + 1 'danach wird die naechste Spalte vorgemerkt,
List7.AddItem i ' //Die Primzahl ausgegeben
End If
Next i
Sollten wir aber die Primzahlen nur bis 1000 testen ist Algorithmus 7 schneller als 8. Aber in höheren Regionen
z.B. bis 200000 ergibt sich eine sichtbare Leistungssteigerung:
Algorithmus 7 bis 1000: 7,71 ms
Algorithmus 8 bis 1000: 8,20 ms
Algorithmus 7 bis 200000: 2601,47 ms
Algorithmus 8 bis 200000: 1160,14 ms
Edit: Quelle
...entweder man ist die welle... oder man reitet nur auf ihr... !
|
|
bredator - 41
Champion
(offline)
Dabei seit 03.2008
5319
Beiträge
|
Geschrieben am: 26.07.2010 um 22:06 Uhr
Zuletzt editiert am: 26.07.2010 um 22:07 Uhr
|
|
Zitat von scw: Zitat von Y---_: Zitat von _Micha_93:
biste schon am programmieren von so einem Sieb des Eratosthenes ? :)
Das '' Sieb des Eratosthenes '' Kann man gar Nicht bei Visual Basic Erstellen ^^.
Könntest du es vielleicht begründen, wieso man es deiner Meinung nach nicht mit Visual Basic lösen kann?
Weil es unter "Neu -> Projekte" keine Projektvorlage zu "Sieb von Eratosthenes" gibt. Darum geht es nicht.
Zitat von Y---_:
Ok Morgen die Demo Und Übermorgen Die Vollversion
Ich bitte darum.
Lache nicht über jemanden, der einen Schritt zurück macht. Er könnte Anlauf nehmen.
|
|
[