singlepost

Программирование в Visual Basic 2008 Express << На главную или назад  

Люди плиз помогите-не могу сделать так чтобы прога при загрузке открывала файл читала из него некоторую строчку и сравнивала с эталоном: если равны то скрыть одну форму(чтобы она ваще не появилась) и другую показать, если не равны то первую показать а вторую не грузить…?

30 ответов в теме “Программирование в Visual Basic 2008 Express”

  1. 17
    Серега Губченко ответил:

    Наблюдения показывают что Listen не самое важное-он используется (Помоему)только при подключении TCP/IP. В моем случае UDP

  2. 16
    Леонид Максимов ответил:

    а как же listen?

  3. 15
    Серега Губченко ответил:

    'On Error Resume Next
    If TextBox2.Text > 32767 Then
    TextBox2.Text = 32767
    End If
    ProgressBar1.Minimum = Val(TextBox1.Text)
    ProgressBar1.Maximum = Val(TextBox2.Text)
    StartPort = Val(TextBox1.Text)
    EndPort = Val(TextBox2.Text)
    For i = StartPort To EndPort
    Net3.Bind(i, Net3.LocalIP)
    Net3.RemotePort = i
    Net3.SendData("Se") — Вот эта строчка матерится
    ProgressBar1.Value = i
    If ProgressBar1.Value = ProgressBar1.Maximum Then
    ProgressBar1.Value = ProgressBar1.Minimum
    End If
    Next i

  4. 14
    Андрей Горбоконь ответил:

    Код в студию

  5. 13
    Серега Губченко ответил:

    … Пытаюсь несколько раз отправить информацию(Winsock) используя цикл-выскакивает ошибка выделяет строку посыла, и ругается не кодом ошибки, а адресом… че делать?

  6. 12
    Серега Губченко ответил:

    Андрей (aka md6) Горбоконь-спасибо за идею! поменял Form_load на Form_activated и все заработало…

  7. 11
    Серега Губченко ответил:

    Андрей (aka md6) Горбоконь – но если не писать me.hide() тогда форма отобразитсяч, чего именно я и пытаюсь избежать (в VB6 работало)

  8. 10
    Андрей Горбоконь ответил:

    При обработке события Form1_Load форма еще не показана,
    поэтому Me.Hide() не дает никакого эффекта

  9. 9
    Серега Губченко ответил:

    Public Class Form1
    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As String
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'On Error Resume Next
    If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
    If TextBox4.Text <> Val(Len(TextBox1.Text)) * Val(Len(TextBox2.Text)) * Val(Len(TextBox3.Text)) * Asc(Mid(TextBox3.Text, 7, 1)) * Asc(Mid(TextBox2.Text, 8, 1)) * 97 – Asc(Mid(TextBox1.Text, 1, 1)) * Asc(Mid(TextBox2.Text, 4, 1)) Then
    MsgBox("Пароль неверен.", MsgBoxStyle.Critical, "Ошибка")
    Else
    FileOpen(1, CurDir() + "\Profile\User.dll", OpenMode.Output, OpenAccess.Write)
    WriteLine(1, TextBox1.Text)
    WriteLine(1, TextBox2.Text)
    WriteLine(1, TextBox3.Text)
    WriteLine(1, TextBox4.Text)
    FileClose(1)
    Me.Hide()
    Form2.Show()
    End If
    Else
    MsgBox("Не все поля заполнены", 16, "Ошибка")
    End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'On Error Resume Next
    FileOpen(1, CurDir() + "\Profile\User.dll", OpenMode.Input, OpenAccess.Read)
    Input(1, a)
    Input(1, b)
    Input(1, c)
    Input(1, d)
    FileClose(1)
    If Val(d) <> Val(Len(a)) * Val(Len(b)) * Val(Len(c)) * Val(Asc(Mid(c, 7, 1))) * Val(Asc(Mid(b, 8, 1))) * 97 – Val(Asc(Mid(a, 1, 1))) * Val(Asc(Mid(b, 4, 1))) Then
    MsgBox("Регистрация не пройдена.", 16, "Ошибка")
    FileOpen(1, CurDir() + "\Profile\User.dll", OpenMode.Output, OpenAccess.Write)
    WriteLine(1, "")
    WriteLine(1, "")
    WriteLine(1, "")
    WriteLine(1, "")
    FileClose(1)
    Else
    Me.Hide()
    Form2.Show()
    End If
    End Sub
    End Class

  10. 8
    Андрей Горбоконь ответил:

    код в студию

  11. 7
    Леонид Максимов ответил:

    а вы не пробовали не скрывать первую или вторую, а показывать первую или вторую? мыслите позитивно.

  12. 6
    Дмитрий Потапов ответил:

    >>Хотя бы потому что никаких усилий к созданию программы прикладывать не нужно

    Естественно – если спрашивать готовое решение у других – то никаких усилий, только от языка это не зависит.

    Вердикт: в армию.
    а… в армию рано, тогда убиться ап учебник по программированию

  13. 5
    Серега Губченко ответил:

    Коктретно: сравнило-подходит, вторую форму показывает а первую не скрывает

  14. 4
    Серега Губченко ответил:

    Кристиана АntiGlaMyRnAyАоБАЯшка Якушенкова – Для меня Висбас это самый вариант….. Хотя бы потому что никаких усилий к созданию программы прикладывать не нужно

  15. 3
    Ангелочик Якушенкова ответил:

    Нахрен оно те нужно? Бейсик шас не катит никак:-(

  16. 2
    Андрій Пушкар ответил:

    +1

  17. 1
    Павел Акулов ответил:

    а что конкретно не получается? Чтение из файла, сравнение с эталоном или манипуляция с формами? Или все и сразу? :)

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.