DesadaptadoDimensional

Hello, thank you for your reply. Sorry, I didn't realise it included parts in Spanish. It says: EXCEPTION EMSACCESSNATIVEEXCEPTION IN MODULE MANAGER.EXE AT 00268D9E FIREDAC PHYS ODBC MICROSOFT ODBC MICROSOFT ODBC MICROSOFT ACCESS DRIVER GENERAL ERROR UNABLE TO OPEN REGISTRY KEY TEMPORARY VOLATILE ACE DSN FOR PROCESS 0X1384 THREAD 0X1710 DBC 0X19DD42C JET I downloaded that setup in other computer, unfortunately, after install it, the error exception stills... Its weird but only works on my computer.

Hello everyone, I am a 1st year programming student. Today I have not been able to present my project, which uses .accdb databases through FDTable, FDConnection and DataSource although it works correctly on my computer. but not in others I thought that the problem was related to the database path, but I use a cloud, which is where I install my Delphi files and projects, so in principle the path always remains the same... I don't know what the problem is. I attach my project, with the dproj file if you want to have a look at the code, and also the executable. Also a screenshot of the error. Thanks and best regards https://www.mediafire.com/file/ofiicfhuv69af8t/managerv1.7z/file

Thanks, François. We are starting to learn coding for Desktop through this language, my teacher mentioned that is easier for beginners. Now with the documentation will be easier. By the way, you have a very good website. Just by curiosity, why almost all math operation worked, even Cos and Sin, without add in -uses- this System.Math in the list except Tangent? Best regards.

Hello, thanks for your reply. How I could add this unit manually? It is the first time I have heard about it. Greetings. @FPiette Ok, thanks, I will take a look to that documentation.

Hello, thanks for your reply. 10: resultado:= Tan(num1); gave me this error: "Undeclared identifier: Tan at line XX" Regarding radians, you are right ... In radians my calculator adjusts to the results of other online calculators. For now, I only have the problem with the Tan. I appreciate your collaboration FPiette.

Hello, I am beginning to learn programming through this language. The teacher has told us that I have to make a calculator, I have managed to do the most fundamental operations, but I have problems with Sein, Cos and Tangent. The first two I'm not sure if they give an appropriate result. And the last one directly gives the program an error. This is the result that gave me https://i.imgur.com/LriaBJV.png and this is how my program should look according to my teacher. I will show you my code. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Samples.Spin; type Tx = class(TForm) PanelDos: TPanel; calcular: TButton; PanelTres: TPanel; Memo1: TMemo; ocultarhistorial: TButton; PanelUno: TPanel; Label1: TLabel; Label2: TLabel; Label4: TLabel; RadioGroup1: TRadioGroup; edt1: TSpinEdit; edt2: TSpinEdit; Button1: TButton; procedure calcularClick(Sender: TObject); procedure ocultarhistorialClick(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var x: Tx; implementation {$R *.dfm} procedure Tx.Button1Click(Sender: TObject); begin Memo1.Lines.Clear; end; procedure Tx.calcularClick(Sender: TObject); var num1: real; num2: real; resultado: real; text: string; begin num1:= strToFloat(edt1.Text); num2:= strToFloat(edt2.Text); case RadioGroup1.ItemIndex of 0: begin resultado:= num1+num2; text:= 'la suma de ' + FloatToStr(num1) + ' + ' + FloatToStr(num2) + ' es '; end; 1: resultado:= num1-num2; 2: resultado:= num1*num2; 3: resultado:= num1/num2; 4: resultado:= abs(num1); 5: resultado:= sqrt(num1); 6: resultado:= num1*num1; 7: resultado:= num1*num1*num1; 8: resultado:= Sin(num1); 9: resultado:= Cos(num1); 10: resultado:= Tan(num1); end; //showMessage('el resultado es ' + FloatToStr(resultado)); Label4.Caption := FloatToStr(resultado); Memo1.Lines.Add(text+FloatToStr(resultado)); end; procedure Tx.ocultarhistorialClick(Sender: TObject); begin if Memo1.Visible = true then Memo1.visible := false else Memo1.Visible := true; {if Memo1.Visible = true then begin Memo1.Visible := false; end else begin Memo1.Visible := true; end;} end; end. Thanks, I am stucked with it.