Erstes VB-Programm/eure Meinung Oo

nunja kurze vorgeschichte brauchte etwas einfaches womit ich meinen server binde usw.

das ganze ist sone art "fake keygen"

aussehn

http://img4.imageshack.us/img4/7076/keygenz.jpg

quellcode

Code:

---

Public Class Form1
    Dim z As Integer
    Dim key(9) As String

    Sub main()
        z = -1
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        z = z + 1
        key(0) = "0"
        key(1) = "1"
        key(2) = "2"
        key(3) = "3"
        key(4) = "4"
        key(5) = "5"
        key(6) = "6"
        key(7) = "7"
        key(8) = "8"
        key(9) = "9"
        TextBox1.Text = key(z)
        If z = 9 Then z = -1


    End Sub
End Class

---

bin für verbesserungsvorschläge und kritik offen oO
bisher sehr schlicht gehalten
jeder fängt mal klein an ...


//edit
ist sicherlich noch ausbaufähig ^^

Naja, könntest damit anfangen das er nicht immer nacher Reihe die keys durchgeht, sondern es immer per Zufallsprinzip macht. Stichwort math random

ich kapier nich ganz was das machen soll?

Zitat:

---

ich kapier nich ganz was das machen soll?

---

Das gibt ne Zahlenfolge in ner editbox aus... ist das so schwer zu verstehen? oO

@breakachu
letzendlich soll es verschiedene zeichenfolgen ausgeben oo wenn man auf generate klickt kommt eine zeichenfolge
wenn man nochma draufklickt die nächste
das 1,2,3 usw ist nur symbolisch

Den Array kann man durch eine Schleife Werte zuweisen :

Code:

---

Dim key(9) As Integer

For i As Integer = 0 To 9
            key(i) = i
Next i

---

Das sähe dann so aus :

Code:

---

Public Class main
    Dim z As Integer = -1
    Dim key(9) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        z += 1
        If z = 9 Then
            z = 0
        End If

        TextBox1.Text = key(z).ToString()
    End Sub


    Private Sub Init()
        For i As Integer = 0 To 9
            key(i) = i
        Next i
    End Sub

    Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Init()
    End Sub
End Class

---

wenn du noch rnd einbaust dann reicht das an dem programm doch.
kannst ja versuchen mit deinen bisherigen kenntnissen was neues zu schreiben

Hier mit Rnd() :

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r As Long
        r = CreateRandomKey(1000)
        TextBox1.Text = r.ToString()
    End Sub

    Private Function CreateRandomKey(ByVal zahlenBerech As Long) As Long
        Dim rndWert As Long
        rndWert = Rnd() * zahlenBerech
        Return rndWert
    End Function

---