Exclusively for Visual Basic 6.0 Programmers Only!

[maidencruz]

kuya ace! Pac0nvert naman po sa if elseif else statement yung pr0gressbar ko! Nahit na po kita!

 

[harlem09]

pahingi nman po ng mga form background ska icon.. o kahit ung link lang n my magaganda pictures n pedeh idownload..salamat po

 

[shadow046]

kuya ace! Pac0nvert naman po sa if elseif else statement yung pr0gressbar ko! Nahit na po kita!

ma'am eto po sinubukan ko lang ^_^ hindi ko alam kung tama ba pero gumana po yan
newbie lang kasi ako.. self study lang.. 1 month pa lang

Dim x As Integer

Private Sub Form_Load()
x = 1
End Sub

Private Sub Timer5_Timer()
Static d As Integer

If d = 100 Then
d = 0
x = x + 1
End If

If x = 1 Then
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
'Timer1.Enabled = False
ProgressBar1.Visible = False
'Timer2.Enabled = True
ProgressBar2.Visible = True
ProgressBar2.Value = 100
End If

Else
If ProgressBar2.Visible = True Then
ProgressBar2.Value = ProgressBar2.Value - 1
If ProgressBar2.Value = 0 Then
'Timer2.Enabled = False
ProgressBar2.Visible = False
'Timer3.Enabled = True
ProgressBar3.Visible = True
ProgressBar3.Value = 100
End If
Else
If ProgressBar3.Visible = True Then
ProgressBar3.Value = ProgressBar3.Value - 1
If ProgressBar3.Value = 0 Then
'Timer3.Enabled = False
ProgressBar3.Visible = False
'Timer4.Enabled = True
ProgressBar4.Visible = True
End If
Else
If ProgressBar4.Visible = True Then
ProgressBar4.Value = ProgressBar4.Value + 1
If ProgressBar4.Value = 100 Then
'Timer4.Enabled = False
ProgressBar4.Visible = False
Label1.Caption = ("TAPOS NA!!! AYOS BA??? HAHAHA!")

End If
End If
End If
End If
End If
d = d + 1

End Sub

 

[ace_1989]

^ayusin lang natin ng konti sis

Dim x As Integer

Private Sub Form_Load()
x = 1
End Sub

Private Sub Timer5_Timer()
Static d As Integer

If d = 100 Then
d = 0
x = x + 1
End If

If x = 1 Then
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
ProgressBar1.Visible = False
ProgressBar2.Visible = True
ProgressBar2.Value = 100
End If

ElseIf ProgressBar2.Visible = True Then
ProgressBar2.Value = ProgressBar2.Value - 1
If ProgressBar2.Value = 0 Then
ProgressBar2.Visible = False
ProgressBar3.Visible = True
ProgressBar3.Value = 100
End If

ElseIf ProgressBar3.Visible = True Then
ProgressBar3.Value = ProgressBar3.Value - 1
If ProgressBar3.Value = 0 Then
ProgressBar3.Visible = False
ProgressBar4.Visible = True
End If

ElseIf ProgressBar4.Visible = True Then
ProgressBar4.Value = ProgressBar4.Value + 1
If ProgressBar4.Value = 100 Then
ProgressBar4.Visible = False
Label1.Caption = ("TAPOS NA!!! AYOS BA??? HAHAHA!")
End If
End If

d = d + 1

End Sub

^credit goes to shadow

 

[shadow046]

^ayusin lang natin ng konti sis



^credit goes to shadow

ayun ganun pala ^_^ may natutunan na naman ako lagi na lang ang daming end if sa dulo ng code ko

 

[dead060898]

ahm mga sir panu poh gawing installer ung ginawa kung application sa vb?..panu poh ba ipackage kung kelangan my kzamang file ung ginawa ku na application pra gwing installer..salamat poh..

 

[reiner28]

@dead060898

pnta ka sa directory ng vb6 mo tapos hanapin mo ung package and deployment wizard

 

[shadow046]

ahm mga sir panu poh gawing installer ung ginawa kung application sa vb?..panu poh ba ipackage kung kelangan my kzamang file ung ginawa ku na application pra gwing installer..salamat poh..

nyahaha nasagot na kita sa kabilang thread ^_^

 

[maidencruz]

ayan! Nahit ko na kayo kuya shad0w at kuya ace! Thanks po sa eff0rt! O.k po sana yung ginawa ni kuya sunduwu kaso lang eh di pa namin napagaaralan yun baka magtaka sakin yung pr0f ko at pagawin ako ng mga mahihirap na pr0ject! Try ko po to mamaya!

 

[othersideme]

pasubscribe ts. hehe, nakalimutan ko na vb6. review mode

 

[shadow046]

ayan! Nahit ko na kayo kuya shad0w at kuya ace! Thanks po sa eff0rt! O.k po sana yung ginawa ni kuya sunduwu kaso lang eh di pa namin napagaaralan yun baka magtaka sakin yung pr0f ko at pagawin ako ng mga mahihirap na pr0ject! Try ko po to mamaya!

eh ako nga di ko naman alam yung mga yan... basa basa lang ako dito and observe ^_^ may problem nga ako sa post ko sa last 2 previous page di ko magawa T_T

 

[harlem09]

phingi namn sample program ng my save update ska delete...gagawa kc kme ng customer profile.. slamat

 

[sunduwu]

kuya sunduwu! Great j0b! Thanks! Kaya lang hindi pa namin napapag aralan ung case!

bat po kayo nagdeclare ng x=1 sa f0rm l0ad! Tap0s nagdeclare kayo ng static d as integer sa l0ob ng timer! Kuya paki explain naman po oh!
tap0s may d=d+1 pagtap0s ng end select!

pwede po ba na if elseif c0nditi0n yung gawin nyo para maunawaan ko! Hehe!! Thanks kuya! Haha! Hit na kita!

ung declaration ng x=1 sa form load gamit un para sa counter ng progressbar na dapat palabasin... bakit ako nag.declare ng static variable sa loob ng timer event? ang gamit ng static variable declaration para ma e retain ung value ng variable...

kasi ung timer event ng loop un diba? so everytime na magloop ung timer kng normal variable lang ang declaration babalik sa zero

sa static ndi sya babalik sa zero... ung d = d +1 nman pagkatapos dun sa END SELECT yun ang nagpa increment ng static variable... hangang maka abot ng 100 ang value ng d

 

[ericgmejia]

phingi namn sample program ng my save update ska delete...gagawa kc kme ng customer profile.. slamat

http://www.symbianize.com/showthread.php?t=163979

 

[Muzik]

mga sir kuha lang sanaq idea kung panu po makakasave ng data sa mysql ng word File(MSword) na mag auto convert po sa pdf file pag click ang "print button or view button" po sa vb6weep:

 

[bdo27]

ERRORperation is not allowed when the object is closed... anu po kaya prob dito?

Private Sub Command1_Click()
Dim sql As String

sql = "CREATE TABLE Persons(P_Id int,LastName varchar(255),FirstName varchar(255),Address varchar(255),City VarChar(255))"


Adodc1.RecordSource = sql
Adodc1.Refresh



End Sub

 

[bdo27]

ERRORperation is not allowed when the object is closed... anu po kaya prob dito?

Private Sub Command1_Click()
Dim sql As String

sql = "CREATE TABLE Persons(P_Id int,LastName varchar(255),FirstName varchar(255),Address varchar(255),City VarChar(255))"


Adodc1.RecordSource = sql
Adodc1.Refresh



End Sub

 

[mykjohperz]

meron po ba kayo databse for dental records? lagay ko sana sa clinic ng ate ko...help nman mga ka symb...salamat!

 

[reiner28]

@mykjohperz

buddy kaya mo ba gumawa? if kaya then try mo sya gawin tapos mag post ka dito ng mga di mo makuha... pero kung di mo naman kaya then punta ka sa planet-source-code

dun maraming programs na free to download gamit ka lang ng search

 

[Nijen]

My software ka tol na mka read ng barcode??my barcode scanner na ako