Erstes VB-Programm/eure Meinung Oo

[Fetzi]

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

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 ^^

[Sunrise]

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

[Breekachu]

ich kapier nich ganz was das machen soll?

[nathex]

ich kapier nich ganz was das machen soll?

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

[Fetzi]

@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

[Kolabi]

Den Array kann man durch eine Schleife Werte zuweisen :

Dim key(9) As Integer

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

Das sähe dann so aus :

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

[Breekachu]

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

[Kolabi]

Hier mit Rnd() :

    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