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

Problemy przy kodzie!


Rekomendowane odpowiedzi

Opublikowano

Teraz tylko takie pytanie czy to jest jakiś mój błąd czy to tak ma być jak daje "Start Debugging" to najpierw Wyskakuje że należy wpisać nick a potem się włącza a to Kod:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If System.IO.File.Exists("log.txt") Then
 
 
            Dim sr As New System.IO.StreamReader("log.txt")
            TextBox1.Text = sr.ReadLine
            TextBox2.Text = sr.ReadLine
            sr.Close()
 
        End If
 
        If TextBox1.Text = "" Then
            MsgBox("NALEŻY WPISAĆ NICK!")
            Return
 
        End If
 
        If TextBox2.Text = "" Then
            MsgBox("Należy wpisać RAM Min 512, Max 3/4 RAMU Komputera!")
            Return
 
        End If
        
    End Sub
 
Teraz pytanie czy ja popełniłem błąd czy to tak ma być ??
 
Opublikowano

Nie pisze w vb juz ale msg box stopuje kod

 

A tak wgl to sprawdzanie daj w evencie od wcisniecia przycisku play

 

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

        ProgressBar1.Hide()

        Button4.Hide()

        CheckServerStatus()

 

        If System.IO.File.Exists("log.txt") Then

 

 

            Dim sr As New System.IO.StreamReader("log.txt")

            TextBox1.Text = sr.ReadLine

            TextBox2.Text = sr.ReadLine

            sr.Close()

 

        End If

 

        If TextBox1.Text = "" Then

            MsgBox("NALEŻY WPISAĆ NICK!")

 

 

        End If

 

        If TextBox2.Text = "" Then

            MsgBox("Należy wpisać RAM Min 512, Max 3/4 RAMU Komputera!")

 

 

        End If

 

    End Sub

 

 

 

Tak jak mówiłeś przeniosłem sprawdzanie pod przycisk włączania a te okno z MsgBox dalej wyskakuje ale nie 1 tak jak przedtem ale teraz wyskakują 2 mógł byś pomóc w naprawieniu tego? i czy to jest w tym skrypcie jak coś mogę wysłać całość jak jest potrzeba?

Opublikowano

Nie specjalnie rozumiem co chcesz uzyskać ale ze wcześniejszego postu wnioskuję że problem został rozwiązany i zostaje tylko kwestia kolejności msg'boxów.
Więc kod w vb.net leci od góry do dołu jeśli chcesz by pierw wyskakiwał MsgBox z ilością ramu to przesuń kod ponad kod z nickiem.

-------------Edit---------------

 

Sorry, już rozumiem gdzie leży twój problem.

Zwróć uwagę jak wygląda twój kod, przy starcie aplikacji pytasz czy textbox jest pusty problem w tym że nie szczytuje danych z pliku .txt i w rezultacie przy pierwszym "IF'ie" dostajesz msgboxa.
O wiele prostszym i sprawniejszym sposobem jest użycie settingsów z aplikacji
Project>Proporties>Settings> dodajesz zmienną, np "nick" czy "ram" (ram możesz zaznaczyć jako Integer) 
Następnie kod  textbox1.text = My.Settings.nick.
Mam nadzieję że pomogłem i na przyszłość staraj się sprecyzować pytanie na tyle ile jest to możliwe.

Opublikowano

"O wiele prostszym i sprawniejszym sposobem jest użycie settingsów z aplikacji
Project>Proporties>Settings> dodajesz zmienną, np "nick" czy "ram" (ram możesz zaznaczyć jako Integer) "

Jeżeli chodzi o to próbowałem ale wyskakuje błąd jakiś a chodzi mi o to że MsgBox otwiera wiadomości przed włączaniem się Launchera a gdy przesunę kod za przycisk nic się w ogóle nie dzieje :)

 

 

PS. Jeżeli chodzi o błąd już rozwiązałem :)

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...