This is going to be an extensive guide into everything I have learnt so far.
Covering all the previous tutorials.
So I may be repeating myself.
But repetition is a great way to keep things in your mind.
Tools
RSS Pro.
Notepad++
(link:://notepad-plus-plus.org/sites/all/images/nppLogo.png)
link:://notepad-plus-plus.org/release/5.7 (link:://notepad-plus-plus.org/release/5.7)
Delphi 7 or 10 (Optional)
I use notepad++ for all my coding.
It is so easy to use.
And great for copy and pasting.
I have also added a picture of what the final bot will look like.
So I hope some of the members get to join in.
And learn something along the way.
Once this is done.
I will be delving into some really good code.
So stick around.
[attachimg=#]
[attachimg=#]
Part 1: The form.
The evolution of invention.
From thought.
To form.
To function.
Not the form again...
-------------------------
In this lesson...
I wana show you how to open up a new form.
So lets get cracking.
Here it is in pictures.
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/01.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/02.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/03.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/01a.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/04.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/05.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/06.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/07.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/08.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/09.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/10.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/11.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/12.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/13.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/14.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/15.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/16.jpg)
(link:://rouletteprofesor.com/rss-pro/my_bot_v4/images/17.jpg)
Unit 1 code.
uses
Classes, Graphics, Controls, Forms, Dialogs, Unit2, Unit3;
var
MainForm: TForm2;
begin
MainForm := TForm2.Create(Application);
MainForm.Show;
end;
Unit 2 code.
{$FORM TForm2, Unit2.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
procedure Button1Click(Sender: TObject);
var
MainForm3: TForm3;
begin
MainForm3 := TForm3.Create(Application);
MainForm3.Show;
end;
begin
end;
That was so easy...
Well, that was lesson 1.
You have no idea how hard it was trying to figure this stuff out.
When you have no support.
No tutorials.
I had to find all this sort of stuff on my own.
Much of what I tried, did not work.
But I am very persistent.
All my question. I find answers to in google.
And youtube.
Wow Thomas, just downloaded Notepad++
Great tool! (And it has BASIC support) :thumbsup:
Quote from: VLS on Aug 04, 08:05 AM 2010
Wow Thomas, just downloaded Notepad++
Great tool! (And it has BASIC support) :thumbsup:
It does?
Can't find it in the language menu.
Notepad++ is very good.
Best tool I have found.
For writing anything.
Fast.
Easy.
And it is FREE... :thumbsup:
Here is a video of my bot in Action.
And what I have managed to do so far.
link:://:.thomasrgrant.com/stuff/bt4/bt4_controller.swf
Thats odd.
Now it is just a green screen.
Hmmm..
Right Click and save target as.
link:://:.thomasrgrant.com/stuff/bt4/bt4.mp4 (link:://:.thomasrgrant.com/stuff/bt4/bt4.mp4)
The Design.
Ok, Now onto the design of the bot.
So, we have these items.
3 units.
2 forms.
1 menu
OpenDialog
and
SaveDialog on form 2
SaveDialog on form 3
Buttons
TLables
Bevel edges
TCheckBoxes
4 memos on form 2
1 memo on form 3
Tedits
And a partridge in a pear tree...
(I have included the zip file)
Here is the code for it all.
Or the code for what I uploaded.
Project1.ssproj
[Files]
File1=Unit1.psc
Language1=0
File2=Unit2.psc
Language2=0
File3=Unit3.psc
Language3=0
FileCount=3
MainUnit=Unit1
Unit1.psc
uses
Classes, Graphics, Controls, Forms, Dialogs, Unit2, Unit3;
var
MainForm: TForm2;
begin
MainForm := TForm2.Create(Application);
MainForm.Show;
end;
Unit2.psc
{$FORM TForm2, Unit2.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
StdCtrls, Menus;
procedure Form2Activate(Sender: TObject);
begin
end;
procedure Form2Close(Sender: TObject; var Action: TCloseAction);
begin
end;
procedure Button_ExitClick(Sender: TObject);
begin
Close();
end;
procedure MainMenu1_OutPutWinClick(Sender: TObject);
begin
MainForm3 := TForm3.Create(Application);
MainForm3.Show;
end;
begin
end;
Unit2.sfm
object Form2: TScriptForm
Left = 5
Top = 5
BorderStyle = bsSingle
Caption = 'Toms Bot: V4'
ClientHeight = 519
ClientWidth = 534
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Menu = MainMenu1
OldCreateOrder = False
Position = poDesigned
SaveProps.Strings = (
'Visible=False'
'AutoSize=False'
'BorderStyle=bsSingle')
SaveEvents.Strings = (
'Self.OnActivate=Form2Activate'
'Self.OnClose=Form2Close'
'Button_Exit.OnClick=Button_ExitClick'
'MainMenu1_OutPutWin.OnClick=MainMenu1_OutPutWinClick')
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 0
Width = 521
Height = 513
end
object Bevel2: TBevel
Left = 80
Top = 8
Width = 97
Height = 25
end
object Bevel3: TBevel
Left = 80
Top = 40
Width = 97
Height = 97
end
object Bevel4: TBevel
Left = 80
Top = 144
Width = 97
Height = 97
end
object Bevel5: TBevel
Left = 80
Top = 248
Width = 97
Height = 97
end
object Bevel6: TBevel
Left = 184
Top = 8
Width = 145
Height = 73
end
object Bevel7: TBevel
Left = 184
Top = 88
Width = 145
Height = 193
end
object Bevel8: TBevel
Left = 184
Top = 288
Width = 145
Height = 57
end
object Bevel9: TBevel
Left = 336
Top = 8
Width = 177
Height = 337
end
object Bevel10: TBevel
Left = 80
Top = 352
Width = 249
Height = 41
Style = bsRaised
end
object Bevel11: TBevel
Left = 336
Top = 352
Width = 177
Height = 41
end
object Bevel12: TBevel
Left = 8
Top = 8
Width = 65
Height = 337
end
object LabelSpins: TLabel
Left = 264
Top = 16
Width = 33
Height = 14
Caption = 'Spins'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object LabelChip: TLabel
Left = 264
Top = 48
Width = 56
Height = 14
Caption = 'Chip Unit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object LabelBalance: TLabel
Left = 88
Top = 352
Width = 46
Height = 14
Caption = 'Balance'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object LabelProfit: TLabel
Left = 168
Top = 352
Width = 35
Height = 14
Caption = 'Profit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object LabeStopLoss: TLabel
Left = 248
Top = 352
Width = 61
Height = 14
Caption = 'Stop Loss'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Test1: TButton
Left = 256
Top = 488
Width = 97
Height = 25
Caption = 'Test'
TabOrder = 0
end
object Test2: TButton
Left = 360
Top = 488
Width = 81
Height = 25
Caption = 'Test2'
TabOrder = 1
end
object Button_Exit: TButton
Left = 448
Top = 488
Width = 73
Height = 25
Caption = 'Exit'
TabOrder = 2
end
object Button_Auto: TButton
Left = 424
Top = 352
Width = 89
Height = 41
Caption = 'Auto'
TabOrder = 3
end
object Button_Manual: TButton
Left = 336
Top = 352
Width = 81
Height = 41
Caption = 'Manual'
TabOrder = 4
end
object Button_UnDo: TButton
Left = 8
Top = 400
Width = 65
Height = 33
Caption = 'UnDo'
TabOrder = 5
end
object Button_Stop: TButton
Left = 273
Top = 288
Width = 56
Height = 57
Caption = 'Stop'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object Button_Start: TButton
Left = 184
Top = 312
Width = 89
Height = 33
Caption = 'Start to Bet'
TabOrder = 7
end
object Button_Collect: TButton
Left = 185
Top = 288
Width = 88
Height = 25
Caption = 'Collect Data'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object Button_ModEC: TButton
Left = 184
Top = 112
Width = 41
Height = 17
Caption = 'Mod'
TabOrder = 9
end
object Button_ModDC: TButton
Left = 336
Top = 32
Width = 57
Height = 17
Caption = 'Mod DC'
TabOrder = 10
end
object Button0: TButton
Left = 80
Top = 8
Width = 97
Height = 25
Caption = '0'
TabOrder = 11
end
object Button1: TButton
Left = 80
Top = 40
Width = 33
Height = 25
Caption = '1'
TabOrder = 12
end
object Button2: TButton
Left = 112
Top = 40
Width = 33
Height = 25
Caption = '2'
TabOrder = 13
end
object Button3: TButton
Left = 144
Top = 40
Width = 33
Height = 25
Caption = '3'
TabOrder = 14
end
object Button4: TButton
Left = 80
Top = 64
Width = 33
Height = 25
Caption = '4'
TabOrder = 15
end
object Button5: TButton
Left = 112
Top = 64
Width = 33
Height = 25
Caption = '5'
TabOrder = 16
end
object Button6: TButton
Left = 144
Top = 64
Width = 33
Height = 25
Caption = '6'
TabOrder = 17
end
object Button7: TButton
Left = 80
Top = 88
Width = 33
Height = 25
Caption = '7'
TabOrder = 18
end
object Button8: TButton
Left = 112
Top = 88
Width = 33
Height = 25
Caption = '8'
TabOrder = 19
end
object Button9: TButton
Left = 144
Top = 88
Width = 33
Height = 25
Caption = '9'
TabOrder = 20
end
object Button10: TButton
Left = 80
Top = 112
Width = 33
Height = 25
Caption = '10'
TabOrder = 21
end
object Button11: TButton
Left = 112
Top = 112
Width = 33
Height = 25
Caption = '11'
TabOrder = 22
end
object Button12: TButton
Left = 144
Top = 112
Width = 33
Height = 25
Caption = '12'
TabOrder = 23
end
object Button13: TButton
Left = 80
Top = 144
Width = 33
Height = 25
Caption = '13'
TabOrder = 24
end
object Button14: TButton
Left = 112
Top = 144
Width = 33
Height = 25
Caption = '14'
TabOrder = 25
end
object Button15: TButton
Left = 144
Top = 144
Width = 33
Height = 25
Caption = '15'
TabOrder = 26
end
object Button16: TButton
Left = 80
Top = 168
Width = 33
Height = 25
Caption = '16'
TabOrder = 27
end
object Button17: TButton
Left = 112
Top = 168
Width = 33
Height = 25
Caption = '17'
TabOrder = 28
end
object Button18: TButton
Left = 144
Top = 168
Width = 33
Height = 25
Caption = '18'
TabOrder = 29
end
object Button19: TButton
Left = 80
Top = 192
Width = 33
Height = 25
Caption = '19'
TabOrder = 30
end
object Button20: TButton
Left = 112
Top = 192
Width = 33
Height = 25
Caption = '20'
TabOrder = 31
end
object Button21: TButton
Left = 144
Top = 192
Width = 33
Height = 25
Caption = '21'
TabOrder = 32
end
object Button22: TButton
Left = 80
Top = 216
Width = 33
Height = 25
Caption = '22'
TabOrder = 33
end
object Button23: TButton
Left = 112
Top = 216
Width = 33
Height = 25
Caption = '23'
TabOrder = 34
end
object Button24: TButton
Left = 144
Top = 216
Width = 33
Height = 25
Caption = '24'
TabOrder = 35
end
object Button25: TButton
Left = 80
Top = 248
Width = 33
Height = 25
Caption = '25'
TabOrder = 36
end
object Button26: TButton
Left = 112
Top = 248
Width = 33
Height = 25
Caption = '26'
TabOrder = 37
end
object Button27: TButton
Left = 144
Top = 248
Width = 33
Height = 25
Caption = '27'
TabOrder = 38
end
object Button28: TButton
Left = 80
Top = 272
Width = 33
Height = 25
Caption = '28'
TabOrder = 39
end
object Button29: TButton
Left = 112
Top = 272
Width = 33
Height = 25
Caption = '29'
TabOrder = 40
end
object Button30: TButton
Left = 144
Top = 272
Width = 33
Height = 25
Caption = '30'
TabOrder = 41
end
object Button31: TButton
Left = 80
Top = 296
Width = 33
Height = 25
Caption = '31'
TabOrder = 42
end
object Button32: TButton
Left = 112
Top = 296
Width = 33
Height = 25
Caption = '32'
TabOrder = 43
end
object Button33: TButton
Left = 144
Top = 296
Width = 33
Height = 25
Caption = '33'
TabOrder = 44
end
object Button34: TButton
Left = 80
Top = 320
Width = 33
Height = 25
Caption = '34'
TabOrder = 45
end
object Button35: TButton
Left = 112
Top = 320
Width = 33
Height = 25
Caption = '35'
TabOrder = 46
end
object Button36: TButton
Left = 144
Top = 320
Width = 33
Height = 25
Caption = '36'
TabOrder = 47
end
object CheckBoxRed: TCheckBox
Left = 184
Top = 128
Width = 41
Height = 25
Caption = 'Red'
TabOrder = 48
end
object CheckBoxBlack: TCheckBox
Left = 184
Top = 152
Width = 49
Height = 25
Caption = 'Black'
TabOrder = 49
end
object CheckBoxLow: TCheckBox
Left = 184
Top = 176
Width = 41
Height = 25
Caption = 'Low'
TabOrder = 50
end
object CheckBoxHigh: TCheckBox
Left = 184
Top = 200
Width = 41
Height = 25
Caption = 'High'
TabOrder = 51
end
object CheckBoxOdd: TCheckBox
Left = 184
Top = 224
Width = 41
Height = 25
Caption = 'Odd'
TabOrder = 52
end
object CheckBoxEven: TCheckBox
Left = 184
Top = 248
Width = 49
Height = 25
Caption = 'Even'
TabOrder = 53
end
object CheckBoxDL: TCheckBox
Left = 336
Top = 48
Width = 65
Height = 25
Caption = 'Doz Low'
TabOrder = 54
end
object CheckBoxDM: TCheckBox
Left = 336
Top = 72
Width = 65
Height = 25
Caption = 'Doz Med'
TabOrder = 55
end
object CheckBoxDH: TCheckBox
Left = 336
Top = 96
Width = 65
Height = 25
Caption = 'Doz High'
TabOrder = 56
end
object CheckBoxDLM: TCheckBox
Left = 336
Top = 120
Width = 73
Height = 25
Caption = 'Doz L+M'
TabOrder = 57
end
object CheckBoxDLH: TCheckBox
Left = 336
Top = 144
Width = 73
Height = 25
Caption = 'Doz L+H'
TabOrder = 58
end
object CheckBoxDMH: TCheckBox
Left = 336
Top = 168
Width = 73
Height = 25
Caption = 'Doz M+H'
TabOrder = 59
end
object CheckBoxC1: TCheckBox
Left = 336
Top = 192
Width = 65
Height = 25
Caption = 'Col 1'
TabOrder = 60
end
object CheckBoxC2: TCheckBox
Left = 336
Top = 216
Width = 65
Height = 25
Caption = 'Col 2'
TabOrder = 61
end
object CheckBoxC3: TCheckBox
Left = 336
Top = 240
Width = 65
Height = 25
Caption = 'Col 3'
TabOrder = 62
end
object CheckBoxC12: TCheckBox
Left = 336
Top = 264
Width = 65
Height = 25
Caption = 'Col 1+2'
TabOrder = 63
end
object CheckBoxC13: TCheckBox
Left = 336
Top = 288
Width = 65
Height = 25
Caption = 'Col 1+3'
TabOrder = 64
end
object CheckBoxC23: TCheckBox
Left = 336
Top = 312
Width = 65
Height = 25
Caption = 'Col 2+3'
TabOrder = 65
end
object EditRedMax: TEdit
Left = 232
Top = 129
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 66
Text = '3'
end
object EditBlackMax: TEdit
Left = 232
Top = 153
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 67
Text = '3'
end
object EditLowMax: TEdit
Left = 232
Top = 177
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 68
Text = '3'
end
object EditHighMax: TEdit
Left = 232
Top = 201
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 69
Text = '3'
end
object EditOddMax: TEdit
Left = 232
Top = 225
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 70
Text = '3'
end
object EditEvenMax: TEdit
Left = 232
Top = 249
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 71
Text = '3'
end
object EditDLM: TEdit
Left = 408
Top = 49
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 72
Text = '3'
end
object EditDMM: TEdit
Left = 408
Top = 73
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 73
Text = '3'
end
object EditDHM: TEdit
Left = 408
Top = 97
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 74
Text = '3'
end
object EditDLMM: TEdit
Left = 408
Top = 121
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 75
Text = '3'
end
object EditDLHM: TEdit
Left = 408
Top = 145
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 76
Text = '3'
end
object EditDMHM: TEdit
Left = 408
Top = 169
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 77
Text = '3'
end
object EditC1M: TEdit
Left = 408
Top = 193
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 78
Text = '3'
end
object EditC2M: TEdit
Left = 408
Top = 217
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 79
Text = '3'
end
object EditC3M: TEdit
Left = 408
Top = 241
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 80
Text = '3'
end
object EditC12M: TEdit
Left = 408
Top = 265
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 81
Text = '3'
end
object EditC13M: TEdit
Left = 408
Top = 289
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 82
Text = '3'
end
object Edit23M: TEdit
Left = 408
Top = 313
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 83
Text = '3'
end
object EditRedUnit: TEdit
Left = 281
Top = 129
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 84
Text = '7'
end
object EditBlackUnit: TEdit
Left = 281
Top = 153
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 85
Text = '1'
end
object EditLowUnit: TEdit
Left = 281
Top = 177
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 86
Text = '1'
end
object EditHighUnit: TEdit
Left = 281
Top = 201
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 87
Text = '1'
end
object EditOddUnit: TEdit
Left = 281
Top = 225
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 88
Text = '1'
end
object EditEvenUnit: TEdit
Left = 281
Top = 249
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 89
Text = '1'
end
object EditDLU: TEdit
Left = 465
Top = 49
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 90
Text = '1'
end
object EditDMU: TEdit
Left = 465
Top = 73
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 91
Text = '1'
end
object EditDHU: TEdit
Left = 465
Top = 97
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 92
Text = '1'
end
object EditDLMU: TEdit
Left = 465
Top = 121
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 93
Text = '1'
end
object EditDLHU: TEdit
Left = 465
Top = 145
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 94
Text = '1'
end
object EditDMHU: TEdit
Left = 465
Top = 169
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 95
Text = '1'
end
object EditC1U: TEdit
Left = 465
Top = 193
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 96
Text = '1'
end
object EditC2U: TEdit
Left = 465
Top = 217
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 97
Text = '1'
end
object EditC3U: TEdit
Left = 465
Top = 241
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 98
Text = '1'
end
object EditC12U: TEdit
Left = 465
Top = 265
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 99
Text = '1'
end
object EditC13U: TEdit
Left = 465
Top = 289
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 100
Text = '1'
end
object EditC23U: TEdit
Left = 465
Top = 313
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 101
Text = '1'
end
object MemoBN: TMemo
Left = 16
Top = 16
Width = 17
Height = 321
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 102
end
object Memo0N: TMemo
Left = 32
Top = 16
Width = 17
Height = 321
Alignment = taCenter
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 103
end
object MemoRN: TMemo
Left = 48
Top = 16
Width = 17
Height = 321
Alignment = taRightJustify
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 104
end
object MemoResults: TMemo
Left = 80
Top = 400
Width = 433
Height = 81
BevelKind = bkTile
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 105
end
object EditSpins: TEdit
Left = 193
Top = 17
Width = 64
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 106
Text = '20'
end
object EditChip: TEdit
Left = 193
Top = 49
Width = 64
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 107
Text = '1'
end
object PanelEC: TPanel
Left = 184
Top = 88
Width = 145
Height = 17
Caption = 'Even Chances'
TabOrder = 108
object PanelDC: TPanel
Left = 336
Top = 8
Width = 177
Height = 17
Caption = 'Dozens - Columns'
TabOrder = 0
end
end
object Panel2: TPanel
Left = 336
Top = 8
Width = 177
Height = 17
Caption = 'Dozens - Columns'
TabOrder = 109
end
object PanelSpins: TPanel
Left = 8
Top = 352
Width = 65
Height = 17
Caption = 'Spins'
TabOrder = 110
end
object PanelSpinsShow: TPanel
Left = 8
Top = 368
Width = 65
Height = 25
TabOrder = 111
end
object EditBalance: TEdit
Left = 88
Top = 369
Width = 73
Height = 21
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 112
Text = '500'
end
object EditProfit: TEdit
Left = 168
Top = 369
Width = 73
Height = 21
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 113
Text = '10'
end
object EditStopLoss: TEdit
Left = 248
Top = 369
Width = 73
Height = 21
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 114
Text = '200'
end
object EditTest1: TEdit
Left = 16
Top = 489
Width = 233
Height = 21
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 115
Text = 'c:\rss-data\setnew'
end
object PanelECMax: TPanel
Left = 232
Top = 112
Width = 41
Height = 17
Caption = 'Max'
TabOrder = 116
end
object PanelECU: TPanel
Left = 280
Top = 112
Width = 41
Height = 17
Caption = 'Unit'
TabOrder = 117
end
object PanelDCM: TPanel
Left = 408
Top = 32
Width = 41
Height = 17
Caption = 'Max'
TabOrder = 118
end
object PanelDCU: TPanel
Left = 464
Top = 32
Width = 41
Height = 17
Caption = 'Unit'
TabOrder = 119
object PanelResults: TPanel
Left = 8
Top = 440
Width = 65
Height = 41
Caption = 'Results'
TabOrder = 0
end
end
object Panel3: TPanel
Left = 8
Top = 440
Width = 65
Height = 41
Caption = 'Results'
TabOrder = 120
end
object SaveDialog1: TSaveDialog
Left = 504
end
object OpenDialog1: TOpenDialog
Left = 472
end
object MainMenu1: TMainMenu
object MainMenu1_Files: TMenuItem
Caption = '&Files...'
object MainMenu1_Load: TMenuItem
Caption = 'Load Settings...'
end
object MainMenu1_Save: TMenuItem
Caption = 'Save Settings...'
end
object MainMenu1_SaveRes: TMenuItem
Caption = 'Save Results...'
end
end
object MainMenu1_Casinos: TMenuItem
Caption = '&Casino List...'
object MainMenu1_EuroGrand: TMenuItem
Caption = 'EuroGrand'
end
object MainMenu1_Bet365: TMenuItem
Caption = 'Bet365'
end
object MainMenu1_Tropez: TMenuItem
Caption = 'Casino Tropez'
end
object MainMenu1_Mapau: TMenuItem
Caption = 'Mapau'
end
object MainMenu1_21Nova: TMenuItem
Caption = '21Nova Casino'
end
object MainMenu1_William: TMenuItem
Caption = 'William Hill'
end
end
object MainMenu1_ChipUnits: TMenuItem
Caption = 'C&hip Units...'
object MainMenu1_10c: TMenuItem
Caption = '1. = 0.10, 0.50, 1, 5, 10, 25, 100'
end
object MainMenu1_1D: TMenuItem
Caption = '2. = 1, 5, 10, 25, 100, 500, 1000'
end
object MainMenu1_25c: TMenuItem
Caption = '3. = 0.25, 1, 5, 10, 25, 100, 500'
end
object MainMenu1_1c: TMenuItem
Caption = '4. = 0.01, 0.10, 1, 5, 10, 25, 100'
end
object MainMenu1_05: TMenuItem
Caption = '5. = 0.50, 1, 5, 10, 25, 100, 500'
end
object MainMenu1_Custom: TMenuItem
Caption = 'Custom'
object MainMenu1_Chip1: TMenuItem
Caption = 'Chip1'
end
object MainMenu1_Chip2: TMenuItem
Caption = 'Chip2'
end
object MainMenu1_Chip3: TMenuItem
Caption = 'Chip3'
end
object MainMenu1_Chip4: TMenuItem
Caption = 'Chip4'
end
object MainMenu1_Chip5: TMenuItem
Caption = 'Chip5'
end
object MainMenu1_Chip6: TMenuItem
Caption = 'Chip6'
end
object MainMenu1_Chip7: TMenuItem
Caption = 'Chip7'
end
end
end
object MainMenu1_Undo: TMenuItem
Caption = '&Undo...'
object MainMenu1_UndoLast: TMenuItem
Caption = 'Undo Last...'
end
end
object MainMenu1_Options: TMenuItem
Caption = '&Options...'
object MainMenu1_Man: TMenuItem
Caption = 'Manual Mode...'
end
object MainMenu1_CasMode: TMenuItem
Caption = 'Casino Mode..'
end
end
object MainMenu1_Results: TMenuItem
Caption = '&Results...'
object MainMenu1_OutPutWin: TMenuItem
Caption = 'Show Output...'
end
end
object MainMenu1_Currency: TMenuItem
Caption = 'Curr&ency...'
object MainMenu1_Dollar: TMenuItem
Caption = '$ Dollars'
end
object MainMenu1_Euro: TMenuItem
Caption = #8364' Euro'
end
object MainMenu1_Pound: TMenuItem
Caption = #163' Pound'
end
end
object MainMenu1_About: TMenuItem
Caption = '&About...'
object MainMenu1_AboutV4: TMenuItem
Caption = 'About Toms Bot: V4'
end
end
end
end
Unit3.psc
{$FORM TForm3, Unit3.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
StdCtrls;
var F : Text;
S : String;
var i;
procedure close_me;
begin
if Self.Top<0 then Self.Top:=0;
if Self.Left<0 then Self.Left:=0;
AssignFile(F,'c:\rss-data\reswinpos');
Rewrite(F);
Writeln(F,Self.Top);
Writeln(F,Self.Left);
CloseFile(F);
end;
procedure load_winpos;
begin
AssignFile(F,'c:\rss-data\reswinpos');{If no file exist. Then you will get an error message}
Reset(F);{open the file for reading}
i := 0;
while not eof(F) do {loop that will repeat until the end of file will be not found}
begin
S:=ReadLn(F); {read the first line into "s" variable}
if i=0 then Self.Top:=s;
if i=1 then Self.Left:=s;
i := i+1;
end;
CloseFile(F);//close the file
end;
procedure Form3Activate(Sender: TObject);
begin
load_winpos;
end;
procedure Form3Close(Sender: TObject; var Action: TCloseAction);
begin
close();
end;
procedure Button_SaveClick(Sender: TObject);
begin
end;
procedure Button_ExitClick(Sender: TObject);
begin
end;
begin
end;
Unit3.sfm
object Form3: TScriptForm
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Toms Bot: V4 - Results'
ClientHeight = 401
ClientWidth = 570
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
OldCreateOrder = False
Position = poDesigned
SaveProps.Strings = (
'Visible=False'
'AutoSize=True'
'BorderStyle=bsSingle')
SaveEvents.Strings = (
'Self.OnActivate=Form3Activate'
'Self.OnClose=Form3Close'
'Button_Save.OnClick=Button_SaveClick'
'Button_Exit.OnClick=Button_ExitClick')
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 553
Height = 385
end
object Bevel2: TBevel
Left = 8
Top = 8
Width = 545
Height = 337
end
object MemoResAll: TMemo
Left = 16
Top = 16
Width = 529
Height = 321
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
object Button_Save: TButton
Left = 8
Top = 352
Width = 433
Height = 33
Caption = 'Save Output to file...'
TabOrder = 1
end
object Button_Exit: TButton
Left = 448
Top = 352
Width = 105
Height = 33
Caption = 'Exit'
TabOrder = 0
end
object SaveDialog1: TSaveDialog
Left = 536
Top = 8
end
end
Well, that's the design part.
Fairly straight forward.
Just read the previous tutorials if you get stuck.
Onto the meat and potatoes.
The Code.
Before I get onto the code.
Here is the bot with all the key procedures for all objects.
Now, the procedure may not do anything.
But you got to em.
In order for that part of the bot to work.
For instance.
The "Stop" button.
[attachimg=4]
procedure Button_StopClick(Sender: TObject);
begin
end;
Pressing wont do anything.
So we are going to add something to it.
In order to get it to do something.
We have all the ingredients.
We just need the filling.