Indonesian SWF Editor Community
 
HomeRegisterLog in
SELAMAT Datang Di Cmonhackns ===> Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil..

Share | 
 

 Cara Membuat Calender dengan VB 6

View previous topic View next topic Go down 
AuthorMessage
Ryan San Rakagi
Moderator
Moderator
avatar

Jumlah posting : 260
Join date : 2011-04-19
Age : 22
Lokasi : CIREBON

PostSubject: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:04 pm

Langsung saja ke materi nya :

[You must be registered and logged in to see this image.]

Nah itukan udah ada gambar yg jelas menurut logika

dan tinggal masukan code ini saja



Code:
Dim bulan(12) As String
Dim hari(12) As Integer
Dim i As Integer
Dim ak As Integer
Dim b As Integer
Dim thun As Integer
Dim aw As Integer
Dim ax As Integer
Dim op As Integer
Dim tb As Integer
Dim z As Integer
Function syarat1(j As Integer) As String
bulan(1) = "Januari"
bulan(2) = "Februari"
bulan(3) = "Maret"
bulan(4) = "April"
bulan(5) = "Mei"
bulan(6) = "Juni"
bulan(7) = "Juli"
bulan(8) = "Agustus"
bulan(9) = "September"
bulan(10) = "Oktober"
bulan(11) = "November"
bulan(12) = "Desember"
syarat1 = bulan(j)
End Function
Public Function syarat2(i As Integer) As Integer
al = Year(Date) + tb
hari(1) = 31
If al Mod 4 = 0 Then
hari(2) = 29
Else
hari(2) = 28
End If
hari(3) = 31
hari(4) = 30
hari(5) = 31
hari(6) = 30
hari(7) = 31
hari(8) = 31
hari(9) = 30
hari(10) = 31
hari(11) = 30
hari(12) = 31
syarat2 = hari(i)
End Function
Sub Command2_Click()
Command1(z).FontBold = False
i = i + 1
If i > 12 Then
i = 1
tb = tb + 1
End If
ok = Year(Date) + tb
Label4.Caption = ok
For a = 0 To 41
Command1(a).Visible = False
Next
Label1.Caption = syarat1(i)
n = 1
For a = ak To syarat2(i) + ak - 1
Command1(a).Caption = n
Command1(a).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = a
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
aw = ak + 35 - 1
ak = a - 35
If aw > 41 Then
aw = aw - 7
End If
If ak < 0 Then
ak = ak + 7
End If
End Sub
Sub Command3_Click()
i = i - 1
Command1(z).FontBold = False
If i = 0 Then
i = 12
tb = tb - 1
End If
ok = Year(Date) + tb
Label4.Caption = ok
Label1.Caption = syarat1(i)
For a = 0 To 41
Command1(a).Visible = False
Next
n = 1
For a = aw - syarat2(i) + 1 To aw
Command1(a).Caption = n
Command1(a).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = a
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
aw = aw - syarat2(i) + 35
If aw > 41 Then
aw = aw - 7
End If
ak = a - 35
If ak < 0 Then
ak = ak + 7
End If
End Sub
Private Sub Form_Load()
For j = 0 To 41
Command1(j).Visible = False
Next
thun = 1989
tb = 0
n = 1
i = 1
Label1.Caption = syarat1(i)
Label4.Caption = Year(Date)
Form1.Caption = Date
a = chek(thun)
aw = a + 34
If aw > 41 Then
aw = aw - 7
End If
For k = a To syarat2(i) + a - 1
Command1(k).Caption = n
Command1(k).Visible = True
If Label4.Caption = Year(Date) Then
If i = Month(Date) Then
If n = Day(Date) Then
z = k
Command1(z).FontBold = True
End If
End If
End If
n = n + 1
Next
ak = k - 35
If ak < 0 Then
ak = ak + 7
End If
For j = 2 To Month(Date)
Call Command2_Click
Next
Label3.Caption = Day(Date)
End Sub
Function chek(jk As Integer) As Integer
ai = Year(Date)
ar = ai - jk
n = 6
For k = 1 To ar
If k Mod 4 = 0 Then
n = n + 1
End If
n = n + 1
If n >= 7 Then
n = n - 7
End If
Next
chek = n
End Function

_________________
BERTEMU LAGI DENGAN SAYA
YAITU ORANG GANTENG PENUH POTENSI DAN KHARISMA YANG SANGAT MENGGAIRAHKAN


YAITU: RYAN'Z SAN RAKAGI



[You must be registered and logged in to see this image.]


ADD MY FACEBOOK
[You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]
Back to top Go down
http://nesaz.lifeme.net
Drw123
Warga Lama
Warga Lama
avatar

Jumlah posting : 126
Join date : 2011-07-05
Age : 19
Lokasi : Bekasi

PostSubject: Re: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:07 pm

Mantap Bang Tutornya!
Jaya Terus Deh!!!

Btw...
Mana Scriptnya Nih?
Aku Masih Nungguin...
Back to top Go down
http://drw-lab.blogspot.com
Ryan San Rakagi
Moderator
Moderator
avatar

Jumlah posting : 260
Join date : 2011-04-19
Age : 22
Lokasi : CIREBON

PostSubject: Re: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:16 pm

Drw123 wrote:
Mantap Bang Tutornya!
Jaya Terus Deh!!!

Btw...
Mana Scriptnya Nih?
Aku Masih Nungguin...


Makasih gan atas pujian nya

dan untuk script nya yg VB 2010 ea gan

ane kasih bentuk file nya aja ea gan biar agan edit sendiri

_________________
BERTEMU LAGI DENGAN SAYA
YAITU ORANG GANTENG PENUH POTENSI DAN KHARISMA YANG SANGAT MENGGAIRAHKAN


YAITU: RYAN'Z SAN RAKAGI



[You must be registered and logged in to see this image.]


ADD MY FACEBOOK
[You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]
Back to top Go down
http://nesaz.lifeme.net
Drw123
Warga Lama
Warga Lama
avatar

Jumlah posting : 126
Join date : 2011-07-05
Age : 19
Lokasi : Bekasi

PostSubject: Re: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:19 pm

Ryan San Rakagi wrote:
Drw123 wrote:
Mantap Bang Tutornya!
Jaya Terus Deh!!!

Btw...
Mana Scriptnya Nih?
Aku Masih Nungguin...


Makasih gan atas pujian nya

dan untuk script nya yg VB 2010 ea gan

ane kasih bentuk file nya aja ea gan biar agan edit sendiri

Siap Bang!!!
Tapi Itu Yang 2010 ya???
Bukan Yang VB6...

Gak Apa Lah...
Back to top Go down
http://drw-lab.blogspot.com
Ryan San Rakagi
Moderator
Moderator
avatar

Jumlah posting : 260
Join date : 2011-04-19
Age : 22
Lokasi : CIREBON

PostSubject: Re: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:21 pm

Drw123 wrote:
Ryan San Rakagi wrote:



Makasih gan atas pujian nya

dan untuk script nya yg VB 2010 ea gan

ane kasih bentuk file nya aja ea gan biar agan edit sendiri

Siap Bang!!!
Tapi Itu Yang 2010 ya???
Bukan Yang VB6...

Gak Apa Lah...

Ea VB 2010 gan

dan untuk melihat program buatan ane yg lain bsa liat di allbout software yg my game

itu buat nya pke VB 6 gan

_________________
BERTEMU LAGI DENGAN SAYA
YAITU ORANG GANTENG PENUH POTENSI DAN KHARISMA YANG SANGAT MENGGAIRAHKAN


YAITU: RYAN'Z SAN RAKAGI



[You must be registered and logged in to see this image.]


ADD MY FACEBOOK
[You must be registered and logged in to see this image.]


[You must be registered and logged in to see this image.]

[You must be registered and logged in to see this image.]
Back to top Go down
http://nesaz.lifeme.net
Drw123
Warga Lama
Warga Lama
avatar

Jumlah posting : 126
Join date : 2011-07-05
Age : 19
Lokasi : Bekasi

PostSubject: Re: Cara Membuat Calender dengan VB 6   Mon Dec 12, 2011 3:41 pm

Ok2
Mana Bang? Kok Belom Di Kirim2...

Aku Lagi Nunggu Pesannya Nih...
Back to top Go down
http://drw-lab.blogspot.com
Sponsored content




PostSubject: Re: Cara Membuat Calender dengan VB 6   

Back to top Go down
 
Cara Membuat Calender dengan VB 6
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Kotak ikan utk SYM VTS 200
» Huggable Heros Calender!And hello kitty!
» Start pakai Jumping Cable or Push Turun Bukit
» cara maintain standard vts200
» Jenis-jenis konvoi

Permissions in this forum:You cannot reply to topics in this forum
cmonhackns.n-stars.org :: Computer Freakz :: All About Programming :: Visual Basic-
Jump to: