[Tutor] membuat menu makanan part2 + login

[genta]

aslamualaikum ........ salam

ne thread lanjutan yang kemaren sm lanjutan tugas saya yang td dibuat .... apbila thread ini kurang berkenan silahkan di tendang aja dah ....

l

Code:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Text = 14000
Else: Text1.Text = ""

End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text2.Text = 12000
Else: Text2.Text = ""
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Text3.Text = 10000
Else: Text3.Text = ""
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
Text4.Text = 12000
Else: Text4.Text = ""
End If
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then
Text5.Text = 8000
Else: Text5.Text = ""
End If
End Sub

Private Sub Command1_Click()
Text16.Text = Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) + Val(Text14.Text) + Val(Text15.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Label5_Click()
Label5.Label = Time
End Sub

Private Sub Text1_Change()
Text6.SetFocus
End Sub

Private Sub Text10_Change()
Text15 = Val(Text10.Text) * Val(Text5.Text)
End Sub

Private Sub Text2_Change()
Text7.SetFocus
End Sub

Private Sub Text3_Change()
Text8.SetFocus
End Sub

Private Sub Text4_Change()
Text9.SetFocus
End Sub

Private Sub Text5_Change()
Text10.SetFocus
End Sub

Private Sub Text6_Change()
Text11.Text = Val(Text1.Text) * Val(Text6.Text)
End Sub

Private Sub Text7_Change()
Text12 = Val(Text7.Text) * Val(Text2.Text)
End Sub

Private Sub Text8_Change()
Text13 = Val(Text8.Text) * Val(Text3.Text)
End Sub

Private Sub Text9_Change()
Text14 = Val(Text9.Text) * Val(Text4.Text)
End Sub

Private Sub Timer1_Timer()
Label5 = Time
End Sub

bila ingin membuat form loginy tinggal lnjut ke langkah selanjuty

langkah ke dua untuk membuat form loginy
pertama kita add form baru trus pilih log in dialog
pilih view code trus ganti codingan y dengan

Code:

Dim user As String
Dim pass As String

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
ID = "genta"
Pw = "deadsquad"
   If txtUserName.Text = ID And txtPassword.Text = Pw Then
   Form1.Show
   Else: MsgBox "password anda salah, silahkan coba lagi"
   End If
  
End Sub

  

Private Sub Form_Load()

End Sub

ne buatan ane ama temen kalau ada yang kurang mohon koreksiy om

langkah selanjuty kita masuk project>>>>>project1properties>>lau pada starup object kita ganti dengan frmlogin >>>lalu ok

mungkin buat2 om master dc ini hanya sampah tp menurut saya ini jerit payah saya sendiri
cukup sekian thread kali ini mudah2an aj berguna

wasalmualaikum warohmatullohiwabarokatuh [/quote]

[fuxnbums]

om ini emang jago dah masalah program

bisa2 nyamain om ketek nihh

[fadla]

Wah makasih nih gan..
ijin dlu

[genta]

(03-15-2012 07:59 PM)fuxnbums Wrote:  om ini emang jago dah masalah program

bisa2 nyamain om ketek nihh

saya masih newbye om belum bisa apa2 ne .........amin dah seamin2ny kalau bisa kaya om ketek tp dalam hal ilmuy saja ya ... hehehe

---

(03-15-2012 08:06 PM)fadla Wrote:  Wah makasih nih gan..
ijin dlu

om .............. tambahaya juga om

[Wayc0de]

wuih mantap dh nie om

saran tambahan dari ane

lw bisa pengisian pada Text Box Jumlah hanya bisa diisi dengan angka saja

jadi bila diketikkan huruf maka tidak akan berfungsi

CMIIW

[genta]

(03-15-2012 09:12 PM)Wayc0de Wrote:  wuih mantap dh nie om

saran tambahan dari ane

lw bisa pengisian pada Text Box Jumlah hanya bisa diisi dengan angka saja

jadi bila diketikkan huruf maka tidak akan berfungsi

CMIIW

makasih om tas tambahany om ...........boleh minta bocoran buat angka itu kya gi mna om pencerahy lg om

[fadla]

(03-15-2012 09:53 PM)genta Wrote:  

(03-15-2012 09:12 PM)Wayc0de Wrote:  wuih mantap dh nie om

saran tambahan dari ane

lw bisa pengisian pada Text Box Jumlah hanya bisa diisi dengan angka saja

jadi bila diketikkan huruf maka tidak akan berfungsi

CMIIW

makasih om tas tambahany om ...........boleh minta bocoran buat angka itu kya gi mna om pencerahy lg om

Quote: private sub namatextbox_keypress(keyascii as integer)
if not(keyascii >= asc("0") and keyascii <= asc ("9") then
keyascii = 0
msgbox "Hanya angka saja..!",vbcritical,"Warning"
namatextboxsetfocus
exit sub
end if
end sub

Tuh Om Ane Searching di google.... mudah"an bisa. ane sih belom coba...

[Wayc0de]

lah tuh udah di jawab

[genta]

makasih om2 smua .........tas tambahany

[KillerByte]

ane masih 0 di vb, lumayan nih om buat belajar, thanks tutornya