BDSM Roulette
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
... re-read all this...
so many typos, so little time!
but...
OK, guys, my new verson has been out for 3 days and there has been 87 downloads...
Only here and 1 other site know about it...
So, drop me a line... like it, don't like it, it need______________....
And the new tasks got 7 downloads.... but there was little change from what was before...)
So far, I have heard back from:
1 person that had problems, I guess he did not get the 'Tasks' downloaded, fixed I think
and 1 that created his own Dressor version...
Well, there was quite abit during the creation...
so many typos, so little time!
but...
OK, guys, my new verson has been out for 3 days and there has been 87 downloads...
Only here and 1 other site know about it...
So, drop me a line... like it, don't like it, it need______________....
And the new tasks got 7 downloads.... but there was little change from what was before...)
So far, I have heard back from:
1 person that had problems, I guess he did not get the 'Tasks' downloaded, fixed I think
and 1 that created his own Dressor version...
Well, there was quite abit during the creation...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
-
- *
- Posts: 17
- Joined: 11 Sep 2013, 03:18
Re: BDSM Roulette
Runtime Error 53: File not found
I am absolutely clueless what causes this, it happens just after choosing the picture folders.
I am absolutely clueless what causes this, it happens just after choosing the picture folders.
-
- *
- Posts: 24
- Joined: 18 Apr 2011, 14:12
Re: BDSM Roulette
LittleElfBoy wrote:Runtime Error 53: File not found
I am absolutely clueless what causes this, it happens just after choosing the picture folders.
same here :'(
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
Did you JUST download the program, or have you downloaded the tasks as well...
It is a 2 part program and the tasks is the meat of the program...
If you do have the tasks, then something else is going on that I need to check on...
It is a 2 part program and the tasks is the meat of the program...
If you do have the tasks, then something else is going on that I need to check on...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
-
- *
- Posts: 3
- Joined: 18 Sep 2013, 20:18
Re: BDSM Roulette
Nice work - I can already see a great many uses for this application.
My only gripe is that I can't resize the window to get it to fit comfortably on my lappie screen. No big deal - it still works!
Parts of it remind me of Tau's old PCMistress program that I used to program scripts for a few years back. That had some great functions that you may give you ideas...
It might also help with the Dice game or Bindme options as these currently do not allow for bondage in stages (ankles -> knees -> thighs-> etc.). You might get the same variable twice or get impossible combinations (or ones I can't achieve in my current predicament... ) , which could ruin the flow. If you had a logic where choosing x forbids the choice of y or requires the choice of z, you might be able to get around this.
I suspect this might make the program less user friendly/accessible however, which is one of its key strengths.
Keep up the great job!
My only gripe is that I can't resize the window to get it to fit comfortably on my lappie screen. No big deal - it still works!
Parts of it remind me of Tau's old PCMistress program that I used to program scripts for a few years back. That had some great functions that you may give you ideas...
It might also help with the Dice game or Bindme options as these currently do not allow for bondage in stages (ankles -> knees -> thighs-> etc.). You might get the same variable twice or get impossible combinations (or ones I can't achieve in my current predicament... ) , which could ruin the flow. If you had a logic where choosing x forbids the choice of y or requires the choice of z, you might be able to get around this.
I suspect this might make the program less user friendly/accessible however, which is one of its key strengths.
Keep up the great job!
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
Thanks, feedback, good or bad, always helps...
What size is you lappie screen?
I could re-scale the task window if the monitor display is smaller than the task window...
The scenarios just roll a sequence if 'dice' to select one item from each list...
To incorporate AI would be just a little advanced...
Setting-up the file sequence would be easer...
I had/ have, an idea for a sequenced staged bondage scenario where...
Step 1: strip...
[press next]
step 2: place chair in front of window...
collect rope, clothes pins, vibrator, gag, blindfold...
...
But you don't see the entire scenario but only stages...
It could follow like a PCMistress script...
... so, with your smaller screen, you may not be able to see the timmer and dice buttons...
What size is you lappie screen?
I could re-scale the task window if the monitor display is smaller than the task window...
The scenarios just roll a sequence if 'dice' to select one item from each list...
To incorporate AI would be just a little advanced...
Setting-up the file sequence would be easer...
I had/ have, an idea for a sequenced staged bondage scenario where...
Step 1: strip...
[press next]
step 2: place chair in front of window...
collect rope, clothes pins, vibrator, gag, blindfold...
...
But you don't see the entire scenario but only stages...
It could follow like a PCMistress script...
... so, with your smaller screen, you may not be able to see the timmer and dice buttons...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
-
- *
- Posts: 3
- Joined: 18 Sep 2013, 20:18
Re: BDSM Roulette
You got it - makes it difficult to proceed with the 'tasks'. I can just see the top of the 'start' button, so it's not a major problem because I can still use the program... so, with your smaller screen, you may not be able to see the timmer and dice buttons...
In reference to the scenario scripting - I would probably make use of it if it were there, but I wouldn't want to overcomplicate things.
To get the desired result for my needs with the current build I've gone at it in two ways:-
One is to add lines to the Bindme file list for the various items and add a separate text file for each. One for legs, wrists, toys, etc. Good for a quick/basic session.
The other is to create jpegs of 'playing cards' with the different body parts and materials on them (wrists/cuffs, ankles/ropes, etc.) and use different directories to store them which are defined in the 'Pictures' file. You choose a task, which gives the scenario and then 'draw' a hand of cards to decide the stuff you will use by clicking the buttons. I've used six for materials, one for location and the rest for toys. Works very well for most of my needs!
Like I said before - great job. Really good program.
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
The new version, but only for the newbies...
http://www.mediafire.com/download/czthe ... e+V2_1.exe
This one has the protection of tasks and scenarios not found...
If there is no scenario, it will create the "Penalities" one...
Well, that will give you a starting sample...
Oh, also, if you only have the main program, you will need to set-up the 9 picture paths, please set-up all 9
if not to different paths, then atleast all to the same one...
And, the program will crash after setting up the paths, (BUT, only for first time run)
Just re-run it and it will set-up the sample scenario...
(Yea, I know, I could have it do both if there is no pictures and scenarios... I just thought of that... )
I may re-do that for the next ver...
If there are anymore bugs, let me know so I can fix them...
Oh, there is one other thing...
The task window is now sized to fit in 800x600 screen...
http://www.mediafire.com/download/czthe ... e+V2_1.exe
This one has the protection of tasks and scenarios not found...
If there is no scenario, it will create the "Penalities" one...
Well, that will give you a starting sample...
Oh, also, if you only have the main program, you will need to set-up the 9 picture paths, please set-up all 9
if not to different paths, then atleast all to the same one...
And, the program will crash after setting up the paths, (BUT, only for first time run)
Just re-run it and it will set-up the sample scenario...
(Yea, I know, I could have it do both if there is no pictures and scenarios... I just thought of that... )
I may re-do that for the next ver...
If there are anymore bugs, let me know so I can fix them...
Oh, there is one other thing...
The task window is now sized to fit in 800x600 screen...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
OK, skip the last note...
Here is the updated, re-tweeked, and (fingers crossed) de-bug, will not crash due to missing files...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe
Here is the updated, re-tweeked, and (fingers crossed) de-bug, will not crash due to missing files...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
- steelbondage20
- *
- Posts: 18
- Joined: 25 Sep 2013, 21:24
- Location: Oregon
- Contact:
Re: BDSM Roulette
trying this!
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
First time user I take it...steelbondage20 wrote:trying this!
Tell me if (and what) error message you get...
Hopefully, there won't be one...
I hope you get a good a good task...
Just be sure you downloaded the "Tasks" as well...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Re: BDSM Roulette
Hey Dark_Lizard,
I'm finally on a Windows box to test this. Looks like an interesting piece of software, however, I can only get it to detect the Penalties scenario that it generates..
Furthermore, pressing on the 'Task' button, inadvertly crashes the software with a RTE 53 - File not found.
Not sure if I have downloaded the correct tasks package at the moment
I'm finally on a Windows box to test this. Looks like an interesting piece of software, however, I can only get it to detect the Penalties scenario that it generates..
Furthermore, pressing on the 'Task' button, inadvertly crashes the software with a RTE 53 - File not found.
Not sure if I have downloaded the correct tasks package at the moment
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
http://www.mediafire.com/download/m2ntc ... e%20V2.zip
This should be the one...
Unzip this in the same folder with the program...
You should get the following folders...
Bind me, Dice, Dressor, Penalities, Pizza, and Tasks...
and a new Dir.txt...
Penalities should be the same...
and Pizza was just a test for something compleatly differently...
This should be the one...
Unzip this in the same folder with the program...
You should get the following folders...
Bind me, Dice, Dressor, Penalities, Pizza, and Tasks...
and a new Dir.txt...
Penalities should be the same...
and Pizza was just a test for something compleatly differently...
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Re: BDSM Roulette
I managed to get it working, the software looks nice
If I get the time, I will look into making a cross-platform version of this, if you don't mind.
If I get the time, I will look into making a cross-platform version of this, if you don't mind.
- Dark_Lizerd
- *****
- Posts: 2416
- Joined: 22 Oct 2006, 11:30
- Location: New Mexico
Re: BDSM Roulette
If you want the VB source code to speed thing along, just let me know...
Actually, after looking over the code, there isn't that much to it...
(Unlike my 9-gates adventure game... )
So... here is it, and if you don't know VB that well, the top section describes the form and stuff...
Only 14K in size...
... Interesting font... the "&" symbol is the "and" symbol... on the "7" key...
Actually, after looking over the code, there isn't that much to it...
(Unlike my 9-gates adventure game... )
So... here is it, and if you don't know VB that well, the top section describes the form and stuff...
Only 14K in size...
Code: Select all
VERSION 5.00
Begin VB.Form frmBDSM_Roulette
BackColor = &H8000000C&
Caption = "BDSM_Roulette V2"
ClientHeight = 8400
ClientLeft = 120
ClientTop = 420
ClientWidth = 11505
BeginProperty Font
Name = "Courier New"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 8400
ScaleWidth = 11505
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox Picture1
Height = 1935
Left = 12840
Picture = "frmBDSM_Roulette.frx":0000
ScaleHeight = 1875
ScaleWidth = 2235
TabIndex = 23
Top = 2520
Width = 2295
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 5775
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 22
Text = "frmBDSM_Roulette.frx":12549
Top = 240
Width = 10935
End
Begin VB.CommandButton cmdPic
Caption = "Picture"
Height = 495
Left = 9480
TabIndex = 21
Top = 6480
Width = 1215
End
Begin VB.Frame Frame2
Caption = "Text Box"
Height = 1335
Left = 13200
TabIndex = 18
Top = 9600
Visible = 0 'False
Width = 2295
Begin VB.OptionButton Option1
Caption = "Transparent"
Height = 375
Index = 3
Left = 120
TabIndex = 20
Top = 840
Width = 2055
End
Begin VB.OptionButton Option1
Caption = "Opaque"
Height = 375
Index = 2
Left = 120
TabIndex = 19
Top = 360
Value = -1 'True
Width = 1575
End
End
Begin VB.Frame Frame1
Caption = "Text Color"
Height = 1335
Left = 13680
TabIndex = 15
Top = 9000
Visible = 0 'False
Width = 1935
Begin VB.OptionButton Option1
Caption = "Black"
Height = 375
Index = 1
Left = 240
TabIndex = 17
Top = 840
Value = -1 'True
Width = 1575
End
Begin VB.OptionButton Option1
Caption = "White"
Height = 375
Index = 0
Left = 240
TabIndex = 16
Top = 360
Width = 1575
End
End
Begin VB.CommandButton cmdTimerControl
Caption = "Start"
Height = 495
Left = 1320
TabIndex = 14
Top = 7560
Width = 1215
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 720
Top = 7680
End
Begin VB.HScrollBar HScroll1
Height = 375
LargeChange = 300
Left = 240
Max = 21600
SmallChange = 10
TabIndex = 13
Top = 6960
Width = 4215
End
Begin VB.CommandButton cmdD1
Caption = "^"
Height = 270
Index = 3
Left = 5400
TabIndex = 8
Top = 6240
Width = 375
End
Begin VB.CommandButton cmdD1
Caption = "V"
Height = 270
Index = 2
Left = 5400
TabIndex = 7
Top = 6720
Width = 375
End
Begin VB.CommandButton cmdD1
Caption = "^"
Height = 270
Index = 1
Left = 4680
TabIndex = 6
Top = 6240
Width = 375
End
Begin VB.CommandButton cmdD1
Caption = "V"
Height = 270
Index = 0
Left = 4680
TabIndex = 5
Top = 6720
Width = 375
End
Begin VB.CommandButton cmdExit
Caption = "Go Back"
Height = 855
Left = 6960
Style = 1 'Graphical
TabIndex = 2
Top = 6240
Width = 2055
End
Begin VB.ListBox Knipsel_T
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 14520
TabIndex = 1
Top = 360
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "2"
ForeColor = &H80000008&
Height = 255
Index = 4
Left = 5400
TabIndex = 12
Top = 6480
Width = 375
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "1"
ForeColor = &H80000008&
Height = 255
Index = 3
Left = 6120
TabIndex = 11
Top = 6480
Width = 615
End
Begin VB.Label LabelD
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "d"
ForeColor = &H80000008&
Height = 255
Left = 5040
TabIndex = 10
Top = 6480
Width = 375
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "0"
ForeColor = &H80000008&
Height = 255
Index = 1
Left = 4200
TabIndex = 9
Top = 6360
Visible = 0 'False
Width = 375
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "1"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 4680
TabIndex = 4
Top = 6480
Width = 375
End
Begin VB.Label Label1
Caption = "Timer: 00:00:00"
Height = 375
Left = 480
TabIndex = 3
Top = 6360
Width = 2415
End
Begin VB.Label Knipsel_L
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 13200
TabIndex = 0
Top = 360
Visible = 0 'False
Width = 1335
End
End
Attribute VB_Name = "frmBDSM_Roulette"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Pic As String
Private Sub cmdD1_Click(Index As Integer)
' set dice rolls
Dim Dx(7) As Integer
'static D1 As Integer
'D1 = Label2(1)
Dx(0) = 2
Dx(1) = 4
Dx(2) = 6
Dx(3) = 8
Dx(4) = 10
Dx(5) = 12
Dx(6) = 20
Select Case Index
Case 0: Label2(0) = Label2(0) - 1: If Label2(0) <= 1 Then Label2(0) = 1 ' # of dice
Case 1: Label2(0) = Label2(0) + 1: If Label2(0) > 6 Then Label2(0) = 6 ' max # of dice
Case 2: Label2(1) = Label2(1) - 1: If Label2(1) <= 0 Then Label2(1) = 0 ' # of faces
Case 3: Label2(1) = Label2(1) + 1: If Label2(1) > 6 Then Label2(1) = 6 ' ...
End Select
Label2(4) = Dx(Label2(1))
' roll the dice
DiceR
End Sub
Private Sub cmdExit_Click()
' save changes to text1
Open "rd_data.txt" For Output As #10
Print #10, Text1
Close #10
End
End Sub
Private Sub cmdPic_Click()
' Show picture for this scenario...
frmCTI.Image1.Picture = LoadPicture(Pic)
' resize to image...
frmCTI.Caption = ListP '& "-" & Pic
frmDialog.FormSet
frmCTI.Show
End Sub
Private Sub cmdTimerControl_Click()
' Start/stop
If cmdTimerControl.Caption = "Start" Then
cmdTimerControl.Caption = "Stop"
Timer1.Enabled = True
Else
cmdTimerControl.Caption = "Start"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim N As Integer, R As Integer
Randomize Timer
' center...
frmBDSM_Roulette.Left = (Screen.Width - frmBDSM_Roulette.Width) / 2
frmBDSM_Roulette.Top = (Screen.Height - frmBDSM_Roulette.Height) / 2
Intro = ""
Open ListP & "/Intro.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Io
Intro = Intro & Io & Chr(13) & Chr(10)
Loop
Close #1
' open FileList
Open ListP & "/FileList.txt" For Input As #1
'Line Input #1, Pic ' Picture to show when requested... Scenario.jpg=Scenario.txt
Line Input #1, TT: frmBDSM_Roulette.Caption = TT 'if no .jgp then grey [pic]
Line Input #1, TT: cmdExit.Caption = TT
If ListP = "Task" Then
Tasks
Exit Sub
End If
If Dir(ListP & "/" & ListP & ".jpg") = "" Then
'If Dir(ListP & ".jpg") = "" Then
cmdPic.Enabled = False ' no pic found
Else
cmdPic.Enabled = True
Pic = ListP & "/" & ListP & ".jpg"
End If
Text1 = Intro & Chr(13) & Chr(10)
Text1 = Text1 & Knipsel_L & Knipsel_T ' & " " '& Chr(13) & Chr(10)
fc = 1 ' ************************* May loop here for using just 1 select box ************************
Do While Not EOF(1)
Line Input #1, F_List
' fc = fc + 1
If Trim(F_List) = "" Then Exit Do
Open ListP & "/" & F_List & ".txt" For Input As #2
Line Input #2, LN
Knipsel_L.Caption = LN ' Label, first line
' maybe I should look for [1d6] for more control...
' read each line from each file
Knipsel_T.Clear
Do While Not EOF(2)
Line Input #2, LN
'LN = " " & LN
Knipsel_T.AddItem LN ' select box, each randomized item
Loop
Rn ' randomize the displayed entry
Text1 = Text1 & Knipsel_L & Knipsel_T ' & " " '& Chr(13) & Chr(10)
Close #2
Loop
Close #1
End Sub
Sub Rn()
R = Int(Rnd * Knipsel_T.ListCount)
' random select based on the number of entries in the dropdown Knipsel_T
' Also note... Knipsel_T is the test list, Knipsel_L is the lbel name...
Knipsel_T().ListIndex = R
End Sub
Sub Tasks()
' this will select a random task file to open and display...
' read each line from each file
Knipsel_T.Clear ' clear the list...
Do While Not EOF(1)
Line Input #1, LN
Knipsel_T.AddItem LN ' load the list of tasks
Loop
Close #1
Rn ' select a random task
' open the selected one.
If Dir("Task/" & Knipsel_T.Text & ".jpg") = "" Then
cmdPic.Enabled = False ' no pic found
Else
cmdPic.Enabled = True
Pic = "Task/" & Knipsel_T.Text & ".jpg"
End If
Open ListP & "/" & Knipsel_T.Text & ".txt" For Input As #2
Line Input #2, TT
frmBDSM_Roulette.Caption = TT
Do While Not EOF(2)
Line Input #2, Io
Intro = Intro & Io & Chr(13) & Chr(10)
Loop
Close #2
Text1 = Intro & Chr(13) & Chr(10)
Open "Task.txt" For Output As #10
Print #10, Text1
Close #10
End Sub
Function Dice(N As Integer, R As Integer)
' roll NdR dice
R0 = 0
For A = 1 To N
R0 = R0 + Int(Rnd * R)
Next A
Dice = R0
End Function
Private Sub HScroll1_Change()
Timer_Display
End Sub
Private Sub HScroll1_Scroll()
Timer_Display
End Sub
Private Sub LabelD_Click()
' click the 'd', reroll the dice...
DiceR
End Sub
Sub DiceR()
Label2(3) = ""
D = 0
For A = 1 To Label2(0)
R = Int(Rnd * Label2(4)) + 1
D = D + R
Next A
Label2(3) = D
End Sub
Private Sub Timer1_Timer()
' if timer setting >0 then count down...
If HScroll1.Value > 0 Then
Timer1.Enabled = True
HScroll1.Value = HScroll1.Value - 1
Else
Timer1.Enabled = False
cmdTimerControl.Caption = "Start"
' need 'Ding' for end of time...
End If
Text2 = Timer1.Enabled
Timer_Display
End Sub
Sub Timer_Display()
Dim H As Integer, M As Integer, S As Integer
Dim T As Integer
T = HScroll1.Value
H = Int(T / 3600)
T = T - H * 3600
M = Int(T / 60)
S = T - M * 60
Label1.Caption = "Timer: " & Format(H, "00:") & Format(M, "00:") & Format(S, "00")
End Sub
All advice is checked, re-checked and verified to be questionable...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...
Don't ask, we both wont understand the answer...
http://www.mediafire.com/download/09dtr ... e_V2_2.exe Not just for nubies any more...