Exclusively for Visual Basic 6.0 Programmers Only!

[bluthugs]

wala lang yan idol sagot ko lang yan dito sa problem nya

try mo nga 2ng code na 2:

Private Sub Command1_Click()
Dim a
a = 1 / 2 * (Val(Text1.Text) ^ 2 + Val(Text2.Text)) / 3
Text3.Text = FormatNumber(a, 2)
End Sub

 

[eUzS]

Mali nga yung lumalabas kasi:

a = 7
b = 15

x = (0.5 * (7*7) + (15)) / 3

x = (0.5 * 49 + 15)/3

x = (24.5 + 15)/3

x = (39.5)/3

x = 13.166666666666666666666666666667

Looks like your professor bombed this one.

----------------ahh sir kc ung original post n t0h


--------------------------------------------------
x=1/2((a)^2+(b))/3

paano niyo po malalagyan yan ng code?

ibang result po kasi yung lumabas nung nag-experiment ako. eto yung akin

Private Sub Command1_Click()
Dim x As Integer
a = 7
b = 15
x = Val(0.5 * (a) ^ 2 + (b)) / 3
Text1.Text = Val(x)

End Sub

paano kaya to?

ang lalabas po dapat na value ng x ay 10.67
---------------------------------------------------------------

base s formula x=1/2((a)^2+(b))/3
ung 1/2 ay nklbas s parenthesis.
so it means that the formula should be:

x = 0.5((a)^2+(b))/3

if you will solve this with the given value of a and b as 7,15.

x = 0.5(7^2 + 15)/3

x = 0.5(49 + 15)/3

x = 0.5(64)/3

x = (0.5*64)/3

x = 32/3

x = 10.67



hope this will help.,

 

[maidencruz]

penge naman po ng full installer ng vb6.0, p0rtable po kasi yung nasa akin eh! Sana nasa mf link narin po! Thanks!

 

[shadow046]

patulong po... paano gumawa ng auto update sa GUI ko please pahingi po ng code

 

[jepong89]

Mali nga yung lumalabas kasi:

a = 7
b = 15

x = (0.5 * (7*7) + (15)) / 3

x = (0.5 * 49 + 15)/3

x = (24.5 + 15)/3

x = (39.5)/3

x = 13.166666666666666666666666666667

Looks like your professor bombed this one.

daghang salamat! hindi ko pa to natry!

 

[jepong89]

idol eto na yung need mo wag ka sumuko

hit

marami ring salamat tol! baguhan lang kasi ako sa visual basic.

 

[shadow046]

patulong po sa auto update please... yung pag open sana na autoupdate.exe eh mag download na agad siya ng file sa nilgay na url sa kanya

 

[kayle03]

Hi, medyo off-topic po.. nagbabakasakali lang.. Our client is currently looking for Software Engineers(VB.net) for a BPO firm. If interested po kayo, send me a copy of your cv at [email protected]..

Thanks!

 

[penmaster]

HELP! GETSETTING and SAVESETTING functions

pano po isave ung variable mo sa registry

halimbawa po:

      Dim condition as String
      
      condition = txtinput.text
      'ung variable po na condition(pati ung laman) ang isasave sa registry then i reretrieve
      every time na mag load and form

TIA

 

[pnxstan23]

Pa TUlong po : (Salamat sa lahat ng tutulong) vb6

====================================================
Private Sub Loadlistview()
Dim recordCtr, ctr As String

Closerecordset

ListView1.ListItems.Clear
Openrecordset ("Select * from tblinformation Where " & cbLookin.Text & " Like '" & txtSearch.Text & "%'")
recordCtr = rsInformation.RecordCount
ctr = 1
If recordCtr >= 1 Then
rsInformation.MoveFirst
While Not rsInformation.EOF
Set myitm = ListView1.ListItems.Add(ctr, , rsInformation.Fields("No.").Value)
'myitm.SmallIcon = ImageList1.ListImages.Item("ico").Key
myitm.SubItems(1) = rsInformation.Fields("Fullname").Value
myitm.SubItems(2) = rsInformation.Fields("Lastname").Value
myitm.SubItems(3) = rsInformation.Fields("Firstname").Value

rsInformation.MoveNext
ctr = ctr + 1

Wend
ctr = 1

Else
Exit Sub

End If
End Sub
====================================================
Private Sub ListView1_DblClick()

Dim i As Integer

rsInformation.MoveFirst

For i = 1 To ListView1.ListItems.count
If ListView1.ListItems(i).Selected = True Then

frmAddandUpdate.Image2.Visible = True
frmAddandUpdate.Image3.Visible = False
If Len(rsInformation.Fields("Picture").Value) <> 0 Then
Set frmAddandUpdate.Image2.DataSource = rsInformation
frmAddandUpdate.Image2.DataField = "Picture"
Else
frmAddandUpdate.Image3.Picture = Nothing
End If

frmAddandUpdate.txtLN.Text = rsInformation.Fields("Lastname").Value
frmAddandUpdate.txtFN.Text = rsInformation.Fields("Firstname").Value

End If
rsInformation.MoveNext
Next i

End Sub
=======================================================
Private Sub txtSearch_Change()
Call Loadlistview
If txtSearch.Text = vbNullString Then ListView1.ListItems.Clear
End Sub
========================================================

Ang tanong ko po pag double click ko na po siya ok siya mag papasa ang data, pero
yung sa Picture po lilitaw tapos mawawala agad. Paano po yung sa part ng Picture???
Salmat po sa tutulong

 

[jamessanjose14]

guys.. Matagal na akong nagVB. pero until now di padin ako gumagamit ng Array.. Explain nyo naman sakin if ok lng.. Haba kasi ng codes ko eh..

 

[nhad15]

Hi, medyo off-topic po.. nagbabakasakali lang.. Our client is currently looking for Software Engineers(VB.net) for a BPO firm. If interested po kayo, send me a copy of your cv at [email protected]..

Thanks!

Interested sana ako sa post mo kaso nakabond ako sa company ko 4 2 years as cobol programmer pero i really love if sa MS ako mag poprogram kasi mas dun ako sanay

 

[bluthugs]

Hi, medyo off-topic po.. nagbabakasakali lang.. Our client is currently looking for Software Engineers(VB.net) for a BPO firm. If interested po kayo, send me a copy of your cv at [email protected]..

Thanks!

sir pde po ba khit fresh grad lang wala pa kc akong experience sa work as programmer eh..pero i'm currently taking my Masteral ngaun..

 

[garan]

pwede po makahingi ng link ng visual basic 6.0 ? wala po kasi ko makita sa download section eh . .

salamat mga idol . . .

 

[sunduwu]

pwede po makahingi ng link ng visual basic 6.0 ? wala po kasi ko makita sa download section eh . .

salamat mga idol . . .

e2 Link

http://www.mediafire.com/?2o275ddh593a4

 

[moymoy758]

boss newbie po ako.. Pwde po ba mkahingi nang visual basic 6.0.. Thanks in advance..

 

[lijhay0o6]

ask lng po kung may code kayo ng accounting system??

 

[toonsoldier]

booked

 

[Mykhel28]

Dead na yung link ng package program po..pki up po ulet...

 

[maidencruz]

e2 Link

http://www.mediafire.com/?2o275ddh593a4

kuya! paano po iinstall yung VB6 nyo??? may hinihingi kasi na producy ID eh! pa help please! tutorial naman po jan oh! thanks po!