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

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

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

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

2. 16
   Леонид Максимов ответил:
   18 ноября 2008 в 0:04

   а как же listen?

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

   '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
   Андрей Горбоконь ответил:
   10 ноября 2008 в 18:01

   Код в студию

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

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

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

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

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

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

8. 10
   Андрей Горбоконь ответил:
   6 ноября 2008 в 20:04

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

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

   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
    Андрей Горбоконь ответил:
    6 ноября 2008 в 3:02

    код в студию

11. 7
    Леонид Максимов ответил:
    5 ноября 2008 в 23:04

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

12. 6
    Дмитрий Потапов ответил:
    5 ноября 2008 в 17:03

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

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

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

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

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

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

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

15. 3
    Ангелочик Якушенкова ответил:
    5 ноября 2008 в 16:04

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

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

    +1

17. 1
    Павел Акулов ответил:
    5 ноября 2008 в 15:05

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