# включить
# включить

Основными недействительным (недействительными)
(
структуры fatinfo жира;

getfatd (И FAT);

printf ( "секторов на кластер% DN", fat.fi_sclus);
printf ( "кластеров на диске% ООН", fat.fi_nclus);
printf ( "Размер кластера% DN", fat.fi_bysec);
printf ( "Диск типа XN%", fat.fi_fatid И 0xFF);
)

Он Закладка

Скрыть Сайты

Публичную функцию CBin (ByVal Nr As Long, Факультативном Precision As Integer = As String
У До Nr = 0
CBin = CStr ((Nr моделирование 2)) + CBin
Nr = NR 2
Loop
CBin = Format (Val (CBin), струнные (Precision, "0"))
End Function

Private Sub Form_Load ()
MsgBox CBin (88)
End Sub

Он Закладка

Скрыть Сайты

# включить
структуры EXEHEAD

(
Код символа [2] / / 'M' И 'Z'
Неподписанный lastpg; / / нет байтов на последнюю страницу
Неподписанный размера; / / всего не 512 байт страниц
Неподписанный reloc; / / нет переселения таблицу элементов
Неподписанный headersize / / размер заголовка в пункты
Неподписанный minpara / / мин. пункты reqd. в прог.
Неподписанный maxpara / / макс. пункты reqd. в прог.
Неподписанный stackseg / / начальное значение стека сек.
Неподписанный stackoff / / начальное значение SP
Неподписанный chksum / / контрольная сумма заголовка
Неподписанный IP / / точка входа IP
Неподписанный CS / / точка входа CS
Неподписанный relocoff / / Смещение 1 переселения пункта
Неподписанный символ оверлей; / / оверлея число
);
INT основных (INT argc, символ * argv [])

(
FILE * FP;
структуры EXEHEAD exehead;
IF ((FP = fopen ( "sound.exe", "РБ")) == NULL)

(
printf ( "ERROR: errorn открыть файл");
возврат 1;
)
fread (И exehead, sizeof (exehead), 1, ПС);
printf ( "EXE файл подписи:% C% CN", exehead.id [0], exehead.id [1]);
printf ( "Всего байтов на последнем секторах:% ООН", exehead.lastpg);
printf ( "Всего секторов (1 сектор = 512 байт):% ООН", exehead.size);
printf ( "Количество переселение таблицы элементов:% ООН", exehead.reloc);
printf ( "Header размеров в пунктах:% ООН", exehead.headersize);
printf ( "Min. пункты. reqd. программа:% ООН", exehead.minpara);
printf ( "Max. пункты. reqd. программа:% ООН", exehead.maxpara);
printf ( "Первоначальная стоимость С.С.:% ООН", exehead.stackseg);
printf ( "Первоначальная стоимость SP:% ООН", exehead.stackoff);
printf ( "Header контрольная:% ООН", exehead.chksum);
printf ( "Первоначальная стоимость IP:% ООН", exehead.IP);
printf ( "Первоначальная стоимость CS:% ООН", exehead.CS);
printf ( "Сдвиг по переселению пункта 1:% ООН", exehead.relocoff);
printf ( "Наложение число:% DN", exehead.overlay);

возврат 0;
)

Он Закладка

Скрыть Сайты

# включить

типа Enum (Sun, пн, вт, ср, чт, пт, сб) дней;

INT Main ()
(
число дней;
printf ( "Пожалуйста, введите номер в день week.n");
scanf ( "% D", И номер);
переключатель (количество)
(
случае 0: printf ( "день Sunday.n"); перерыва;
Случай 1: printf ( "день Monday.n"); перерыва;
Случай 2: printf ( "день Tuesday.n"); перерыва;
Случай 3: printf ( "день Wednesday.n"); перерыва;
Вариант 4: printf ( "день thursday.n"); перерыва;
Случай 5: printf ( "день Friday.n"); перерыва;
Случай 6: printf ( "день saturday.n"); перерыва;
)
возврат 0;
)

Он Закладка

Скрыть Сайты

Функция SetBytes (байт) As String

On Error GoTo errorhandler

Если байт> = 1073741824 Затем
SetBytes = Format (байт / 1024 / 1024 / 1024, "# 0.00") _
И "ГБ"
ELSEIF байт> = 1048576 Далее
SetBytes = Format (байт / 1024 / 1024, "# 0.00") И "MB"
ELSEIF байт> = 1024 Далее
SetBytes = Format (байт / 1024, "# 0.00") И "КБ"
ELSEIF байт <1024 Далее
SetBytes = Fix (байт) И "Байт"
End If

Exit Function
errorhandler:
SetBytes = "не может вычислить"
End Function

Private Sub Form_Load ()
MsgBox SetBytes (1100)
End Sub

Он Закладка

Скрыть Сайты