[Tutor] membuat menu makanan part2 + login

[DC_Julianz]

+ 1 buat ente soalnya disekolah ane juga masih maen fb

[genta]

(03-15-2012 10:46 PM)KillerByte Wrote:  ane masih 0 di vb, lumayan nih om buat belajar, thanks tutornya

sma2 om ...........

---

(03-16-2012 01:41 AM)DC_Juli24 Wrote:   + 1 buat ente soalnya disekolah ane juga masih maen fb

maksih om tas reputasiy om.. ....................

[DnA19]

Keren 0mz...

[genta]

(03-16-2012 08:24 AM)DnA19 Wrote:  
Keren 0mz...

maksih om ......... tp saya belum bisa apa2 ne jg di bntu ama temen om

[qball006_error]

persaan ane kyk ada yang ganjal deh dari script login diatas

Code:

Dim user As String        'disini di tuliskan user kita lihat di bawah
Dim pass As String        'disini di tuliskan pas kita lihat dibawah

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
ID = "genta"                     'kenapa pas disini dituliskan id bukan user
Pw = "deadsquad"             'dan ini juga knpa pw sedangkan di atas di beri nama pass
   If txtUserName.Text = ID And txtPassword.Text = Pw Then
   Form1.Show
   Else: MsgBox "password anda salah, silahkan coba lagi"
   End If
  
End Sub

Spoiler for: perbaikan menurut ane

Dim user As String
Dim pass As String

Private Sub cmdCancel_Click()
End
End Sub

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

End Sub

mungkin itu komentar dari ane coz ane juga belom ane coba nih programnya baru liat dari scriptnya


#syntaks-eror die#

[genta]

(03-16-2012 05:58 PM)qball006_error Wrote:  persaan ane kyk ada yang ganjal deh dari script login diatas

Code:

Dim user As String        'disini di tuliskan user kita lihat di bawah
Dim pass As String        'disini di tuliskan pas kita lihat dibawah

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
ID = "genta"                     'kenapa pas disini dituliskan id bukan user
Pw = "deadsquad"             'dan ini juga knpa pw sedangkan di atas di beri nama pass
   If txtUserName.Text = ID And txtPassword.Text = Pw Then
   Form1.Show
   Else: MsgBox "password anda salah, silahkan coba lagi"
   End If
  
End Sub

Spoiler for: perbaikan menurut ane

Dim user As String
Dim pass As String

Private Sub cmdCancel_Click()
End
End Sub

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

End Sub

mungkin itu komentar dari ane coz ane juga belom ane coba nih programnya baru liat dari scriptnya


#syntaks-eror die#

makasih om tas sarany ..... ...........

[qball006_error]

haha kita disini saling mengingatkan aja kok

[genta]

(03-17-2012 07:55 PM)qball006_error Wrote:  haha kita disini saling mengingatkan aja kok

siap om ........

[fadla]

menurut ane sih tanpa bikin

Quote:Dim user As String
Dim pass As String

Juga bisa
Soalnye
di Sini

Quote:If txtUserName.Text = ID And txtPassword.Text = Pw

sudah di jelasin
CMIIW

[DragonB]

nah yg ane cari" buat tugas aduk saya hahahah xD ty kk