| Вопрос: МГТУ им. Баумана | Добавлено: 07.11.06 10:37 |
Автор вопроса:  Владимир | ICQ: 230931430 |
| Тут такое задание: привести несколько примеров использования API функций в Visual Basic .NET, помогите плизз очень надо... сам я не особо силен в Васике темболее в .NET))) |
| Ответы | Всего ответов: 36 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 07.11.06 11:15 |
|
Встречный вопрос МГТУ им. Баумана - при чем тут. Название темы уж очень не инфармативное и если вы студент этого уважаемого ВУЗа, то не стоит портить репутацию.
|
||
|
Номер ответа: 2 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #2 | Добавлено: 07.11.06 12:08 |
Предлагаю в каждой теме ставить название своего ВУЗа 
Я буду в каждой свое теме ставить "ТГАТА"
|
||
|
Номер ответа: 3 Автор ответа: danser ICQ: 299287824 Вопросов: 76 Ответов: 209 |
Профиль | | #3 | Добавлено: 07.11.06 12:26 |
|
!!!Класно!!! )))))))))))))))
А давайте ставить название не того ВУЗа где учишься, а где хотел бы (((((0: или перечень :0))))))) или уже учился )))))))
|
||
|
Номер ответа: 4 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #4 | Добавлено: 07.11.06 12:56 |
|
Предлагаю в каждой теме ставить название своего ВУЗа
А тем, кто не учился или учился в нескольких ВУЗах что ставить в тему? Или таким не место на форуме? :о) |
||
|
Номер ответа: 5 Автор ответа: danserICQ: 299287824 Вопросов: 76 Ответов: 209 |
Профиль | | #5 | Добавлено: 07.11.06 13:02 |
|
Те могут, например, указывать место работи
|
||
|
Номер ответа: 6 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #6 | Добавлено: 07.11.06 17:12 |
|
Я буду в каждой свое теме ставить "ТГАТА" А что это?
|
||
|
Номер ответа: 7 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #7 | Добавлено: 07.11.06 18:03 |
|
и эта меня тут за офф-топ наказывали?
Public Class clsINIWork_NET
Dim m_UsFile As String Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal LPString As String, ByVal lpFileName As String) As Integer Public Function SetINIData(ByVal Part As String, ByVal ValName As String, ByVal Value As String) As Boolean Dim nErr As Long nErr = WritePrivateProfileString(Part, ValName, Value, m_UsFile) Return nErr = 0 End Function Public Function GetINIData(ByVal Part As String, ByVal ValName As String, ByVal DefValue As String) As String Dim nErr As Long, strBuf As String strBuf = Space$(100) nErr = GetPrivateProfileString(Part, ValName, DefValue, strBuf, 100, m_UsFile) strBuf = Left$(strBuf, InStr(1, strBuf, vbNullChar) - 1) Return strBuf End Function Public Sub SetFile(ByRef strFile As String) m_UsFile = strFile End Sub End Class |
||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 07.11.06 18:09 |
|
Я буду в каждой свое теме ставить "ТГАТА"
А что это? Не, вот только не надо, не надо смеяться
таврическая государственная агротехническая академия. |
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 07.11.06 18:19 |
| Не давнее как позавчера постил код из MSDN... | ||
|
Номер ответа: 10 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #10 | Добавлено: 07.11.06 18:52 |
|
таврическая государственная агротехническая академия. Круто
А че смеяьтся то? У меня красиво универ назывется, серъезно РГСУ - Рстовский Государственный Строительный Университет. Везде о нем говорят как о престижном. Не верьте этим слухам. Вы бы видели, как у нас информатику ведут. Тетенька пришла и наверное в первый раз в жизни комп увидала. ))))))
Теперь она нам преподает Visual Basic 6. (первую недлю как). За месяц до этого excel - преподавла. На занятиях я открыл VBA поиграться, так она подощла и первая фраза, которую она сказала, была: А что это за язык?
Так что таврическая государственная агротехническая академия. Сомневаюсь что где нибудь состояние м/б ещё более печальным.
Скажите кто-нибудь, хоть в каких-нибудь универах программирование нормально преподают? |
||
|
Номер ответа: 11 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #11 | Добавлено: 07.11.06 18:59 |
|
На занятиях я открыл VBA поиграться, так она подощла и первая фраза, которую она сказала, была:
А что это за язык? А что за язык-то был? |
||
|
Номер ответа: 12 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #12 | Добавлено: 07.11.06 19:11 |
|
А что за язык-то был? VBA
Visual Basic for Application??? Знаешь такой? ))
|
||
|
Номер ответа: 13 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #13 | Добавлено: 07.11.06 19:59 |
|
Круто
А че смеяьтся то? Крутые пацаны смеются когда слышат что я там учусь
Звучит красиво, реально - [censored] Кстати, все-таки встречаются нормальные люди и в таких ВУЗах. К примеру, у нас преподают на предмете ООП C# (именно реально преподают, а не формально - есть преподаватель который реально знает С#, есть сервер с VS .NET 2005, студенты через терминал с ней работают). Только студенты - тоже [censored]. Я вобщем там шарю C# и еще пару человек и все, остальной поток - клиника. |
||
|
Номер ответа: 14 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #14 | Добавлено: 07.11.06 21:40 |
|
остальной поток - клиника.
И как же они будут экзамены сдавать??? |
||
|
Номер ответа: 15 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #15 | Добавлено: 07.11.06 21:52 |
|
Imports System.Runtime.InteropServices
<StructLayout(LayoutKind.Sequential)> _ Structure SYSTEMTIME <MarshalAs(UnmanagedType.U2)> _ Dim wYear As Short <MarshalAs(UnmanagedType.U2)> _ Dim wMonth As Short <MarshalAs(UnmanagedType.U2)> _ Dim wDayOfWeek As Short <MarshalAs(UnmanagedType.U2)> _ Dim wDay As Short <MarshalAs(UnmanagedType.U2)> _ Dim wHour As Short <MarshalAs(UnmanagedType.U2)> _ Dim wMinute As Short <MarshalAs(UnmanagedType.U2)> _ Dim wSecond As Short <MarshalAs(UnmanagedType.U2)> _ Dim wMilliseconds As Short End Structure Public Class Form1 Private Declare Sub GetLocalTime Lib "kernel32.dll" (ByRef lpSystemTime As SYSTEMTIME) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim LocalTime As New SYSTEMTIME GetLocalTime(LocalTime) End Sub End Class |
||