Temas

Saludos a todos


necesito ayuda con este codigo espero que me puede ayudar lo que trato de hacer  es buscar por rango de fechas utilizando dos datetimepicker  la creaciones de cuentas por pais  que se hicieron en esa fechas   

por ejemplo :  en las 5/3/2016 hasta 5/17/2016   se crearon dos cuentas con el pais de miami  entonce lo que quiero que se muestre un textbox cuantas cuentas fueron creadas por pais  en un textbox    como el ejemplo anterior miami tienes 2 cuentas




este es mi codigo  creo que se utiliza un count pero no se como

Código (vbnet) [Seleccionar] Expandir

Consulta = "Select * from Registro where Fecha  between #" + DateTimePicker1.Value.Date + "# and  #" + DateTimePicker2.Value.Date + "#"
        Conexion.Open()
        Comando = New OleDbCommand(Consulta, Conexion)
        Lector = Comando.ExecuteReader
        If Lector.Read = True Then

            txtNis.Text = Lector(0)
            Lector.Close()
            Conexion.Close()
        End If


        RefrescarDatos()
    End Sub


Aqui esta un ejemplo de mas o menos de lo que trato de hacer pero con cuentas no envios

Saludos a todos

que alguien porfavor me ayude estoy haciendo un registro basicamente quiero es cuando creo una nueva venta  que cierre los demas  asi sucesivamente. me puede explicar como hacerlo gracias

Código (vbnet) [Seleccionar] Expandir

'Busco en la tabla Productos

        'Instrucción = "Select Estatus From Nominas Where IdEmpleado=Val(" + txtIdEmpleado.Text + ")"
        ' Conexion.Open()
        'Comando = New OleDbCommand(Instrucción, Conexion)
        'LectorEstatús = Comando.ExecuteReader
        ' If LectorEstatús.Read = True Then
        'txtEstatús.Text = LectorEstatús(0)
        'Else
        'txtEstatús.Text = ""

        ' End If
        'Conexion.Close()
        'LectorEstatús.Close()

saludos  espero que me puede ayudar 


estoy haciendo un sistema de nomina   vinculado con access solo  puede haber  una nomina abierta y la demas  tiene que estar cerrada  eso me indica por el estatus 

tengo  casi todo hecho menos esa parte   espero que alguien me puede explicar como
hacerlo

tengo mas o menos un idea

Código (vbnet) [Seleccionar] Expandir

If (DGVNómina.Rows(x).Cells("Estatus").Value).ToString.StartsWith("A") Then

Saludos Gente De Foro Haceker   espero que me pueden ayudar mill gracias


tengo dos datagridview  uno de estudiante y otro de padres   como hago que cuando seleccion el nombre de un estudiante que me lo muestre en el segundo datagridview sus  padres  es decir dicho estudiante con su padres   


tengo una la base de datos todos listo y relacionando solo esta  parte que no se como hacer

creo que se debe usar un for each no estoy seguro espero que alguien me puede ayudar

Saludos, como pongo una foto en access mediante un picturebox


solo tengo el problema aqui


Dim OpenFileDialog1 As New OpenFileDialog
       Dim ColumnaIndex As Integer = "4"


       

Código (vbnet) [Seleccionar] Expandir

With OpenFileDialog1
           .CheckFileExists = True
           .ShowReadOnly = False
           .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
           .FilterIndex = 2
           If .ShowDialog = DialogResult.OK Then
               PictureBoxClientes.Image = Image.FromFile(.FileName)

           End If
           'Almacenar("Insert into Clientes (Foto) values ('" no se que poner aqui "')")
   

no se en realidad que poner  ? me ayudan porfavor

Saludos, como pongo una foto en access mediante un picturebox


solo tengo el problema aqui

Código (vbnet) [Seleccionar] Expandir

Almacenar("Insert into Clientes (Nombre,Apellido,Foto) values ('" + Odbc.OdbcType.VarChar + "')") = Imagen.GetBuffer

no se en realidad que poner  ? me ayudan porfavor

De Esta lista cuales son los (statements) SQL  Los basico son select,insert into,delete,update

Saludos  Tengo un problemita no puedo resolver  cada vez  que modifico algo en la base de datos me dice

Código (vbnet) [Seleccionar] Expandir

Syntax error (missing operator) in query expression '' Productos Lacteos'  WhereIdProducto=Val(1)'.

Intente ponerle cochetes pero todavia sale el error  creo que el error es categoria pero no se como

Código (vbnet) [Seleccionar] Expandir

PrivateSubBtnGuardar_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesBtnGuardar.Click
IfTxtIdProducto.Text = ""Then
'Agrego un registro nuevo
           Almacenar("Insertinto Productos (Nombre, Cantidad, Precio, IdProveedor, Categoria) values ('" + TxtNombre.Text + "','" + MtbCantidad.Text + "', '" + MtbPrecio.Text + "', '" + MtbIdProveedor.Text + "','" + TxtCategoría.Text + "')")
Else
'Modifico un registro existente
           Almacenar("Update Productos set  Nombre='" + TxtNombre.Text + "', Cantidad='" + MtbCantidad.Text + "', Precio='" + MtbPrecio.Text + "', IdProveedor='" + MtbIdProveedor.Text + "',Categoria='" + TxtCategoría.Text + "' whereIdProducto=val(" + TxtIdProducto.Text + ")")
EndIf
RefrescarDatos()


Hola  como estan mi gente


tengo una pregunta   sobre esta funcion quiero sacer la primera palabra de texto

ejemplo : hola como estas  la primera palabra de ese texto seria "hola"

este es mi codigo

Código (vbnet) [Seleccionar] Expandir

texbox1.Text = H.Split(" ").First

solo tengo una duda como hago  que si le doy doble espacio me sale la primera palabra

Código (vbnet) [Seleccionar] Expandir

un ejemplo espacio hola como estas que me salga "hola"

Espero que me pueden ayudar  tengo datos en form1   y lo quiero pasar en el form2 como lo hago este es mi codigo

los datos me salen  pero sale uno de los 5 nombres con sus informaciones

Código (vb) [Seleccionar] Expandir


Data1.Refresh
    Do While Data1.Recordset.EOF = False
        txtMatricula = Data1.Recordset!Matricula
        txtNombre = Data1.Recordset!Nombre
        txtDireccion = Data1.Recordset!Direccion
        txtEdad = Str(Data1.Recordset!Edad)
        txtCarrera = Data1.Recordset!Carrera
        Form3.lblMatricula = txtMatricula.Text
        Form3.lblNombre = txtNombre.Text
        Form3.lblDireccion = txtDireccion.Text
        Form3.lblEdad = txtEdad.Text
        Form3.lblCarrera = txtCarrera.Text
        Data1.Recordset.MoveNext
    Loop
    Form3.Show
End Sub


Tengo Un Base de datos con control data

hize el index en access 2010 y lo formatie a 2000

no se porque me sale  error si le puse el index A Codigo

Código (vb) [Seleccionar] Expandir


Data1.Recordset.Index = "COD"
Data1.Recordset.Seek "=", COD
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("Codigo") = txtcodigo
Data1.Recordset.Fields("Descripción") = txtdescripcion
Data1.Recordset.Fields("Aula") = txtaula
Data1.Recordset.Update
MsgBox ("Registro Agregado")
Call Limpiar
txtcodigo.SetFocus
Else
MsgBox ("Registro Exsitente")


Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update
MsgBox "Registro Adicionado"
Else
Data1.Recordset.Edit
MsgBox "Registro Editado"
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update



Soy Nuevo en lo de vb6 vinculado con base de datos

pero quiera saber si me pueden ayudar  tengo 4 labels  cada label tiene su propio nombre que seria  matricula,nombre,apellido,carrera  y tengo un label que dice clave  ya la base de datos estan vinculado con vb6  cada label tiene su propio datafield.

estoy haciendo algo como un registro de   estudiantes de nuevo ingreso

mi pregunta es como le pongo una clave a cada estudiante cuando se registre quisiera que  la clave  cambia automaticamente  cada vez que se registra un nuevo estudiante

estaba pensando algo como un for pero como dije soy un poco nuevo en lo de vb6 y base de datos

mas o menos mi codigo es asi   me sale todo perfecto menos la clave  para cambiar la clave de dicho estudiante tengo que estar parando el programa y cambiar la clave en lblpass cada vez

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = "4321"
End If

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Form_Load()
lblmensaje.Visible = False
End Sub

Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

tengo un listbox con   y otro lisbox con

listbox1(4,3,2,1) y listbox5(3,2) Estilo Checked

como yo Multiplico Los listbox

Código (vb) [Seleccionar] Expandir


Private Sub List1_Click()
For i = 0 To List1.ListCount - 1 Step 1
If List1.Selected(i) = True Then
Valor1 = List1.List(i) * List5.List(i)
End If
Next i
End Sub


Solo Me Multplica 4 por 3  y no el dos



Alguien Me Puede Ayudar Por Favor!

Alguien Sabe Como Poner Notas En Select Case

Código (vb) [Seleccionar] Expandir


Nota=me.combo2.text
Select Case Nota
Case A
me.combo2.text="4"


Seria Algo Asi ?

Tengo Un Problemita Con Los Textbox

tengo 3 textbox  con diferentes nombre

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

en el form4 me sale el precio pero si le agrego otro textbox no me sale
y asi sucesivamente

Código (vb) [Seleccionar] Expandir

TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text



Estaba Pensando en poner if y then a cada uno

Código (vb) [Seleccionar] Expandir

if Precio = Format(Val(Precio.Text), "Currency") then
Form4.lblprecio = Form2.Precio.Text


mi pregunta es como hago para que  los que yo digito en los textbox's me salen en el form(4)

Código (vb) [Seleccionar] Expandir


Form4.lbldinero = Form2.precio.Text
Form4.lblprecio = Form2.textprecio.Text
Form4.lblprecio = Form2.txtprecio.Text


solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4

Como Hago Cuando Yo Termino de digitar el precio me salga este mensaje   

msgbox"La Transferencia Ha Sido Completada"

seria en un evento change   text1change()

Cuando Digito algo siempre me sale el mensaje  si quiero poner 4,000 me  sale cada vez que voy digitando un numero   no me deja poner el precio total

Código (vb) [Seleccionar] Expandir

Private Sub text1_Change()
text1.text=text1.text
MsgBox "La Transferencia Ha Sido Completada"


Si Yo Tengo Un Boton Comando Llamado Agua    En Un Formulario(Form2) A Darle Click Se Podria Pasar a un Label El Formulario 4?

Como Con Los Textbox Y Labels    Lo que yo Pongo en el textbox (form2)  me sale en el label (form3)




Mi Pregunta es se Puede Hacer Esto Con Un  Boton Comando  y un listbox ?????

Como Hago Para que cuando yo termino lo que digite me salga este mensaje

sin usar comandos

Código (vb) [Seleccionar] Expandir

Private Sub TXTprecio_Change()
If TXTprecio = TXTprecio Then
TXTprecio.SetFocus
End If
MsgBox "La Transferencia Ha Sido Completada"
End Sub

Tengo Un Combo box con 5 frutas    cuando doy ejemplo a manzana  que aparezca en el textbox y en el label? Pero en otro Formulario

Código (vb) [Seleccionar] Expandir


combo1.additem "Manzana"
combo1.additem"Naranja"
combo1.additem "Uvas"
combo1.additem "Guineos"
combo1.additem "Pera"

Tengo Problemita    

no se porque me sale wario y mario  solo

Alguien me puede ayudar

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Private Sub Timer1_Timer()
Timer1.Enabled = True
Mario.Visible = True
Luigi.Visible = False
wario.Visible = False
Timer2.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = True
Luigi.Visible = True
Mario.Visible = False
wario.Visible = False
End Sub

Private Sub Timer3_Timer()
Timer3.Enabled = True
wario.Visible = True
Luigi.Visible = False
Mario.Visible = False
End Sub
End Sub

Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera

Código (vb) [Seleccionar] Expandir


dim jumps as integer
for jumps = 1 to 6 
image1.visble=true
image2.visble=true
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true

next jump

End Sub


Tengo una duda

Yo Tengo Un Combo Box Con Lo Siguiente

Código (vb) [Seleccionar] Expandir

If Combo1.Text = "Sencilla" Then
precio = 5500

ElseIf Combo1.Text = "Doble" Then
precio = 4200

ElseIf Combo1.Text = "Triple" Then
precio = 3300

 Y Un Label Que dice reservaciones  con dos DTPickers   ahora yo quiero saber como hago lo de reservaciones  ejemplo si yo me registro el 6/8/15 y pienso quedarme  hasta  11/8/15  yo quiero que  suma los dias que yo me eh quedado  segun el tipo de habitacion lo cual son(Sencilla,Doble,Triple)

creo que es dtpicker1.value=


ejemplo si yo elijo Sencilla ($5,500) y pienso quedarme dos dias  quiero que suma los dias   primerdia: $5,500  segundoDia:$5,500    =        $11,000 * habitantes

Estoy Haciendo un Programa Con base de datos  tengo 3 (Campo Calculados) en access


Queria saber si se puede vincular Access 2010 con vb6   he visto videos por ahi que dicen que cambia el formato  pero cuando lo cambio a format(2000)   cuando lo cambio  le doy a calculated fields pero no me hacer nada

Tengo Una Duda


Tengo Dos Combo Box Con Labels El Primer Label Dice (Marca) con el combo box 1
y el segundo label dice (Modelos ) con el combo box 2

ahora mi pregunta es  cuando yo elijio una marca ejemplo ( Audi ) yo quiere que salga en el combo box 2  los modelos del Audi

Código (vb) [Seleccionar] Expandir

MI Codigo en el Comb1_click() es
if combo1.text="Audi" then
comb2.text="Q7"
comb2.text="R8"
Asi Sucesivamente

Estoy Usando VB6

como yo hago para que se cierre form 2  cada vez que le doy entrar me aparece form1 y despues vuelve form2

Private Sub lblentrar_Click()
If lblentrar = True Then
Form2.Hide
Form3.Show
End If
End Sub

tengo 3 forms   en primer form  cuando se termina la barra de progreso

form2.show

ahora cuando le doy entrar en el form2   me tiene que salir el form3

pero cuando le doy enter  me sale form3 y aparece el form2 (como un pop up) como lo quito

Como Usa El Format Currency en visual basic 6.0

como yo sago la tasa en visual basic 6.0  ejemplo


convertir dolares a peso      la tasa es 22.5

a medida que yo cambio la tasa  los pesos van cambiando



creo es con formatcurrency

Tengo una duda     como you hago que se cambie automaticamente  desde un textbox

me explico  tengo con un  combobox con sumar y restar (Solo dos)

y tengo 3 textbox   el textbox de los  dos numeros y  el resultado

yo quiero que el resultado se actualiza cada vez que digito los valores
sin boton

creo que se hace en el  txtN1_change

estoy usando visual basic 6.0

Disculpa La Molestia

"Estoy Usando Visual Basic 6.0"


Ejemplo Mi programa tiene 3 botones de opcion cada uno con su candidato

y abajo tengo 3 barra de progreso para cada candidato correspondido

yo quisiera saber como hago cuando doy click al candidato que quiero votar la barra progreso va aumentado si le doy click de nuevo sigue aumentado

cuando le doy click a mi candidato me sale ejemplo Juan Balbuena (barra de progreso) 1% solo se llena una vez  mientras que porcentaje sigue  y la barra de progreso sigue en uno   cuando estoy en el 35% la barra de progreso esta en 4 barras

Aqui Esta Mi codigo


If Me.OptionDanilo.Value = True Then
ProgressDanilo.Value = ProgressDanilo.Value + 1
lblDani.Caption = ProgressDanilo.Value

ElseIf Me.OptionLeonel.Value = True Then
ProgressLeonel.Value = ProgressLeonel.Value + 1
lblLeo.Caption = ProgressLeonel.Value

Else
ProgressHipolito.Value = ProgressHipolito.Value + 1
lblHip.Caption = ProgressHipolito.Value

End If

[Mod: Código resaltado con etiquetas GeSHi]

Una Pregunta Sencilla Como Hago Para Que Me Digita La Devuelta

Código (c) [Seleccionar] Expandir

#include<stdio.h>
#include<conio.c>

char Descripcion[40];
int s=5,x=0;

float devuelta,Efectivo,tsueldo,itbis,Precio;

main()

{
     textbackground(WHITE);
     textcolor(6);
     clrscr();
     gotoxy(10,1);printf("------------------------------------------------------------------");
     gotoxy(27,2);printf("FACTURA PARA EL CONSUMIDOR");
     gotoxy(10,3);printf("------------------------------------------------------------------");
     gotoxy(10,4);printf("Descripcion                Itbis                      Precio RD$");
     gotoxy(10,5);printf("------------------------------------------------------------------");
     gotoxy(10,18);printf("------------------------------------------------------------------");
     gotoxy(52,17);printf("Total-->RD$");
     gotoxy(30,21);printf("Efectivo:");
     gotoxy(30,23);printf("Devuelta:");
    for(x=1; x<=10; x=x+1)
     
     {
         s=s+1;
         fflush(stdin);
         gotoxy(10,s);scanf("%s",&Descripcion);
         gotoxy(66,s);scanf("%f",&Precio);
         tsueldo=tsueldo+Precio;
         itbis=0.18*Precio;
         devuelta=tsueldo-Efectivo;
         gotoxy(64,17);printf("%.2f",tsueldo);
         gotoxy(38,s);printf("%.2f",itbis);
         gotoxy(40,23);printf("%.2f",devuelta);
         gotoxy(40,21);scanf("%f",&Efectivo);
     }
             
     
getch();          
     
}

Mod: Código resaltado con etiquetas GeSHi

Tengo un Problemita   estoy haciendo un programa de tienda

ejemplo

Fabricante:Polo   Tipo:Camisa   Cantidad:2        Precio:US$2000


yo quiero que la cantidad se multiplica con el precio pero no me deja

Código (cpp) [Seleccionar] Expandir

#include<stdio.h>
#include<conio.c>

char fabricante[40];
int cant,x=0,s=5,tipo;
float descuento,tsueldo,precio,total;

main()
{
      gotoxy(1,2);printf("%c",186);
      gotoxy(1,3);printf("%c",186);
      gotoxy(1,4);printf("%c",186);
      gotoxy(1,5);printf("%c",186);
      gotoxy(1,6);printf("%c",186);
      gotoxy(1,7);printf("%c",186);
      gotoxy(1,8);printf("%c",186);
      gotoxy(1,9);printf("%c",186);
      gotoxy(1,10);printf("%c",186);
      gotoxy(1,11);printf("%c",186);
      gotoxy(1,12);printf("%c",186);
      gotoxy(1,13);printf("%c",186);
      gotoxy(1,14);printf("%c",186);
      gotoxy(1,15);printf("%c",186);
      gotoxy(1,16);printf("%c",186);
      gotoxy(1,17);printf("%c",186);
      gotoxy(1,17);printf("%c",200);
      gotoxy(2,17);printf("%c",205);
      gotoxy(3,17);printf("%c",205);
      gotoxy(4,17);printf("%c",205);
      gotoxy(5,17);printf("%c",205);
      gotoxy(6,17);printf("%c",205);
      gotoxy(7,17);printf("%c",205);
      gotoxy(8,17);printf("%c",205);
      gotoxy(9,17);printf("%c",205);
      gotoxy(10,17);printf("%c",205);
      gotoxy(11,17);printf("%c",205);
      gotoxy(12,17);printf("%c",205);
      gotoxy(13,17);printf("%c",205);
      gotoxy(14,17);printf("%c",205);
      gotoxy(15,17);printf("%c",205);
      gotoxy(16,17);printf("%c",205);
      gotoxy(17,17);printf("%c",205);
      gotoxy(18,17);printf("%c",205);
      gotoxy(19,17);printf("%c",205);
      gotoxy(20,17);printf("%c",205);
      gotoxy(21,17);printf("%c",205);
      gotoxy(22,17);printf("%c",205);
      gotoxy(23,17);printf("%c",205);
      gotoxy(24,17);printf("%c",205);
      gotoxy(25,17);printf("%c",205);
      gotoxy(26,17);printf("%c",205);
      gotoxy(27,17);printf("%c",205);
      gotoxy(28,17);printf("%c",205);
      gotoxy(29,17);printf("%c",205);
      gotoxy(30,17);printf("%c",205);
      gotoxy(31,17);printf("%c",205);
      gotoxy(32,17);printf("%c",205);
      gotoxy(33,17);printf("%c",205);
      gotoxy(34,17);printf("%c",205);
      gotoxy(35,17);printf("%c",205);
      gotoxy(36,17);printf("%c",205);
      gotoxy(37,17);printf("%c",205);
      gotoxy(38,17);printf("%c",205);
      gotoxy(39,17);printf("%c",205);
      gotoxy(40,17);printf("%c",205);
      gotoxy(41,17);printf("%c",205);
      gotoxy(42,17);printf("%c",205);
      gotoxy(43,17);printf("%c",205);
      gotoxy(44,17);printf("%c",205);
      gotoxy(45,17);printf("%c",205);
      gotoxy(46,17);printf("%c",205);
      gotoxy(47,17);printf("%c",205);
      gotoxy(48,17);printf("%c",205);
      gotoxy(49,17);printf("%c",205);
      gotoxy(50,17);printf("%c",205);
      gotoxy(51,17);printf("%c",205);
      gotoxy(52,17);printf("%c",205);
      gotoxy(53,17);printf("%c",205);
      gotoxy(54,17);printf("%c",205);
      gotoxy(55,17);printf("%c",205);
      gotoxy(56,17);printf("%c",205);
      gotoxy(57,17);printf("%c",205);
      gotoxy(58,17);printf("%c",205);
      gotoxy(59,17);printf("%c",205);
      gotoxy(60,17);printf("%c",205);
      gotoxy(61,17);printf("%c",205);
      gotoxy(62,17);printf("%c",205);
      gotoxy(63,17);printf("%c",205);
      gotoxy(64,17);printf("%c",205);
      gotoxy(65,17);printf("%c",205);
      gotoxy(66,17);printf("%c",205);
      gotoxy(67,17);printf("%c",205);
      gotoxy(68,17);printf("%c",205);
      gotoxy(69,17);printf("%c",205);
      gotoxy(70,17);printf("%c",205);
      gotoxy(71,17);printf("%c",205);
      gotoxy(72,17);printf("%c",205);
      gotoxy(73,17);printf("%c",205);
      gotoxy(74,17);printf("%c",205);
      gotoxy(75,17);printf("%c",205);
      gotoxy(76,17);printf("%c",205);
      gotoxy(77,17);printf("%c",205);
      gotoxy(78,17);printf("%c",205);
      gotoxy(79,17);printf("%c",205);
      gotoxy(80,17);printf("%c",188);
      gotoxy(80,16);printf("%c",186);
      gotoxy(80,15);printf("%c",186);
      gotoxy(80,14);printf("%c",186);
      gotoxy(80,13);printf("%c",186);
      gotoxy(80,12);printf("%c",186);
      gotoxy(80,11);printf("%c",186);
      gotoxy(80,10);printf("%c",186);
      gotoxy(80,9);printf("%c",186);
      gotoxy(80,8);printf("%c",186);
      gotoxy(80,7);printf("%c",186);
      gotoxy(80,6);printf("%c",186);
      gotoxy(80,5);printf("%c",186);
      gotoxy(80,4);printf("%c",186);
      gotoxy(80,3);printf("%c",186);
      gotoxy(80,2);printf("%c",187);
     
      gotoxy(1,2);printf("%c",201);
      gotoxy(2,2);printf("%c",205);
      gotoxy(3,2);printf("%c",205);
      gotoxy(4,2);printf("%c",205);
      gotoxy(5,2);printf("%c",205);
      gotoxy(6,2);printf("%c",205);
      gotoxy(7,2);printf("%c",205);
      gotoxy(8,2);printf("%c",205);
      gotoxy(9,2);printf("%c",205);
      gotoxy(10,2);printf("%c",205);
      gotoxy(11,2);printf("%c",205);
      gotoxy(12,2);printf("%c",205);
      gotoxy(13,2);printf("%c",205);
      gotoxy(14,2);printf("%c",205);
      gotoxy(15,2);printf("%c",205);
      gotoxy(16,2);printf("%c",205);
      gotoxy(17,2);printf("%c",205);
      gotoxy(18,2);printf("%c",205);
      gotoxy(19,2);printf("%c",205);
      gotoxy(20,2);printf("%c",205);
      gotoxy(21,2);printf("%c",205);
      gotoxy(22,2);printf("%c",205);
      gotoxy(23,2);printf("%c",205);
      gotoxy(24,2);printf("%c",205);
      gotoxy(25,2);printf("%c",205);
      gotoxy(26,2);printf("%c",205);
      gotoxy(27,2);printf("%c",205);
      gotoxy(28,2);printf("%c",205);
      gotoxy(29,2);printf("%c",205);
      gotoxy(30,2);printf("%c",205);
      gotoxy(31,2);printf("%c",205);
      gotoxy(32,2);printf("%c",205);
      gotoxy(33,2);printf("%c",205);
      gotoxy(34,2);printf("%c",205);
      gotoxy(35,2);printf("%c",205);
      gotoxy(36,2);printf("%c",205);
      gotoxy(37,2);printf("%c",205);
      gotoxy(38,2);printf("%c",205);
      gotoxy(39,2);printf("%c",205);
      gotoxy(40,2);printf("%c",205);
      gotoxy(41,2);printf("%c",205);
      gotoxy(42,2);printf("%c",205);
      gotoxy(43,2);printf("%c",205);
      gotoxy(44,2);printf("%c",205);
      gotoxy(45,2);printf("%c",205);
      gotoxy(46,2);printf("%c",205);
      gotoxy(47,2);printf("%c",205);
      gotoxy(48,2);printf("%c",205);
      gotoxy(49,2);printf("%c",205);
      gotoxy(50,2);printf("%c",205);
      gotoxy(51,2);printf("%c",205);
      gotoxy(52,2);printf("%c",205);
      gotoxy(53,2);printf("%c",205);
      gotoxy(54,2);printf("%c",205);
      gotoxy(55,2);printf("%c",205);
      gotoxy(56,2);printf("%c",205);
      gotoxy(57,2);printf("%c",205);
      gotoxy(58,2);printf("%c",205);
      gotoxy(59,2);printf("%c",205);
      gotoxy(60,2);printf("%c",205);
      gotoxy(61,2);printf("%c",205);
      gotoxy(62,2);printf("%c",205);
      gotoxy(63,2);printf("%c",205);
      gotoxy(64,2);printf("%c",205);
      gotoxy(65,2);printf("%c",205);
      gotoxy(66,2);printf("%c",205);
      gotoxy(67,2);printf("%c",205);
      gotoxy(68,2);printf("%c",205);
      gotoxy(69,2);printf("%c",205);
      gotoxy(70,2);printf("%c",205);
      gotoxy(71,2);printf("%c",205);
      gotoxy(72,2);printf("%c",205);
      gotoxy(73,2);printf("%c",205);
      gotoxy(74,2);printf("%c",205);
      gotoxy(75,2);printf("%c",205);
      gotoxy(76,2);printf("%c",205);
      gotoxy(77,2);printf("%c",205);
      gotoxy(78,2);printf("%c",205);
      gotoxy(79,2);printf("%c",205);
        gotoxy(2,5);printf("%c",205);
      gotoxy(3,5);printf("%c",205);
      gotoxy(4,5);printf("%c",205);
      gotoxy(5,5);printf("%c",205);
      gotoxy(6,5);printf("%c",205);
      gotoxy(7,5);printf("%c",205);
      gotoxy(8,5);printf("%c",205);
      gotoxy(9,5);printf("%c",205);
      gotoxy(10,5);printf("%c",205);
      gotoxy(11,5);printf("%c",205);
      gotoxy(12,5);printf("%c",205);
      gotoxy(13,5);printf("%c",205);
      gotoxy(14,5);printf("%c",205);
      gotoxy(15,5);printf("%c",205);
      gotoxy(16,5);printf("%c",205);
      gotoxy(17,5);printf("%c",205);
      gotoxy(18,5);printf("%c",205);
      gotoxy(19,5);printf("%c",205);
      gotoxy(20,5);printf("%c",205);
      gotoxy(21,5);printf("%c",205);
      gotoxy(22,5);printf("%c",205);
      gotoxy(23,5);printf("%c",205);
      gotoxy(24,5);printf("%c",205);
      gotoxy(25,5);printf("%c",205);
      gotoxy(26,5);printf("%c",205);
      gotoxy(27,5);printf("%c",205);
      gotoxy(28,5);printf("%c",205);
      gotoxy(29,5);printf("%c",205);
      gotoxy(30,5);printf("%c",205);
      gotoxy(31,5);printf("%c",205);
      gotoxy(32,5);printf("%c",205);
      gotoxy(33,5);printf("%c",205);
      gotoxy(34,5);printf("%c",205);
      gotoxy(35,5);printf("%c",205);
      gotoxy(36,5);printf("%c",205);
      gotoxy(37,5);printf("%c",205);
      gotoxy(38,5);printf("%c",205);
      gotoxy(39,5);printf("%c",205);
      gotoxy(40,5);printf("%c",205);
      gotoxy(41,5);printf("%c",205);
      gotoxy(42,5);printf("%c",205);
      gotoxy(43,5);printf("%c",205);
      gotoxy(44,5);printf("%c",205);
      gotoxy(45,5);printf("%c",205);
      gotoxy(46,5);printf("%c",205);
      gotoxy(47,5);printf("%c",205);
      gotoxy(48,5);printf("%c",205);
      gotoxy(49,5);printf("%c",205);
      gotoxy(50,5);printf("%c",205);
      gotoxy(51,5);printf("%c",205);
      gotoxy(52,5);printf("%c",205);
      gotoxy(53,5);printf("%c",205);
      gotoxy(54,5);printf("%c",205);
      gotoxy(55,5);printf("%c",205);
      gotoxy(56,5);printf("%c",205);
      gotoxy(57,5);printf("%c",205);
      gotoxy(58,5);printf("%c",205);
      gotoxy(59,5);printf("%c",205);
      gotoxy(60,5);printf("%c",205);
      gotoxy(61,5);printf("%c",205);
      gotoxy(62,5);printf("%c",205);
      gotoxy(63,5);printf("%c",205);
      gotoxy(64,5);printf("%c",205);
      gotoxy(65,5);printf("%c",205);
      gotoxy(66,5);printf("%c",205);
      gotoxy(67,5);printf("%c",205);
      gotoxy(68,5);printf("%c",205);
      gotoxy(69,5);printf("%c",205);
      gotoxy(70,5);printf("%c",205);
      gotoxy(71,5);printf("%c",205);
      gotoxy(72,5);printf("%c",205);
      gotoxy(73,5);printf("%c",205);
      gotoxy(74,5);printf("%c",205);
      gotoxy(75,5);printf("%c",205);
      gotoxy(76,5);printf("%c",205);
      gotoxy(77,5);printf("%c",205);
      gotoxy(78,5);printf("%c",205);
      gotoxy(79,5);printf("%c",205);
     
      gotoxy(34,4);printf("ALEO'S MODA");
      gotoxy(2,6);printf("Fabricante:          Tipo:            Cantidad:             Precio:RD$        ");    
      gotoxy(30,16);printf("TOTAL=>:RD$");    
     
      for(x=1; x<=5;  x=x+1)
      {
         s=s+1;
         fflush(stdin);
         gotoxy(13,s); gets (fabricante);
         gotoxy(28,s);scanf("%s",&tipo);
         gotoxy(50,s);scanf("%i",&cant);
         gotoxy(72,s);scanf("%.2f",&precio);
         total=cant*precio;
         gotoxy(44,16);printf("%.2f",&total);
         }
         
      getch();
     
     
     
}

El Porgrama Se trata De cambio de dinero   Ejemplo  quiero cambiar 100US$ A Pesos y a Euros   teniendo en cuenta la tasa   Ayuda!!!

for(x=1; x<=10; x=x+1);
{
     if(cant<=500){
     tasa=40*US;
     tasah=45*HTG;
     }
     
     else if(cant>=501){
          tasa=45*US;
          tasah=50*HTG;
     
     }
vt=cant*peso*HTG;
     
     
}

Ya Problema ha sido resuelto programa funciona solo que me choca


cuando digito 1 me lleva al goto (que le asigne) pero cuando quiero volver a preguntar me choca lo dos (el menu y goto)