}while(letra!='E' || letra !='p' || letra!='C');

int main ()
{
	char letra='o';
	int repetir;
	do
	{
		clrscr();
		printf("introduzca la letra de identificador E-Empleado, C-Cliente, P-Producto\n");
		scanf("%c",&letra);
	}while(letra!='E' && letra !='P' && letra!='C');

	printf("Letra --> %c",letra);
	getch();
}

#include <stdio.h>
#include<conio.h>
char Letra;
int main()
{
	Repetir:;
	clrscr();
	printf("introduzca la letra de identificador E-Empleado, C-Cliente, P-Producto\n");
	scanf("%c",&Letra);
        if ((Letra!='P') && (Letra!='C') && (Letra!='E'))
	{
		printf("\n\n­lee antes de introducir el caracter! ­os dije C, P o E!");
		getchar();getchar();
		goto Repetir;//Repetir mientras no sea correcta la entrada
	}
        clrscr();
	printf("La letra de entrada es %c",Letra);
	getchar();getchar();
} 

Form1.ws.SendData ("msgc" & sign & " + " & lol)

Private Sub CmdGuardar_Click()
On Error Resume Next
Dim Resp As String
    With CommonDialog1
        .CancelError = True 'Esto hará que VB devuelva un error al pulsar Cancelar
        .FileName = "Nuevo Imagen de mapa de bits"
        .Filter = "Archivos BMP|*.bmp|Archivos JPG|*.bmp|Todos|*.*"
        .ShowSave
        'Si no se ha producido ningún error, es que NO se ha pulsado Cancelar
        If Err.Number = 0 Then
            If .FileName <> "" Then
                If ExisteArchivo(.FileName) Then
                    If MsgBox("El archivo ya existe," & vbCrLf & _
                    "¿desea sobreescribirlo?" _
                    , vbQuestion + vbYesNo) = vbYes Then _
                    SavePicture Picture1.Image, .FileName
                Else
                    SavePicture Picture1.Image, .FileName
                End If
            End If
        End If
    End With
    '-------------------------->> Control de Errores <<------------------------------
    'Es buena costumbre volver a ponerlo a cero... así dejamos de detectar errores
    Err = 0 'cancelamos el error/ 0 es que no hay error
    On Local Error GoTo 0 'sirve si queremos dejar de detectar errores
End Sub

Public Function ExisteArchivo(Archivo As String) As Boolean
On Error Resume Next
    ExisteArchivo = IIf(Dir$(Archivo) = "", False, True)
End Function

.CancelError = True

If not(.CancelError) then SavePicture Picture1.Image, .FileName

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Ejemplo... ;-]
    Me.Cls
    Me.BackColor = Picture1.Point(X, Y)
    Me.Caption = "Valor hexadecimal del color: " & Hex(Me.BackColor)
End Sub

Private Sub CmdGuardar_Click()
    With CommonDialog1
         .DialogTitle = "Guardar el archivo"
         .Filter = "Archivos BMP|*.bmp|Archivos JPG|*.bmp|Todos|*.*"
         .ShowSave
         If .FileName = "" Then
            MsgBox "No se especificó ningún nombre", vbCritical
         End If
         Picture1.Picture = Picture1.Image
         SavePicture Picture1, .FileName
    End With
End Sub

Private Sub Form_Load()
    Picture1.AutoRedraw = True
End Sub

Private Sub menuGuardar_Click()
    foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
    foto.Quality = 100
    foto.SampleScreen
    If ExisteArchivo("c:\Salvado.jpg") = True Then _
    Kill "c:\Salvado.jpg" 'Necesario eliminarlo, sino no salva :-[
    foto.SaveFile ("c:\Salvado.jpg")
    'Lo vuelvo a cargar, para verificar que guardo, ¡pero no es necesario!
    Picture1.Picture = LoadPicture("c:\salvado.jpg")
End Sub

Private Sub menuSalir_Click()
    Unload Me
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then 'Si se presiono el boton derecho del mouse
        PopupMenu Menu
        
        'Esquema del menu
        '---------------------------
        'Menu --> Menu
            'Guardar --> menuGuardar
            'Salir --> menuSalir
        '---------------------------
    End If
End Sub

'Esta es la función más sencilla para detectar la existencia de un archivo
Public Function ExisteArchivo(Archivo As String) As Boolean
    ExisteArchivo = IIf(Dir$(Archivo) = "", False, True)
    'Devolverá false, si Dir$ no encuentra el archivo especificado
End Function