Skip to content

Commit 4d00d8b

Browse files
pscbotpscbot
committed
Initial commit
0 parents  commit 4d00d8b

File tree

9 files changed

+689
-0
lines changed

9 files changed

+689
-0
lines changed

‎.gitattributes‎

Lines changed: 86 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
# VB6 source files (show diff + keep CRLF in zip download)
2+
3+
*.bas working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
4+
*.cls working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
5+
*.ctl working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
6+
*.dob working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
7+
*.dsr working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
8+
*.frm working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
9+
*.pag working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
10+
*.vbg working-tree-encoding=CP1252 text eol=crlf
11+
*.vbl working-tree-encoding=CP1252 text eol=crlf
12+
*.vbp working-tree-encoding=CP1252 text eol=crlf
13+
*.vbr working-tree-encoding=CP1252 text eol=crlf
14+
*.vbw working-tree-encoding=CP1252 text eol=crlf
15+
16+
# Other source files (show diff + LF only in zip download)
17+
18+
*.asm text
19+
*.asp text
20+
*.bat text
21+
*.c text
22+
*.cpp text
23+
*.dsp text
24+
*.dsw text
25+
*.h text
26+
*.idl text
27+
*.java text
28+
*.js text
29+
*.manifest text
30+
*.odl text
31+
*.php text
32+
*.php3 text
33+
*.rc text
34+
*.sln text
35+
*.sql text
36+
*.vb text
37+
*.vbs text
38+
39+
# Binary
40+
41+
*.res binary
42+
*.frx binary
43+
*.ctx binary
44+
*.dsx binary
45+
*.exe binary
46+
*.dll binary
47+
*.ocx binary
48+
*.cmp binary
49+
*.pdb binary
50+
*.tlb binary
51+
*.xls binary
52+
*.doc binary
53+
*.ppt binary
54+
*.xlsx binary
55+
*.docx binary
56+
*.pptx binary
57+
*.chm binary
58+
*.hlp binary
59+
*.jpg binary
60+
*.png binary
61+
*.bmp binary
62+
*.gif binary
63+
*.ico binary
64+
*.zip binary
65+
*.cab binary
66+
*.7z binary
67+
*.gz binary
68+
69+
# Text files but keep as binary (no diff)
70+
71+
# *.cfg text
72+
# *.conf text
73+
# *.csi text
74+
# *.css text
75+
# *.csv text
76+
# *.def text
77+
# *.htm text
78+
# *.html text
79+
# *.inf text
80+
# *.ini text
81+
# *.log text
82+
# *.reg text
83+
# *.rtf text
84+
# *.txt text
85+
# *.url text
86+
# *.xml text

‎.gitignore‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
*.scc
2+
*.dca
3+
*.oca
4+
*.obj
5+
vb*.tmp
6+
@PSC*

‎Demo.frm‎

Lines changed: 103 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,103 @@
1+
VERSION 5.00
2+
Begin VB.Form Form1
3+
Caption = "Demo of FPLv1"
4+
ClientHeight = 2865
5+
ClientLeft = 60
6+
ClientTop = 345
7+
ClientWidth = 5610
8+
LinkTopic = "Form1"
9+
ScaleHeight = 2865
10+
ScaleWidth = 5610
11+
StartUpPosition = 3 'Windows Default
12+
Begin VB.Frame Frame1
13+
Caption = "Instructions"
14+
Height = 2655
15+
Left = 120
16+
TabIndex = 1
17+
Top = 3120
18+
Width = 5295
19+
Begin VB.Label Label1
20+
Caption = "Enter password (Just press Enter if none)"
21+
BeginProperty Font
22+
Name = "MS Sans Serif"
23+
Size = 12
24+
Charset = 0
25+
Weight = 700
26+
Underline = 0 'False
27+
Italic = 0 'False
28+
Strikethrough = 0 'False
29+
EndProperty
30+
Height = 735
31+
Left = 1800
32+
TabIndex = 2
33+
Top = 1800
34+
Width = 3375
35+
End
36+
End
37+
Begin VB.CommandButton cmdExit
38+
Caption = "Exit"
39+
Height = 495
40+
Left = 240
41+
TabIndex = 0
42+
Top = 1080
43+
Width = 1215
44+
End
45+
Begin VB.CommandButton cmdRetry
46+
Caption = "Retry"
47+
Height = 495
48+
Left = 1680
49+
TabIndex = 4
50+
Top = 1080
51+
Width = 1215
52+
End
53+
Begin VB.Label Label2
54+
Caption = "Enter password (Just press Enter if none)"
55+
BeginProperty Font
56+
Name = "MS Sans Serif"
57+
Size = 12
58+
Charset = 0
59+
Weight = 700
60+
Underline = 0 'False
61+
Italic = 0 'False
62+
Strikethrough = 0 'False
63+
EndProperty
64+
Height = 735
65+
Left = 120
66+
TabIndex = 3
67+
Top = 240
68+
Width = 3375
69+
End
70+
End
71+
Attribute VB_Name = "Form1"
72+
Attribute VB_GlobalNameSpace = False
73+
Attribute VB_Creatable = False
74+
Attribute VB_PredeclaredId = True
75+
Attribute VB_Exposed = False
76+
Option Explicit
77+
Dim GotPass As Boolean
78+
79+
Private Sub cmdExit_Click()
80+
End
81+
End Sub
82+
83+
Private Sub cmdRetry_Click()
84+
GotPass = False
85+
Call Form_Activate
86+
cmdExit.SetFocus
87+
End Sub
88+
89+
Private Sub Form_Load()
90+
Frame1.Top = 120
91+
End Sub
92+
93+
Private Sub Form_Activate()
94+
If GotPass Then Exit Sub
95+
GotPass = True
96+
Frame1.Visible = True
97+
FPLv11.Show vbModal
98+
Dim M As String
99+
M = "Password Entered was" + String$(6, " ") + "-->"
100+
Label2.Caption = M + PwdEntry + "<--"
101+
Frame1.Visible = False
102+
End Sub
103+

‎Demo.vbp‎

Lines changed: 32 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,32 @@
1+
Type=Exe
2+
Form=FPLv1.frm
3+
Module=Module1; demo.bas
4+
Form=Demo.frm
5+
IconForm="FPLv11"
6+
Startup="Form1"
7+
HelpFile=""
8+
ExeName32="FPLv1.exe"
9+
Command32=""
10+
Name="FPLv1"
11+
HelpContextID="0"
12+
CompatibleMode="0"
13+
MajorVer=1
14+
MinorVer=0
15+
RevisionVer=0
16+
AutoIncrementVer=0
17+
ServerSupportFiles=0
18+
VersionCompanyName="RCAS"
19+
CompilationType=0
20+
OptimizationType=0
21+
FavorPentiumPro(tm)=0
22+
CodeViewDebugInfo=0
23+
NoAliasing=0
24+
BoundsCheck=0
25+
OverflowCheck=0
26+
FlPointCheck=0
27+
FDIVCheck=0
28+
UnroundedFP=0
29+
StartMode=0
30+
Unattended=0
31+
ThreadPerObject=0
32+
MaxNumberOfThreads=1

0 commit comments

Comments
 (0)