# include
# include

void main (void)
(
struct fatinfo lemak;

getfatd (& lemak);

printf ( "Sektor per cluster% dn", fat.fi_sclus);
printf ( "kelompok disk% per un", fat.fi_nclus);
printf ( "Bytes per cluster% dn", fat.fi_bysec);
printf ( "Disk jenis% xn", fat.fi_fatid & 0xFF);
)

Bookmark Penyalahgunaan

Sembunyikan Situs

Fungsi umum CBin (ByVal Nr Sebagai Long, Opsional Precision Sebagai integer = String sebagai
Hingga melakukan Nr = 0
CBin = CStr ((Nr Mod 2)) + CBin
Nr = No 2
Loop
CBin = Format (Val (CBin), String (Precision, "0"))
Akhir Fungsi

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

Bookmark Penyalahgunaan

Sembunyikan Situs

# include
struct EXEHEAD

(
char id [2]; / / 'M' & 'Z'
unsigned lastpg; / / no of byte di halaman terakhir
unsigned ukuran; / / no dari total 512 byte halaman
unsigned reloc; / / no relokasi dari tabel item
unsigned headersize; / / header ukuran PARAS
unsigned minpara; / / min. PARAS reqd. oleh prog.
unsigned maxpara; / / maks. PARAS reqd. oleh prog.
unsigned stackseg; / / nilai awal tumpukan seg.
unsigned stackoff; / / nilai awal SP
unsigned chksum; / / header memeriksa jumlah
unsigned IP; / / entry point IP
unsigned CS; / / entry point CS
unsigned relocoff; / / offset dari relokasi item 1.
unsigned char overlay; / / overlay nomor
);
int main (int argc, char * argv [])

(
FILE * fp;
struct EXEHEAD exehead;
if ((fp = fopen ( "sound.exe", "rb")) == NULL)

(
printf ( "ERROR: errorn buka file");
return 1;
)
fread (& exehead, sizeof (exehead), 1, fp);
printf ( "EXE file tanda tangan:% c% cn", exehead.id [0], exehead.id [1]);
printf ( "Total byte terakhir pada sektor:% un", exehead.lastpg);
printf ( "Total sektor (1 = sektor 512 bytes):% un", exehead.size);
printf ( "Jumlah tabel item relokasi:% un", exehead.reloc);
printf ( "dalam paragraf Header ukuran:% un", exehead.headersize);
printf ( "Min. PARAS. reqd. oleh program:% un", exehead.minpara);
printf ( "Max. PARAS. reqd. oleh program:% un", exehead.maxpara);
printf ( "nilai awal SS:% un", exehead.stackseg);
printf ( "Initial nilai SP:% un", exehead.stackoff);
printf ( "Header checksum:% un", exehead.chksum);
printf ( "nilai awal IP:% un", exehead.IP);
printf ( "nilai awal CS:% un", exehead.CS);
printf ( "Offset of 1. relokasi item:% un", exehead.relocoff);
printf ( "Tampilan nomor:% dn", exehead.overlay);

return 0;
)

Bookmark Penyalahgunaan

Sembunyikan Situs

# include

typedef enum (Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu) hari;

int main ()
(
nomor hari;
printf ( "Masukkan jumlah hari dalam week.n");
scanf ( "% d", & nomor);
switch (nomor)
(
case 0: printf ( "hari ini Sunday.n"); break;
kasus 1: printf ( "hari ini Monday.n"); break;
kasus 2: printf ( "hari ini Tuesday.n"); break;
kasus 3: printf ( "hari ini Wednesday.n"); break;
Kasus 4: printf ( "hari ini thursday.n"); break;
Kasus 5: printf ( "hari ini Friday.n"); break;
Kasus 6: printf ( "hari ini saturday.n"); break;
)
return 0;
)

Bookmark Penyalahgunaan

Sembunyikan Situs

Fungsi SetBytes (Bytes) As String

Kesalahan pada errorhandler Goto

Jika Bytes> = 1073741824 Kemudian
SetBytes = Format (Bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
ElseIf Bytes> = 1048576 Kemudian
SetBytes = Format (Bytes / 1024 / 1024, "# 0.00") & "MB"
ElseIf Bytes> = 1024 Then
SetBytes = Format (Bytes / 1024, "# 0.00") & "KB"
ElseIf Bytes <1024 Lalu
SetBytes = Fix (Bytes) & "Bytes"
Jika akhir

Keluar Fungsi
errorhandler:
SetBytes = "tidak dapat menghitung"
Akhir Fungsi

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

Bookmark Penyalahgunaan

Sembunyikan Situs