ader sesapa yang boleh bgtau ape kebaikan VB component?
+20
yuseka
clickpeace
malaynux
johnburn
MalaYneuMaya
sobrija
putri
ijadbalqis
Hansz
the twelve
masokis
LanoG
mfaizal2008
adiey
ammartok
hairulfadly
TJ-Ariff
nylowfar
kasut jepun
zeayfa
24 posters
Visual Basic
zeayfa- Ahli Baharu
- Number of posts : 2
Registration date : 24/02/2009
- Post n°1
visual basic
Assalamuaalaikum..
ader sesapa yang boleh bgtau ape kebaikan VB component?
ader sesapa yang boleh bgtau ape kebaikan VB component?
kasut jepun- Ahli Baharu
- Number of posts : 20
Registration date : 19/02/2009
- Post n°2
Re: Visual Basic
zeayfa wrote:Assalamuaalaikum..
ader sesapa yang boleh bgtau ape kebaikan VB component?
boleh letak calender kat form..
boleh letak flash loading
mcm2 la..
nylowfar- Ahli Baharu
- Gender : Female Number of posts : 7
Age : 36
Registration date : 12/03/2009
- Post n°3
Re: Visual Basic
salam..
mcm mne nk gne vb ek?
i mean the coding..
n mcm mna nk link form to form?
mcm mne nk gne vb ek?
i mean the coding..
n mcm mna nk link form to form?
TJ-Ariff- Supervisor
- Gender : Male Number of posts : 473
Age : 104
Location : D'Royal City Of Silver
Job/hobbies : IT / membaca / Santai
Registration date : 17/02/2009
- Post n°4
Re: Visual Basic
nak link kan macam mana maksud ko tu..?
tapi untuk membuat memaparkan form yang ko dah buat kena ada arahan.
tak kiralah arahan dengan menekan butang atau guna timer.
contoh:
dari form1 akan paparkan form2 dengan menekan butang yang ada di form1.
code:
form2.show
tapi untuk membuat memaparkan form yang ko dah buat kena ada arahan.
tak kiralah arahan dengan menekan butang atau guna timer.
contoh:
dari form1 akan paparkan form2 dengan menekan butang yang ada di form1.
code:
form2.show
nylowfar- Ahli Baharu
- Gender : Female Number of posts : 7
Age : 36
Registration date : 12/03/2009
- Post n°5
Re: Visual Basic
to TJ-Ariff,
sorry r kte mmg xtau lgsg sal vb sbb xpnh blaja pn..
tp kte nyer supervisor nk kte pkai vb 4 my system.
da gak la notes y dia bg tp xphm sgt..
note rgks je..
mtk tlg dia xplen tp dia ckp dh lupa daaa...
huhu...
coding dia mmg xbyk ker?
help me...!!
sorry r kte mmg xtau lgsg sal vb sbb xpnh blaja pn..
tp kte nyer supervisor nk kte pkai vb 4 my system.
da gak la notes y dia bg tp xphm sgt..
note rgks je..
mtk tlg dia xplen tp dia ckp dh lupa daaa...
huhu...
coding dia mmg xbyk ker?
help me...!!
nylowfar- Ahli Baharu
- Gender : Female Number of posts : 7
Age : 36
Registration date : 12/03/2009
- Post n°6
Re: Visual Basic
sy bdk br bljr..;p
TJ-Ariff- Supervisor
- Gender : Male Number of posts : 473
Age : 104
Location : D'Royal City Of Silver
Job/hobbies : IT / membaca / Santai
Registration date : 17/02/2009
- Post n°7
Re: Visual Basic
Tak per, no hal...
kalau boleh cuba ko bagi draft apa yg supervisor ko nak tu..
step by step and flow chart how the programs run..
nanti kat sini ramai kawan2 yg boleh menolong...
kalau boleh cuba ko bagi draft apa yg supervisor ko nak tu..
step by step and flow chart how the programs run..
nanti kat sini ramai kawan2 yg boleh menolong...
hairulfadly- Moderators
- Gender : Male Number of posts : 281
Age : 40
Location : Kuala Lumpur
Job/hobbies : Wayang
Registration date : 03/03/2009
- Post n°8
Re: Visual Basic
kalau nak tutorial yang banyak boleh tgk kat forum lama putera.com..
nylowfar- Ahli Baharu
- Gender : Female Number of posts : 7
Age : 36
Registration date : 12/03/2009
- Post n°9
Re: Visual Basic
forum lama putera.com?
msk ktne?
sori...
msk ktne?
sori...
ammartok- Ahli Baharu
- Gender : Male Number of posts : 302
Age : 30
Location : Jenderam,Sepang
Job/hobbies : Godek PC
Registration date : 06/03/2009
- Post n°10
Re: Visual Basic
katne nak download visual basic???sorry ak tnye soalan bodo...
nylowfar- Ahli Baharu
- Gender : Female Number of posts : 7
Age : 36
Registration date : 12/03/2009
- Post n°11
Re: Visual Basic
xpe..kte sma2 bdk br bljr..
huhuu....
visual basic pe?
lau vb 2008 express edition tau la..;p
huhuu....
visual basic pe?
lau vb 2008 express edition tau la..;p
adiey- Ahli Baharu
- Gender : Male Number of posts : 1
Location : kuantan
Registration date : 18/03/2009
- Post n°12
assalamualaikum
ade saper2 boleh tolong
camana nk remove character dalam file yang bercampur ngn number menggunakan vb 6????????
lau boleh nk segera...
camana nk remove character dalam file yang bercampur ngn number menggunakan vb 6????????
lau boleh nk segera...
mfaizal2008- Ahli Baharu
- Gender : Male Number of posts : 217
Age : 43
Location : Cyberjaya
Job/hobbies : Technician
Registration date : 01/03/2009
- Post n°13
Re: Visual Basic
Visual Basic ni ada dua jenis, satu Visual Basic 6.0 satu lg Visual Basic .Net, VB 6.0 lebh mudah difahami sebab bahasa dia yg mudah manakala VB.Net ni agak menyerupai aturcara C++ kerana melibatkan OOP, VB 6 lak lbh kpd GUI....
Installer VB 6.0 boleh dpt kat sini: http://abbasbajwa.softarchive.net/microsoft_visual_studio_included_sp_dvd.14842.html
Installer VB 6.0 boleh dpt kat sini: http://abbasbajwa.softarchive.net/microsoft_visual_studio_included_sp_dvd.14842.html
LanoG- Moderators
- Gender : Male Number of posts : 537
Location : Petaling Jaya
Job/hobbies : Basuh Pinggan
Registration date : 04/05/2009
- Post n°14
Re: Visual Basic
Pakai VB.Net pun boleh gak drag and drop jer... dah jadi application.. hehehe. Tapi yang simple2 lah. Kalau nak yang free bleh guna VB 2008 Express Edition. Macam2 boleh buat, pastu boleh terus compile ke bentuk exe, letak icon mana ko nak kat program ko tu... nak jual pun boleh..
mfaizal2008- Ahli Baharu
- Gender : Male Number of posts : 217
Age : 43
Location : Cyberjaya
Job/hobbies : Technician
Registration date : 01/03/2009
- Post n°15
Re: Visual Basic
that's right tp yg baru nak berjinak-2 elok guna VB dulu la....
masokis- Ahli Baharu
- Number of posts : 47
Registration date : 12/05/2009
- Post n°16
Re: Visual Basic
hish..mesti starter thread ni malas nak reseach.
Tapi tak apalah. putera sporting jer...
Tapi tak apalah. putera sporting jer...
the twelve- Ahli Baharu
- Number of posts : 49
Registration date : 17/06/2009
- Post n°17
Re: Visual Basic
sahabat sekalian. ada note tak pasal VB ni? aku nak kena wat final projek, program guna VB ni..
Hansz- Ahli Baharu
- Gender : Male Number of posts : 184
Age : 36
Location : Kuala Kangsar, Perak
Job/hobbies : PHP, Design, Developing, Composing, Computer
Registration date : 01/06/2009
- Post n°18
Re: Visual Basic
the twelve wrote:sahabat sekalian. ada note tak pasal VB ni? aku nak kena wat final projek, program guna VB ni..
Tak faham...
Ko nak note tajuk apa ?? :-/
Ko nak note ker nak Tutorial ?? :-/
ijadbalqis- Ahli Baharu
- Gender : Male Number of posts : 4
Age : 36
Location : KL-Sg.Besi
Job/hobbies : Learning
Registration date : 03/06/2009
- Post n°19
Re: Visual Basic
aslmkm semua,
visual basic 6 mcm mn nk print statement...ade sesiape bly tlg tak?
visual basic 6 mcm mn nk print statement...ade sesiape bly tlg tak?
Hansz- Ahli Baharu
- Gender : Male Number of posts : 184
Age : 36
Location : Kuala Kangsar, Perak
Job/hobbies : PHP, Design, Developing, Composing, Computer
Registration date : 01/06/2009
- Post n°20
Re: Visual Basic
ijadbalqis wrote:aslmkm semua,
visual basic 6 mcm mn nk print statement...ade sesiape bly tlg tak?
http://www.vb6.us/tutorials/understanding-semicolans-and-print-method
putri- Ahli Baharu
- Gender : Female Number of posts : 87
Location : Jay Bee
Job/hobbies : suka kumpul kasut byk2
Registration date : 17/07/2009
- Post n°21
Re: Visual Basic
ijadbalqis wrote:aslmkm semua,
visual basic 6 mcm mn nk print statement...ade sesiape bly tlg tak?
wslm...
kalo sy xterslh phm soklan cdg dia cm ni la...:-
form1.PrintForm
sobrija- Ahli Baharu
- Number of posts : 2
Registration date : 02/12/2009
- Post n°22
Re: Visual Basic
- Code:
Dim stID As String
Dim i, j, k As Integer
Dim cRec, cItem As Integer
Dim RVal As Variant
Dim maxRec As Integer
Dim SVal() ' Dynamic array
Dim bModify As Boolean
Dim stID2 As String
bModify = False
stID2 = ""
If Me.obRef.Value Then
If Me.obSec1.Value Then stID = Range("sIR1").Value
bModify = True
End If
RVal = lbDProc.List
cRec = UBound(RVal, 1)
cItem = UBound(RVal, 2)
j = 0
For i = 0 To cRec
If lbDProc.Selected(i) Then j = j + 1
Next i
maxRec = j - 1
If maxRec < 0 Then Exit Sub
ReDim SVal(maxRec, cItem)
j = 0
For i = 0 To cRec
If lbDProc.Selected(i) Then
For k = 0 To cItem
SVal(j, k) = RVal(i, k)
Next k
j = j + 1
End If
Next i
Beep
Call PutList(stID, SVal, maxRec, cItem, bModify, stID2, Me.cbAdd.Value)
End Sub
Tolong Tak faham ni . Baru belajar nih.
Last edited by LanoG on Wed Dec 02, 2009 9:12 pm; edited 2 times in total (Reason for editing : masukkan dalam code style as suggested by MalayNeuMaya)
MalaYneuMaya- Moderators
- Gender : Male Number of posts : 1044
Age : 39
Job/hobbies : kejar biawak, kunyah milo beku
Registration date : 18/02/2009
- Post n°23
Re: Visual Basic
assalamualaikum...
bro kalu guna func
bro kalu guna func
- Code:
[code] ~ script ~ [/code]
sobrija- Ahli Baharu
- Number of posts : 2
Registration date : 02/12/2009
- Post n°24
Re: Visual Basic
waalaikumsalam, Kawan ni sebenarnye dah pening. Kawan klik button untuk pindahkan dari List box ke worksheet range (Microsoft Excel ), tapi list yang kite select tu belum ade tapi msg kluar kate dah ade.
kod seperti kat bawah ni
Maaf, kawan betul betul pening pasal ni. kawan selak kat program yang member kawan tinggalkan kat company kawan pasal nak amend sikit program tu. member kawan tu kat maner tak tau...lost contact.
kod seperti kat bawah ni
- Code:
Public Sub PutList(fmID As String, VData As Variant, _
iMax As Integer, jMax As Integer, _
Optional bModify As Boolean = False, _
Optional fmID2 As String = "", _
Optional bAppend As Boolean = True)
'
'
Dim fmTarget As String
Dim tMsg As String
Dim bSkip As Boolean
Dim bAgain As Boolean
Dim i As Integer
Dim idx As Integer
Dim iRec As Integer
Dim xMax As Integer
Dim yMax As Integer
Dim RSData As Variant
Dim TData()
If bModify Then
idx = 4
RSData = ModifyData(VData, idx, 3)
SData = RSData
xMax = UBound(SData, 1)
yMax = UBound(SData, 2)
Else
idx = 1
SData = VData
xMax = iMax
yMax = jMax
End If
ReDim TData(idx - 1, yMax)
'For d = 0 To xMax Step idx ' For every selected item
fmTarget = fmID
bAgain = False
AGAIN:
iRec = 0
With Range(fmTarget)
.Show
Do While Not IsEmpty(.Offset(iRec, 0))
iRec = iRec + idx
If (iRec > 27 And bAgain) Or iRec > 999 Then
tMsg = "Unable to find empty cell"
MsgEx (tMsg)
Exit Sub
End If
Loop
If bModify And iRec > 27 Then GoTo RESCAN
For i = 0 To xMax Step idx
iCnt = 0
For p = 0 To idx - 1 ' to check whether they exist!
For q = 0 To yMax
If TData(p, q) = SData(i + p, q) Then iCnt = iCnt + 1
TData(p, q) = SData(i + p, q)
Next q
Next p
CData = TData
' Skip if the last data already checked
If (bAgain And iCnt = idx * (yMax + 1)) Then GoTo SKIPDATA
If RecInList(fmID, yMax + 1, CData, bModify, idx, fmID2) Then
bSkip = True
GoTo SKIPDATA ' Skip if data existed
End If
' Put data in the list
For m = 0 To idx - 1
For j = 0 To yMax
If bAppend Then
.Offset(iRec + m, j).Value = CData(m, j)
Else
.Offset(i + m, j).Value = CData(m, j)
End If
Next j
Next m
iRec = iRec + idx
SKIPDATA:
If iRec > 27 Then GoTo RESCAN
Next i
End With
RESCAN:
If fmID2 <> "" And Not (bAgain) Then
bAgain = False
fmTarget = fmID2
GoTo AGAIN
End If
'Next d
If bSkip Then
tMsg = "Some or all of the items selected" & Chr(13) & _
"you are trying to put in the list" & Chr(13) & _
"are already existed."
MsgEx (tMsg)
End If
End Sub
Maaf, kawan betul betul pening pasal ni. kawan selak kat program yang member kawan tinggalkan kat company kawan pasal nak amend sikit program tu. member kawan tu kat maner tak tau...lost contact.
LanoG- Moderators
- Gender : Male Number of posts : 537
Location : Petaling Jaya
Job/hobbies : Basuh Pinggan
Registration date : 04/05/2009
- Post n°25
Re: Visual Basic
Kepada en. Sobrija, sebenarnya apa problem anda dengan kod berkenaan? Masih kurang paham. Cuba terangkan program yang anda gunakan dan objektif yang ingin anda capai dengan kod berkenaan...