|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.01.2010, 20:12 | #11 |
Пользователь
Регистрация: 14.10.2009
Сообщений: 70
|
Я за C#. Легко и просто.
Кстати перешел на него с 1С, синтаксис в легкую освоил, 1С-овцы видать оттуда скомуниздили (1C8.X).. |
10.02.2010, 10:29 | #12 |
Новичок
Джуниор
Регистрация: 10.02.2010
Сообщений: 1
|
А С# с нуля не трудно выучить, если нет предварительных знаний по С++?
Последний раз редактировалось Kolyas87; 10.02.2010 в 10:39. |
11.02.2010, 20:37 | #13 |
Участник клуба
Регистрация: 30.07.2009
Сообщений: 1,601
|
Kolyas87, Да я запарился с нуля учить. Ну на четвертый раз повезло. Я почти понял смысл событий, но вот маленькая загвоздка.
Код:
Последний раз редактировалось _PROGRAMM_; 11.02.2010 в 20:40. |
11.02.2010, 22:28 | #14 | |
Форумчанин
Регистрация: 25.09.2009
Сообщений: 525
|
Код:
Код:
Код:
Цитата:
Последний раз редактировалось m0nax; 11.02.2010 в 22:31. |
|
10.10.2012, 19:24 | #15 |
Регистрация: 10.10.2012
Сообщений: 4
|
Здравствуйте! Помогите пожалуйста доделать программу. Вот она)
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = (6 * Rnd) + 1 If a = 1 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp") If a = 2 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp") If a = 3 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp") If a = 4 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp") If a = 5 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp") If a = 6 Then Image1.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp") b = (6 * Rnd) + 1 If b = 1 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp") If b = 2 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp") If b = 3 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp") If b = 4 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp") If b = 5 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp") If b = 6 Then Image2.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp") t = a + b Command1.Visible = False End Sub Private Sub Command2_Click() Dim c As Integer Dim d As Integer Dim e As Integer c = (6 * Rnd) + 1 If c = 1 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp") If c = 2 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp") If c = 3 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp") If c = 4 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp") If c = 5 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp") If c = 6 Then Image3.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp") d = (6 * Rnd) + 1 If d = 1 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 1.bmp") If d = 2 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 2.bmp") If d = 3 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 3.bmp") If d = 4 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 4.bmp") If d = 5 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 5.bmp") If d = 6 Then Image4.Picture = LoadPicture("C:\Users\User\Desktop\ êîñòè\êîñòü 6.bmp") e = c + d Text2.Text = e If t > v Then Print "âûèãðûâàåò 1é èãðîê" Else Print "âûèãðàûâåò 2é èãðîê" Command2.Visible = False End Sub Private Sub Command3_Click() Comand1.Visible = True Comand2.Visible = True End Sub Нужно сделать так чтобы программа выявляла победителя и также, когда бросаешь 10 раз по очереди она суммировала и выявляла победителя. Заранее спасибо! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ListBox в Visual Basic.NET | reyn90 | Помощь студентам | 1 | 21.05.2010 21:51 |
Visual Basic.NET и PHP | reyn90 | Помощь студентам | 0 | 14.06.2009 00:27 |
Отправка почты на Visual Basic .Net или в дельфи | Alex88888 | Помощь студентам | 2 | 06.03.2009 18:29 |
Visual Basic .Net (2005) | Amdy | Помощь студентам | 4 | 11.06.2008 13:49 |
Visual J# from Microsoft Visual Studio .NET | Flash_ | Общие вопросы по Java, Java SE, Kotlin | 2 | 28.12.2006 10:16 |