Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Zadania


Rekomendowane odpowiedzi

Opublikowano

Nie pamiętam w jakimś dziale jest już taki temat, tutaj dopiero go założyłem. Otóż dajemy sobie nawzajem zadania do rozwiązania (programy do napisania) w VB.net :) Unikniemy dzięki temu spamu dot. jednego typu programu w setkach wersji na forum. Zaczynam:

 

  • Program do generowania prezentacji serwerów Metin2, Minecraft, Cabal Online
  • Grafikę należy stworzyć samemu, albo korzystać z BBCode
Opublikowano

Nie rozumiem tematu ...

 

Do tego co napisałeś sam szukam ...

 

//Jeśli ktos chce, kod generatora z możliwością wpisania ilości znaków (prościzna) :

 

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
    Private Function Generate() As String
        Dim IntRnd(1) As Object
        Dim intStep(1) As Object
        Dim strName(1) As Object
        Dim intNameLength(1) As Object
        Dim intLength(1) As Object
        Dim strInputstring(1) As Object

        strInputstring(1) = "1234567898qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
        intLength(1) = Len(strinputstring(1))
        intNameLength(1) = ProgressBar1.Value
        Randomize()
        strName(1) = ""
        For intStep(1) = 1 To intNameLength(1)
            intRnd(1) = Int((intLength(1) * Rnd()) + 1)
            strname(1) = strName(1) & Mid(strInputstring(1), intRnd(1), 1)
        Next

        Generate = strName(1)
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = IsNumeric(1 - 16) Then
            ProgressBar1.Value = TextBox2.Text
            TextBox1.Text = Generate()
        Else
            MsgBox("Hasło musi mieć min. 1 a max 16 liter!")
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
  • 2 tygodnie później...
Opublikowano

Chodziło generatory w ten deseń, jednak poprzeczka mogła być za wysoka :huh: To następny temat: Zegar odliczający do świąt Bożonarodzeniowych (w godzinach) ;)

  • 1 rok później...
  • 5 miesięcy temu...
Opublikowano

Napisz Launcher do jakiejś gry obojętnej w godzinę i 12 sekund nie używając kodu startowego z internetu czyli musisz sam wymyślić

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...