수다닷컴

-만약에 이 시간을 설정하면 저장이 됩니다. 시간이 저장이되고, 시간이 점점 줄어들고그렇습니다. 만약에 요일이 지나갔을 때 시간을 리셋하고 싶은데 어떻게 하면 시간 리셋이 가능한지 궁금합니다.Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a = New Label() {FormMain.Label1, FormMain.Label2, FormMain.Label3}
control = New NumericUpDown() {NumericUpDown1, NumericUpDown2, NumericUpDown3, NumericUpDown4, NumericUpDown5, NumericUpDown6, NumericUpDown7, NumericUpDown8, NumericUpDown9, NumericUpDown10, NumericUpDown11}
If RadioButton1.Checked = True Then
FormMain.Label1.Text = 시간무제한입니다. : FormMain.Label2.Text = : FormMain.Label3.Text =
SetIniValue(TimeSetting, Form.Label1, FormMain.Label1.Text, Application.StartupPath & \졸작.ini)
Timer1.Enabled = False
ElseIf RadioButton2.Checked = True Then
For i = 0 To 2
FormMain.Label1.Text = control(0).Text : FormMain.Label2.Text = control(1).Text : FormMain.Label3.Text = control(2).Text
SetIniValue(TimeSetting, Form.Label1, control(i).Text, Application.StartupPath & \졸작.ini)
FormMain.Timer1.Enabled = True
Next
ElseIf RadioButton3.Checked = True Then
If FormMain.Label7.Text = 토요일 Then
For i = 6 To 8
FormMain.Label1.Text = control(6).Text : FormMain.Label2.Text = control(7).Text : FormMain.Label3.Text = control(8).Text
SetIniValue(TimeSetting, Form.Label1, control(i).Text, Application.StartupPath & \졸작.ini)
Next
ElseIf FormMain.Label7.Text = 일요일 Then
For i = 6 To 8
FormMain.Label1.Text = control(6).Text : FormMain.Label2.Text = control(7).Text : FormMain.Label3.Text = control(8).Text
SetIniValue(TimeSetting, Form.Label1, control(i).Text, Application.StartupPath & \졸작.ini)
Next
Else
For i = 3 To 5
FormMain.Label1.Text = control(3).Text : FormMain.Label2.Text = control(4).Text : FormMain.Label3.Text = control(5).Text
SetIniValue(TimeSetting, Form.Label1, control(i).Text, Application.StartupPath & \졸작.ini)
Next
End If
FormMain.Timer1.Enabled = True
End If
If (ComboBox1.Text = 오전 And FormMain.Label11.Text = NumericUpDown10.Text And FormMain.Label11.Text = NumericUpDown11.Text) Then
Shell(Shutdown -s)
End If
MsgBox(설정이 변경되었습니다., vbInformation, 시간설정)
&nbnbsp; FormMain.Log.Items.Add([변경] + TimeOfDay + - 시간설정이 적용 되었습니다.)이것이 시간이 변경이되고 저장이 되는 소스이며, 이것을 응용해서 요일이지나면 시간이 다시 리셋되고 NumericUpDown에 나타난 값을 통해 Label에 0시 0분 0초가 되면 리셋이 되게 하고싶은데 여러가지로 만약에 ElseIf FormMain.Label7.Text = 토요일 And 일요일 Then 로했으면 FormMain.Label1.Text = control(6).Text : FormMain.Label2.Text = control(7).Text : FormMain.Label3.Text = control(8).Text
SetIniValue(TimeSetting, Form.Label1, control(i).Text, Application.StartupPath & \졸작.ini)
Next 이게 저장되는 소스인데 만약에 날짜가 바뀌거나 요일이 바뀌어도 Label에 있는값이 변하지 않습니다. 여러가지로 시도해보고 있습니다만 잘 안됩니다. 어떻게 하면 잘 나타낼수있을지 궁금합니다.NumericUpDown 10, 11은 아직 사용안합니다. 참고하세요. 1,2,3,4,5,6,7,8,9만 사용합니다.

신청하기