ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Я незнаю на чём я пишу, но мне нужна помощ |

25.03.2010, 17:10
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
Я незнаю на чём я пишу, но мне нужна помощ
Пишу я в "Microsoft Visual Studio 2008" какой язык при создании проэкта выбрал - непомню >_< Кажись Visual Basic а может и C++
Ну не в этом смысл...
Есть такая функция
Function check(ByVal num)
Label2.Text = Label2.Text + ToString(num)
End Function
Я так понимаю, когда я вызываю check(число) он должен добавить его в Label2.Text
Я сделал вот так
check(0)
check(1)
check(2)
check(3)
...
check(17)
check(18)
check(19)
check(20)
А он мне в Label2.Text пишет "SmartDeviceProject3.F" ну тама продолжение будет если больше 20 вызывать
Тоесть при вызове check(3) он пропишет в Label2.Text букву "a"
Это как так вобще... Я расчитывал на то, чтоб он вывел
1234567891011121314151617181920
а он выводит
SmartDeviceProject3.F
Что курили авторы этого языка? 
И что нужно сделать/скурить чтоб он мне вывел то, что я хочу
Подозреваю трабла в слове "ByVal" но я незнаю что оно значит, "Microsoft Visual Studio 2008" сам это слово вставил и не даёт удалить, возвращает обратно при компиляции
|
|
|

25.03.2010, 17:14
|
|
Участник форума
Регистрация: 09.11.2009
Сообщений: 265
Провел на форуме: 312907
Репутация:
18
|
|
Название темы улыбнуло.
|
|
|

25.03.2010, 17:15
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
Мне гугл сказал скачать "Microsoft Visual Studio 2008" я скачал, а на чём в нём кодить над не написано, кодю на том, на чём работает
|
|
|

25.03.2010, 17:15
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 224
Провел на форуме: 5075819
Репутация:
274
|
|
Пишу я в "Microsoft Visual Studio 2008" какой язык при создании проэкта выбрал - непомню >_< Кажись Visual Basic а может и C++
Ну не в этом смысл...
Дай весь код... пишешь ты vb.
Последний раз редактировалось .ATK; 25.03.2010 в 17:18..
|
|
|

25.03.2010, 17:17
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
1 из 3
МБ всётаки поможете за печеньку? 
======
Сообщение от .ATK
Дай весь код
Код:
Public Class Form1
Function check(ByVal num)
Label2.Text = Label2.Text + ToString(num)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
check(0)
check(1)
check(2)
check(3)
check(4)
check(5)
check(6)
check(7)
check(8)
check(9)
check(10)
check(11)
check(12)
check(13)
check(14)
check(15)
check(16)
check(17)
check(18)
check(19)
check(20)
End Sub
End Class
Кстате как в vb ставить комменатри?
//
#
--
/* */
{ }
ему не нравятся, а больше я незнаю
Последний раз редактировалось Ponchik; 25.03.2010 в 17:22..
|
|
|

25.03.2010, 17:24
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 224
Провел на форуме: 5075819
Репутация:
274
|
|
Компилятора, vb, под рукою у меня нету, да и не писал я никогда в нём)) но кажись дело и вправду в ByVal попробуй его замени на Integer
|
|
|

25.03.2010, 17:25
|
|
Новичок
Регистрация: 05.08.2009
Сообщений: 4
Провел на форуме: 60249
Репутация:
5
|
|
Function check(ByVal num As Integer)
Label1.Text = Label1.Text + num.ToString
Return 1
End Function
Вот попробуй...
|
|
|

25.03.2010, 17:25
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
Сообщение от .ATK
Компилятора, vb, под рукою у меня нету, да и не писал я никогда в нём)) но кажись дело и вправду в ByVal попробуй его замени на Integer
Да я пробовал
Сообщение от psyx
Function check(ByVal num As Integer)
Label1.Text = Label1.Text + num.ToString
Return 1
End Function
Вот попробуй...
Не помогло
|
|
|

25.03.2010, 17:27
|
|
Новичок
Регистрация: 05.08.2009
Сообщений: 4
Провел на форуме: 60249
Репутация:
5
|
|
ты Label1 оставил или поменял на свой(label2)?
|
|
|

25.03.2010, 17:29
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
Сообщение от psyx
ты Label1 оставил или поменял на свой(label2)?
Ну вот такое оно
обычный label...
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|