Función SetBytes (Bytes) As String

On Error GoTo ErrorHandler

Si Bytes> = 1073741824 Luego
Formato SetBytes = (bytes / 1024 / 1024 / 1024, "# 0.00") _
& "GB"
ElseIf Bytes> = 1048576 Entonces
Formato SetBytes = (bytes / 1024 / 1024, "# 0.00") & "MB"
ElseIf Bytes> = 1024 A continuación,
Formato SetBytes = (bytes / 1024, "# 0.00") & "KB"
ElseIf Bytes <1024 Entonces
SetBytes = Fix (Bytes) & "Bytes"
End If

Función de salida
ErrorHandler:
SetBytes = "no se puede calcular"
End Function

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

Es favorito

Ocultar Sitios

# include
# include

dict char [] [2] [40] = (
"Hola", "bonjour",
"Año", "ANNEE",
"Buena", "bon",
"Coche", "voiture",
"Casa", "casa",
"Sí", "oui",
"Amigo", "amigo",
"Carretera", "la calle",
"",""
);

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

printf ( "Escriba una palabra en Inglés para buscar for.n");
gets (palabra);
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (palabra, dict [i] [0]))
(
printf ( "equivalente francés es:% sn", dict [i] [1]);
break;
)
i + +;
)

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

return 0;
)

Es favorito

Ocultar Sitios

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction Como Long, ByVal uParam Como Long, ByVal lpvParam Como Todo, ByVal fuWinIni Como Long) As largo

Public Const SPI_SETDESKWALLPAPER = 20

Dim lngSuccess Como Largo
As String Dim strBitmapImage

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

Es favorito

Ocultar Sitios

# include
# include
# define WIN32_LEAN_AND_MEAN

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

if (MessageBox (NULL, "Pulse ok para vaciar la carpeta de documentos recientes.", "reciclador", MB_YESNO | MB_ICONINFORMATION)! = IDYES)
return false;

SHAddToRecentDocs (SHARD_PATH, NULL);

return false;
)

Es favorito

Ocultar Sitios

Coloque un cuadro combinado en un formulario e introduzca el siguiente código.

Private Sub Form_Load ()
Dim impresora
Para cada impresora En Impresoras
Combo1.AddItem printer.DeviceName
Siguiente
End Sub

Es favorito

Ocultar Sitios