Lieber Besucher, herzlich willkommen bei: We-Mod-It | Das Forum von Moddern für Modder. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Benutzerinformationen überspringen
Gern hier!
Registrierungsdatum: 6. Januar 2011
Wohnort: Burgoberbach
Beruf: Heizung & Lüftungsbauer momentan Privatschüler
Benutzerinformationen überspringen
Wenn I Murksen muss... Aaarrgh..
Registrierungsdatum: 18. Juli 2009
Name: Patrick Betz
Wohnort: Simbach bei Landau a. d. Isar
Beruf: Kraftfahrer (Gelernter Schreiner)
Sieht gut aus ist das aber nicht eine gefahr die festplatte anden schaumstoff so zu befestiegen?
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
Public Class Form1 Dim rnd As New System.Random Dim i As Integer = 0 Dim i2 As Integer = 0 Dim zahl As Integer = 0 Dim ges As Integer Dim zahlnew As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ges = 2080 Then Timer1.Enabled = False Else zahlnew = rnd.Next(1, 65) If zahlnew <= 9 Then zahlnew = "0" + zahlnew End If If tb.Text.Contains(zahlnew) Then Else i += 1 ges += Val(zahlnew) Label1.Text = ges & "/2080" i2 += 1 If i2 = 9 Then tb.Text = tb.Text & Chr(13) & Chr(10) & " " & zahlnew i2 = 1 Else tb.Text = tb.Text & " " & zahlnew End If End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click tb.Text = "" i = 0 i2 = 0 zahl = 0 zahlnew = 0 ges = 0 Label1.Text = "0/2080" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »SV Mods Casemodding« (14. Juni 2011, 23:24)
Benutzerinformationen überspringen
Fühlt sich wohl hier
Registrierungsdatum: 1. April 2011
Wohnort: Straubing
Beruf: IT-Systemelektroniker
Benutzerinformationen überspringen
Wenn I Murksen muss... Aaarrgh..
Registrierungsdatum: 18. Juli 2009
Name: Patrick Betz
Wohnort: Simbach bei Landau a. d. Isar
Beruf: Kraftfahrer (Gelernter Schreiner)
Benutzerinformationen überspringen
Fühlt sich wohl hier
Registrierungsdatum: 1. April 2011
Wohnort: Straubing
Beruf: IT-Systemelektroniker
Benutzerinformationen überspringen
Heisskleber und Spaxschrauben!
Registrierungsdatum: 31. August 2010
Wohnort: Koblenz
Beruf: Meister im Metallbauhandwerk
Benutzerinformationen überspringen
Wenn I Murksen muss... Aaarrgh..
Registrierungsdatum: 18. Juli 2009
Name: Patrick Betz
Wohnort: Simbach bei Landau a. d. Isar
Beruf: Kraftfahrer (Gelernter Schreiner)
Benutzerinformationen überspringen
Fühlt sich wohl hier
Registrierungsdatum: 1. April 2011
Wohnort: Straubing
Beruf: IT-Systemelektroniker
Benutzerinformationen überspringen
Gern hier!
Registrierungsdatum: 6. Januar 2011
Wohnort: Burgoberbach
Beruf: Heizung & Lüftungsbauer momentan Privatschüler
Benutzerinformationen überspringen
Heisskleber und Spaxschrauben!
Registrierungsdatum: 31. August 2010
Wohnort: Koblenz
Beruf: Meister im Metallbauhandwerk
Benutzerinformationen überspringen
Wenn I Murksen muss... Aaarrgh..
Registrierungsdatum: 18. Juli 2009
Name: Patrick Betz
Wohnort: Simbach bei Landau a. d. Isar
Beruf: Kraftfahrer (Gelernter Schreiner)
© 2011-2014 We-Mod-It.com | Das Forum von Moddern für Modder | © Design by Jama