Exclusively for Visual Basic 6.0 Programmers Only!

[randyko]

Sir pa tutor po ako paano gumawa ng hotkey sa DOTA.

like if I press alt + Q ma tritrigger nya ang numpad 8
in vb6

thank you po

 

[lass314]

sir any example of using winsock sa vb6 client and server po sana gagawa po ako ng voting system with client eee

 

[neptunecee]

Sir patulong naman po kung sinu marunong gumawa ng sending sms using vb6







-----------
itsok
----------

 

[civramfhe08]

yeah.. tama si sir V...

total, andito naman ang t-cher natin na si sir johntotetwoo, gawa muna tayo ng kaya natin.. kahit panimula lang.. tapos itanong lang natin kay t-cher.. para naman may matutunan tayo.. pwamiz, mas mahirapan kayo kung di nyo subukan...

pwede din naman 1 on 1 tutorial to eh.. ^^ libre pa.. ^^ ask nyo lang kay t-cher kung paano sya i contact..

eto o.. gawa gawa lang.. la kasing ibang maisip eh..


http://www.ziddu.com/download/5374958/Symbianize.rar.html

fading intro = sir totet
link button = sir totet
and the rest, sa net na..

yung may icon sa lower-right-corner, clickable po yun...
yung menu sa upper-left-corner, clickable din yun... doon po makikita ang exit button.. ^^

mas ok kung ang screen resolution ay 1024 x 768 para fulls screen.. ^6

kaya mga bosing, gawa muna tapos pa check para may matutunan..

sir.. pano mo nagawa ung nag ffade bago pumasok un form? un pagka run mo ne2 nag ffade muna.. saLamat.. tsaka paturo po pano mag connect ng vb sa sql database.. yung step by step po. salamat

 

[Jhanosantos123]

mga patulong naman aqh sa received sms using mscomm na pure at commands sa vb6.0-- sana may mkatulong need para sa thesis salamat sa po .

 

[sieg06]

sir knives ano na po balita.

 

[lass314]

sir.. pano mo nagawa ung nag ffade bago pumasok un form? un pagka run mo ne2 nag ffade muna.. saLamat.. tsaka paturo po pano mag connect ng vb sa sql database.. yung step by step po. salamat

use a connection string.
---------
dim rs as adodb.recordset
dim cn as adodb.connection

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=DATABASE PATH"

set rs = new adodb.recordset
rs.Open "select * from TABLE NAME", cn, adOpenKeyset, adLockOptimistic, adCmdText
------------
using the code above naka connect ka na sa database mo using sql statement.. adodb gamit jan

kung may iba kang katanungan just refer here
http://www.vb6.us/tutorials/database-access-ado-vb6-tutorial

 

[rexion]

patambay po ako dito ha

unahan ko na din po ng tanong kung paano makuha ung syntax kung paano po maiset lang na isang character lang ang pwedeng iinput ng user sa text box?

example po:
enter first item: 1 (dapat isang character lang at dapat pupunta na sa next text box yung cursor. posible po ba?)
enter second item: 2

yan po tanong ko sana po nagets neo

 

[jernel]

patambay po ako dito ha

unahan ko na din po ng tanong kung paano makuha ung syntax kung paano po maiset lang na isang character lang ang pwedeng iinput ng user sa text box?

example po:
enter first item: 1 (dapat isang character lang at dapat pupunta na sa next text box yung cursor. posible po ba?)
enter second item: 2

yan po tanong ko sana po nagets neo

brad eto na sagot ko sa tanong mo

Private Sub Text1_Change() 'dapat text change
If Len(Text1.Text) = 1 Then 'check ung number of string
    Text2.SetFocus 'yung next textbox
End If
End Sub

and so on na yan.

kung gusto mo na letter or number lang at walang space eto ang gamitin mo

Private Sub Text1_Change()
If Len(Trim(Text1.Text)) = 1 Then 'trim for spaces
    Text2.SetFocus
End If
End Sub

 

[ehnn09]

how to attach picture po sa sql.
idatabase ko po kasi sana. SQL 5.1 po gamit ko.

 

[jernel]

how to attach picture po sa sql.
idatabase ko po kasi sana. SQL 5.1 po gamit ko.

Dont save images sa database, just the path or filename lang, save the image on folder only. just an advice lang.

 

[rockhyvez]

Dont save images sa database, just the path or filename lang, save the image on folder only. just an advice lang.

Agree ako diyan. Malakas kumain ng space.

 

[execretion009]

Mga tol, pahelp naman ako sa system ko... Need kasi magpasaload ng system ko.. im using smartbro broadband kit lang.. i tried to text ng simpleng text ok naman.. nkakasend and nkakadating din sa recipient pero pag nilagay ko na sa contact ung 808 tapos naglagay ako sa textboxmsg ko ng Number + Pasaload amount. ayaw eh nag sesend pero hindi nag papasa load..

ANY HELP??? THESIS PO KASI SANA PO MATULUNgAN NYO AKO Thanks Guys..

 

[subcero]

need help in datareport... pano po maglagay ng auto numbering
let say there are 7 records that will be display...
then it will be labeled
detail section on th report:
1 ............................
2
3
4
5
6
7

any sudgestion guys or any codes to wok on...gladly appreciated...
tnx...in advance...

 

[IAmDengZ]

pwede po ba magtanong sir anu ano po ba ang ibang nilalaman ng collection system kasi po may nagawa na kami pero design pa lang bale ang flow nya is ..example uutang ka sakin then irerecord ko muna yung mga informations mo ..kung natapos na yung recording is pauutangin na kita and irerecord ko ung inutang mo ... anu pa ba ilalagay ko sir saka po enge nadin ng source code .. anu.po ba magandang database para dun access, ms sql or mysql ? thanks po in advance mabuhay po kayo

 

[holodeck]

guys pwede nyo ba ako gawan ng code ? pinapagawa po kasi skin Jack and poy. dapat ng rarandom po sya.


Eto po image na nagwa ko interface.

eto po ang copy.
http://www.symbianize.com/attachment.php?attachmentid=692514&stc=1&d=1358308345

 

[Proximity666]

Patambay po ako dito gusto ko lang matuto kung pano maging programmer

 

[jernel]

guys pwede nyo ba ako gawan ng code ? pinapagawa po kasi skin Jack and poy. dapat ng rarandom po sya.


Eto po image na nagwa ko interface.

eto po ang copy.
http://www.symbianize.com/attachment.php?attachmentid=692514&stc=1&d=1358308345

My solution for this is random numbers, yung A.I. mo or yung kalaban mo is nakarandom numbers, for example rock = 1, paper = 2, scissors = 3, so ayan pag nakapili ka na, for example rock (w/c is 1), then click play button duon magrarandom ng number ang A.I. so magkakaron ka ng conditional statement dun so example nga rock = 1, tapos example output ng A.I. is paper = 2 so ayon

if paper 2 > rock 1 then you lose

etc.

kailangan mo lang ng matinding conditional statement ayon sa naisip mo.

parang gento

if rock 1 < scissors 3 then you win

kahit na mas mataas ang number na 3 pero since rock ang number 1 edi panalo ka. oh dba? gets mo na?

NOTE: this is just my solution for this one.

EDIT sample code:

Option Explicit
Public sample As Integer

Private Sub Command1_Click()
Dim sagot As Integer

If Option1.Value = True Then
    sagot = 1
ElseIf Option2.Value = True Then
    sagot = 2
ElseIf Option3.Value = True Then
    sagot = 3
End If

sample = RandomInteger(1, 3)
MsgBox ("sagot mo: " & sagot & " random number: " & sample)

End Sub

Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
    RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function

 

[johnrob17k]

sir gawa mo naman ako ng laro kahit anung game mula turbo c or c++ to visual basic 6.0

ung same po na laro project ko lang po tapos pahinge din ako ng codes na mula sa turbo c or c++ na kung saan nanggaling ung game... salamat po kung meron!!

 

[holodeck]

My solution for this is random numbers, yung A.I. mo or yung kalaban mo is nakarandom numbers, for example rock = 1, paper = 2, scissors = 3, so ayan pag nakapili ka na, for example rock (w/c is 1), then click play button duon magrarandom ng number ang A.I. so magkakaron ka ng conditional statement dun so example nga rock = 1, tapos example output ng A.I. is paper = 2 so ayon

if paper 2 > rock 1 then you lose

etc.

kailangan mo lang ng matinding conditional statement ayon sa naisip mo.

parang gento

if rock 1 < scissors 3 then you win

kahit na mas mataas ang number na 3 pero since rock ang number 1 edi panalo ka. oh dba? gets mo na?

NOTE: this is just my solution for this one.

EDIT sample code:

Option Explicit
Public sample As Integer

Private Sub Command1_Click()
Dim sagot As Integer

If Option1.Value = True Then
    sagot = 1
ElseIf Option2.Value = True Then
    sagot = 2
ElseIf Option3.Value = True Then
    sagot = 3
End If

sample = RandomInteger(1, 3)
MsgBox ("sagot mo: " & sagot & " random number: " & sample)

End Sub

Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
    RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function

Salamat sir medyo n gets ko