Logo Hardware.com.br
pasedo
pasedo General de Pijama Registrado
2.7K Mensagens 207 Curtidas

[Resolvido] Ajuda nesta planilha.

#1 Por pasedo 08/09/2017 - 09:07
Boa tarde pessoal, estou tentando fazer esta planilha em vba que gera números de senhas mas eu quero personalizar ela da seguinte forma: tenho no formulário 4 checkboxs, gostaria que ao selecionar um checkbox e clicar em gerar senha ele gerasse a senha da qual foi marcado, por exemplo se eu marcar só numeros vai gerar só números e se marcar só letras maiusculas assim também ou minusculas ou caracteres especiais e se selecionar todos eles ele gere todos eles juntos, não sei se fui muito claro, mas se alguém for me ajudar é só fazer as perguntas.Grato

Anexos

ASUS M4A785TD-V EVO
HD6570 1GB DDR3 128 Bit
DDR3 Kingston 4GB (2x2) 1333
AMD Phenom(tm) II X4 955 Processor, 3214 MHz
SAMSUNG HD250HJ (232 GB)
SAMSUNG HD322HJ (298 GB)
ST3500418AS (465 GB)
SAMSUNG HD502HJ (465 GB)
CORSAIR 430W
pasedo
pasedo General de Pijama Registrado
2.7K Mensagens 207 Curtidas
#2 Por pasedo
11/09/2017 - 07:59
Bom dia pessoal o que eu preciso é que este código de Delphi seja transformado em vba do excel,
unit Principal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
LabeledEdit1: TLabeledEdit;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function gerarsenhas(PLen,Tipo:Integer): string;
var
str: string;
begin
if Tipo = 2 then
begin
str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890abcdefghijklmnopqrstuvwxyz!@#$%¨&*()_+"^}`{´[~]:?><,.;/';
end;

if Tipo = 1 then
begin
str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
end;

if Tipo = 0 then
begin
str := '1234567890';
end;

Randomize;
Result := '';
repeat
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(gerarsenhas(strtoint(LabeledEdit1.Text),ComboBox1.ItemIndex))
end;

end.
ASUS M4A785TD-V EVO
HD6570 1GB DDR3 128 Bit
DDR3 Kingston 4GB (2x2) 1333
AMD Phenom(tm) II X4 955 Processor, 3214 MHz
SAMSUNG HD250HJ (232 GB)
SAMSUNG HD322HJ (298 GB)
ST3500418AS (465 GB)
SAMSUNG HD502HJ (465 GB)
CORSAIR 430W
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal