Exclusively for Visual Basic 6.0 Programmers Only!

[knives645]

Good eve!
back ako sa tanong ko sa visual basic.
I'm making a calculator, pano magandang gawin para once lang pwede pindutin yung decimal (.) i mean pag present na yung tuldok kahit pindutin mo siya wala nang output.

Use INSTR() sir,

If Instr(1, txtInput.Text, ".") > 0 then
'Decimal point was detected here, so just exit
Exit Sub
Else 'Result of INSTR was 0
'If not detected, put the decimal point.
End If

mga sir .. may command po ba sa vb 6 na dapat number lang ang pwedeng ilagay sa text box? at kung character lang dapat ang lalagay sa textbox? otherwise error?

Dun sa Keypress Event, pwede mo i-capture at ignore ang mga key strokes...

Private Sub txtQuantity_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 13
'Allow Enter Key
Case 8
'Allow Backspace
Case 48 To 57, vbKey0 To vbKey9
'Allow only numerics
Case Else
KeyAscii = 0
End Select

End Sub

 

[handseth]

Hello po. Penge nga po ako ng loading bar or o progressbar na nacustomize napo. yung maganda. hehe. Salamat. Godbless.

 

[exil3]

pa elp po finals activity lan po namen...

Use a new function Rnd() to generate a random number. Write an application on a new form to generate a random number between 1 and 6 to simulate rolling of a dice. Your form will need a large picture box with the Autosize property set to true and a command button with the following code behind it..

Gane2 po lan un akin e

Dim x As Integer
x = 0

Picture1.Print

Randomize
'Ensures the start of each sequence of random numbers is also randomised

Do

x = Int(Rnd * 6 + 1)
Picture1.Print x:

Loop Until x <> 6
End Sub..

Umuulit lan un nilalagay kung number

 

[johnaldrinm]

Tanong lang, ano ba problema pag lumalabas yung [ADODC]: Unknown error [ADO]:
sa connection sa ms access kase e. patulong lang . salamat

 

[ialexies]

gumawa ka ng picture 6 na picture using adobe photoshop or any image editing tool
pangalanan mo kada isa.
number1
number2
number3
number4
number5
number6

ang kaylangan kasi ng picture box eh picture ang ilagay mo sa kanya kaya di mo madederekta ilagay yung integer value sa kanya
kaya ilalagay mo sya sa form ng picture. tapos eto lang yung code nya.



Private Sub Command1_Click()
Dim x As Integer
x = Int(Rnd * 6) + 1
If x = 1 Then
Picture1.Picture = LoadPicture(App.Path & "\number1.jpg")
ElseIf x = 2 Then
Picture1.Picture = LoadPicture(App.Path & "\number2.jpg")
ElseIf x = 3 Then
Picture1.Picture = LoadPicture(App.Path & "\number3.jpg")
ElseIf x = 4 Then
Picture1.Picture = LoadPicture(App.Path & "\number4.jpg")
ElseIf x = 5 Then
Picture1.Picture = LoadPicture(App.Path & "\number5.jpg")
ElseIf x = 6 Then
Picture1.Picture = LoadPicture(App.Path & "\number6.jpg")
End If

End Sub



tapos pavisit po ng blogsite ko. artifactors.blogspot.com

- - - Updated - - -

gumawa ka ng picture 6 na picture using adobe photoshop or any image editing tool
pangalanan mo kada isa.
number1
number2
number3
number4
number5
number6

ang kaylangan kasi ng picture box eh picture ang ilagay mo sa kanya kaya di mo madederekta ilagay yung integer value sa kanya
kaya ilalagay mo sya sa form ng picture. tapos eto lang yung code nya.



Private Sub Command1_Click()
Dim x As Integer
x = Int(Rnd * 6) + 1
If x = 1 Then
Picture1.Picture = LoadPicture(App.Path & "\number1.jpg")
ElseIf x = 2 Then
Picture1.Picture = LoadPicture(App.Path & "\number2.jpg")
ElseIf x = 3 Then
Picture1.Picture = LoadPicture(App.Path & "\number3.jpg")
ElseIf x = 4 Then
Picture1.Picture = LoadPicture(App.Path & "\number4.jpg")
ElseIf x = 5 Then
Picture1.Picture = LoadPicture(App.Path & "\number5.jpg")
ElseIf x = 6 Then
Picture1.Picture = LoadPicture(App.Path & "\number6.jpg")
End If

End Sub



tapos pavisit po ng blogsite ko. http://artifactors.blogspot.com/

 

[exil3]

pa elp po finals activity lan po namen...

Use a new function Rnd() to generate a random number. Write an application on a new form to generate a random number between 1 and 6 to simulate rolling of a dice. Your form will need a large picture box with the Autosize property set to true and a command button with the following code behind it..

Gane2 po lan un akin e

Dim x As Integer
x = 0

Picture1.Print

Randomize
'Ensures the start of each sequence of random numbers is also randomised

Do

x = Int(Rnd * 6 + 1)
Picture1.Print x:

Loop Until x <> 6
End Sub..
Run your program clicking the command button several times (until the picture box is
full). Create a link to the program from the menu form (Main) under Iterations … Post
test Loops … Roll the dice.
To produce a random integer x where 0 <= x < N, use the following syntax
x = Int(Rnd * N)
The following statement produces random integers in the range from 51 to 150.
x = Int (Rnd*100 + 51)
The Randomize statement ensures that the start of each sequence of random numbers is
also random.

 

[w33haaa]

In java we use string.length to count the number of characters in a string.
sa visual basic 6 pano yun>? Example :

String :

SYMBIANIZE

Char :
10

 

[mike0924]

help po mga boss ;( please finals po namin pinagagawa po ako ng payroll po,, patulong po please salamat po in advance

 

[Asha305]

mayron kba sir adodc na nakakabit sa form mo? if wla possibly ang error na yan if mayron naman may kulang lang sa configuration mo.. anong gamit mo na provider? ito ba? Microsoft.Jet.OLEDB.4.0;

- - - Updated - - -

help po mga boss ;( please finals po namin pinagagawa po ako ng payroll po,, patulong po please salamat po in advance

post your code please or design..

- - - Updated - - -

pa elp po finals activity lan po namen...

Use a new function Rnd() to generate a random number. Write an application on a new form to generate a random number between 1 and 6 to simulate rolling of a dice. Your form will need a large picture box with the Autosize property set to true and a command button with the following code behind it..

Gane2 po lan un akin e

Dim x As Integer
x = 0

Picture1.Print

Randomize
'Ensures the start of each sequence of random numbers is also randomised

Do

x = Int(Rnd * 6 + 1)
Picture1.Print x:

Loop Until x <> 6
End Sub..
Run your program clicking the command button several times (until the picture box is
full). Create a link to the program from the menu form (Main) under Iterations … Post
test Loops … Roll the dice.
To produce a random integer x where 0 <= x < N, use the following syntax
x = Int(Rnd * N)
The following statement produces random integers in the range from 51 to 150.
x = Int (Rnd*100 + 51)
The Randomize statement ensures that the start of each sequence of random numbers is
also random.

para sa random numbers
ito ang gamit kung code

Public Function RandomNumbers(plngLength As Long) As String
Const ValidChars = "1234567890"
Dim i As Long

Numbers = Space(plngLength)
For i = 1 To plngLength
Mid$(Numbers, i, 1) = Mid$(ValidChars, Int(Len(ValidChars) * Rnd + 1), 1)
Next
End Function

under command button

RandomNumbers (Num)
Text3.Text = Numbers

 

[URAZKY]

sir pano po query ng edit using vb6, yung database ko po is naka-sql server 2005

 

[mike0924]

repost..help po mga boss ;( please finals po namin pinagagawa po ako ng payroll po,, patulong po please salamat po in advance cencia na po i badly needed tomorrow boss kahit anong design nlng po para maisubmit ko po tomorrow po :,( ..adoEmployee.Recordset ...blah blah...yung user po mag iinput...please

 

[cytheria16]

hello mga master!!

tanung ko lng po kung pano ko gagawing Stand alone ung system na ginawa ko..

yung magrarun ung system kahit wlang nakainstall na vb..

kasi pagsinasalang ko sa mga computer na wlang VB6 kung ano anong error lumalabas eh..


pero nagrarun naman po ng maayos pag may vb6 na nakainstall..


HELP NAMAN PO TNX!!

 

[jayps1123]

View attachment 159858

any help po dito galing po kasi to sa windows starter na os then naglipat po ako ng windows8 pano po sol dito? tia

 

[o00paolo00o]

mga idol patulong nmn.


panu ba mag add ng stock gumawa ksi ako ng inventory system
kunayare may

biogesic
50 stock


panu ko dadagdagan??

 

[EasyCure]

[QOUTE]

Dun sa Keypress Event, pwede mo i-capture at ignore ang mga key strokes...[/QUOTE]

BIG :Thanks: sir!

 

[knives645]

sir pano po query ng edit using vb6, yung database ko po is naka-sql server 2005

Query like this?

UPDATE myTable SET Field1 = 1, Field2 = "sample" WHERE Field3 = 9

Paki-elaborate ang problem, para mabigyan ka namin ng maayos na sagot.

hello mga master!!

tanung ko lng po kung pano ko gagawing Stand alone ung system na ginawa ko..

yung magrarun ung system kahit wlang nakainstall na vb..

kasi pagsinasalang ko sa mga computer na wlang VB6 kung ano anong error lumalabas eh..


pero nagrarun naman po ng maayos pag may vb6 na nakainstall..


HELP NAMAN PO TNX!!

Search mo sa Google "Package and Deployment in VB6"

View attachment 897270

any help po dito galing po kasi to sa windows starter na os then naglipat po ako ng windows8 pano po sol dito? tia

Hinahanap yung ocx file, bale missing files, re-install mo lang yung VB6 mo.

- - - Updated - - -

mga idol patulong nmn.


panu ba mag add ng stock gumawa ksi ako ng inventory system
kunayare may

biogesic
50 stock


panu ko dadagdagan??

Parang ganito ang query nyan,
assuming Quantity = 50
plus 10, will be 60...

Update myTable SET Quantity = Quantity + 10 WHERE Description = "Biogesic"

ADODB ba ang gamit mo sa code mo?

 

[jocno1212]

Pahelp naman po, baka my VB project kayo diyan na profile management system? kahit access lang dbase. palink naman, pagaaralan ko lang po, sana matulungan niyo ako, haba na ng nabackread ko eh. yun po. salamat in advance.

field
Name age birthday address contact no email address
baka pwede din malagyan ng pictures.
May nakita kasi ko eh, yun MIS
http://www.symbianize.com/showthread.php?t=1131740
kaso di maedit o maupdate pictures during runtime eh, pahelp naman.

Thanks so much!

 

[cj0107]

Help po. gumagawa po ako ng student information system, may registration na po ako, enlisment nalang po yung kulang. ang gusto ko sanang mangyari pag nakapili n ng course may lalabas na mga available subjects. please help po. defense na mamaya, d ko natatapos system.

 

[knives645]

Help po. gumagawa po ako ng student information system, may registration na po ako, enlisment nalang po yung kulang. ang gusto ko sanang mangyari pag nakapili n ng course may lalabas na mga available subjects. please help po. defense na mamaya, d ko natatapos system.

SQL Statement lang yan eh, nakuh, post mo yung Project mo dito.

 

[cj0107]

sige po. wait lang po

- - - Updated - - -

to na po yung system ko. sana po matulungan nyo ko. salamat