Exclusively for Visual Basic 6.0 Programmers Only!

[cvbcvb000]

Mga sir... pahelp naman po..code po for Auto Upper Case yung first Letter ng Textbox.. maraming salamat po.

 

[yt758b34vh83]

Mga sir... pahelp naman po..code po for Auto Upper Case yung first Letter ng Textbox.. maraming salamat po.

myString= StrConv(myString, vbProperCase)

 

[yt758b34vh83]

Formula

Rating in % = (score/items) * .50 + .50 * 100

Bug:

"a = Val(txtScore.Text)"
"b = Val(txtItems.Text)"

Invalid Outside Procedure.

--

​

Private Sub Command1_Click()
a = Val(txtScore.Text)
b = Val(txtItems.Text)
c = (a / b) * 0.5
d = c + 0.5
e = d * 100
lblRating.Caption = e
End Sub

ipasok mo sa loob ng event ung action mo ^^

 

[cvbcvb000]

myString= StrConv(myString, vbProperCase)

san po cya lalagay?.. text1_keypress(keyascii as integer) ?

 

[yt758b34vh83]

san po cya lalagay?.. text1_keypress(keyascii as integer) ?

sa Change event lang . text1.text=strconv(text1.text,vbpropercase)

 

[BlackFryday]

possible po kaya na magkaroon ng calendar type components sa vb6? for example pag nag click ako sa isang date sa calendar makakagawa ako ng appointer for that day. tnx

 

[tanod]

Gusto kong mag add ng additional amount sa quantity ng item, from another form(parang pop-up ang style), paano po ang gagawin dun?

Add or deduct quantities sa database, please help.

 

[cvbcvb000]

sa Change event lang . text1.text=strconv(text1.text,vbpropercase)

Sir... nag uupper case nga po pero pabaliktad ang Type kapag tinype ang "GOD" ang lalabas "DOG"

 

[yt758b34vh83]

Sir... nag uupper case nga po pero pabaliktad ang Type kapag tinype ang "GOD" ang lalabas "DOG"

napupunta kasi sa unahan yung cursor .

Private Sub Text1_Change()
Text1.Text = StrConv(Text1.Text, vbProperCase)
Text1.SelStart = Len(Text1.Text)
End Sub

 

[cvbcvb000]

sa Change event lang . text1.text=strconv(text1.text,vbpropercase)

napupunta kasi sa unahan yung cursor .

Thanks... Sir and more powers
sir may isa po akong tanong Filtering Reports po... sample program salamat po.. or baka may library system po kayo

 

[gutomlagi]

mga sir isang problem na lang po....kapag sinara ni server ung form eh mag sasara din dapat ung forn ni client...pano po un mga master?

 

[jhii_07]

Sir baka may sample kayo jan ng class scheduler ung simple lang ms access ung db. Thanks po

 

[naglasnats]

Request naman po UI ng hotel reservation and billing system. Thanks. SS lang po.

 

[cvbcvb000]

mga sir baka po may Transaction kayo ng Library Sysytem.. 3 days po dapat masoli.. ung Book and hindi po kasama icoucout ung date kapag Sat and Sunday

 

[DiRtYBLaCk01]

penge ako code para sa database..using rfid

 

[Jetley113]

penge naman po ng sample program bout payroll system.. salamat po pa link na lng mga sir

 

[wafu2toll]

sir/maam penge naman aq VB program game na naka connect sa Ms Access

 

[sisboom]

mga idol ba meron kayo diyang sample ng reservation system pashare naman para magawang pattern

 

[bon122728]

Pahelp naman po dagdagan ng MI(memory in),MR(memory recall),MC(memory cancel) buttons etong calcu ko

ung MI po-ung sagot po ng solution eh maiistore
ung MR nmn po- ilalabas nia ung sagot
ung MC po-idedelete nia na po ung inistore na sagot

e2 po code ko d ko alam kong tama ung MI ko..pag nagMR nmn po kc ako False lumalabas..why?hehe help po

Private Sub Command1_Click()
operation.Caption = "+"

End Sub

Private Sub Command2_Click()
operation.Caption = "-"

End Sub

Private Sub Command3_Click()
operation.Caption = "*"

End Sub

Private Sub Command4_Click()
operation.Caption = "/"

End Sub


Private Sub Command5_Click()
operation.Caption = "^"

End Sub

Private Sub Command6_Click()
If (operation = "+") Then
result.Caption = (Val(number1.Text) + Val(number2.Text))
ElseIf (operation = "-") Then
result.Caption = (Val(number1.Text) - Val(number2.Text))
ElseIf (operation = "*") Then
result.Caption = (Val(number1.Text) * Val(number2.Text))
ElseIf (operation = "/") Then
result.Caption = (Val(number1.Text) / Val(number2.Text))
ElseIf (operation = "^") Then
result.Caption = (Val(number1.Text) ^ Val(number2.Text))
End If


End Sub

Private Sub MC_Click()
MI = False
End Sub

Private Sub MI_Click()
Dim MI As Integer
MI = result.Caption
End Sub

Private Sub MR_Click()

End Sub

SS

 

[biscuitz]

Pahelp naman po dagdagan ng MI(memory in),MR(memory recall),MC(memory cancel) buttons etong calcu ko

ung MI po-ung sagot po ng solution eh maiistore
ung MR nmn po- ilalabas nia ung sagot
ung MC po-idedelete nia na po ung inistore na sagot

e2 po code ko d ko alam kong tama ung MI ko..pag nagMR nmn po kc ako False lumalabas..why?hehe help po

Private Sub Command1_Click()
operation.Caption = "+"

End Sub

Private Sub Command2_Click()
operation.Caption = "-"

End Sub

Private Sub Command3_Click()
operation.Caption = "*"

End Sub

Private Sub Command4_Click()
operation.Caption = "/"

End Sub


Private Sub Command5_Click()
operation.Caption = "^"

End Sub

Private Sub Command6_Click()
If (operation = "+") Then
result.Caption = (Val(number1.Text) + Val(number2.Text))
ElseIf (operation = "-") Then
result.Caption = (Val(number1.Text) - Val(number2.Text))
ElseIf (operation = "*") Then
result.Caption = (Val(number1.Text) * Val(number2.Text))
ElseIf (operation = "/") Then
result.Caption = (Val(number1.Text) / Val(number2.Text))
ElseIf (operation = "^") Then
result.Caption = (Val(number1.Text) ^ Val(number2.Text))
End If


End Sub

Private Sub MC_Click()
MI = False
End Sub

Private Sub MI_Click()
Dim MI As Integer
MI = result.Caption
End Sub

Private Sub MR_Click()

End Sub

SS

Private Sub MC_Click()
MI = 0
End Sub

Private Sub MI_Click()
Dim MI As Integer
MI = val(result.Caption)
End Sub

Private Sub MR_Click()
number1.Text = IIf(result.Caption = "",0,result.Caption)
number2.Text = IIf(IsNull(MI), 0,MI)
result.Caption = ""
End Sub