Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Paltalk Codes


my last ask if any one have codes for paltalk please put them here and thank u




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Paltalk Chat Source Codes
Hey Dont get mad at me if i wasnt suppose to do this, But for the people that use the chat program call paltalk, i have assemble a some cool Codes on my site, I am hoping by doing this others will share too

So go and check it here [URL removed by mderator]
Thanks And lets share lol

Paltalk And The Banner Of Paltalk
Hi I am an admin in one of paltalks rooms.

the reason I posting this is to find out if there is a little piece of code that will allow me to enter scores into the banner without having to type em in everytime. As you may gather I and may others run a triva room so this would help me a great deal. ty.

Some code would be greatful due to the fact I have been racking my brains on it and come up with nothing :'(

Thank you


Regards

JazzMan

Help Please In (paltalk)
can any one give me code to send text from form text box

to chat text box?? like paltalk room text box i want code he send

text from my programm text box to paltalk chat room text box.

please any help??


www.paltalk.com

Trying To Connect To Paltalk
heyy all..

out of experimentation..im trying to connect to Paltalk's server (for those not familiar with Paltalk, its sumthin similar to Msn messenger or AOL chat perhaps) through a VB application i created, using winsock.

Im using a simple connection process...i have Paltalk's server's ip and remote port (which i got from my Internet Security monitoring system)..and i also have the local port thru which my paltalk application connects to their server...

i tried connecting through a different port, i cudnt connect to the server..the state would be "9" (ie. error)...i tried connectin with the same port my patalk application usually connects thru (after logging off or disconnecting the paltalk application ofcourse), it still wudnt connect and the state wud still be "9" ...any possible reasons???

Paltalk Mic Holder
im sorry for asking many time but i want learn
can any one give me code for mic holder f9
to make mic holder for paltalk??

visit to download paltalk:- wwwpaltalk.com

Please Help(paltalk Flooder)
hi. i want help i want make paltalk flooder
please give me code complete code to make chat flooder in paltalk chat rooms please help

u can download paltalk from here www.paltalk.com

Paltalk 7 Programming
Hi, I have already mastered sending text to a paltalk 7 room using API, does anyone know how to take the text from the chatroom and put it into a string?

Alex

Kill Paltalk Banners With API
Hi, can anybody give me an idea where i have gone wrong, I want to disable the banners in the Paltalk chat program, I have used API spy to discover the banner window name... but im confused about what is class child parent ect... please take a look and tell me where i went wrong

Private Sub Command1_Click()

Dim lhWnd As Long
Dim lParentHwnd As Long

' Use this code to find a window
lhWnd = FindWindow("Group", vbNullString)
lParentHwnd = FindWindowEx(lhWnd, 0&, "Shell DocObject View", vbNullString)
' If we found a window
If lParentHwnd > 0 Then
' Use this code to enable or disable window
' Disable window
EnableWindow lParentHwnd, 0
MsgBox "Disabled!"

Else
MsgBox "Cannot find the specified window!"
End If
End Sub

Where FindWindow "Group" the Group is always on the room tilte text so thats why i used that, Shell DocObject is what i get when using an API spy ...i dont use its parant name e.g 932453 ect... because in paltalk it changes every 5 or 10 minutes ......Also i have notic that under the banner is another name called embedded window ....If i use an API spy with a disable function it kills the banner...and this is my goal


any suggections would be great .....many thanks in return ....from a newbie :O)

Is It Possible To Detect A Message In Paltalk
Hi all,

is it possible to detect a specific word that someone sends to the paltalk chat room ? and any idea ? thank you

Please Help(paltalk Invisiable Mode)
can any one help me to make prog to use him in paltalk
like i want visit in paltalk rooms in invisibale mode no bady can see my nickname in room like u visit in chat but no bady see ur nick any one can make code like that??if u can please put code here i want make program for paltalk

Plaese Help(paltalk Text Clear)
hi. i want to make text cleaner like in chat i can clear chat text box in room paltalk if there sombaody now please give me code to make text cleaner for paltalk and thank u.

Here Is Code To Convert Hex Color Codes To Vb Hex Codes
Sorry had an omission in previous file. All sorted now
Click on the link below to download the .frm file. Just double click it and run it. Make an exe if its easier from it.

Sending Text With Color Format In An Auto Greeter For Paltalk
Code:
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _
(ByVal hwnd As Long) As Long

Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_KEYDOWN = &H100
Private Const WM_SETTEXT = &HC

Private lhWnd(1) As Long
Private palLong As Long
Private palGroupName As String
Private palStatusBar As Long
Private palStatusText As String
Private palLastJoined As String
Private palTextBox As Long
Private isRunning As Boolean

Private Sub Form_Load()

With Timer1
.Enabled = False
.Interval = 1
End With

Command1.Caption = "Start Greeter"
Text1.Text = "***-Welcome %sn-***"
isRunning = False

With RichTextBox1
.SelBold = True
.SelColor = vbRed
.SelFontSize = 12
End With
RichTextBox1.SelText = Text1.Text

End Sub

Private Sub Command1_Click()

If isRunning = True Then

Command1.Caption = "Start Greeter"
isRunning = False
Timer1 = False
Else

Command1.Caption = "Stop Greeter"
isRunning = True
Timer1 = True
End If

End Sub

Private Sub Timer1_Timer()

Dim I As Integer
Dim NickName As String
Dim GreetMSG As String


lhWnd(0) = FindWindow("#32770", vbNullString) 'Find Group Window
lhWnd(1) = FindWindowEx(lhWnd(0), 0&, "#32770", vbNullString) 'Find Group Child Win
palStatusBar = FindWindowEx(lhWnd(0), 0&, "msctls_statusbar32", vbNullString)
palGroupName = String(GetWindowTextLength(lhWnd(0)) + 1, Chr$(0))
GetWindowText lhWnd(0), palGroupName, Len(palGroupName)
palTextBox = FindWindowEx(lhWnd(1), 0&, "richedit20a", vbNullString)
palTextBox = FindWindowEx(lhWnd(1), palTextBox, "richedit20a", vbNullString)

If InStr(1, LCase(palGroupName), LCase(" GROUP")) Then 'Verify Group

If isRunning = True Then

palLong = SendMessageLong(palStatusBar, WM_GETTEXTLENGTH, 0&, 0&) 'Get Text Length
palStatusText = String(palLong + 1, " ") 'Create Buffer
Call SendMessageByString(palStatusBar, WM_GETTEXT, palLong + 1, palStatusText) 'Get Text
palStatusText = Left(palStatusText, palLong) 'Remove Blanks

I = InStr(1, palStatusText, "joined") - 13 'Check for Join Messages

If I < 0 Then Exit Sub 'If no join message then GET OUT!

NickName = Mid(palStatusText, 8, I) 'Get the Nickname
On Error Resume Next
AppActivate "Group - Voice Conference"
On Error Resume Next
If palLastJoined <> NickName Then 'Check if not joined already
palLastJoined = NickName 'Remember the last Nickname joined

GreetMSG = Replace(Text1.Text, "%sn", NickName) 'Replace %sn with The NickName
On Error Resume Next
AppActivate "Group - Voice Conference"
On Error Resume Next
Call SendMessageByString(palTextBox, WM_SETTEXT, 0&, GreetMSG) 'Set Text in Box
Call SendMessageLong(palTextBox, WM_KEYDOWN, 13, 0&) 'Press Enter

End If
End If
End If
End Sub

first problem i have if im not click on paltalk it dont welcome them
second one i have is i want it to be bold size 12 and vb color
any ideas

Sending A Message Directly To Paltalk Chat Using Winsock Library
Hello All!
I'm trying to make some kind of client application if I can call it this, for Paltalk.
What I'm trying to do is in a Form, have a Multiple Line Text Control where I see People Messages in the Room like in the Original Paltalk Client. With this application I'm trying to send my messages directly to the paltalk server using Winsock.
For what I have seen Paltalk Uses 2 Ports to comunicate when we enter there, I'm talking about text message Ports. This Ports aren't the same all the time we connect doing a Log In in Paltalk. I can obtain the Actual Ports that Paltalk is Using to comunicate via text messages easily using the "netstat -n" command from command prompt.
I have already stablished connection with the IP of Paltalk and the Port he is using to connect with my client. The Problem is that I cannot see people messages in the Screen and I cannot Send Directly Text Messages to the Paltalk Server.
1st Question is, do you think what I'm trying to do is possible using Winsock Technology.
2nd Question is, when I get a way of sending my messages directly to the paltalk server without using their original client than maybe I will have some problem, because the message package that is sent maybe have some kind of Architecture, some kind of Nikname:message entered, or some thing more complicated. To try to discover wich message package style they are using I think I will have to do some kind of sniffing from the original paltalk client and detect what is going out of my computer to their server and what is it returning to my computer. Do you think this is possible to do? How? Wich application if there is any can I use for this?
If you could help me I would appreciate it allot.
Thank you very much.

How To Convert HTML Color Codes Into VB Color Codes And Vice Versa?
Does anybody know how to convert HTML color codes into VB color codes and vice versa?

For example convert #DDDDDD html color code into
a visual basic color code and a visual basic color code into
a html color code?

Changing Asni Color Codes To Rtf Color Codes
how do i go about converting asni color codes to rtf color codes..

How To Convert Ascii Codes To Letters, And How To Uncode Letters To Ascii Codes?
how to convert ascii codes to letters, and how to uncode letters to ascii codes?
eg 65=a
a=65

Key Codes
What are the key codes for W A S D?

Codes!
WARNIGN SOME BIGG CODES IS coming up!
this is my code so far in mah first game : PACMAN...and believe it or not i am doing all that great!..but neways ummm my food part works only thing is i want it to be more effecient as in it should jus disappear as Soon as trhere is a contact with PACMAN...and i haven;t worked on walls as yet......ne ideas bout tht??....IM NOT USING BITBLT...so forget it!
here it is


Code:
Dim OLDPOSX As Long 'hold the X-position of image before updating
Dim OLDPOSY As Long ' hold the Y-position of image before updating
Dim OLDPOSX2 As Long 'HOLDS THE X-POSITION ALONGWITH THE WIDTH
Dim OLDPOSY2 As Long ' HOLDS THE Y-POSITION ALONGWITH WITH THE HEIGHT
Dim WALLCOL As Boolean ' FOR THE WALL
Dim FOOD As Boolean ' FOR THE FOOD
Dim DEAD As Boolean 'FOR COLLISION WITH THE GHOST
Dim PHASE As Integer 'VARIABLE TO KEEP DIRECTION OF PACMAN'S MOUTH
Dim COUNTER As Integer
Dim LIVES As Integer

Private Sub form_load()
PicPacm(0).Visible = True
PicPacm(1).Visible = True
LIVES = 3

End Sub




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)




'TO MOVE THE PAC MAN
Select Case KeyCode
Case vbKeyLeft
PicPacm(7).Visible = True
PicPacm(6).Visible = True
PicPacm(0).Visible = False
PicPacm(1).Visible = False
PicPacm(2).Visible = False
PicPacm(3).Visible = False
PicPacm(4).Visible = False
PicPacm(5).Visible = False
PicPacm(7).Left = PicPacm(7).Left - 100
PicPacm(6).Left = PicPacm(6).Left - 100
PicPacm(1).Left = PicPacm(1).Left - 100
PicPacm(0).Left = PicPacm(0).Left - 100
PicPacm(2).Left = PicPacm(2).Left - 100
PicPacm(3).Left = PicPacm(3).Left - 100
PicPacm(4).Left = PicPacm(4).Left - 100
PicPacm(5).Left = PicPacm(5).Left - 100

PHASE = 6
Case vbKeyUp
PicPacm(4).Visible = True
PicPacm(5).Visible = True
PicPacm(7).Visible = False
PicPacm(6).Visible = False
PicPacm(0).Visible = False
PicPacm(1).Visible = False
PicPacm(2).Visible = False
PicPacm(3).Visible = False
PicPacm(7).Top = PicPacm(7).Top - 100
PicPacm(6).Top = PicPacm(6).Top - 100
PicPacm(1).Top = PicPacm(1).Top - 100
PicPacm(0).Top = PicPacm(0).Top - 100
PicPacm(2).Top = PicPacm(2).Top - 100
PicPacm(3).Top = PicPacm(3).Top - 100
PicPacm(4).Top = PicPacm(4).Top - 100
PicPacm(5).Top = PicPacm(5).Top - 100

PHASE = 4
Case vbKeyRight
PicPacm(1).Visible = True
PicPacm(0).Visible = True
PicPacm(4).Visible = False
PicPacm(5).Visible = False
PicPacm(7).Visible = False
PicPacm(6).Visible = False
PicPacm(2).Visible = False
PicPacm(3).Visible = False
PicPacm(7).Left = PicPacm(7).Left + 100
PicPacm(6).Left = PicPacm(6).Left + 100
PicPacm(1).Left = PicPacm(1).Left + 100
PicPacm(0).Left = PicPacm(0).Left + 100
PicPacm(2).Left = PicPacm(2).Left + 100
PicPacm(3).Left = PicPacm(3).Left + 100
PicPacm(4).Left = PicPacm(4).Left + 100
PicPacm(5).Left = PicPacm(5).Left + 100

PHASE = 0
Case vbKeyDown
PicPacm(3).Visible = True
PicPacm(2).Visible = True
PicPacm(1).Visible = False
PicPacm(0).Visible = False
PicPacm(4).Visible = False
PicPacm(5).Visible = False
PicPacm(7).Visible = False
PicPacm(6).Visible = False
PicPacm(7).Top = PicPacm(7).Top + 100
PicPacm(6).Top = PicPacm(6).Top + 100
PicPacm(1).Top = PicPacm(1).Top + 100
PicPacm(0).Top = PicPacm(0).Top + 100
PicPacm(4).Top = PicPacm(4).Top + 100
PicPacm(5).Top = PicPacm(5).Top + 100
PicPacm(2).Top = PicPacm(2).Top + 100
PicPacm(3).Top = PicPacm(3).Top + 100

PHASE = 2
End Select



'FOR THE WALLS
'For j = 0 To 12

'If < imgWall(j).Left Or oldposX1 > (imgWall(j).Left + imgWall(j).Width) Or OLDPOSY2 < imgWall(j).Top Or oldposy1 > (imgWall(j).Top + imgWall(j).Height) Then
' WALLCOL = True
' Else
' WALLCOL = False
'End If
'Next j

'CONDITION FOR THE BOOLEAN OPERATOR
'For i = 0 To 7
' If WALLCOL = True Then
' PicPacm(i).Top = PicPacm(i).Top - 80
' End If
'Next i

X1 = PicPacm(0).Left
X2 = PicPacm(0).Left + PicPacm(0).Width
Y1 = PicPacm(0).Top
Y2 = PicPacm(0).Top + PicPacm(0).Height


If PicPacm(0).Visible = True And PicPacm(1).Visible = True Then
X1 = X1 + 80
X2 = X2 + 80
ElseIf PicPacm(6).Visible = True And PicPacm(7).Visible = True Then
X1 = X1 - 80
X2 = X2 - 80
ElseIf PicPacm(2).Visible = True And PicPacm(3).Visible = True Then
Y1 = Y1 + 80
Y2 = Y2 + 80
ElseIf PicPacm(4).Visible = True And PicPacm(5).Visible = True Then
Y1 = Y1 - 80
Y2 = Y2 - 80
End If


'FOR FOOD
For i = 0 To 11

If X1 >= imgFood(i).Left And X1 <= imgFood(i).Left + imgFood(i).Width And Y1 >= imgFood(i).Top And Y1 <= imgFood(i).Top + imgFood(i).Height Then
imgFood(i).Visible = False

ElseIf X1 >= imgFood(i).Left And X1 <= imgFood(i).Left + imgFood(i).Width And Y2 >= imgFood(i).Top And Y2 <= imgFood(i).Top + imgFood(i).Height Then
imgFood(i).Visible = False

ElseIf X2 >= imgFood(i).Left And X2 <= imgFood(i).Left + imgFood(i).Width And Y1 >= imgFood(i).Top And Y1 <= imgFood(i).Top + imgFood(i).Height Then
imgFood(i).Visible = False


ElseIf X2 >= imgFood(i).Left And X2 <= imgFood(i).Left + imgFood(i).Width And Y2 >= imgFood(i).Top And Y2 <= imgFood(i).Top + imgFood(i).Height Then

If Y1 >= imgFood(i).Left And Y1 <= imgFood(i).Left + imgFood(i).Width And imgFood(i).Visible = True Then
imgFood(i).Visible = False


ElseIf Y2 >= imgFood(i).Left And Y2 <= imgFood(i).Left + imgFood(i).Width And imgFood(i).Visible = True Then
imgFood(i).Visible = False


End If


End If




Next i
lblSco1.Caption = COUNTER

If lblSco1.Caption = 12 Then
MsgBox "YEH!!......WAY TO GO!"
Unload frmLev1
Unload FrmIntro1

End If


'FOR THE COLLISION WITH BLUE GHOST
For i = 1 To 7
If PicPacm(i).Left >= ImgGhost.Left And PicPacm(i).Left <= ImgGhost.Left + ImgGhost.Width And PicPacm(i).Top >= ImgGhost.Top And PicPacm(i).Top <= ImgGhost.Top + ImgGhost.Height Then
DEAD = True
LIVES = LIVES - 1
ElseIf PicPacm(i).Left >= ImgGhost.Left And PicPacm(i).Left <= ImgGhost.Left + ImgGhost.Width And PicPacm(i).Top + PicPacm(i).Height >= ImgGhost.Top And PicPacm(i).Top + PicPacm(i).Height <= ImgGhost.Top + ImgGhost.Height Then
DEAD = True

ElseIf PicPacm(i).Left + PicPacm(i).Width >= ImgGhost.Left And PicPacm(i).Left + PicPacm(i).Width <= ImgGhost.Left + ImgGhost.Width And PicPacm(i).Top >= ImgGhost.Top And PicPacm(i).Top <= ImgGhost.Top + ImgGhost.Height Then
DEAD = True

ElseIf PicPacm(i).Left + PicPacm(i).Width >= ImgGhost.Left And PicPacm(i).Left + PicPacm(i).Width <= ImgGhost.Left + ImgGhost.Width And PicPacm(i).Top + PicPacm(i).Height >= ImgGhost.Top And PicPacm(i).Top + PicPacm(i).Height <= ImgGhost.Top + ImgGhost.Height Then

If PicPacm(i).Top >= ImgGhost.Left And PicPacm(i).Top <= ImgGhost.Left + ImgGhost.Width And ImgGhost.Visible = True Then
DEAD = True


ElseIf PicPacm(i).Top + PicPacm(i).Height >= ImgGhost.Left And PicPacm(i).Top + PicPacm(i).Height <= ImgGhost.Left + ImgGhost.Width And ImgGhost.Visible = True Then
DEAD = True



End If
End If


Next i

If DEAD = True Then

MsgBox "GAME OVER!"
DEAD = False
PicPacm(0).Visible = True
PicPacm(1).Visible = True
PicPacm(2).Visible = False
PicPacm(3).Visible = False
PicPacm(4).Visible = False
PicPacm(5).Visible = False
PicPacm(6).Visible = False
PicPacm(7).Visible = False
PicPacm(0).Left = 360 And PicPacm(o).Top = 3240
PicPacm(1).Left = 360 And PicPacm(1).Top = 3240
PicPacm(2).Left = 360 And PicPacm(2).Top = 3240
PicPacm(3).Left = 360 And PicPacm(3).Top = 3240
PicPacm(4).Left = 360 And PicPacm(4).Top = 3240
PicPacm(5).Left = 360 And PicPacm(5).Top = 3240
PicPacm(6).Left = 360 And PicPacm(6).Top = 3240
PicPacm(7).Left = 360 And PicPacm(7).Top = 3240


tmrGhost.Enabled = True
lblLives.Caption = LIVES

End If




Exit Sub

For i = 1 To 7
If DEAD = True Then
PicPacm(i).Left = 360
PicPacm(i).Top = 2520
End If

Next i





End Sub


Private Sub tmrGhost_Timer()
tmrGhost.Enabled = True
ImgGhost.Left = ImgGhost.Left + 50
If ImgGhost.Left >= 6210 Then
ImgGhost.Left = 2040

End If

End Sub

'Private Sub tmrGhost1_Timer()

'NUM = Int(99 - 50 + 50) * Rnd + 50

'tmrGhost1.Enabled = True
' picPurp.Top = picPurp.Top - NUM



End Sub

Private Sub tmrMouth_Timer()
' FOR THE MOUTH OF THE PACMAN...CURRENTLY NOT WORKING
For PHASE = 0 To 6 Step 2
tmrMouth.Enabled = True
If PicPacm(PHASE).Visible = True Then
PicPacm(PHASE + 1).Visible = True
PicPacm(PHASE).Visible = False
Else
PicPacm(PHASE + 1).Visible = False
PicPacm(PHASE).Visible = False

End If

End Sub

2 Codes?
Alright.. for my game. i need items like most games. but i Play Ultima Online on a Sphere Emulator. i want to make my items with the Sphere Coding because i am quite good at it. or develope my own language that the server control would use.
My game has a few questions. How do i set it to be online where players see each other and can interact? How do i make a Console thing that runs the server that the game is played on. andhow do i make it read off special coding made in notepad? and i need to Make some DLL's which i forget how to do. and i need Major help! lol... if i can get these answers and some decent tutorials that would be great. thanks

Alt Codes
I've got a frustrating little problem. I have an Excel spreadsheet in which I use a data validation option containing the ▲ (alt 30) and ▼ (alt 31) symbols. Point is that I want to use those symbols in VBA as well, but VBA does not seem te recognise them. Does anyone have any idea how to incorporate these symbols in VBA?

About VBA Codes....
Hi there. I got a small VBA code to do some checking and simple calculation for dates.

C D
12/7/200415/7/2004
21/7/200425/7/2004


Code:
dim LB as date
dim k as integer
dim cnt as integer
dim diff as double

LB = textbox1.text
Worksheets("Sheet1").Activate
Range("C1").Select
Do while Activecell <> " "
cnt = cnt + 1
Activecell.Offset(1,0).Range("A1").Select
Loop

LB is defined as an enquired date. The codes will scan through Column "C" to check
(1) If the LB falls in the leave period (i.e. LB < = range("D" & cnt).value and LB > range("C" & cnt).value); and
(2) If the LB falls between the two leave periods (i.e. LB > range("D" & cnt).value and
LB < range("C" & cnt + 1).value.

If (1) is true, pop up Msgbox "Enquired date is within the leave period!"
If (2) is true, count the no. of the days from the enquired date (e.g. LB) back to the end-date of the leave period (e.g. from LB = 20/7/2004 (dd/mm/yyyy) back to 15/7/2004 ("D1") in this case).

Can anyone please advise me of the valid codes for the above purpose?

Cheers.

2 Codes Need Help
I need help with 2 easy issues that are not working.

I need to write two visual basic codes.

1. to print a selected area from an auto filter. The code I have now prints all the pages blank, aswell as the selected area, I only want the selected area.

2. I have included an exit button, but when I click exit I do not want to be asked to save changes. I want the program to close without saving, and without the save daliog.

Any help is wonderfull.

Thanks

I apologize if this question should be in a different forum heading, first time here, and if so where should I ask it.
Thanks

Codes
hi to expert,

I have the following 'C' codes. I wished to convert to VB codes but i faced a lot problems. Can help me solve this codes.Tks

_________________________________________________
Slidex = Cs / M1
m = Slidex / Cb
cdist = f * (m + 1) / (m * 1000)

For I = -1 To 1
M2 = M1 * (Cd + I) / Cd
Slidex = 10 * Cs / M2
H(I + 2) = Slidex * ((cdist * 1000) / (f - 1) / 10)
Next I

Print " Viewing distance (m) Calibration bar (cm)"

For I=-1 TO 1

Print Using " #,# ###,###";cd+I;H(I+2)
Next I

______________________________________________________



Thank you very much

Justin

RTF Codes
Does anybody know where I can find info on the RTF codes? I had a look but none of the ones I found made a lot of sense. Alternatively, if someone knows how colourtables and setting colour of certain text works in RTF then please tell me.
Thanks.

Asc Codes?
Im making a code encrypting program. and it uses the last keys ASC code. BUT it seems "a" and "A" have the same asc code? is there any alternative instead of ASC (code and command) that has one number PER character. for example the ALT system. you press ALT+any number, and a certain character comes up, case sensetive, and there are several thousand.

please help me


Thanks! /Jonathan

Web Codes
can i use the webrowser to view my Html code? If i have the code
<font color=red> Hello World!</font>
how can i view it in my project.

Need Some Help With Codes Here
Private Sub lblCheckAge_Click()
YourName = txtName.Text
If YourName = "" Then
MsgBox "Please enter Name", 16, "Name missing"
Else

YourDOB = InputBox(YourName & " ,in which year were you born?")

If IsNumeric(YourDOB) Then
YourAge = Year(Now) - YourDOB
MsgBox "You are " & YourAge & " years old"
Else
MsgBox "Please enter number only", 16, "Illegal Input"
End If




That was my general code statement but The Else can't be combined with If, Then. So any idea how to join it so that it actually works?

If i changed the Else to End if....The Msgbox showing the error will appear but then the input box will show after that. So i need to make it in such a way that only when the user keys in a name then he'll be able to proceed to the input box....

Thanks to those who answer my question

Old Codes
Hi,

I have an old code written in QuickBasic that needs to be re-written in VB. The problem is, the QB program handles interrupt:

e.g.

Code:
Call INTERRUPTX(&H25, InReg, OutReg)
I have no idea how to handle this in VB.

Another problem is this code:

Code:
DEF SEG = VARSEG(DataStorage)
POKE VarPtr(DataStorage) + I - 1, ThisByte
I know that these statements are lost in VB. I can't figure out the VB equivalent or even a work-around.

Please help me. Codes, links, tips, or whatever that will help.

Thanks.

Codes
hey. Can you people all help me, that know VB or VB6 really good. what are some cool codes i can use?? for VB. Just so i can jot some notes down on codes, Just some easy codes. if possable. Thanks.

Key Codes
Hey

I use the string

Code:
If KeyCode = VbKeyA Then
'command line for if
End If

Can you please give me the keycodes for the following buttons:
Number 0-9 on the TOP of the keyboard (not the numpad) What i would need to do to use the following characers: ! " $ % ^ & * ( ) _ + } { ~ @ : ? > < , . / ; ' # ] [ | ` The "Home" button Page Up Page Down Backspace Return (enter) Numpad return (enter) Insert Print Screen Scroll Lock Caps Lock Num Lock Pause/Break

Thanks in advance guys

Vb Codes
I am searching for a site where i can find small but fun vb codes.
I wish to see the code so that i can type the code myself in vb so that i can learn it.

Key Codes
does anyone know the keycodes for the characters :

{ [ } ] : ; @ ' ~ # < , > . ? / _ - + =

Ive had a look on google and cant find the codes. (codes as in the code for space is VBKeySpace)

Codes
sicne u guys mentioned CLOCK..I WAS wanderin how would u start a countdown?

Using RTF Codes
I have found the RTF Codes in MSDN library but i cannot find a documentation about 'how to use them'
The "writing something in wordpad and saving with .RTF format and opening it with notepad" method is hard and sometimes i meet with codes that doesn't exist in RTF code table

Does anyone know how to use them or a tutorial link?

thanx

ALT Codes
When you hold down ALT and press a combination of numbers on the numeric keypad, it outputs a character. Example: Alt + 0198 =

How do I use this in VB? I can't use Chr(Key) because that only has the first 256, is there a way to do it?

I can't simply externally create it and copy and paste it because the whole purpose of me doing this is so I can find certain characters [By using a FOR statement to add them into a Listbox, then when i Doubleclick it gives me the code of that symbol].

Any help on this, or a list of all the ALT codes, would be appreciated
Thanx

Zip Codes
I'm pulling all this information from a database called CMS.

I just want to be able to pull the city and state from that database when zip code is entered into the text box.

The user will not be able to enter in the state or city just the zip code, and once they enter that, the city and state will pop up.

Doesn't it have to deal with an autocomplete function?

Key Codes
I am searching for the numbers of keys:

I use this way:


Code:
If GetAsyncKeyState(17) <> 0 Then


17 = control
79 = O
80 = P

Its bad because i cant find the list anymore

Thanks

Key Codes
please tell the name of key enter and tab used in vb as i am using vbspace for space button similarly please tell me the key name for enter and tab

i am using a text box and when i enter some thing to it the data related to it from must be shown from the access data base on press of enter

Vb Key Codes
I am looking to have a button that acts as a "tab key" so when the user clicks it, it tabs to the next tab stop. i was thinking it was teh key code but i couldnt get it to work. any suggestions. thanks

DAO Through Codes
How do you do DAO through codes?
I'll be reading from an excel database. thanks!

What Are The Codes For This?
help
what codes should i use if i want my program start when they start another program like notepad or ms word

thanks!!!

What Do These Codes Mean?
Hi, I'm new to visual basic and need some help finding out what the following bits of code mean (highlighted in bold)...

1. If Starters2.Check2.Value = 1 Then
checkout.List1.AddItem ("Garlic Bread")
quantity_value = Val(Starters2.Text2.Text) * 2.99
order_value = order_value + quantity_value <<<<<<<<
End If

2. Public Sub generate_order()
MsgBox "module running"
order_value = 0 <<<<<<

3. For X = 0 To Pizzas.pizzas_ordered.ListCount
checkout.List1.AddItem (Pizzas.pizzas_ordered.List(X))
Next X

4. pizzas_ordered.AddItem (quantity.Text + "x " + Sizepizza + " " + topping)

Key Codes
does anyone know the ascii keycodes for the keyboard and the key names for the sendkeys command

thanks

2 Same Different Codes
Hello all. Below is 2 different codes but do the same thing I think. So can someone please tell me what the difference is besides 1 is a lot shorter? Well thanks in advance guys and the help is so much appreciated so have a good noe guys and gals.
1:

Code:
On Error GoTo 2
1:
Dim X As Integer
X = List2.ListIndex
List2.RemoveItem (X)
List2.ListIndex = X
Label5.Caption = "Server List" & " - " & List2.ListCount
Exit Sub
2:
If List2.ListCount <> 0 Then
X = X - 1
GoTo 1
ElseIf List2.ListCount = 0 Then
Exit Sub
End If


2:

Code:
On Error Resume Next
List1.RemoveItem (List1.ListIndex)
List1.ListIndex = 0

By the way these just remove an item from a listbox. Thanks once again. So whats best and why? Thanks.

Nothing About Codes
Hi,

I am presently doing a payroll system. Is it advisable to have two databases for one system? I mean one for the personnel dept and one for the payroll dept, this is since the personnel dept wants me to include it's record handling to the system.

And another thing ( this may be because i'm a completely stupid guy). How can I put all the information of an access database into a word document ( not through code), i mean all the information like field names, it's datatypes, it's length or format, and all thos other things. I'ts for documentation purposes. Please help me.

Codes Gone???!?!
How come all my codes disappeared??? when i click on code view for the form it never show my codes but i still can run it and function it.....

help please

Vb Codes
. I need help on diffrent types of codes.
I need to know the codes for VB and what they mean.
Could you please help me

Vb&lt;key&gt; Codes
anyone know where i can find a list of all the vb<key> codes?

Copyright 2005-08 www.BigResource.com, All rights reserved