Devilzc0de Forum Follow @devilzc0de
  • Home
  • Hacking
  • Networking
  • Programming
  • O.S
  • Server
  • Tweets
  • Search
  • Member List
  • Calendar
Current time: 06-19-2013, 07:53 PM Hello There, Guest! (Login — Register)
Devilzc0de Forum › Information Technology › Programming › Visual Basic v
« Previous 1 ... 7 8 9 10 11 ... 14 Next »

[Tutor] membuat menu makanan part2 + login

Home General Computer Multimedia Business Lounge

Pages (2): 1 2 Next »
Post Reply 
Tweet
Threaded Mode | Linear Mode
Tutor membuat menu makanan part2 + login
03-15-2012, 07:55 PM (This post was last modified: 03-15-2012 08:15 PM by genta.)
Post: #1
genta Online
soutboxer
Posts: 1,026
Joined: Jan 2012
Reputation: 68
Wink membuat menu makanan part2 + login
aslamualaikum cuteboy ........ salam logodc

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

l[Image: di-DFG6.png]
ngakakngakakngakakngakakngakak

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 pasrah

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 bangga
cukup sekian thread kali ini mudah2an aj berguna

wasalmualaikum warohmatullohiwabarokatuh mohon[/quote]
Find all posts by this user
Quote this message in a reply
 Reputed by :  ohara_inamiji(+1) , fuxnbums(+1) , DC_Julianz(+1) , Nanda(+1)
03-15-2012, 07:59 PM
Post: #2
fuxnbums Offline
Orang Ganteng Stok Pertama
*****
DeMT Team
Posts: 733
Joined: Jun 2011
Reputation: 33
RE: membuat menu makanan part2 + login
om ini emang jago dah masalah program mantap

bisa2 nyamain om ketek nihh
Visit this user's website Find all posts by this user
Quote this message in a reply
03-15-2012, 08:06 PM (This post was last modified: 03-15-2012 08:07 PM by fadla.)
Post: #3
fadla Offline
./Devilz Officer
Posts: 139
Joined: Dec 2010
Reputation: 3
RE: membuat menu makanan part2 + login
Wah makasih nih gan..
ijin belajar dlu pinter
Visit this user's website Find all posts by this user
Quote this message in a reply
03-15-2012, 08:21 PM (This post was last modified: 03-15-2012 08:23 PM by genta.)
Post: #4
genta Online
soutboxer
Posts: 1,026
Joined: Jan 2012
Reputation: 68
RE: membuat menu makanan part2 + login
(03-15-2012 07:59 PM)fuxnbums Wrote:  om ini emang jago dah masalah program mantap

bisa2 nyamain om ketek nihh
saya masih newbye om belum bisa apa2 ne pasrah .........amin dah seamin2ny kalau bisa kaya om ketek tp dalam hal ilmuy saja ya ... hehehengakakngakak

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

silahkan om .............. mohon tambahaya juga om hore
Find all posts by this user
Quote this message in a reply
03-15-2012, 09:12 PM
Post: #5
Wayc0de Offline
-= Sifu Makan Sonice =-
**
Moderators
Posts: 2,994
Joined: Nov 2010
Reputation: 62
RE: membuat menu makanan part2 + login
wuih mantap dh nie om mantap

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
Visit this user's website Find all posts by this user
Quote this message in a reply
03-15-2012, 09:53 PM
Post: #6
genta Online
soutboxer
Posts: 1,026
Joined: Jan 2012
Reputation: 68
RE: membuat menu makanan part2 + login
(03-15-2012 09:12 PM)Wayc0de Wrote:  wuih mantap dh nie om mantap

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 seneng ...........boleh minta bocoran buat angka itu kya gi mna om mohon pencerahy lg om
Find all posts by this user
Quote this message in a reply
03-15-2012, 10:02 PM (This post was last modified: 03-15-2012 10:03 PM by fadla.)
Post: #7
fadla Offline
./Devilz Officer
Posts: 139
Joined: Dec 2010
Reputation: 3
RE: membuat menu makanan part2 + login
(03-15-2012 09:53 PM)genta Wrote:  
(03-15-2012 09:12 PM)Wayc0de Wrote:  wuih mantap dh nie om mantap

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 seneng ...........boleh minta bocoran buat angka itu kya gi mna om mohon 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... ngambek
Visit this user's website Find all posts by this user
Quote this message in a reply
03-15-2012, 10:04 PM
Post: #8
Wayc0de Offline
-= Sifu Makan Sonice =-
**
Moderators
Posts: 2,994
Joined: Nov 2010
Reputation: 62
RE: membuat menu makanan part2 + login
lah tuh udah di jawab seneng
Visit this user's website Find all posts by this user
Quote this message in a reply
03-15-2012, 10:11 PM
Post: #9
genta Online
soutboxer
Posts: 1,026
Joined: Jan 2012
Reputation: 68
RE: membuat menu makanan part2 + login
makasih om2 smua .........tas tambahanybelajar
smangat
Find all posts by this user
Quote this message in a reply
03-15-2012, 10:46 PM
Post: #10
KillerByte Offline
./Devilz Commander
Posts: 337
Joined: Jan 2012
Reputation: 5
RE: membuat menu makanan part2 + login
ane masih 0 di vb, ngakak lumayan nih om buat belajar, thanks tutornya mantap
Visit this user's website Find all posts by this user
Quote this message in a reply
« Next Oldest | Next Newest »
Pages (2): 1 2 Next »
Post Reply 


Topic Tools
Topic Link :
BBCode :
HTML Code :
View a Printable Version Send Thread to a Friend Subscribe to this thread
Submit Google Submit Face book Submit to Digg Submit to Reddit Submit to Furl Submit to Del.icio.us Submit to Jeqq

Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  [Tutor] Membuat BOT Visitor [DC]Anak-Baru 12 348 06-17-2013 09:40 AM
Last Post: maulanayusuf
  Membuat dan memeriksa SerialKey RUD1 10 185 06-11-2013 05:28 PM
Last Post: Obito
  [Tutor] membuat antivirus dri VB6 BlaCk CyBeR 33 8,607 06-10-2013 09:35 AM
Last Post: rsdvsanhas
  [Tutor] Membuat downloader file RUD1 18 395 06-09-2013 01:50 PM
Last Post: febriardian
  [Tutor] Tutorial Membuat Simple Splash Screen With Vb6 [DC]Anak-Baru 3 130 06-05-2013 02:49 PM
Last Post: rifqirachel
  [Tutor] Cara Membuat Keygen [DC]Anak-Baru 6 206 05-24-2013 09:59 AM
Last Post: hitheir
  [Ask] Cara Membuat VB email Sender klo bisa ada attachment wildan123456 6 126 05-22-2013 11:48 PM
Last Post: Beruang Kabur
Thumbs Up [Tutor] Membuat Deteksi IP Komputer Dengan VB 6 [DC]Anak-Baru 12 359 05-14-2013 09:53 AM
Last Post: tresna
  [Tutor] [VB.NET] Website Login Nanda 17 927 05-10-2013 10:05 PM
Last Post: Nanda
  [Tutor] membuat fungsi operator genta 10 555 04-13-2013 10:07 AM
Last Post: bombom

Users Browsing

  • Contact Us
  • devilzc0de
  • Return to Top
  • Mobile Version
  • RSS Syndication
  • Help
Current time: 06-19-2013, 07:53 PM Powered By MyBB, © 2002-2013 MyBB Group. Theme created by Justin S. | Mixed By Chaer.Newbie | Fixed By Aditya

USING THIS SITE INDICATES THAT YOU HAVE READ AND ACCEPT OUR TERMS. IF YOU DO NOT ACCEPT THESE TERMS, YOU ARE NOT AUTHORIZED TO USE THIS SITE