|
luckyCO
|
Ok
Do that and let me know.
|
|
|
|
|
|
luckyCO
|
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/546cca7a68a54633e65faf9d388b619a8a345cc0The 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. |
|
|
|
|
|
chumylee
|
???PLs where can i get a good vb tutorial
|
|
|
|
|
|
|
|
themac (f)
|
i invie you all to www (dot) asohk (dot) com, there's a free email course on v6 6.o and vb.NET,as well as php & mysql,Javascript and scriptwriting, the link is at my signature
|
|
|
|
|
|
howdytee (m)
|
@luckyCO pls i nid your xclusive help.cn we,like,meet online 2talk 1on1?my contacts ar howdytee@yahoo.co.uk08088030108 |
|
|
|
|
|
luckyCO
|
Ok
I have sent an email to you since you can't post the problem here that others will contribute and learn too.
|
|
|
|
|
|
howdytee (m)
|
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
|
|
|
|
|
|
howdytee (m)
|
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
|
|
|
|
|
|
howdytee (m)
|
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?
|
|
|
|
|
|
luckyCO
|
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 |
|
|
|
|
|
LARQUZI
|
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
|
|
|
|
|
|
kkkossy (m)
|
i need to know how visual basic is significant in engineering design,is it relevant to engineering?in what ways?
|
|
|
|
|
|
PC_whizzie
|
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. |
|
|
|
|
|
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.
|
|
|
|
|
|
luckyCO
|
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. @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. |
|
|
|
|
|
luckyCO
|
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
|
|
|
|
|
|
pritypeety (f)
|
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
|
|
|
|
|
|
pritypeety (f)
|
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
|
|
|
|
|
|
faoni572 (m)
|
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
|
|
|
|
|
|
luckyCO
|
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 |
|
|
|
|
|
luckyCO
|
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 |
|
|
|
|
|
luckyCO
|
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
|
|
|
|
|
|
luckyCO
|
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.
|
|
|
|
|
|
faoni572 (m)
|
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 your reply. God bless u. |
|
|
|
|
|
luckyCO
|
The problem is infinitesimal.
You will get the solution 2days time.
Thanks and God bless.
|
|
|
|
|
|
luckyCO
|
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 your 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 |
|
|
|
|
|
faoni572 (m)
|
Thank you very much, I will download it and let you know when I use it. Thanks a lot
|
|
|
|
|
|
Maryinka
|
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.
|
|
|
|
|
|
faoni572 (m)
|
@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.
|
|
|
|
|
|
moore20
|
hi Lucky
thanks for your response i tried the marquee code and it worked
bros u too much,
one luv
|
|
|
|
|
|
moore20
|
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
|
|
|
|
|
|
![Nairaland [Nigerian Forum] Home](http://www.nairaland.com/Themes/default/images/english/home.gif)
Author
