Menü
Aktuelles

Mein erstes VB6 Programm pls Feedback

Tycorc

Tycorc

Prophet
so... hab angefange VB6 zu lernen und hab das ma schnell geschriben

Dim schnell as string

schnell = 50 min

xD

also....probierts aus und gebt mir bitte ein feedback und/oder tipps wie ich etwas verbessern könnte

hier der Link:
Hidden content
You need to react to this post in order to see this content.
und der VT screen:


und noch der Source Code:
Private Sub Command1_Click()
Call tim1_Timer
End Sub


Private Sub Command2_Click()
Call txt1_Change
End Sub

Private Sub Command9_Click()
Fram1.Visible = True
End Sub



Private Sub Image1_Click()
Image1.Visible = True
End Sub

Private Sub Command3_Click()
Call txt2_Change
End Sub

Private Sub Command4_Click()
Call txt9_Change
Call Txt3_Change
End Sub

Private Sub Command5_Click()
Call Txt4_Change
Call txt5_Change
Call txt6_Change
End Sub

Private Sub Command6_Click()
Call Txt7_Change
Call txt8_Change
End Sub

Private Sub Command7_Click()
Label5.Visible = True
End Sub

Private Sub Command8_Click()
End
End Sub

Private Sub txt5_Change()
txt5.Text = "http://rapidshare.com/files/hehe/00012.rar"
End Sub

Private Sub Txt7_Change()
txt7.Text = "http://rapidshare.com/files/hehe/00007.part1.rar"
End Sub

Private Sub tim1_Timer()

tim1.Interval = 1000
lbl_output.Caption = Time

If lbl_output.Caption = "00:00:00" Then Call Command2_Click
If lbl_output.Caption = "00:00:02" Then Call Command3_Click
If lbl_output.Caption = "00:00:04" Then Call Command4_Click
If lbl_output.Caption = "00:00:06" Then Call Command5_Click
If lbl_output.Caption = "00:00:08" Then Call Command6_Click

If lbl_output.Caption = "01:00:00" Then Call Command2_Click
If lbl_output.Caption = "01:00:02" Then Call Command3_Click
If lbl_output.Caption = "01:00:04" Then Call Command4_Click
If lbl_output.Caption = "01:00:06" Then Call Command5_Click
If lbl_output.Caption = "01:00:08" Then Call Command6_Click

If lbl_output.Caption = "02:00:00" Then Call Command2_Click
If lbl_output.Caption = "02:00:02" Then Call Command3_Click
If lbl_output.Caption = "02:00:04" Then Call Command4_Click
If lbl_output.Caption = "02:00:06" Then Call Command5_Click
If lbl_output.Caption = "02:00:08" Then Call Command6_Click

If lbl_output.Caption = "03:00:00" Then Call Command2_Click
If lbl_output.Caption = "03:00:02" Then Call Command3_Click
If lbl_output.Caption = "03:00:04" Then Call Command4_Click
If lbl_output.Caption = "03:00:06" Then Call Command5_Click
If lbl_output.Caption = "03:00:08" Then Call Command6_Click

If lbl_output.Caption = "04:00:00" Then Call Command2_Click
If lbl_output.Caption = "04:00:02" Then Call Command3_Click
If lbl_output.Caption = "04:00:04" Then Call Command4_Click
If lbl_output.Caption = "04:00:06" Then Call Command5_Click
If lbl_output.Caption = "04:00:08" Then Call Command6_Click

If lbl_output.Caption = "05:00:00" Then Call Command2_Click
If lbl_output.Caption = "05:00:02" Then Call Command3_Click
If lbl_output.Caption = "05:00:04" Then Call Command4_Click
If lbl_output.Caption = "05:00:06" Then Call Command5_Click
If lbl_output.Caption = "05:00:08" Then Call Command6_Click

If lbl_output.Caption = "06:00:00" Then Call Command2_Click
If lbl_output.Caption = "06:00:02" Then Call Command3_Click
If lbl_output.Caption = "06:00:04" Then Call Command4_Click
If lbl_output.Caption = "06:00:06" Then Call Command5_Click
If lbl_output.Caption = "06:00:08" Then Call Command6_Click

If lbl_output.Caption = "07:00:00" Then Call Command2_Click
If lbl_output.Caption = "07:00:02" Then Call Command3_Click
If lbl_output.Caption = "07:00:04" Then Call Command4_Click
If lbl_output.Caption = "07:00:06" Then Call Command5_Click
If lbl_output.Caption = "07:00:08" Then Call Command6_Click

If lbl_output.Caption = "08:00:00" Then Call Command2_Click
If lbl_output.Caption = "08:00:02" Then Call Command3_Click
If lbl_output.Caption = "08:00:04" Then Call Command4_Click
If lbl_output.Caption = "08:00:06" Then Call Command5_Click
If lbl_output.Caption = "09:00:08" Then Call Command6_Click

If lbl_output.Caption = "09:00:00" Then Call Command2_Click
If lbl_output.Caption = "09:00:02" Then Call Command3_Click
If lbl_output.Caption = "09:00:04" Then Call Command4_Click
If lbl_output.Caption = "09:00:06" Then Call Command5_Click
If lbl_output.Caption = "09:00:08" Then Call Command6_Click

If lbl_output.Caption = "10:00:00" Then Call Command2_Click
If lbl_output.Caption = "10:00:02" Then Call Command3_Click
If lbl_output.Caption = "10:00:04" Then Call Command4_Click
If lbl_output.Caption = "10:00:06" Then Call Command5_Click
If lbl_output.Caption = "10:00:08" Then Call Command6_Click

If lbl_output.Caption = "11:00:00" Then Call Command2_Click
If lbl_output.Caption = "11:00:02" Then Call Command3_Click
If lbl_output.Caption = "11:00:04" Then Call Command4_Click
If lbl_output.Caption = "11:00:06" Then Call Command5_Click
If lbl_output.Caption = "11:00:08" Then Call Command6_Click

If lbl_output.Caption = "12:00:00" Then Call Command2_Click
If lbl_output.Caption = "12:00:02" Then Call Command3_Click
If lbl_output.Caption = "12:00:04" Then Call Command4_Click
If lbl_output.Caption = "12:00:06" Then Call Command5_Click
If lbl_output.Caption = "12:00:08" Then Call Command6_Click

If lbl_output.Caption = "13:00:00" Then Call Command2_Click
If lbl_output.Caption = "13:00:02" Then Call Command3_Click
If lbl_output.Caption = "13:00:04" Then Call Command4_Click
If lbl_output.Caption = "13:00:06" Then Call Command5_Click
If lbl_output.Caption = "13:00:08" Then Call Command6_Click

If lbl_output.Caption = "14:00:00" Then Call Command2_Click
If lbl_output.Caption = "14:00:02" Then Call Command3_Click
If lbl_output.Caption = "14:00:04" Then Call Command4_Click
If lbl_output.Caption = "14:00:06" Then Call Command5_Click
If lbl_output.Caption = "14:00:08" Then Call Command6_Click

If lbl_output.Caption = "15:00:00" Then Call Command2_Click
If lbl_output.Caption = "15:00:02" Then Call Command3_Click
If lbl_output.Caption = "15:00:04" Then Call Command4_Click
If lbl_output.Caption = "15:00:06" Then Call Command5_Click
If lbl_output.Caption = "15:00:08" Then Call Command6_Click

If lbl_output.Caption = "16:00:00" Then Call Command2_Click
If lbl_output.Caption = "16:00:02" Then Call Command3_Click
If lbl_output.Caption = "16:00:04" Then Call Command4_Click
If lbl_output.Caption = "16:00:06" Then Call Command5_Click
If lbl_output.Caption = "16:00:08" Then Call Command6_Click

If lbl_output.Caption = "17:00:00" Then Call Command2_Click
If lbl_output.Caption = "17:00:02" Then Call Command3_Click
If lbl_output.Caption = "17:00:04" Then Call Command4_Click
If lbl_output.Caption = "17:00:06" Then Call Command5_Click
If lbl_output.Caption = "17:00:08" Then Call Command6_Click

If lbl_output.Caption = "18:00:00" Then Call Command2_Click
If lbl_output.Caption = "18:00:02" Then Call Command3_Click
If lbl_output.Caption = "18:00:04" Then Call Command4_Click
If lbl_output.Caption = "18:00:06" Then Call Command5_Click
If lbl_output.Caption = "18:00:08" Then Call Command6_Click

If lbl_output.Caption = "19:00:00" Then Call Command2_Click
If lbl_output.Caption = "19:00:02" Then Call Command3_Click
If lbl_output.Caption = "19:00:04" Then Call Command4_Click
If lbl_output.Caption = "19:00:06" Then Call Command5_Click
If lbl_output.Caption = "19:00:08" Then Call Command6_Click

If lbl_output.Caption = "20:00:00" Then Call Command2_Click
If lbl_output.Caption = "20:00:02" Then Call Command3_Click
If lbl_output.Caption = "20:00:04" Then Call Command4_Click
If lbl_output.Caption = "20:00:06" Then Call Command5_Click
If lbl_output.Caption = "20:00:08" Then Call Command6_Click

If lbl_output.Caption = "21:00:00" Then Call Command2_Click
If lbl_output.Caption = "21:00:02" Then Call Command3_Click
If lbl_output.Caption = "21:00:04" Then Call Command4_Click
If lbl_output.Caption = "21:00:06" Then Call Command5_Click
If lbl_output.Caption = "21:00:08" Then Call Command6_Click

If lbl_output.Caption = "22:00:00" Then Call Command2_Click
If lbl_output.Caption = "22:00:02" Then Call Command3_Click
If lbl_output.Caption = "22:00:04" Then Call Command4_Click
If lbl_output.Caption = "22:00:06" Then Call Command5_Click
If lbl_output.Caption = "22:00:08" Then Call Command6_Click

If lbl_output.Caption = "23:00:00" Then Call Command2_Click
If lbl_output.Caption = "23:00:02" Then Call Command3_Click
If lbl_output.Caption = "23:00:04" Then Call Command4_Click
If lbl_output.Caption = "23:00:06" Then Call Command5_Click
If lbl_output.Caption = "23:00:08" Then Call Command6_Click

End Sub

Private Sub txt1_Change()
txt1.Text = "http://rapidshare.com/files/hehe/00009.rar"
End Sub

Private Sub txt2_Change()
txt2.Text = "http://rapidshare.com/files/hehe/00008.rar"
End Sub

Private Sub Txt3_Change()
Txt3.Text = "http://rapidshare.com/files/hehe/00017.rar"
End Sub

Private Sub Txt4_Change()
Txt4.Text = "http://rapidshare.com/files/hehe/00011.rar"
End Sub

Private Sub txt6_Change()
txt6.Text = "http://rapidshare.com/files/hehe/00013.rar"
End Sub

Private Sub txt8_Change()
txt8.Text = "http://rapidshare.com/files/hehe/00007.part2.rar"
End Sub

Private Sub txt9_Change()
txt9.Text = "http://rapidshare.com/files/hehe/00018.rar"
End Sub
 
Tycorc

Tycorc

Prophet
naja ich hab einfach ma n bisschen rumgetestet... es sollte links zu H-PicPaketen jede volle stunde anzeigen :P

xD... mehr kann ich noch nich ^^
 
Du musst dich einloggen oder registrieren, um hier zu antworten.
Oben