# include

typedef enum (Duminica, Luni, Marţi, Miercuri, Joi, Vineri, Sâmbătă) de zile;

int main ()
(
număr de zile;
printf ( "Vă rugăm să introduceţi numărul de zile de la week.n");
scanf ( "% d", & numar);
switch (numar)
(
cazul 0: printf ( "a doua zi este Sunday.n"); break;
Cazul 1: printf ( "a doua zi este Monday.n"); break;
Cazul 2: printf ( "a doua zi este Tuesday.n"); break;
cazul 3: printf ( "a doua zi este Wednesday.n"); break;
Cazul 4: printf ( "a doua zi este thursday.n"); break;
caz 5: printf ( "a doua zi este Friday.n"); break;
caz 6: printf ( "a doua zi este saturday.n"); break;
)
return 0;
)

Este Insemnare

Ascunde Site-uri

Funcţia SetBytes (bytes) Ca String

Pe de eroare Goto errorhandler

Dacă Bytes> = 1073741824 Apoi
SetBytes = Format (Bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GO"
Elseif Bytes> = 1048576 Apoi
SetBytes = Format (Bytes / 1024 / 1024, "# 0.00") si "MB"
Elseif Bytes> = 1024 Apoi
SetBytes = Format (Bytes / 1024, "# 0.00") si "KB"
Elseif Bytes <1024 Apoi
SetBytes = Fix (bytes) si "Bytes"
Dacă Sfârşit

Exit Function
errorhandler:
SetBytes = "nu se poate calcula"
Sfârşit Funcţia

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

Este Insemnare

Ascunde Site-uri

# include
# include

apucate dict [] [2] [40] = (
"Hello", "Buna ziua",
"Anul", "année",
"Bun", "bon",
"Maşină", "voiture",
"Casa", "Maison",
"Da", "oui",
"Prieten", "ami",
"Drum", "rue",
"",""
);

int main (gol)
(
int i = 0;
caracter cuvânt [80];

printf ( "Introduceţi un cuvânt în limba engleză, pentru a căuta for.n");
devine (Word);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (Word, dict [i] [0]))
(
printf ( "francez echivalent este:% sn", dict [i] [1]);
break;
)
i + +;
)

if (! strcmp (dict [i] [0], ""))
printf ( "Word nu found.n");

return 0;
)

Este Insemnare

Ascunde Site-uri

Funcţia declara SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction atâta timp, ByVal uParam atâta timp, ByVal lpvParam ca orice, ByVal fuWinIni atâta timp), atâta timp

Public Const SPI_SETDESKWALLPAPER = 20

Dim lngSuccess atâta timp
Dim strBitmapImage Ca String

strBitmapImage = "H: windowsstraw.bmp"
lngSuccess = SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

Este Insemnare

Ascunde Site-uri

# include
# include
# define WIN32_LEAN_AND_MEAN

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
(

dacă (MessageBox (NULL, "Apăsaţi OK pentru a goli folderul Documente recente.", "recycler", MB_YESNO | MB_ICONINFORMATION)! = IDYES)
return false;

SHAddToRecentDocs (SHARD_PATH, NULL);

return false;
)

Este Insemnare

Ascunde Site-uri