TrackBar con BD

[roman]

Era para ver si ponían atención. Y de todas formas te baneo

// Saludos

[[enecumene]]

Empezado por roman

Era para ver si ponían atención. Y de todas formas te baneo

// Saludos

¡¡¡PUF!!!

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[enecumene]]

¿Y los valores no los tenías en una base de datos?.

Saludos.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[eduarcol]]

Empezado por JoseFco

Bueno asi quedo la cosa:

Código Delphi [-]
 
unit TrackBar;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure TrackBar1Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Valores: array[0..15] of Integer;
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Valores[0] := 50;
Valores[1] := 400;
Valores[2] := 150;
Valores[3] := 450;
Valores[4] := 350;
Valores[5] := 40;
Valores[6] := 55;
Valores[7] := 405;
Valores[8] := 550;
Valores[9] := 420;
Valores[10] := 60;
Valores[11] := 410;
Valores[12] := 570;
Valores[13] := 70;
Valores[14] := 150;
Valores[15] := 200;
Label1.Caption := IntToStr(valores[TRackBar1.Position]);
end;
end.

Bueno algunos se preguntaran y ¿para que sirve eso?
Pues yo tengo un componente que trabaja con numeros y para que el componente este de acuerdo con el TrackBar pues tenia que ser asi.
El Label es solo para poder simplificar el procedimiento.

Gracias Maestros.

Un Saludo.

PD: Me jugaron una trampita jejejejejeje

Te recomendaria este cambio:

Código Delphi [-]
 
unit TrackBar;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure TrackBar1Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Valores: array[0..15] of Integer =  (50,400,150,450,350,40,55,405,550,420,60,410,570,70,150,200);
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption := IntToStr(valores[TRackBar1.Position]);
end;
end.

de esta forma no tienes que llenarlo siempre que lo utilizes....



PD: ¿Quien te jugo la broma?

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[eduarcol]]

que rapido aprendes


una recomendacion, para futuros mantenimientos, colocale a los objetos nombres relacionados con lo que hace, porque en un tiempo que vuelvas a abrir el proyecto puedes confundirte con trackbar1 y trackbar2, no vas a saber cual es cual, o mejor dicho para que usastes cada uno...

[[FGarcia]]

Empezado por eduarcol

que rapido aprendes


una recomendacion, para futuros mantenimientos, colocale a los objetos nombres relacionados con lo que hace, porque en un tiempo que vuelvas a abrir el proyecto puedes confundirte con trackbar1 y trackbar2, no vas a saber cual es cual, o mejor dicho para que usastes cada uno...

Ouchh!!! ¿donde estabas hace dos años? Esa sugerencia me hizo falta!!

[roman]

Empezado por JoseFco

La pregunta es si esto esta bien asi, que si ¿Con un solo TrackBar puedo tener dos arrays?

Pues es que esta pregunta sólo la puedes contestar tú mismo. Si usas un sólo TrackBar, será como si ambos arreglos estuvieran en la misma posición (aunque distintos valores), pero sólo tú sabes si eso es lo que quieres o no.

// Saludos

[[eduarcol]]

Empezado por FGarcia

Ouchh!!! ¿donde estabas hace dos años? Esa sugerencia me hizo falta!!

hace dos años mas o menos a esta hora, o un poquito mas temprano?

[Neftali [Germán.Estévez]]

Empezado por JoseFco

¿Con un solo TrackBar puedo tener dos arrays?

Si, si tienes alguna forma luego de saber qué array utiliar y a qué Label asignar el valor. ¿Lo tienes?

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"