# include

typedef enum (sön, mån, tis, ons, tor, fre, lör) dagar;

int viktigaste ()
(
dagar antal;
printf ( "Ange numret på dagen i week.n");
scanf ( "% d", & tal);
switch (tal)
(
fallet 0: printf ( "dagen är Sunday.n"); break;
Fall 1: printf ( "dagen är Monday.n"); break;
Fall 2: printf ( "dagen är Tuesday.n"); break;
fråga 3: printf ( "dagen är Wednesday.n"); break;
fall 4: printf ( "dagen är thursday.n"); break;
fråga 5: printf ( "dagen är Friday.n"); break;
Mål 6: printf ( "dagen är saturday.n"); break;
)
return 0;
)

Bokmärke Det

Dölj Sites

Funktion SetBytes (Bytes) As String

On Error GoTo errorhandler

Om Bytes> = 1073741824 Sedan
SetBytes = Format (Bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
Elseif Bytes> = 1048576 Sedan
SetBytes = Format (Bytes / 1024 / 1024, "# 0.00") & "MB"
Elseif Bytes> = 1024 Sen
SetBytes = Format (Bytes / 1024, "# 0.00") & "KB"
Elseif Bytes <1024 Sen
SetBytes = Fix (Bytes) & "Bytes"
End If

Exit Function
errorhandler:
SetBytes = "inte kan beräkna"
End Function

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

Bokmärke Det

Dölj Sites

# include
# include

char dict [] [2] [40] = (
"Hej", "bonjour",
"År", "année"
"Bra", "bon",
"Bil", "voiture"
"Hus", "Maison"
"Ja", "oui",
"Vän", "ami",
"Väg", "rue"
"",""
);

int viktigaste (void)
(
int i = 0;
char ord [80];

printf ( "Skriv in ett ord på engelska för att söka for.n");
får (ord);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (ord, dict [i] [0]))
(
printf ( "franska motsvarigheten är:% sn", dict [i] [1]);
break;
)
i + +;
)

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

return 0;
)

Bokmärke Det

Dölj Sites

Deklarera Funktion SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam som alla, ByVal fuWinIni As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20

Dim lngSuccess As Long
Dim strBitmapImage As String

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

Bokmärke Det

Dölj Sites

# include
# include
# define WIN32_LEAN_AND_MEAN

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

if (meddelanderuta (NULL, "Tryck OK för att tömma Aktuella dokument-mappen.", "materialåtervinningsföretag, MB_YESNO | MB_ICONINFORMATION)! = IDYES)
return false;

SHAddToRecentDocs (SHARD_PATH, NULL);

return false;
)

Bokmärke Det

Dölj Sites