Ok
Do that and let me know.

idehenre:

Get IT Videos on every certification !!!!!
Posted on 2008-Jul-30 at 10:39 AM
Every one knows the benefit of visual learning and how it aids with the steep learning curve on experiences when learning a a new or associated technology.In the workplace deadlines are a common obstacle and as service providers we must deliver. To cut the chase what i got here are some solution that would normally cost thousand of dollars or pounds.They are from the worl famous CBTNuggets series.

http://www.torrentz.com/546cca7a68a54633e65faf9d388b619a8a345cc0

The server archive file comes to over 30GB worth of materials

For my fellow nigerians i am offering them for a token 3000.00/Three Thousand Naira only per subject package .The videos are categorised as such. Windows Security Exchange Cisco CompTIA Web Develop Project Mgt Citrix MCDBA Programming MS Office Wireless Linux , To get these please feel free to contact me on 08083862828.

Thanks so much for your contribution.
I didnt see microsoft exams from your list.

PLs where can i get a good vb tutorial

A good vb tutorial is there at your finger tip.
Since you have Internet you can search for anything you need.
Having said you need help plz visit http://www.4shared.com/network/search.jsp?searchmode=2&searchName=vb+tutorial
and http://www.4shared.com/network/search.jsp?sortType=1&sortOrder=1&sortmode=2&searchName=vb+6.0&searchmode=2&searchName=vb+6.0&searchDescription=&searchExtention=&sizeCriteria=atleast&sizevalue=10&start=0

@luckyCO
pls i nid ur xclusive help.cn we,like,meet online 2talk 1on1?my contacts ar howdytee@yahoo.co.uk
08088030108

Ok
I have sent an email to you since you can't post the problem here that others will contribute and learn too.

its nt like dat.its jst i dnt evn knw if wat i'll b askin4 is logical.i'll check my mail&wil get bak 2u.10ks man

hey man.10x 4 yday.i tried al we did&i tink i'm getin d hang of it.i'm stil avin som questions,i'll post dem here.10x

2d house:
hw do i code a progress bar such as on a "welcome-pls wait"page&whn it reaches 100%,it loads up d next form?

howdytee:

2d house:
hw do i code a progress bar such as on a "welcome-please wait"page&whn it reaches 100%,it loads up d next form?

I have written the program and ve sent it to your mail.
So download and unzip and test.
Dont forget to get back to me if it doesnt satisfy you.
Thanks

please culd you help me with how i culd link a database with a form that would serve as a bill which wuld be printable. i mean d form

i need to know how visual basic is significant in engineering design,is it relevant to engineering?in what ways?

luckyCO:

Ok
Do that and let me know.

@luckyco

Sir please i need your help,i am on the verge of writing my final project and i was wndering if a visual basic 6.0 is advicable in writing a program concerning LAN Package??, You can email me your response if possible to dynamickid316@yahoo.com.
God Bless.

I must admit this, you are a Visual Basic 6 MVP! I toast to you whenever I use your code snippets and in my dreams,
Keep it on.

However, I would like you to dedicate at least a full page to educate me and other newbies on the use of Modules and Classes (Call it a complete Module and Class tutorial) in VB6 and how it makes programming easier.

Use a simple example of say-an alarm clock program with multi-appointment reminders.

zmovement:

I must admit this, you are a Visual Basic 6 MVP! I toast to you whenever I use your code snippets and in my dreams,
Keep it on.

However, I would like you to dedicate at least a full page to educate me and other newbies on the use of Modules and Classes (Call it a complete Module and Class tutorial) in VB6 and how it makes programming easier.

Use a simple example of say-an alarm clock program with multi-appointment reminders.

Classes in vb 6.0 help make code-reusability easire. This imitate what otherwise known as OOP in vb.net.

For instant you created a class which does one thing or the other for, you can call the function or method by calling the name of the class then implement its method(s).
I dont have chance to give you details as you demanded. Will do that when am less busy.

Module is like a structure that enables you to structure your easy to access functions. more details later.

PC_whizzie:

@luckyco

Sir please i need your help,i am on the verge of writing my final project and i was wndering if a visual basic 6.0 is advicable in writing a program concerning LAN Package??, You can email me your response if possible to dynamickid316@yahoo.com.
God Bless.

It depends on what you want the LAN to do for you.
You can call me on 08036025235 then I will speak with you.
Am so busy working on something, untill am through I wont be able to write the code here.
In any case VB6.0 can be used to write any program for school project since there exist what we call simulation.

Thanks and remain blessed.

I will send Blast Tool 4.0, am SMS software which you can use to send sms to people.
Some part of the will be free while if you register you will get all its benefits.
I will post it next week
Thank

Hi
Am a Foundation in IT student and am having my Trimester exams. My task is to create any simple application using Visual basic 2005/08. Am doing some kind of puzzle game and av done it to an extent. i did put a timer and a progress bar in the application such that when the progress bar reaches the designated time it games over and restart. but my problem is, each time the progress bar finishes and shows the message box showing restart and exit  an error comes up telling me my progress bar value is invalid and I must put a valid between the maximum and minimum also my project dosen't restart again whenever i click it. here is the code i used;

     Dim response as Integer


                             
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       

ProgressBar1.Value += 1     'increases the progress bar by 1

        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Response = MsgBox("You failed to finish your task!", vbInformation + MsgBoxStyle.RetryCancel, "Game Over")
            If Response = vbRetry Then
                Me.Refresh()                 'forces repaint of the form
            ElseIf Response = vbCancel Then
                Me.Close()
            End If

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Interval = 1000 * 30 ' 1000 milliseconds ( 1 second ) * 1 = 30 second

        ProgressBar1.Maximum = 1     ' 1 minute

        Timer1.Start()


    End Sub
End Class 

Here is the code For the program itself.
Though my codes are not well arranged since am anew student in ti and my school always want to make you find out everything your self and thats what am doing now. all this is actually my idea. I dont know if it is correct but i Haven't finished yet







Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (Txtbx1.Text) = "Hepatitis" Then
lbldisplay.Text = "Hepatitis"
ElseIf (Txtbx1.Text) = "Dead" Then
Label1.Text = "Dead"
ElseIf (Txtbx1.Text) = "Her" Then
Label2.Text = "Her"
ElseIf (Txtbx1.Text) = "Heresy" Then
Label3.Text = "Heresy"
ElseIf (Txtbx1.Text) = "Hermaphrodite" Then
Label4.Text = "Hermaphrodite"
ElseIf (Txtbx1.Text) = "Heresy" Then
Label5.Text = "Heresy"
ElseIf (Txtbx1.Text) = "To" Then
Label6.Text = "To"
ElseIf (Txtbx1.Text) = "Hercynian" Then
Label7.Text = "Hercynian"
ElseIf (Txtbx1.Text) = "Pya" Then
Label8.Text = "Pya"
ElseIf (Txtbx1.Text) = "hepatitis" Then
lbldisplay.Text = "Hepatitis"
ElseIf (Txtbx1.Text) = "dead" Then
Label1.Text = "Dead"
ElseIf (Txtbx1.Text) = "her" Then
Label2.Text = "Her"
ElseIf (Txtbx1.Text) = "heresy" Then
Label3.Text = "Heresy"
ElseIf (Txtbx1.Text) = "hermaphrodite" Then
Label4.Text = "Hermaphrodite"
ElseIf (Txtbx1.Text) = "heresy" Then
Label5.Text = "Heresy"
ElseIf (Txtbx1.Text) = "to" Then
Label6.Text = "To"
ElseIf (Txtbx1.Text) = "hercynian" Then
Label7.Text = "Hercynian"
ElseIf (Txtbx1.Text) = "pya" Then
Label8.Text = "Pya"
ElseIf (Txtbx1.Text) = "" Then
MessageBox.Show("Box cannot be empty", "Input a word!", MessageBoxButtons.OK)
Else : MessageBox.Show("Are you to lazy to think", "word incorrect", MessageBoxButtons.OK)
End If

End Sub

---

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
AboutBox1.Show()

End Sub

---

Private Sub HowToPlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowToPlayToolStripMenuItem.Click
MessageBox.Show("Brain Maniac is a game of simple Knowledge. You just need to find the correct number of words from the given word before the time runs out", "Help Menu", MessageBoxButtons.OK)

End Sub

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Label8.Text = "Pya" Then
Form2.Show()
Else : MessageBox.Show("finish task first", "STOP", MessageBoxButtons.OK)
End If

End Sub

---

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Txtbx1.Clear()
End Sub

---

Dim Response As Integer

---

Private Sub ExToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExToolStripMenuItem.Click
Response = MsgBox("Are you sure you to exit this Game?", vbInformation + vbYesNo, "Exit program"
If Response = vbYes Then 'this closes the form if yes is picked
Me.Close()

ElseIf Response = vbNo Then
Me.Refresh()

End If
End Sub

---

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1 'increases the progress bar by 0.5

If ProgressBar1.Value = ProgressBar1.Maximum Then
Response = MsgBox("You failed to finish your task!", vbInformation + MsgBoxStyle.RetryCancel, "Game Over"
If Response = vbRetry Then
Me.Refresh() 'forces repaint of the control
ElseIf Response = vbCancel Then
Me.Close()
End If

End If
End Sub

---

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 1000 * 30 ' 1000 milliseconds ( 1 second ) * 1 = 30 second

ProgressBar1.Maximum = 60 ' 1 minute

Timer1.Start()


End Sub
End Class

---

can u please help me correct this

Pls how can I build help file for my application and how can I make response to keybooard for example if I press F1 the help file will be diaplayed. Thanks

pritypeety:

Hi
Am a Foundation in IT student and am having my Trimester exams. My task is to create any simple application using Visual basic 2005/08. Am doing some kind of puzzle game and av done it to an extent. i did put a timer and a progress bar in the application such that when the progress bar reaches the designated time it games over and restart. but my problem is, each time the progress bar finishes and shows the message box showing restart and exit an error comes up telling me my progress bar value is invalid and I must put a valid between the maximum and minimum also my project dosen't restart again whenever i click it. here is the code i used;

Dim response as Integer




Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


ProgressBar1.Value += 1 'increases the progress bar by 1

If ProgressBar1.Value = ProgressBar1.Maximum Then
Response = MsgBox("You failed to finish your task!", vbInformation + MsgBoxStyle.RetryCancel, "Game Over")
If Response = vbRetry Then
Me.Refresh() 'forces repaint of the form
ElseIf Response = vbCancel Then
Me.Close()
End If

End If
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 1000 * 30 ' 1000 milliseconds ( 1 second ) * 1 = 30 second

ProgressBar1.Maximum = 1 ' 1 minute

Timer1.Start()


End Sub
End Class

Please replace the code above with the one below and try again. If it doenst help you then let me know.


Private Sub [/color]Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

if ProgressBar1.Value < ProgressBar1.Maximum then
ProgressBar1.Value += 1 'increases the progress bar by 1
else
'You can do any other thing here maybe , ProgressBar1.Value =1, to refresh and start afresh
end if


If ProgressBar1.Value = ProgressBar1.Maximum Then
Response = MsgBox("You failed to finish your task!", vbInformation + MsgBoxStyle.RetryCancel,"Game Over"
If Response = vbRetry Then
Me.Refresh() 'forces repaint of the form
ElseIf [/color]Response = vbCancel Then
Me.Close()
End If

End If
End Sub

faoni572:

Please how can I build help file for my application and how can I make response to keybooard for example if I press F1 the help file will be diaplayed. Thanks

Question 1.

There are three ways you can build help to your application.
1. Build the Help in PDF and use the below function to open it;

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute Me.hwnd, "Open", App.Path & "\file name.pdf", "Open", App.Path, 1

2. You can build the help like web and use browse on your Control to show it as a help.

3. You can download from http://msdn.microsoft.com/en-us/library/ms669985.aspx,
http://www.ec-software.com/downloads_mscomp.html,
http://www.microsoft.com/workshop/author/htmlhelp/default.asp
an application to enable you build a help project.


Question 2
To do that paste the code below to your form and run and see

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
MsgBox "You pressed F1"
End If

' vbKeyF2
' vbKeyF3 etc
' vbenter
'vbspacebar etc

End Sub

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

Then if you want when you press F1 to a button or form a help will popup. The HTML Workshop will guide you on how to do that. Download it and install you will all these. Since you give code to your various Help modules, it is through those codes which you will link to the form or control (HelpContextID) will be activated whenever F1 is pressed

I have developed am sms system that can enable you send bulk sms using your company name.
Please hit http://www.cyprosoft.net/products/SMS Blast Setup.msi download and install.

You will have a general version which you can still purchase bulk sms from us and send without paying for the tool.
Then if you need enterprise version of the tool you pay a token which you will see on our account details board.

Thanks for using SMS Blast Tool 4.0

Any information call 08036025235.

Please I have these in cable sizing program that I am developing::

Dim strDia(81) As Variant
strDia(0) = "0.032"
strDia(1) = "0.036"
strDia(2) = "0.039"
strDia(3) = "0.040"
strDia(4) = "0.046"
strDia(5) = "0.045"
strDia(6) = "0.051"
strDia(7) = "0.051"
strDia( = "0.058"
strDia(9) = "0.055"
strDia(10) = "0.063"
strDia(11) = "0.064"
strDia(12) = "0.073"
strDia(13) = "0.071"
strDia(14) = "0.081"
strDia(15) = "0.081"
strDia(16) = "0.092"
strDia(17) = "0.089"
strDia(18) = "0.102"
strDia(19) = "0.102"
strDia(20) = "0.116"
strDia(21) = "0.109"
strDia(22) = "0.126"
strDia(23) = "0.114"
strDia(24) = "0.130"
strDia(25) = "0.128"
strDia(26) = "0.146"
strDia(27) = "0.141"
strDia(28) = "0.162"
strDia(29) = "0.144"
strDia(30) = "0.164"
strDia(31) = "0.162"
strDia(32) = "0.184"
strDia(33) = "0.204"
strDia(34) = "0.206"
strDia(35) = "0.232"
strDia(36) = "0.255"
strDia(37) = "0.260"
strDia(38) = "0.260"
strDia(39) = "0.292"
strDia(40) = "0.300"
strDia(41) = "0.305"
strDia(42) = "0.332"
strDia(43) = "0.365"
strDia(44) = "0.373"
strDia(45) = "0.419"
strDia(46) = "0.430"
strDia(47) = "0.470"
strDia(48) = "0.471"
strDia(49) = "0.505"
strDia(50) = "0.504"
strDia(51) = "0.528"
strDia(52) = "0.567"
strDia(53) = "0.575"
strDia(54) = "0.630"
strDia(55) = "0.681"
strDia(56) = "0.700"
strDia(57) = "0.728"
strDia(58) = "0.798"
strDia(59) = "0.801"
strDia(60) = "0.813"
strDia(61) = "0.814"
strDia(62) = "0.891"
strDia(63) = "0.893"
strDia(64) = "0.964"
strDia(65) = "0.998"
strDia(66) = "0.999"
strDia(67) = "1.026"
strDia(68) = "1.031"
strDia(69) = "1.032"
strDia(70) = "1.152"
strDia(71) = "1.153"
strDia(72) = "1.287"
strDia(73) = "1.289"
strDia(74) = "1.290"
strDia(75) = "1.412"
strDia(76) = "1.413"
strDia(77) = "1.452"
strDia(78) = "1.617"
strDia(79) = "1.632"
strDia(80) = "1.632"

I want a way that I can search for any of the number and get the position, if the number I am searching for is not there then it can pick the nearest number on the array and get the position. For example 1.44 is not there but it should pick 1.452 which is the nearest number to 1.44 and its position is  77

It is has been giving me sleepless night, I am expect ur reply. God bless u.

The problem is infinitesimal.
You will get the solution 2days time.
Thanks and God bless.

faoni572:

Please I have these in cable sizing program that I am developing::

Dim strDia(81) As Variant
strDia(0) = "0.032"
strDia(1) = "0.036"
strDia(2) = "0.039"
strDia(3) = "0.040"
strDia(4) = "0.046"
strDia(5) = "0.045"
strDia(6) = "0.051"
strDia(7) = "0.051"
strDia( = "0.058"
strDia(9) = "0.055"
strDia(10) = "0.063"
strDia(11) = "0.064"
strDia(12) = "0.073"
strDia(13) = "0.071"
strDia(14) = "0.081"
strDia(15) = "0.081"
strDia(16) = "0.092"
strDia(17) = "0.089"
strDia(18) = "0.102"
strDia(19) = "0.102"
strDia(20) = "0.116"
strDia(21) = "0.109"
strDia(22) = "0.126"
strDia(23) = "0.114"
strDia(24) = "0.130"
strDia(25) = "0.128"
strDia(26) = "0.146"
strDia(27) = "0.141"
strDia(28) = "0.162"
strDia(29) = "0.144"
strDia(30) = "0.164"
strDia(31) = "0.162"
strDia(32) = "0.184"
strDia(33) = "0.204"
strDia(34) = "0.206"
strDia(35) = "0.232"
strDia(36) = "0.255"
strDia(37) = "0.260"
strDia(38) = "0.260"
strDia(39) = "0.292"
strDia(40) = "0.300"
strDia(41) = "0.305"
strDia(42) = "0.332"
strDia(43) = "0.365"
strDia(44) = "0.373"
strDia(45) = "0.419"
strDia(46) = "0.430"
strDia(47) = "0.470"
strDia(48) = "0.471"
strDia(49) = "0.505"
strDia(50) = "0.504"
strDia(51) = "0.528"
strDia(52) = "0.567"
strDia(53) = "0.575"
strDia(54) = "0.630"
strDia(55) = "0.681"
strDia(56) = "0.700"
strDia(57) = "0.728"
strDia(58) = "0.798"
strDia(59) = "0.801"
strDia(60) = "0.813"
strDia(61) = "0.814"
strDia(62) = "0.891"
strDia(63) = "0.893"
strDia(64) = "0.964"
strDia(65) = "0.998"
strDia(66) = "0.999"
strDia(67) = "1.026"
strDia(68) = "1.031"
strDia(69) = "1.032"
strDia(70) = "1.152"
strDia(71) = "1.153"
strDia(72) = "1.287"
strDia(73) = "1.289"
strDia(74) = "1.290"
strDia(75) = "1.412"
strDia(76) = "1.413"
strDia(77) = "1.452"
strDia(78) = "1.617"
strDia(79) = "1.632"
strDia(80) = "1.632"

I want a way that I can search for any of the number and get the position, if the number I am searching for is not there then it can pick the nearest number on the array and get the position. For example 1.44 is not there but it should pick 1.452 which is the nearest number to 1.44 and its position is 77

It is has been giving me sleepless night, I am expect ur reply. God bless u.

I could not attach the file here.
The system here doesnt allow .rar.

Please hit www.cyprosoft.net/products/Random.rar to download the program which u requested

Thank you very much, I will download it and let you know when I use it. Thanks a lot

Hi, i want to learn VB 6.0, can u please be of help? and moreso, i need e-books on VB 6.0 . thanks.

@luckyCO , thanks a lot for the program u gave me , it worked. I want to ask you if you know where to get original CD of VB 6.0 I tried to look for it in Port Harcourt here but I couldn't get it here. If you can let me get it and how much is it including how much it will cost you to send it to me maybe through DHL please let me know. I need the original registered CDs so I can use it to produce program that will install very well on users' computers. Thanks a lot.

hi Lucky
thanks for your response i tried the marquee code and it worked

bros u too much,
one luv

lucky please i need u to help me with 2 things
1. just as a msgbox pops up when a non numeric value is entered in a textbox i.e
if Not IsNumeric(text1.text) then
msgbox"input must be numeric"
endif
end sub

i want a code to pop up msgbox when a user enters a non alphabet
in a textbox which is supposed to be for names e.g MOORE

thanks a lot man
do have a splendid day