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