Lohnt es sich sowas hochzuladen?
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Kangaroo.
-
-
-
-
-
-
Also ich finde es immerhin sympathisch dass Du zuerst einmal fragst , statt wie 90% der anderen ungefragt Sondermüll im Showroom abzuladen
Ich finde jeder sollte sich im Showroom folgende Fragen stellen:
- ist es mehr als nur "5 Zeilen Code" die jeder andere auch schnell programmieren könnte
- hat meine Lösung besondere Alleinstellungsmerkmale (Design / Nutzen / Umfang / Idee) die es für andere interessant machen könnte
- möchte ich gerade weil es mein erstes Programm ist , (teilweise schmerzhaftes) Feeback von anderen dazu haben und wie ich es verbessern kann
Falls Du 1 davon mit Ja beantworten kannst und wie gesagt auch die Reaktionen vertragen kannst, dann stelle es doch ruhig rein. Allerdings solltest Du auch die Gründe nennen warum Du meinst es sollte da rein.
Solltest Du auf Verbesserungs-Vorschläge für die Art Deines Codings (Peer-Review) hoffen, so gehört es eher in den Source-Code mit der Bitte um Stellungsnahme.
Alles natürlich unter der Voraussetzung dass es kein Mod löscht -
Scream schrieb:
Dito, welchen Sinn hat es einen 5 zeiler zu veröffentlichen?
Scream schrieb:
Zitat
Doch.
Sarkasmus?
Das sind bestimmt mehr als 5 Zeilen
Und wer stellt denn hier alle 2 Stunden nen 5 Zeiler in Showroom und ist sich dann zu edel so nen Dreck in Kleinkram reinzupacken.
@TE: Veröffentlichs doch mal in Kleinkram. Vlt isses ja besonders tolles Design/tolle zusatzfunktionen. -
Ich hab mal einen gaaaaaaaanz langen Text zu diesem Thema geschrieben. Leider wurde der zusammen mit dem Thread in dem er stand gelöscht. Deswegen sage ich kurz und knapp: Mach was Du nicht lassen kannst.
Ansonsten verweise ich auf Kangaroo...er schrieb, was ich schreiben wollte...nur eben schneller.
Gruß FatFire -
FatFire schrieb:
Ansonsten verweise ich auf Kangaroo...er schrieb, was ich schreiben wollte...nur eben schneller.
Schade , Deiner war bestimmt lustiger ( daher länger)
P.S: Dein Avatar-Icon kann ja wirklich Herzstillstand verursachen ... und das in einem Kiddie-Forum .... -
Hier ist der Code
Ich denke mehr als 5 zeilen
VB.NET-Quellcode
- Public Class Form1
- Private perfCounter As System.Diagnostics.PerformanceCounter
- 'Farben laden
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Start()
- perfCounter = New System.Diagnostics.PerformanceCounter
- perfCounter.CategoryName = "Processor"
- perfCounter.CounterName = "% Processor Time"
- perfCounter.InstanceName = "_Total"
- Timer2.Start()
- Me.BackColor = My.Settings.Color
- Label2.ForeColor = My.Settings.TXT
- GroupBox1.ForeColor = My.Settings.TXT
- Button2.ForeColor = Color.Black
- Button1.ForeColor = Color.Black
- Button3.ForeColor = Color.Black
- Button4.ForeColor = Color.Black
- Button5.ForeColor = Color.Black
- GroupBox2.ForeColor = My.Settings.TXT
- GroupBox3.ForeColor = My.Settings.TXT
- GroupBox4.ForeColor = My.Settings.TXT
- Label3.ForeColor = My.Settings.TXT
- Label1.ForeColor = My.Settings.TXT
- End Sub
- 'Button Shutdown
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Shell("shutdown -s")
- End Sub
- 'Button Shutdown
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Shell("shutdown -r")
- End Sub
- 'Button Shutdown
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Shell("shutdown -l")
- End Sub
- ' Farben speichern
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- My.Settings.Color = Me.BackColor
- My.Settings.TXT = Label2.ForeColor
- My.Settings.TXT = GroupBox1.ForeColor
- Button2.ForeColor = Color.Black
- Button1.ForeColor = Color.Black
- Button3.ForeColor = Color.Black
- Button4.ForeColor = Color.Black
- Button5.ForeColor = Color.Black
- My.Settings.TXT = GroupBox2.ForeColor
- My.Settings.TXT = GroupBox3.ForeColor
- My.Settings.TXT = GroupBox4.ForeColor
- My.Settings.TXT = Label3.ForeColor
- My.Settings.TXT = Label1.ForeColor
- End Sub
- 'Uhr
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim stunden As String = My.Computer.Clock.LocalTime.Hour
- Dim minuten As String = My.Computer.Clock.LocalTime.Minute
- Dim sekunden As String = My.Computer.Clock.LocalTime.Second
- If minuten < 10 Then minuten = "0" + minuten
- If sekunden < 10 Then sekunden = "0" + sekunden
- Label1.Text = (stunden & ":" & minuten & ":" & sekunden)
- Label2.Text = My.Computer.Clock.LocalTime.Date
- End Sub
- 'Hintergrundfarbe
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- If ColorDialog1.ShowDialog Then Me.BackColor = ColorDialog1.Color
- End Sub
- ' Textfarben
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If ColorDialog2.ShowDialog Then Label1.ForeColor = ColorDialog2.Color
- Label2.ForeColor = ColorDialog2.Color
- GroupBox1.ForeColor = ColorDialog2.Color
- Button2.ForeColor = Color.Black
- Button1.ForeColor = Color.Black
- Button3.ForeColor = Color.Black
- Button4.ForeColor = Color.Black
- Button5.ForeColor = Color.Black
- GroupBox2.ForeColor = ColorDialog2.Color
- GroupBox3.ForeColor = ColorDialog2.Color
- GroupBox4.ForeColor = ColorDialog2.Color
- Label3.ForeColor = ColorDialog2.Color
- End Sub
- ' CPU
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Dim a As Integer = Integer.Parse(Format(perfCounter.NextValue, "##0"))
- ProgressBar1.Value = a
- Label3.Text = (ProgressBar1.Value & "%")
- End Sub
- Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
- Me.WindowState = FormWindowState.Normal
- End Sub
- End Class
-
-
-
Hier ist der Code
Ich denke mehr als 5 zeilen
oh gott!, sowas nennt sich Gurkencode, all deine Aufwände kann man in 24 zeilen packen:
VB.NET-Quellcode
- Public Class Form1
- Private count As System.Diagnostics.PerformanceCounter = New System.Diagnostics.PerformanceCounter
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Ausschalten
- Shell("shutdown.exe -s")
- 'Restarten
- Shell("shutdown.exe -r")
- 'Log-Out
- Shell("shutdown.exe -l")
- 'Uhrzeit + Datum
- Me.Text = "Zeit: " & TimeOfDay & " Datum: " & Date.Today.Date
- count.CategoryName = "Processor"
- count.CounterName = "% Processor Time"
- count.InstanceName = "_Total"
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim a As Integer = Integer.Parse(Format(count.NextValue, "##0"))
- ProgressBar1.Value = a
- End Sub
- End Class
Deinen elementen kannst du auch manuell im Designer Eigenschaften zuweisen like backcolor. Die musst du ned im load zuweisen.
Das finde ich persönlich auch unnötig:
VB.NET-Quellcode
- ' Textfarben
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If ColorDialog2.ShowDialog Then Label1.ForeColor = ColorDialog2.Color
- Label2.ForeColor = ColorDialog2.Color
- GroupBox1.ForeColor = ColorDialog2.Color
- Button2.ForeColor = Color.Black
- Button1.ForeColor = Color.Black
- Button3.ForeColor = Color.Black
- Button4.ForeColor = Color.Black
- Button5.ForeColor = Color.Black
- GroupBox2.ForeColor = ColorDialog2.Color
- GroupBox3.ForeColor = ColorDialog2.Color
- GroupBox4.ForeColor = ColorDialog2.Color
- Label3.ForeColor = ColorDialog2.Color
- End Sub
-
-
-
-
-
-
Scream schrieb:
Er kann, Er kann es aber auch über den Code machen stört des jemanden NEIN
Ja, oder shell benutzt -
-
Ähnliche Themen
-
Intel Core i3 - Lohnt sich eine SSD?
Daniel Baumert - - Off-Topic -
Alter PC - Lohnt sich mehr Ram?
CatchTheBird - - Off-Topic -
doom - - Off-Topic