invisal

you mean this ? [code] Public Function NOTCH(test2 As Integer, ByVal offset As Integer) As Boolean Dim NotchCharacter As Integer NotchCharacter = offset + 1 if (test2 = 1) and (NotchCharacter = 17) then NOTCH = True 'I=Q else if (test2 = 2) and (NotchCharacter = 5) then NOTCH = …

You can use listview component.

[B]Asc[/B] : This function convert first letter in the string to ANSI code. Example: [code]Msgbox(Asc("A"))[/code] [B]Mid[/B] : Returns a Variant (String) containing a specified number of characters from a string. Example [code]Dim a As String a = Mid("Hello World", 2, 5) Msgbox(a)[/code]

First you have to delcare this API [code] Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long [/code] after that [code] If txtSec.Text = 0 And txtMin.Text = 0 And txtHour.Text = 0 Then Timer1.Enabled = False result = sndPlaySound(location, …

[QUOTE=Lightninghawk]You can use that But I wouldn't reccomment it. Hirearchy will allow - Forum -----Subforum ---------Subforum -------------SubForum ------Subforum ------Subforum ------subforum -Forum... and ect. YOu can have subforums to infinity. simple subforums are just like this.... -forum ----subforum ----subforum no further than one deep... here is the link to the simplesubforums …

Welcome to Daniweb, feel free to ask anything that you like.

[quote]What code/program do you usually write in to develop virtual reality?[/quote] There are some famous languages you have to know + [B]Machine Code[/B] : It is system of codes directly understandable by a computer's CPU, But nowaday there only a few people use it, Since it is extraordinary difficult to …

why don't you random number using VB, why using C++ random number ?

This is what you mean ? [code] Private Sub Form_Load() Text1.MultiLine = True Text1.ScrollBars = 2 End Sub [/code]

you mean convert char to binary code example "5" = 00110101 "a" = 01100001 this is what you mean ?

you could try this one [code] If X Mod 2 Then ' // Odd Number Here Else ' // Even Number Here End If [/code]

[code] int count(double houre, double charge){ [b]double value;[/b] if(houre<=3.0) { return charge; } else { value=(2+(0.5*(houre-3))); [b]return value;[/b] } return 0; } [/code] value is double type and count function is return int type, it is possible ?

try this function : [code] Public Function ArcCos(ByVal X As Double) As Double If X <> 1 Then ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Else ArcCos = 0 End If End Function [/code]

here is my count down code [code] Private Sub cmd_Click() Timer1.Enabled = Not Timer1.Enabled cmd.Caption = IIf(Timer1.Enabled, "Pause", "Start") End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False cmd.Caption = "Start" txtmin.Text = 0: txtsec.Text = 0: txthour.Text = 1 End Sub Private Sub Timer1_Timer() If txtsec.Text > …

if Z is interger, you also can do this way without using [B]If[/B] [code]SIDE = W + ((-1) ^ Z)*(V / 3600#)[/code]

This is what you want ? [code] #include <iostream> using namespace std; void main() { for (int j = 1; j <=6; j++) { for (int i = 1; i<=j; i++) {cout << i; } cout << endl; } return; }[/code] and another file is [code] #include <iostream> using namespace …

You mean this one ? [code] Private Sub Form_Load() Me.FontName = "Verdana" MsgBox (Me.TextWidth("Hello")) End Sub [/code]

hey Coma, long time no see! how are you. and about code, I have change some of your code, i make it simple as possible and work very fine too. [code] Option Explicit Dim SecLeft As Integer Dim MinLeft As Integer Private Sub cmdBreak_Click() cmdbreak.Enabled = False ' To stop …

there are alot of way to do that, I give you 2 ways to do that First Way : using Change Event [code]Private Sub Text1_Change() Dim LastStart As Integer LastStart = Text1.SelStart Text1.Text = UCase(Text1.Text) Text1.SelStart = LastStart End Sub[/code] Second Way : using KeyPress event [code]Private Sub Text1_KeyPress(KeyAscii As …

I think there is infinity loop somewhere. Did you try other windows ?

i never made big project before, i have some project that i post in pscode [URL=http://www.pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&txtCriteria=visal+%2Ein&lngWId=1]Check here[/URL]

This isn't a complete code, however it is a good example for making it, I don't know any better way than one. If anyone have better way, please let me know. [code] Function passGen( password As String ) As String Dim words(26, 3) As String Dim strTemp As String Dim …

try use [b]DoEvents[/b] , this function will provide a few processing resource for the rest of the system tasks such as screen update. here is Example [code] For i = 0 To 100 DoEvents Next i [/code] Second Example [code] Do Until something DoEvents Loop [/code]

** is mean pointers to pointers example [code] #include <iostream> using namespace std; int main() { char c = 'L'; char *cp = &c; char **cpp = &cp; cout << "c = " << c << endl; cout << "cp = " << *cp << endl; cout << "cpp = …

[QUOTE=Seyha Eng]I have code: Dim i As Integer --------------------------- Private Sub cmd1_Click() Randomize i = Int(20 * Rnd()) Label1.Caption = i End Sub --------------------------- What code should I add more to show "[B]i[/B]" not the same number? Please someone help me! Thanks! seyha[/QUOTE] try this code [code] Dim i As …

[url]http://www.yagoohoogle.com/[/url] check this out people

Linkin Park - In The End Yellowcard - Only One Trapt - Headstrong Papa Roach - Last Resort Ozzy Osbourne - Dreamer Gorillaz - Clint Eastwood Robbie Williams - Angel Coldplay - Trouble Enya - Fallen Embers Enya - Only Time

[code] Private Sub Command1_Click() Dim i As Integer, x As Long, y As Long Shape1(0).Visible = True x = Shape1(0).Left y = Shape1(0).Top If IsNumeric(Text1.Text) Then For i = 1 To CInt(Text1.Text) x = x + Shape1(0).Width If (i Mod 5) = 0 Then y = y + Shape1(0).Height x …

MMORPG = Massively Multiplayer Online Role-Playing Game PS2 = Play Station 2 IRC = Internet Relay Chat IIS = Internet Information Server ASP = Active Server Page PHP = Hypertext Preprocessor DHTML = Dynamic Hyper Text Markup Language XHTML = Extensible Hypertext Markup Language CGI = Common Gateway Interface VB …

[QUOTE=Lapari]Hi there, I am working on an assignment that I have to create a menu. The user is suppose to select the menu and change form color. But I have no idea how to that. Help please. Anyone?[/QUOTE] changing color it really easy [code] Form1.BackColor = vbBlack '// Black Color …

ok, here is something about me. Age : Now - #01/01/1989# Name : Visal .In Location : Somewhere you can't reach Sex : Male im new here, i like to learning, because i born for learning , and learn never end, right now i know some programming like Visual Basic …