# Include

typedef enum (dg, dl, dm, Mier, dj, Vier, Dissabte) dies;

int main ()
(
nombre de dies;
printf ( "Si us plau, introduïu el número del dia d'week.n");
scanf ( "% d", i número);
switch (nombre)
(
case 0: printf ( "el dia és Sunday.n"); break;
cas 1: printf ( "el dia és Monday.n"); break;
el cas 2: printf ( "el dia és Tuesday.n"); break;
case 3: printf ( "el dia és Wednesday.n"); break;
case 4: printf ( "el dia és thursday.n"); break;
cas 5: printf ( "el dia és Friday.n"); break;
cas 6: printf ( "el dia és saturday.n"); break;
)
return 0;
)

És favorit

Amaga Llocs

Funció SetBytes (Bytes) As String

On Error Goto ErrorHandler

Si Octets> = 1073741824 Després
Format SetBytes = (bytes / 1024 / 1024 / 1024, "# 0,00") _
& "GB"
ElseIf Octets> = 1048576 Llavors
Format SetBytes = (bytes / 1024 / 1024, "# 0,00") & "MB"
ElseIf Octets> = 1024 A continuació,
Format SetBytes = (bytes / 1024, "# 0,00") & "KB"
ElseIf Bytes <1.024 Llavors
SetBytes = Fix (Bytes) & "Octets"
End If

Funció de sortida
ErrorHandler:
SetBytes = "no es pot calcular"
End Function

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

És favorit

Amaga Llocs

# Include
# Include

dict char [] [2] [40] = (
"Hola", "bonjour",
"Any", "ANNE",
"Bona", "bon",
"Cotxe", "voiture",
"Casa", "casa",
"Sí", "oui",
"Amic", "amic",
"Carretera", "carrer",
"",""
);

int main (void)
(
int i = 0;
char paraula [80];

printf ( "Escriviu una paraula en anglès per buscar for.n");
gets (paraula);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (paraula, dict [i] [0]))
(
printf ( "equivalent francès és:% sn", dict [i] [1]);
break;
)
i + +;
)

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

return 0;
)

És favorit

Amaga Llocs

Declari Function SystemParametersInfo Lib "user32" Àlies "SystemParametersInfoA" (ByVal uAction Com Long, ByVal uParam Com Long, ByVal lpvParam Com Tot, ByVal fuWinIni Com Long) As llarg

Public Const SPI_SETDESKWALLPAPER = 20

Dim lngSuccess Com Llarg
As String Dim strBitmapImage

strBitmapImage = "h: windowsstraw.bmp"
= LngSuccess SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

És favorit

Amaga Llocs

# Include
# Include
# Defineix WIN32_LEAN_AND_MEAN

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

if (MessageBox (NULL, "Premeu ok per buidar la carpeta de documents recents.", "reciclador", MB_YESNO | MB_ICONINFORMATION)! = IDYES)
return false;

SHAddToRecentDocs (SHARD_PATH, NULL);

return false;
)

És favorit

Amaga Llocs