VISUAL BASIC 6.0

[Sandmaster]

Dun nga po ako naguguluhan, hehehe, sa keypress. Hindi ko po alam gamitin. Paano po ba yun? Example naman po kahit isang block lang ng code, let's say gagamitin ko letter 'A'. Thanks. 

[maldihtah13]

try to check this out

Code:

'**************************************
' Name: CheckKeypress
' Description:
' By: Martin Idman
'
' Inputs:KeyAscii from controls keypress
'     -event
cAllowed as a String ("N" For numbers only...)
'
' Returns:KeyAscii for pressed key if ok
'     or nothing and a beep for not ok
'
' Assumes:Put the call in a controls key
'     press-event
Ex: KeyAscii=CheckKeypress(KeyAscii, "N")
Will only allow the user To enter digits In a control
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/vb/scripts/Sho
'     wCode.asp?txtCodeId=1576&lngWId=1'for details.'**************************************



Public Function CheckKeyPress(iKeyIn As Integer, cAllowed As String) As Integer
    Dim cValidKeys As String


    Select Case cAllowed
        Case "N" ' Just numbers
        cValidKeys = "1234567890" & vbCr & vbTab & vbBack
        Case "N1" ' Decimal numbers
        cValidKeys = "1234567890," & vbCr & vbTab & vbBack
        Case "N2" ' Simple math
        cValidKeys = "1234567890+-*/=," & vbCr & vbTab & vbBack
        Case "C" ' Simple characterset(I'm Swedish, hence some strange ones)
        cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI- " & vbCr & vbTab & vbBack
        Case "C1" ' Enhanced characterset
        cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI&#,.-/\+-*%$<>:;@!?=() " & vbCr & vbTab & vbBack
        Case "C2" ' Enhanced + digits
        cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI1234567890½&#,.-/\+-*%$<>:;@!?=() " & vbCr & vbTab & vbBack
        Case "M" ' Mail and WWW
        cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-_/\~:@." & vbCr & vbTab & vbBack
        Case "D" ' Date or telephonenumbers
        cValidKeys = "0123456789-" & vbCr & vbTab & vbBack
    End Select


If InStr(cValidKeys, UCase(Chr(iKeyIn))) Then
    CheckKeyPress = iKeyIn
Else
    Beep
    CheckKeyPress = 0
End If
End Function

I did not do this code so I'm not sure that this will work. I just copied it from somewhere

[7_SeVeN_7]

Dun nga po ako naguguluhan, hehehe, sa keypress. Hindi ko po alam gamitin. Paano po ba yun? Example naman po kahit isang block lang ng code, let's say gagamitin ko letter 'A'. Thanks. 

di ko na masyadong tanda ang VB6 hehehe... kung .NET matutulungan kita

[Sandmaster]

Hehe, Thanks po sa code. Eto nalang po... Pwede po ba magview sa application ko (sa VB6.0 uli ginawa) ng video from my webcam? Kung pwede, pano po? Code po uli.... Thanks 

[maldihtah13]

Usually ksi may ocx file na kailangan pra makita mo ung video. Try mo rin itong code:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=28493&lngWId=1

[Sandmaster]

Maraming maraming salamat po sa lahat ng tumulong. God bless...

[maldihtah13]

Maraming maraming salamat po sa lahat ng tumulong. God bless...

You can also give some pogi point pra nman maging gwapo ung mga tumutulong dito. he he he

[elefonzero]

pls po... ano po ba magandang gawin na project.. vb applications for ece students.. suggetion pls... thanks..

[maldihtah13]

pls po... ano po ba magandang gawin na project.. vb applications for ece students.. suggetion pls... thanks..

control something connected to the computer like ilaw o kya nman to monitor something like temperature and humidity. Marami at limit less nasa programmer ang limit at wla sa posibilities.

[boolean]

Active X Data Object ang gamit ko.. for database backend..

[eugene.dumon]

Bro, relax lang.. kapatid natin yan .. nangangailangan lang ng kunting tulong.. Peace tayo lahat dito ha.. baka mauwi yan sa kung saan saan.. sabi mo dati sa isang thread "I LOVE YOU PRE"..   


-creedcradle

hehe nice one sir...this made me smile.so much love in the world..
haha masarap lang isipin at namnamin yung word na kapatid natin yan'..
naks!..bless you sir

[archangel]

may tanong lang po ako...ano po kaugnayan ng vb6 sa vb.net?
parang upgrade po b ung vb.net?

[maldihtah13]

may tanong lang po ako...ano po kaugnayan ng vb6 sa vb.net?
parang upgrade po b ung vb.net?

Yes but scripts are totally different. I want to try VBDOTNET too..

[archangel]

tnx po..

[.]

patambay....

[7_SeVeN_7]

OOP na ang VB.NET... you need to relearn some things and possibly view things in a different way... it will be a good opportunity to learn object oriented principles and be able to apply it as well

[Roland]

Patulong naman ho. Paano po ba sa Visual Basic 6.0 yung imbes na ileleft-click yung command button eh pipindot nalang sa keyboard ng letter assigned sa command button na yun? Hindi po gagamitan ng ALT ha. Gusto ko po kasi mag-interface na magpapagana ng motor, clockwise (CW) and counter-clockwise (CCW), na pipindot nalang ng key sa keyboard kung CW or CCW. Please.... Salamat. 

Private Sub Form_KeyPress(KeyAscii As Integer)
On Error Resume Next

If KeyAscii = 97 Then ' letter a
    call Umikot_ka_pakaliwa
ElseIf KeyAscii = 98 Then letter b
   call Umikot_ka_pakanan
End If
End Sub

munting example

[cool_Taurus]

Hi,

In my system, I need to use this modem in this two mode : Data and Voice.
For the Data part, no problems.
But for the voice part, I have no sound.
To call someone, I use AT commands in a VB application.
The communication are OK. I receive or i can send a call, but no sound pass beetween the two parts.
Of course, with AT commands, I change the sound and don't put in HP mode :
AT+CMUT = 0
AT+CLVL = 4
If I use Mobile Partner application, The voice are up. If I compare the AT log with mine, the two applications send the same commands.
I think the voice data are not transmit to the audio systems(HP, microphone)

Excuse me for my bad english.

Thanks to help me !

[maldihtah13]

What kind of modem are you using? There are those that doesn't really support audio. There are those who has a mic and audio out port on the modem it self.