[Tutor] pencampuran

[genta]

asalmualaikum ...salam
ijin bikin thread lg .....ne bekas tugas ane minggu kemarin yg udah bikin smaleman kali aja dapet bermanfaat apabila hanya menjadi sampah sialhkan di hapus aja

langsung aja ne kurang lebih soaly seperti ini

Spoiler:

buat satu program harus ada formlogin,mdi form,media player,shutdown,restart dan form berkedip dalam 1 program kurang lebih seperti itu soaly kalau gak salah

1.membuat form berkedipy dulu
menggunakan

Code:

2 form = form 1 dan form2
1 command buton
1 timer

trus ganti

Code:

command1 = caption = form berkedip
form2 = name =frmflash
timer =name= tmrflash
left =1320
top=600

Spoiler:

2 .membuat form login
-pilih project------add form-----login dialog-----open-----
lanjut
- label1 ama text usernamey apus
kurang lebih seperti ini

Spoiler:

3.membuat mdi form
pilih

--project-----add mdiform-----open.
lalu klik kanan pada mdi form
trus kita isi caption dan namey dengan

file
open
image
song
media player
api
shutdown
restart

caption dan name harus sama trus tiap tab gunakan tanda panah
kurang lebih seperti ini

Spoiler:

4.membuat shutdown

Code:

1 label
1 frame
3 option button
3 command buton

Spoiler:

5 membuat media player
untuk medi playery ane ngambil dr sini

Spoiler:

http://devilzc0de.org/forum/thread-13608.html

jadinya seperti ini

Spoiler:

ne codingany
1.form login

Code:

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
  
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()

    If txtPassword = "deadsquad" Then
        LoginSucceeded = True
        MDIForm1.Show
            
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub


Private Sub lblLabels_Click(Index As Integer)

End Sub

2.form1

Code:

Private Sub Command1_Click()
frmflash.Show
End Sub

3.form flash

Code:

Option Explicit

Private Declare Function FlashWindow Lib "user32" ( _
   ByVal hwnd As Long, _
   ByVal bInvert As Long) As Long

Private Sub Form_Load()
  tmrflash.Interval = 1000 / 5
  tmrflash.Enabled = True
End Sub

Private Sub tmrFlash_Timer()
  Dim Ret As Long
  Ret = FlashWindow(hwnd, CLng(True))
End Sub

3.mdi form

Code:

Private Sub API_Click()
Form3.Show
End Sub



Private Sub mediaplayer_Click()
Form1.Show
End Sub

Private Sub restart_Click()
Shell "shutdown -r"
End Sub

Private Sub shutdown_Click()
Form2.Show
End Sub

5.form shut down

Code:

Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox ("pilih waktu !"), vbInformation, "warning"
End If
If Option1.Value = True Then
Shell ("shutdown -s -t 120")
ElseIf Option2.Value = True Then
Shell ("shutdown -s -t 3600")
ElseIf Option2.Value = True Then
Shell ("shutdown -s -t 7200")
End If
End Sub

Private Sub Command2_Click()
Shell ("shutdown -a")
End Sub

Private Sub Command3_Click()
End
End Sub

terimakasih kepada dc,om ubuntux dan mbah google yg udah ngebantu tugas ane .......cukup sekian untuk kali ini

wasalmualaikum

[chaer.newbie]

kayak tugas kampus gw

[genta]

(05-09-2012 06:11 PM)chaer.newbie Wrote:  kayak tugas kampus gw

emank tugasy kya gini jg gtu om