Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Aiuto delphi to vb.net
Forum - Delphi - Aiuto delphi to vb.net

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
Ciao a tutti
alcuni miei amici mi hanno procurato dei codici sorgenti che hanno trovato su un sito, dicevano di essere tutte dello stesso programma, però le vogliono compilate in vb.net, c'è qualcuno che mi da un aiuto a tradurle da delphi win 32 a vb.net?
grazie8-|

1° form:
Codice sorgente - presumibilmente Delphi
  1. unit AdSelCom;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, Buttons;
  8.  
  9. type
  10.   TComSelectForm = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     OkBtn: TBitBtn;
  14.     AbortBtn: TBitBtn;
  15.     PortsComboBox: TComboBox;
  16.     procedure FormCreate(Sender: TObject);
  17.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   ComSelectForm: TComSelectForm;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TComSelectForm.FormCreate(Sender: TObject);
  32. begin
  33. // Address $485554
  34. end;
  35.  
  36. procedure TComSelectForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  37. begin
  38. // Address $4857DC
  39. end;
  40.  
  41. end.


2° form
Codice sorgente - presumibilmente Delphi
  1. unit LogFile;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls;
  8. type
  9.   TFLog = class(TForm)
  10.     ImgSfondo: TImage;
  11.     Memo1: TMemo;
  12.  
  13.     Erase: TButton;
  14.     Chiudi: TButton;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  17.     procedure ChiudiClick(Sender: TObject);
  18.     procedure EraseClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   FLog: TFLog;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TFLog.FormCreate(Sender: TObject);
  33. begin
  34. // Address $4CA7E8
  35. end;
  36.  
  37. procedure TFLog.ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  38. begin
  39. // Address $4CA98C
  40. end;
  41.  
  42. procedure TFLog.ChiudiClick(Sender: TObject);
  43. begin
  44. // Address $4CA9BC
  45. end;
  46.  
  47. procedure TFLog.EraseClick(Sender: TObject);
  48. begin
  49. // Address $4CAA94
  50. end;
  51.  
  52. end.


3° form
Codice sorgente - presumibilmente Delphi
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.    XPMan, ExtCtrls, StdCtrls,  Menus, ActnList, ExtActns, ImgList;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     XPManifest1: TXPManifest;
  12.     Timer1: TTimer;
  13.     ListBox1: TListBox;
  14.     ImgSfondo: TImage;
  15.     Timer2: TTimer;
  16.     Label3: TLabel;
  17.     Label8: TLabel;
  18.     ImageList1: TImageList;
  19.     PopupMenuTray: TPopupMenu;
  20.     Open: TMenuItem;
  21.     N1: TMenuItem;
  22.     N11: TMenuItem;
  23.     N21: TMenuItem;
  24.     N2: TMenuItem;
  25.     N31: TMenuItem;
  26.     N41: TMenuItem;
  27.     N3: TMenuItem;
  28.     Chiudi1: TMenuItem;
  29.     Label6: TLabel;
  30.     Timer3: TTimer;
  31.     ImgRight: TImage;
  32.     ImgLeft: TImage;
  33.     Timer4: TTimer;
  34.     opz: TButton;
  35.     Hide: TButton;
  36.     Stop: TButton;
  37.     Esci: TButton;
  38.     start: TButton;
  39.     procedure Trasparenza1Click(Sender: TObject);
  40.     procedure BcBarPopupMenu1Popup(Sender: TObject);
  41.     procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure CaricaProgrammi;
  44.     procedure Timer1Timer(Sender: TObject);
  45.     procedure FormDestroy(Sender: TObject);
  46.     procedure ListBox1Click(Sender: TObject);
  47.     procedure ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  48.     procedure EsciClick(Sender: TObject);
  49.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  50.     procedure startClick(Sender: TObject);
  51.     procedure opzClick(Sender: TObject);
  52.     procedure Timer2Timer(Sender: TObject);
  53.     procedure infoClick(Sender: TObject);
  54.     procedure StopClick(Sender: TObject);
  55.     procedure OpenClick(Sender: TObject);
  56.     procedure HideClick(Sender: TObject);
  57.     procedure Timer3Timer(Sender: TObject);
  58.     procedure BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
  59.     procedure BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
  60.     procedure BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
  61.     procedure FormHide(Sender: TObject);
  62.     procedure ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
  63.     procedure Timer4Timer(Sender: TObject);
  64.   private
  65.     { Private declarations }
  66.   public
  67.     { Public declarations }
  68.   end;
  69.  
  70. var
  71.   Form1: TForm1;
  72.  
  73. implementation
  74.  
  75. {$R *.DFM}
  76.  
  77. procedure TForm1.Trasparenza1Click(Sender: TObject);
  78. begin
  79. // Address $4CF5DC
  80. end;
  81.  
  82. procedure TForm1.BcBarPopupMenu1Popup(Sender: TObject);
  83. begin
  84. // Address $4D05A4
  85. end;
  86.  
  87. procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
  88. begin
  89. // Address $4CD5B8
  90. end;
  91.  
  92. procedure TForm1.FormCreate(Sender: TObject);
  93. begin
  94. // Address $4CD674
  95. end;
  96.  
  97. procedure TForm1.CaricaProgrammi;
  98. begin
  99. // Address $4CF42C
  100. end;
  101.  
  102. procedure TForm1.Timer1Timer(Sender: TObject);
  103. begin
  104. // Address $4CDF58
  105. end;
  106.  
  107. procedure TForm1.FormDestroy(Sender: TObject);
  108. begin
  109. // Address $4CDCA4
  110. end;
  111.  
  112. procedure TForm1.ListBox1Click(Sender: TObject);
  113. begin
  114. // Address $4CE770
  115. end;
  116.  
  117. procedure TForm1.ImgSfondoMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  118. begin
  119. // Address $4CE8CC
  120. end;
  121.  
  122. procedure TForm1.EsciClick(Sender: TObject);
  123. begin
  124. // Address $4CE8FC
  125. end;
  126.  
  127. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  128. begin
  129. // Address $4CDE8C
  130. end;
  131.  
  132. procedure TForm1.startClick(Sender: TObject);
  133. begin
  134. // Address $4CE904
  135. end;
  136.  
  137. procedure TForm1.opzClick(Sender: TObject);
  138. begin
  139. // Address $4CEB00
  140. end;
  141.  
  142. procedure TForm1.Timer2Timer(Sender: TObject);
  143. begin
  144. // Address $4CEBE4
  145. end;
  146.  
  147. procedure TForm1.StopClick(Sender: TObject);
  148. begin
  149. // Address $4CFA44
  150. end;
  151.  
  152. procedure TForm1.OpenClick(Sender: TObject);
  153. begin
  154. // Address $4D01D4
  155. end;
  156.  
  157. procedure TForm1.HideClick(Sender: TObject);
  158. begin
  159. // Address $4D01FC
  160. end;
  161.  
  162. procedure TForm1.Timer3Timer(Sender: TObject);
  163. begin
  164. // Address $4D0208
  165. end;
  166.  
  167. procedure TForm1.BcCustomDrawModule1DrawMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; ABarVisible: Boolean; var DefaultDraw: Boolean);
  168. begin
  169. // Address $4D027C
  170. end;
  171.  
  172. procedure TForm1.BcCustomDrawModule1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
  173. begin
  174. // Address $4D0504
  175. end;
  176.  
  177. procedure TForm1.BcBarPopupMenu1MeasureMenuItem(Sender: TObject; AMenuItem: TMenuItem; ACanvas: TCanvas; var Width: Integer; var Height: Integer; ABarVisible: Boolean; var DefaultMeasure: Boolean);
  178. begin
  179. // Address $4D054C
  180. end;
  181.  
  182. procedure TForm1.FormHide(Sender: TObject);
  183. begin
  184. // Address $4D05D8
  185. end;
  186.  
  187. procedure TForm1.ApdComPort1TriggerLineError(CP: TObject; Error: Word; LineBreak: Boolean);
  188. begin
  189. // Address $4D05E8
  190. end;
  191.  
  192. procedure TForm1.Timer4Timer(Sender: TObject);
  193. begin
  194. // Address $4D060C
  195. end;
  196.  
  197. end.


4°form
Codice sorgente - presumibilmente Delphi
  1. unit Messaggi;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     Image1: TImage;
  12.     Label3: TLabel;
  13.     ok: TButton;
  14.     annulla: TButton;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  17.     procedure okClick(Sender: TObject);
  18.     procedure annullaClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form2: TForm2;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm2.FormCreate(Sender: TObject);
  33. begin
  34. // Address $4CA4AC
  35. end;
  36.  
  37. procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  38. begin
  39. // Address $4CA584
  40. end;
  41.  
  42. procedure TForm2.okClick(Sender: TObject);
  43. begin
  44. // Address $4CA5B4
  45. end;
  46.  
  47. procedure TForm2.annullaClick(Sender: TObject);
  48. begin
  49. // Address $4CA5C0
  50. end;
  51.  
  52. end.


5° form
Codice sorgente - presumibilmente Delphi
  1. unit Opzioni;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, Spin;
  8. type
  9.   TFSetup = class(TForm)
  10.     Image1: TImage;
  11.     Notebook1: TNotebook;
  12.     Label4: TLabel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     EdServerOut: TEdit;
  16.     EdMailDes: TEdit;
  17.     LbGetTick: TLabel;
  18.     SpinOre: TSpinEdit;
  19.     SpinMinuti: TSpinEdit;
  20.     SpinSecondi: TSpinEdit;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     Label7: TLabel;
  24.     CheckMail: TCheckBox;
  25.     Timer1: TTimer;
  26.     Label8: TLabel;
  27.     SpinTimeCheckMin: TSpinEdit;
  28.     SpinTimeCheckSec: TSpinEdit;
  29.     Label9: TLabel;
  30.     EdMailMit: TEdit;
  31.     PortsComboBox: TComboBox;
  32.     Label11: TLabel;
  33.     Bevel3: TBevel;
  34.     CheckRunWin: TCheckBox;
  35.     CheckAutoStart: TCheckBox;
  36.     CheckResetTime: TCheckBox;
  37.     Timer2: TTimer;
  38.     LabelTick: TLabel;
  39.     EdSubjectSenzaRete: TEdit;
  40.     Label3: TLabel;
  41.     Label12: TLabel;
  42.     Bevel4: TBevel;
  43.     MemoConRete: TMemo;
  44.     CheckDevice: TCheckBox;
  45.     Label10: TLabel;
  46.     EdSubjectConRete: TEdit;
  47.     Label13: TLabel;
  48.     Label14: TLabel;
  49.     Bevel1: TBevel;
  50.     testa: TButton;
  51.     indietro: TButton;
  52.     avanti: TButton;
  53.     ok: TButton;
  54.     annulla: TButton;
  55.     log: TButton;
  56.     MemoSenzaRete: TMemo;
  57.     procedure FormCreate(Sender: TObject);
  58.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  59.     procedure annullaClick(Sender: TObject);
  60.     procedure okClick(Sender: TObject);
  61.     procedure EdMailDesEnter(Sender: TObject);
  62.     procedure EdMailDesExit(Sender: TObject);
  63.     procedure CheckMailClick(Sender: TObject);
  64.     procedure Timer1Timer(Sender: TObject);
  65.     procedure EdMailMitEnter(Sender: TObject);
  66.     procedure EdMailMitExit(Sender: TObject);
  67.     procedure EdServerOutEnter(Sender: TObject);
  68.     procedure EdServerOutExit(Sender: TObject);
  69.     procedure SpinSecondiChange(Sender: TObject);
  70.     procedure SpinTimeCheckSecChange(Sender: TObject);
  71.     procedure testaClick(Sender: TObject);
  72.     procedure LbGetTickClick(Sender: TObject);
  73.     procedure indietroClick(Sender: TObject);
  74.     procedure logClick(Sender: TObject);
  75.   private
  76.     { Private declarations }
  77.   public
  78.     { Public declarations }
  79.   end;
  80.  
  81. var
  82.   FSetup: TFSetup;
  83.  
  84. implementation
  85.  
  86. {$R *.DFM}
  87.  
  88. procedure TFSetup.FormCreate(Sender: TObject);
  89. begin
  90. // Address $4CB318
  91. end;
  92.  
  93. procedure TFSetup.Image1MouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  94. begin
  95. // Address $4CB8DC
  96. end;
  97.  
  98. procedure TFSetup.annullaClick(Sender: TObject);
  99. begin
  100. // Address $4CB90C
  101. end;
  102.  
  103. procedure TFSetup.okClick(Sender: TObject);
  104. begin
  105. // Address $4CB918
  106. end;
  107.  
  108. procedure TFSetup.EdMailDesEnter(Sender: TObject);
  109. begin
  110. // Address $4CBE4C
  111. end;
  112.  
  113. procedure TFSetup.EdMailDesExit(Sender: TObject);
  114. begin
  115. // Address $4CBED4
  116. end;
  117.  
  118. procedure TFSetup.CheckMailClick(Sender: TObject);
  119. begin
  120. // Address $4CBF54
  121. end;
  122.  
  123. procedure TFSetup.Timer1Timer(Sender: TObject);
  124. begin
  125. // Address $4CC02C
  126. end;
  127.  
  128. procedure TFSetup.EdMailMitEnter(Sender: TObject);
  129. begin
  130. // Address $4CC36C
  131. end;
  132.  
  133. procedure TFSetup.EdMailMitExit(Sender: TObject);
  134. begin
  135. // Address $4CC3F0
  136. end;
  137.  
  138. procedure TFSetup.EdServerOutEnter(Sender: TObject);
  139. begin
  140. // Address $4CC46C
  141. end;
  142.  
  143. procedure TFSetup.EdServerOutExit(Sender: TObject);
  144. begin
  145. // Address $4CC4EC
  146. end;
  147.  
  148. procedure TFSetup.SpinSecondiChange(Sender: TObject);
  149. begin
  150. // Address $4CC564
  151. end;
  152.  
  153. procedure TFSetup.SpinTimeCheckSecChange(Sender: TObject);
  154. begin
  155. // Address $4CC568
  156. end;
  157.  
  158. procedure TFSetup.testaClick(Sender: TObject);
  159. begin
  160. // Address $4CC56C
  161. end;
  162.  
  163. procedure TFSetup.LbGetTickClick(Sender: TObject);
  164. begin
  165. // Address $4CC70C
  166. end;
  167.  
  168. procedure TFSetup.indietroClick(Sender: TObject);
  169. begin
  170. // Address $4CC8F0
  171. end;
  172.  
  173. procedure TFSetup.logClick(Sender: TObject);
  174. begin
  175. // Address $4CC974
  176. end;
  177.  
  178. end.

Ultima modifica effettuata da il 10/08/2008 alle 17:44
PM Quote