Visual Basic Forum

Verfasst am: 03.12.2010, 21:02 Aufrufe: 642

Public Class Form1 Dim Zahlen As String = "1234567890" Dim z As New Random Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" Dim l As New Random Dim Buchstabennur As String = "-nopqrstuvwxABCDEFGHIJKefghijklmyzLMNOPQRSTUVWXYZabcd" Dim r As New Random Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Ev ...

Verfasst am: 02.08.2010, 07:01 Aufrufe: 472

aber machst halt Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Clear() TextBox1.Text = "1234-" Dim rnd As New Random For i As Integer = 5 To 23 If i = 8 Or i = 12 Or i = 16 Or i = 20 Then TextBox1.Text &= "-" End If TextBox1.Text &= rnd.Next(0, 9) Next End Sub End Cla ...

Verfasst am: 01.08.2010, 09:13 Aufrufe: 472

reinschreiben muss! Der Aktuelle Code den ich nutze ist: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Clear() Dim rnd As New Random For i As Integer = 0 To 23 If i = 4 Or i = 8 Or i = 12 Or i = 16 Or i = 20 Then TextBox1.Text &= "-" End If TextBox1.Text &= rnd.Next(0, 9) Next End Sub End Clas ...

Verfasst am: 24.02.2010, 17:59 Aufrufe: 453

Hallo, vorgegeben ist ein Würfelspiel, bei dem 2 bis 4 Spieler jeweils würfeln. Das ist mit Random realisiert, es gibt für jeden Spieler ein Würfelergebnis. Nun gilt es, diese Ergebnisse der 2 bis 4 Spieler zu vergleichen um zu ermitteln, wer den höchsten Wurf hat. Bei Gleichstand (der soll auch ermittelt werden) soll nochmals gewürfelt werden. Wie geht man da vor? Es muss unbedingt professionell bzw. eff ...

Verfasst am: 22.11.2009, 21:27 Aufrufe: 1077

status = TextBox4.Text Dim FileNum As Integer FileNum = FreeFile() FileOpen(FileNum, "user.dat", OpenMode.Random) 'Write the record to the file FilePut(FileNum, User) FileClose(FileNum) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ...

Verfasst am: 19.06.2009, 19:00 Aufrufe: 1715

Wichtiges über die Function1. Es wird überprüft ob es sich wirklich um eine Datei handelt und ob sie existiert.2. Die Attribute der Datei werden auf normal gesetzt. (Versteckte oder Geschützte Dateien würden sonst Probleme machen)3. Randomize wird mit der Api Gettickcount (Wie lange Windows schon läuft) initialisiert.4. Die Datei wird in Blöcken überschrieben. Normal 1MB Blöcke.Diese Blöcke bestehen aus einem Random ...

Verfasst am: 15.06.2009, 10:29 Aufrufe: 623

Funktion:Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try Dim [rnd] As Random = New Random &n ...

Verfasst am: 12.09.2008, 16:22 Aufrufe: 1598

Verfasst am: 02.09.2008, 15:38 Aufrufe: 1038

Oh man du vertauschst ja ständig die Modi.Input Datei wird für Lesezugriffe geöffnet.Output Datei wird für Schreibzugriffe geöffnetAppend Zu schreibende Daten werden angehängtBinary Datei wird für Lese- und Schreibzugriffe geöffnet, dazu muss man die Befehle Get und Put verwendenRandom Entspricht Binary, nur dass man die Datensatznummer eingeben muss

Verfasst am: 10.07.2008, 18:03 Aufrufe: 595

Verfasst am: 09.07.2008, 17:07 Aufrufe: 1086

RCR ist ein simpler Verschlüsselungsalgorythmus, der nur das deutsche Alphabet, die Zahlen 0 bis 9 und das Leerzeichen verschlüsselt, alle anderen Zeichen werden ignoriert.Info:Sourcecode Passwort: sollniss.1x.toDownload

Verfasst am: 30.06.2008, 18:17 Aufrufe: 3911

Das Problem dabei ist, dass du kein wirkliches Skript direkt ansprichst.Hier sind mal zwei Links, mit denen du verschiedene Artikelarten zufällig ansteuern kannst.http://toolserver.org/~dapete/random/dewiki-lesenswert.phphttp://toolserver.org/~dapete/random/dewiki-exzellent.php

Verfasst am: 30.06.2008, 17:30 Aufrufe: 5355

Verfasst am: 14.06.2008, 19:34 Aufrufe: 1612

... class="linkseperator"> - <a title="Durchsuche die Zitate der Reihe nach" href="/action/browse" class="nav" name="browse">Durchsuchen</a> - <a title="Zeige zufällige Zitate" href="/action/random ...

Verfasst am: 14.06.2008, 19:23 Aufrufe: 1612

Also ich hab die beiden Quelltexte nun mal abgleichen lassen und bin zu dem Ergebnis gekommen, dass ich beidesmal genau die gleiche Größe habe.Der gleiche Quelltext kann es ja nicht sein, da die "random" Page sich bei jedem Refresh ändert...also ist die aufgerufene eine andere, als auf die VB connected.Aber so wie ich das verstehe, willst du den Quelltext von allem, was auf der Page ist, oder nicht?Weil ansonsten wüs ...

Verfasst am: 10.06.2008, 14:05 Aufrufe: 541

Verfasst am: 08.06.2008, 18:02 Aufrufe: 1477

Naja aufjedenfall noch das design verbessern, aber sonst währe es noch gut wenn du es so machen würdest das er random namen nimmtMfg igoeUnd als schrieft batman

Verfasst am: 05.05.2008, 02:37 Aufrufe: 5224

Guten Morgen zusammen,heute möchte ich euch etwas über die Random Funktion in VB.NET erzählen, sprich wir wollen Zufallszahlen erzeugen lassen. Vorteile wie Nachteile werden erklärt. Und eins zwei Beispiele werden auch dabei sein. Also fangen wir gleich an.Der Begriff "zufällig" ist hier nicht komplett richtig, da man in VB an bestimmte Grenzen gebunden ist. So kann VB nur auf eine endliche Menge an Zahlen zurückgre ...

Verfasst am: 21.04.2008, 18:54 Aufrufe: 2222

Wichtiges über die Function 1. Es wird überprüft ob es sich wirklich um eine Datei handelt und ob sie existiert. 2. Die Attribute der Datei werden auf normal gesetzt. (Versteckte oder Geschützte Dateien würden sonst Probleme machen) 3. Randomize wird mit der Api Gettickcount (Wie lange Windows schon läuft) initialisiert. 4. Die Datei wird in Blöcken überschrieben. Normal 1MB Blöcke. Diese Blöcke bestehen aus ...

Verfasst am: 29.03.2008, 19:57 Aufrufe: 425

hi, wollt mal fragen wie ich ne .exe datei z.B. auf den Desktop erstellen kann und dann nen code reinschreiben? please help mfg >>%random%<<

Verfasst am: 19.03.2008, 01:24 Aufrufe: 3144

Beschreibung: Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus. Funktion: Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try Dim [rnd] As Random = New Random Return [rnd].Next([Min], [Max]) Catch ex As Exception MessageBox.Show(ex.Messa ...

Verfasst am: 17.03.2008, 18:49 Aufrufe: 3144

Die Funktionen: » » » » » » » » » » » Informationen: In diesem Thread werden nützliche Funktionen ihren Platz finden um immer wieder abgerufen und schnell gefunden werden zu können. Dieser Thread wird von den Moderatoren des .NET Bereiches geführt und daher ist es keinem User möglich hier Funktionen selbstständig zu posten. Wenn ihr eine nützliche Funktion habt, dann wendet euch per ...

Verfasst am: 05.03.2008, 16:52 Aufrufe: 456

ein programm was die startseiten ändert automatisch , wie hä ? ich habe z.b google , und benutze nie was anders auser google als startseite naja wäre mal cool wenn jemand ein tool machent was random startseiten macht von meinen lieblings seiten , diese können ja ausgelesen werden von firefox oder ie. Das wäre mal cool Smile

Das ganze kann man gleich damit verbinden meine lieblings programm auf autostart zu s ...

Verfasst am: 20.02.2008, 12:18 Aufrufe: 655

Schreib das doch schnell selbst, du gehst hin machst die Zahlen random und öffnest ne textdatei und läst ihn reinschreiben

Verfasst am: 20.02.2008, 11:53 Aufrufe: 655

hat einer nen source,der 4 mal 4 zahlen random ausgibt zb 4619 9121 3597 4235 So ein art Generator,der sie dann nach einander in einer Text Datei speichert, 4619 9121 3597 4235 9723 9564 2134 4425 Danke schonma im voraus

Verfasst am: 18.02.2008, 12:30 Aufrufe: 645

das verwirrt mich alles ein wenig Confused

Ihr müsst wissen das ich noch sehr am Anfang stehe und mir einige Begriffe noch nichtmal etwas sagen wo ich dann erstmal googeln muss^^ //edit: Ich möchte zuerst mal das folgendes Random in einem Label ausgegeben wird: Dim Frage(1 To 4) As String Frage(1) = "Erste Frage" Frage(2) = "Zweite Frage" Frage(3) = "Dritte Frage" Frage(4) = & ...

Verfasst am: 18.02.2008, 12:19 Aufrufe: 645

Verfasst am: 18.02.2008, 11:43 Aufrufe: 645

Einfach Random Zahlen generieren lassen und dann per Select Case abfragen. Also case 1, case 2 etc. Suchfunktion hilft weiter.

Verfasst am: 18.02.2008, 02:22 Aufrufe: 645

php?t=2182] trotzdem gern andere Vorschläge entgegen Very Happy

) Die Fragen in einem Label zufällig abgefragt werden. Ich habe also meine Fragen und möchte sie irgendwo gespeichert haben und sobald die Form öffnet, soll sich eine Zufällige Frage im Label befinden. Das mit der Random Funktion ist erstmal nicht so wichtig. Ich möchte nur wissen welche Möglichkeiten es gibt die Fragen zu speichern ? Datenbank? Variba ...

Verfasst am: 20.01.2008, 20:43 Aufrufe: 4528

Naja, das is wohl nicht so ganz ein Keygen Very Happy

Dim rand As Random = New Random Dim i As Integer = rand.Next(0, 32) Damit brauchst du auch keine Funktion mehr, die in meinen Augen irgendwie nicht funktioniert, da es kein return gibt Confused

Naja, egal. Trotzdem gute Idee für einen Keygen Very Happy

// Und das ganze Gedöns am Ende ist überflüssig Wink

Private Sub Button1_Click(ByVal sender As ...

Verfasst am: 20.01.2008, 10:38 Aufrufe: 4528

... braucht werden kann Was braucht ihr Keys Von dem Programm die ihr ausgeben wollt Ihr zieht Eine Textbox auf eure form net den name nicht TextBox1 sondern Text1 Dan ein Button der Command1 heist Und dan fügt ihr den code ein Public Class Form1 Dim i As Integer Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click Dim random ...

Verfasst am: 06.12.2007, 14:01 Aufrufe: 562

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim rnd as string rnd = randomnumber(10) Select Case rnd Case 0 label1.text = "a" Case 1 label1.text = "b" 'usw.. End Select End Sub Public Function RandomNumber(ByVal MaxNumber As Integer, _ Optional ByVal Mi ...

Verfasst am: 12.11.2007, 14:40 Aufrufe: 549

... Buchstaben immer als string deuten und nicht dass er auf eine Variable mit diesem Namen zugreifen soll. Du müßtest es per Array und Zahlen machen. Dim Sprueche(20) as string In der Klammer schreibst du die Anzahl der Sprüche die du haben willst. Und dann die Sprüche noch einfügen. Sprueche(0) = "blabla" Sprueche(1) = "blub" usw. Und per Random ...

Verfasst am: 12.11.2007, 12:04 Aufrufe: 1276

ich versuchs wenns net klappt belege ich selber ne taste Es wäre auch gut wenn man die programm nach abc sotieren könnte und nach wichtig und wichtig . jo duerfte kein problem sein von wichtig zu unwichtig oder ? jor man kann halt random tools rein machen die man halt nur 1 mal im monat benutz oder so , die dann per vote oder 123 benoten . Allerdings könnte man auch einfach zeilen verschieben rein m ...

Verfasst am: 10.11.2007, 15:30 Aufrufe: 435

Also ich mache //START BUTTON // Dim RANDOM as Integer If CHeckBox1.Checked Then random = blubla 'Halt random Zahl erzeugen. Muss noch genauer schauen wie:P. else Random = "" 'Soll leer sein wenn die Checkbox nicht aktiv ist. end if Dann kommt der Timer Code und ich weiss nicht wie diese Variable an den Timer übergeben wird. /Class Start also die vom Timer // A ...

Verfasst am: 03.11.2007, 17:43 Aufrufe: 642

... b die erklärung gleich nochmal Crying or Very sad

So hier ne Kleine Erklärung Private Sub Command1_Click() Text1.Text = GenerateNumbers(4, 4) 'so hier hau ich die generierten zahlen ' in ner Länge von 4 Blocks und jeweils 4 Zahlen rein! End Sub Private Function GenerateNumbers(BlockZahl As Integer, BlockLength As Integer) As String 'in dem teil mach ich die Random ...

Verfasst am: 05.10.2007, 12:44 Aufrufe: 1516

Verfasst am: 01.09.2007, 19:11 Aufrufe: 348

Einfacher gehts auch mit dem KeyGen Zum Beispiel so: Private Sub Command1_Click() Me.List1.ListIndex = Me.List1.ListIndex +1 If Me.List1.ListIndex = (Hier kommt der Momentane Index der Liste rein) Me.List1.Listindex = 1 End if Die Random Funktion kann man auch einfügen Smile

Verfasst am: 27.07.2007, 13:14 Aufrufe: 868

Verfasst am: 30.05.2007, 19:21 Aufrufe: 401

... (Text1(3)) + Val(Format(Text1(6), "#")) - Val(Text1( Cool

) Label17 = Format(Val(Text1(3)) + Val(Format(Text1(6), "#")), "###,###") & "YTL" End Sub Private Sub Command8_Click() Dim i For i = 0 To 9 Text1(i) = "" Next Text1(7) = Date Text1(0).SetFocus End Sub Private Sub Command9_Click() Close #1 Dim i, j Open "taksit.dat" For Random ...

Verfasst am: 26.04.2007, 08:54 Aufrufe: 579

Verfasst am: 23.04.2007, 14:01 Aufrufe: 714

Verfasst am: 23.04.2007, 13:40 Aufrufe: 714

Verfasst am: 29.03.2007, 16:23 Aufrufe: 731

Verfasst am: 10.12.2006, 03:33 Aufrufe: 1338

allso ich habe ein "generator" gemacht wen ich auf den button klick wird per zufalls pinzip "random" ein key erstellt in meinem fall sind es b*z und k*o nun würd ich gern das die leute die es usen immer neu daten bekommen allso eine update funktion die neuen daten liegen zb au einem ftp server alls txt und werden in die exe einkopiert (kann ich mir nich vorstellen) allso glaub ich das ich noc ...