Control Needed For Monitoring Audio Levels
Hey,
I'm in need of a good control that will allow me to monitor different audio parameters...audio level, left / right channel levels, and the like...the more features that I can monitor the better.
Anybody have any suggestions?
Thanks,
Abishag
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Datareport : Two Grouping Levels Needed
Hello everybody,
I'm Looking for a way to have two groups level in a datareport without repeating the group's headers if their value doesn't change. Here is an example of what I want :
Country 1
Author 1
Book Title 1
Book Title 2
Author 2
...
Currently, I get this :
Country 1
Author 1
Book Title 1
Country 1
Author 1
Book Title 2
Country 2
Author 2
...
or - by mixing group queries and child commands - this :
Country 1
Author 1
Book Title 1
Book Title 2
Country 1
Author 2
...
A little better but still not what I'm looking for !!!
What did I miss ?
Thanks for any kind of help, I'm so exhausted !!!
Monitoring Mic Audio Level
I'm looking for a painless method of very coursely monitoring the audio input on a microphone. I'm a VB newbie who needs to activate a routine upon receipt of a VERY loud sound.
Thanx for any help.
Monitoring Tool Needed
Hi all, I got myself a couple of websites here at work, does anyone know of a freeby website monitoring tool (how many hits & performance speeds) type download or which is the best ?
Cheers
Help Needed For UPS Monitoring Project In VB
Hi,
I need to do a vb project that is based on UPS Monitoring
that is to Monitor the Battery Level, System Alerts, Timing etc.
I'm not an Expert in VB Programming.
can i get a project/links like that or you have any project like that in VB?
please help me, i have to submit the project to my college.
thanks in advance
Ram
Finding Channel Levels Using Media Player Control
I'm making a media player using the Media Player control (msdxm.ocx) and I want to be able to display and control different channels like in Winamp. Does anyone know if this is possible, and, if so, how to do it?
Thanks for any help you can give.
Help! Audio Level Monitor Needed!
Hi There!
I need a code in vb6 using DirectShow's ActiveMovie to monitor a mp3 or wma audio level. I know how we can do palyback using DirectShow API's wave functions but I need something to be able to search in a mp3 or wma or play it and monitor the audio level in decibels.
I hope that IAMAudioInputMixer Interface of ActiveMovie do all I need, but how I implement it in VB6?
Thanks,
Max
Help! Audio Level Monitor Needed!
Hi There!
I need a code in vb6 using DirectShow's ActiveMovie to monitor a mp3 or wma audio level. I know how we can do playback using DirectShow API's wave functions but I need something to be able to search in a mp3 or wma or play it and monitor the audio level in decibels.
I hope that IAMAudioInputMixer Interface of ActiveMovie do all I need, but how I implement it in VB6?
Thanks,
Max
Beta-testers Needed For My Audio/video Prog
Hello there,
Please test my very cool multimedia program. It's called MediaStar and can play over 25 different filetypes in sound AND video. Tell me what you think!
Click here to download the zip file. It's 577k.
Thanx!
Control & Monitoring
2 different VB applications run on the same machine. The first receives data and generates some txt files and the second one when determines that a new file has been generated then creates an image. I say again these are two different exe that run always. What I want is:
Although we talk about different applications, I want the first app to "know" if the second has been terminated (by user or by error) and the reverse: The second to know about the first. Is it possible?
Michael Vlastos
Automation Engineer
Intracom, Research & Development Division
Development Programmes Department
Athens, Greece
External Device Control/monitoring
hiya, my friend and are trying to make a digital dashboard for a truck. i have had quite a bit of experience with VB, but never done any thing with external devices.
this will just need to be a standard app, running on a laptop.
the lapy has a Serial/Com port and USBs (duh') and all of the devices are just standard sensors that need an Ohm reading and 5volts to trip a relay.
the program will have stuff like a speedometer and control over several valves to switch between fuel tanks. (other stuff may come later, but i would just like to start small and build from there.)
all i really need for this is any input you may have on device control/monitoring. i just wanted to give you some context as to what it would be used for, any help would be greatly appreciated, and i will be sure to let you know how it is going.
Audio Volume Control
Hi there !
Does anyone knows how to control the volume panel using visual basic?
For now, I am using DirectX 8 and I set the volume of the primary buffer, this seems to set the wave volume of the control pannel, but I would like to control the global volume, and the wave recording volume as well. Anyone can help?
Thanks !
Getting Data From Audio To Control Some Other VB6 Code
Hello,
I am looking for some code i can use that monitors sound from mp3's like that is used for visualizations but use the data to control some l.e.d. lighting code. I want my lighting to be able to respond to the music. Is anybody familier with this type of programming and may be able to help solve this huge problem?
Thanks,
Kevin
Audio Meter Display Control
Is there some working audio meter display control for VB6? I need to view the audio level from AVI and MPG videos only, or either the sound card output. I tried several of them but I couldn't find not even 1 that works on Windows NT based systems, they are all old Win9x based controls and now obsolete.
Any help will be greatly appreciated as usual.
Need Help With Retrieving Control Information Out Of An Audio Line
Hi,
I want to write a DLL, making accessing the mixer a bit easier. But I have got a problem with the mixerGetLineControls API function in combination with MIXER_GETLINECONTROLSF_ALL. I know there are two Controls in the selected Audio Line, but i can only get a name from the first one, the second one doesn't seem to be filled with information. Does anyone know why?
VB Code:
Sub main() Dim i As Byte Dim hMixer As Long Dim MxrCaps As MIXERCAPS Dim MLdst As MIXERLINE, MLSrc As MIXERLINE Dim MLC As MIXERLINECONTROLS Dim MC() As MIXERCONTROL mixerOpen hMixer, 0, 0, 0, 0 mixerGetDevCaps 0, MxrCaps, Len(MxrCaps) MLdst.cbStruct = Len(MLdst) MLdst.dwDestination = 0 mixerGetLineInfo hMixer, MLdst, MIXER_GETLINEINFOF_DESTINATION ReDim MC(MLdst.cControls - 1) For i = 0 To MLdst.cControls - 1 MC(i).cbStruct = Len(MC(i)) Next i MLC.cbStruct = Len(MLC) MLC.cbmxctrl = Len(MC(0)) Dim hMem As Long MLC.dwLineID = MLdst.dwLineID MLC.cControls = MLdst.cControls hMem = GlobalAlloc(&H40, MLC.cbmxctrl * MLC.cControls) MLC.pamxctrl = GlobalLock(hMem) mixerGetLineControls hMixer, MLC, MIXER_GETLINECONTROLSF_ALL 'Maybe here's a mistake, but I don't know how to pass the whole MC array instead of one structure CopyStructFromPtr MC(0), MLC.pamxctrl, MLC.cbmxctrl * MLC.cControls 'This returns "" Debug.Print MC(1).szPname GlobalUnlock hMem GlobalFree hMem End Sub
Getting Audio From Sound Card To Software Control Lighting Like Old 70's Color Organs
Hello,
Is it possible to get audio from the sound card with Visual Basic 6 and take the audio and run it through high, mid and low filters with code? Then i need to take this info and be able to control lights like the 70's color organ circuits where the lights flash to the 3 frequency ranges of music and convert it to send out the serial port.
The other thing that would be cool is to be able to build patterns from the audio. But i wasn't sure if any of this could be done with VB6
If i haven't explained this enough just ask me some questions!
Thanks,
Kevin
Levels
I was wondering if someone can tell me how i can make 2D levels i keep borrowing or asking people.But i only want simple (Super Mario Bros.)2d levels.Can someone help me out.
Different Security Levels
I have a spreadsheet with multiple worksheets. I need for the spreadsheet to have multiple security levels. A level 1 user would only have rights to Add Data. A level 2 user would have rights to Add Data and Update the Bench Mark worksheet. A level 3 user would rights to the whole spreadsheet. Is this possible in Excel or do I need to create different password for each worksheet.
Severity Levels
Hello All,
I am creating a database management system using database "Triggers", and I have come across something called "Severity Levels".
Please can anyone describe what "Severity Levels" are.
Cheers Lee
Adding 2 Or + Levels In XML
Hi,
I´m new in XML. I'm trying to create a new XML document. The problem is that I can´t create a second level child, here is what I'm suppose to do:
<?xml version="1.0" encoding="UTF-8">
<Data>
<PosMsg>
<TipoMov>POS</TipoMov>
<Antena>GTA00014</Antena>
<Latitud>22.8965454101563</Latitud>
<Longitud>-98.4695587158203</Longitud>
<Fecha>2005-10-02T06:40:36</Fecha>
<Mensaje></Mensaje>
</PosMsg>
</Data>
Can anybody tell me how to create the <PosMsg> node? This is my program:
Dim doc As New DOMDocument40
Dim version As IXMLDOMProcessingInstruction
Dim el As IXMLDOMElement
Dim father As IXMLDOMNode
doc.preserveWhiteSpace = False
doc.async = False
' add xml version element
Set version = doc.createProcessingInstruction("xml", "version=""1.0"" encoding=""utf-8""")
doc.appendChild version
' add base AFE element
doc.appendChild doc.createElement("Data")
'doc.appendChild doc.createElement("PosMsg")
Set father = doc.createElement("PosMsg")
'father.appendChild doc.createNode
doc.documentElement.appendChild father
' set default namespace to that of schema
Set el = doc.createElement("TipoMov")
el.appendChild doc.createTextNode("POS")
doc.documentElement.appendChild el
Set el = doc.createElement("Antena")
el.appendChild doc.createTextNode("GTA00222")
doc.documentElement.appendChild el
Set el = doc.createElement("Latitud")
el.appendChild doc.createTextNode("25.223432")
doc.documentElement.appendChild el
Set el = doc.createElement("Longitud")
el.appendChild doc.createTextNode("-100.23453")
doc.documentElement.appendChild el
Set el = doc.createElement("Fecha")
el.appendChild doc.createTextNode("2005-12-31T23:59:59")
doc.documentElement.appendChild el
Set el = doc.createElement("Mensaje")
el.appendChild doc.createTextNode("")
doc.documentElement.appendChild el
MsgBox doc.XML
Thanks,
Vach
Loading Levels
Hello
I have code on my vb program where if someone clicks on a button the web browser loads. However sometimes the browser loads behind the form, so you have to minimize the form to view the browser. Is there a way to somehow have the browser automatically load in front of the form?
Thansk
Video + Audio ... But Audio Not Captured
guys,
does anyone know how to bring up the sound configuration dialog using the videoocx.ocx ??? i get to retrieve all the video display setting dialog but i couldn't found any method for retrieving the sound dialog!!!!!!!!!!!11
i want to capture the sound as well from a microphone!!!
any expert please help?????
Connecting Screens, Or Levels
during the small amount of time i have spent trying to learn vb6, i have made a few small little games. however, i have not been making them "professionally". for each "level" i would make a new form, and just place the images on the form and add the code and stuff. how would you make a game with different levels all in one form. my next project is going to be a graphical text adventure, like Hugo's House of Horrors, and the old AGI games by Sierra in the 80's, like police quest, space quest, leisure suit larry, kings quest, etc.
how would you make this game? just give me a general idea how things would flow together. like how you would connect rooms, how you would know where to place the hero and objects on the screen and such, and how to make lines that would block the player from walking through, for example. a line blocking the player from walking past because there is a wall there and he is not supposed to walk through.
also, some free programs for drawing 256 color background which will be the pictures for each scene, and a program for drawing 256 color animated sprites for characters and objects.
DirectX8 Alpha Levels
I'm working with directx8. I have a fairly acceptible understanding of direct3d (at least as far as rendering 2d graphics and stuff goes) my problem is, I can't seem to figure out how to modify the opacity of my primatives/texutres. I can render png files well using alphablending, but these textures are restricted to the alpha information written into the file.
How can I change the alpha level of the primatives/texutres I render to the screen? Is there a rendering state or a texture stage that I should know about, and if so, what other factors should I be aware of in order to make sure it works.
Help would be greatly appreciated
Thank You.
Maco Security Levels
Hey every one
I'm having a big problem opening a db in a Virgin VM pc. I know that when i install Access 2003 and drop the maco security levels the db runs fine.. even if i uninstall 2003 and reinstall 2002 it works .. but it does not work when i run 2002 first without droping the maco security levels....How can i control the maco security levels from 2002 durring set up of my db program???
Runing Process At Different Levels
Hey how can I use a command in VB to say run
rundll32 or some other executable at a different user level. As when you see it in Task manager it is say running as SYSTEM or NETWORK and not as UserBOB. Thanks a lot
Half
RichTextBox And Zoom Levels
Does anyone know how to adjust the zoom levels on a richtextbox control without having to do a .FontSize to the entire control?
I need to know how to access the same zoom levels you would get if you were to hold in your ctrl button and scrolled the wheel on your mouse.
Bass And Treble Levels
Anyone have an idea for the best way to control the bass and treble levels? I am currently using a control to do that but it kind of sucks because I can't change the value of the control thru code and the progress bars to control the level look horrible. Thanks alot everyone.
Error Handling Different Levels
Hi all,
We basically have a structure as below for one of our forms on the query unload (in suedo code below).
CODEOn Error goto ErrorHandler
Loop X + 1 until x = 3
CALL Function1
CAll function2
Call function3
:ErrorHandler
IF X = 3 and err.num <> 0 then
trans.rollback
goto MAIn_ERROR_HANDLE
ELSE
err.clear
end if
IF err.num = 0 then
trans.commit
x = 3
end if
end loop
exit Sub
MAIn_ERROR_HANDLE:
Write to text file
End sub
Permission Levels In .INI File?
Hi everyone! I'm working on a program using VB6. I am trying to make the program as customizable as i can so i'm working on an Options form for users to set up their preferences. I am saving their settings in a .INI file. Most of this is working ok, i am able to save/retrieve settings for Quick alarm subjects, Email display names and stuff like that. I am running into a problem while trying to work on the Permission levels. Here's an idea of what i'm trying to do, then i'll post my current code.
Basically, i want to enable an Application Administrator to make changes such as adding/removing permission levels and defining whether or not that permission level is able to do certain things. I'm not really sure how to go about setting up the hierarchy in the .ini file...Because i want them to be able to add/remove permissions, i need to be able to retrieve the current permission levels, display them to the user, and then be able to find the one that they've selected for removal and remove it from the .ini file. I'm not sure how to find and display and then find and remove/change permissions from the .ini file.
Code:
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Enum SearchDirection
LeftToRight = 0
RightToLeft = 1
End Enum
Public Function ReadIni(FileName As String, Section As String, Key As String) As String
On Error GoTo Err
Dim RetVal As String * 255, x As Long
x = GetPrivateProfileString(Section, Key, "", RetVal, 255, FileName)
ReadIni = Left(RetVal, x)
Err:
End Function
Public Sub WriteIni(FileName As String, Section As String, Key As String, Value As String)
WritePrivateProfileString Section, Key, Value, FileName
End Sub
Here is an example of how i save and retrieve the information:
Code:
Private Sub chkSplash_Click()
clsUserPref.WriteIni SETTINGS_PATH & strUser & " Settings.ini", "Miscellaneous", "Splash Screen", chkSplash.Value
End Sub
Private Sub Form_Load()
chkSplash.Value = CInt(clsUserPref.ReadIni(SETTINGS_PATH & strUser & " Settings.ini", "Miscellaneous", "Splash Screen"))
End Sub
Anyone have any suggestions? Maybe it would be better to use a different form of permission tracking? i'm trying to avoid messing around in the registry because i haven't done much with the registry so far (ever) and it makes me nervous because a lot of things can get really messed up if you don't know what you're doing in there ;)
Any help would be greatly appreciated, thanks everyone!
-Ryan
Report Group Levels
Hi Gurus
I am trying to get the sort order for each field in a report. I can get each value fine, but when i run out of fields i get a 2464 error, becausei obviosly do not have a group level up to 9.
so..how can i check for different a number of group levels depending on what report i look at..i.e. 0 or 5 ??? and exit the for..loop when there is no more group levels left, without crashing my program???
Code:
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
'For each report in the database
For Each obj In dbs.AllReports
DoCmd.OpenReport obj.name, acViewDesign
If obj.IsLoaded = True Then
'Identifies the sort order for each field
For i = 0 To 9
If (Reports(0).GroupLevel(i).SortOrder) = False Then
MsgBox ("The Field " + Str(i) + " is in Descending Order")
Else
MsgBox ("The Field " + Str(i) + " is in Ascending Order")
End If
Next i
DoCmd.Close acReport, obj.name, acSaveNo
End If
Next obj
Thanks for your time, much appreciated
Aaron
Treeview - Finding Levels
Intend to do the following
In a VB form, I have a Treeview(with checkboxes). The users can add/ delete any node...add a sub item etc. The user then checks the items which he wants. I am creating a Table of Contents (TOC) in word, of all the items that are clicked....I was able to do it in the TOC(through TC fields), however all are at the same level. In TOC you can add a switch by which you can make an entry appear at a certain level
eg:
Chapter 1
Chapter 2
Section - 1
Section - 2
Section - 3
Sub Section 1
Sub Section 2
Chapter 3
Chapter 4
In a treeview, when I add a node, I am using the code given to me by Bounty Bob (refer : http://www.codeguru.com/forum/showt...hlight=treeview)
Hmmmm...so now the problem is when I add a new item at run time...everything collapses...as the newly added items index is greater than the older ones...thereby it is failing to determine it is whose child...i.e who is the parent of the newly added item.
When the user has finished adding/removing any item names and clicks on the Create Index button, what I do is put all the checked items in an Array(single dimesional) and then populate a TOC in word. What I thought is make the array (2 dimesional) and when I am putting the elements in the array also put the level at which the element is say 1 or 2 or 3 etc. so that when I am creating a TOC I can concatenate the array string along with the levelno....in short create a TC field with the level no also which in turn will correctly create TOC with TC's at resp levels....
I also have a problem in determing the level of the node
Has anyone done this before. Also I need some other suggestions for doing this. I spent almost 5 hrs thinking in the same direction....can anyone give me some other direction???
Thanks for reading my query
Natalie
How Can You Query For Current CPU Levels?
I am need to get the current CPU levels of the computer. Can this be done through an API call like the method for obtaining Memory levels? If so, what would be the most direct or indirect method for doing so?
Thank you.
What Are Common Ways Of Handling Map Levels?
what are common ways of handling map levels?
i was using Map(Level,X,Y).Info
but now i see that array is too lage , i want at least 1000x1000 tiles.
i don't think i can just switch to a single integer.
(the way the map is drawn , and file storage)
how do you guys normally handle this?
(i'm aiming for multi-player , everything has to be loaded)
Bitblt Trans Opacity Levels
Hi
I am coding a game in Bitblt and I want my graphics to look as smooth once rendered to the screen. The problem is that who say smooth says antialiasing. I would like to be able to preserve the level of transparency of the mask (different shades of black on white) so some parts of my picture can remains 30% transparent, ect. Anyways ive attached a mockup in photoshop to show the kind of result I would like to see once rendered to the screen. If you zoom, you will see what I mean, some parts of the edges will have shades of yellow (sun) so the antialias is done correctly. This is nice, but if the shades of the edges remains yellow on the green grass it will look really weird.
Thanks a lot!
Using Saved Levels In The Actual Game?
Well, after much time, me and spank (programming friend) got the level editor save and open fuction for our game to work. The editor now can save and open the levels. Now, were trying to get the levels to load into the main game exe. Here is what I tried to do.
I made one sub that opens the map file as binary, gets all of the tile coords out and loads them into a 2d array. I do this OUTSIDE the main sub so it doesnt open the level on every loop. Then using the data from the 2d arrays, I use that in a sub thats called every loop to blt it. The game is full screen, displays 40x30 tiles on the screen at a time. Here is what I tried
Public Sub LoadData()
Dim x As Integer, y As Integer
Open App.Path & "/blah.fto" For Binary As #1
For x = 0 To 63
For y = 0 To 63
Get #1, , Map(x, y)
Next y
Next x
End Sub
that was called before hand so it could load all the data in. Then before I was loading in levels, this is the sub I had that just filled the screen with the grass tile.
Public Sub DrawLevel(TileSourcesurf As DirectDrawSurface7, TileDestSurf As DirectDrawSurface7)
Dim x As Integer, y As Integer, r As RECT, retVal As Long
For x = 0 To 40
For y = 0 To 30
'Create our Rectangle.
r.Left = 0
r.Top = 0
r.Right = r.Left + TileWidth
r.Bottom = r.Top + TileHeight
'This is where we copy the tile from the source to the destination
retVal = TileDestSurf.BltFast(Int(x * TileWidth), Int(y * TileHeight), TileSourcesurf, r, DDBLTFAST_WAIT)
Next y
Next x
End Sub
What can I edit on the second one to get it to load in the game data that I import? Thanks in advance
DirectX/DirectSound Decibel Levels
Hi folks,
I've written a program that uses a mixture of DirectX (v8) and the WinMM API for recording audio. I've managed to write a routine to convert the raw audio levels (-32768 to 32767) to dBFS (-96 to 0 dB), but I need to also convert it, if possible, to "Analog" dB (dBu).
Anyone any ideas?
Cheers,
Mark
Levels Of Backup (Wording For The Docs)
My program has a new feature where the user can select "Levels of Backup" from 0 to 8, where they can choose anywhere from no backing up of their file, up to 8 trailing backups . . .
Some how the wording of it just doesn't sound right to me - "Levels of Backup". I know you have "Levels of Undo", but something makes me think I can word this a bit more properly than "Levels of Backup".
Yes, you can get lost in the minutiae, and I often do, but is there a sharper term I can use for this feature?
Login With Diffrent Access Levels
i am creating a point of sale app and i need diffrend access levels for my login. Here is the login code i am using:
VB Code:
Private Sub cmdOK_Click() On Error GoTo ErrHandler 'Connect to database strCNString = "Data Source=" & App.Path & "database.mdb" cn.Provider = "Microsoft Jet 4.0 OLE DB Provider" cn.ConnectionString = strCNString cn.Properties("Jet OLEDB:Database Password") = "" cn.Open 'Open recordsource With rs .Open "Select * from tblUsers where Username='" & txtName.Text & "' and Password='" & txtpass.Text & "'", cn, adOpenDynamic, adLockOptimistic 'Check username and password If .EOF Then MsgBox "Access Denied...Please enter correct password!", vbOKOnly + vbCritical, "Security Login" txtName.Text = "" txtpass.Text = "" txtName.SetFocus cn.Close Else Txt = "" & " " & UCase$(txtName.Text) & "" cn.Close txtName.Enabled = False txtpass.Enabled = False Label1.Enabled = False Label2.Enabled = False cmdRegister.Enabled = False frmMain.txtUser.Text = txtName.Text mdiMain.stbInfo.Panels(1).Text = "Logged In [" & txtName.Text & "]" mdiMain.mnutools.Enabled = True mdiMain.mnuhelp.Enabled = True mdiMain.mnuSignIn.Enabled = False SaveSetting App.Path, " setting", "CurrentUser", txtName.Text Unload Me frmMain.Show End If End WithExit Sub ErrHandler: MsgBox Err.Description, vbCritical, "Login"cn.CloseEnd Sub
2D Tile RPG - Help With Arrays For Maps/Levels
Ok, 2D tile based rpg.
I am going to be using the following:
-32x32 pixel tiles
-The entire map will be 15 tiles wide, 15 tiles high (480x480 pixel total).
-225 Tiles in one map
Right now I am setting up an Array.
I need this array because: Say, if you are creating the map in a map editor and deciding what kind of tiles will be placed in each one of the 225 blocks on the map. When you save the map, it will store that information into a file which stores each map for the game. It will need to store a map#, and the type of tile that needs to load on each one of the 225 squares.
Not really sure how to setup this array, but I came up with this so far:
Quote:
Public Type MapInfo ' define the contents of the map array
mapNumber As Integer 'just a reference number so the game knows which map this is.
mapTile1_1 As String 'string to define which type of tile is at this location on the map
mapTile1_2 As String
mapTile1_3 As String
mapTile1_4 As String
mapTile1_5 As String 'mapTile1_5 will be the tile at Row 1, Column 5
mapTile1_6 As String
mapTile1_7 As String
mapTile1_8 As String
mapTile1_9 As String
mapTile1_10 As String
mapTile1_11 As String
mapTile1_12 As String
mapTile1_13 As String
mapTile1_14 As String
mapTile1_15 As String
mapTile2_1 As String
mapTile2_2 As String
mapTile2_3 As String
mapTile2_4 As String
mapTile2_5 As String
mapTile2_6 As String
mapTile2_7 As String
mapTile2_8 As String
mapTile2_9 As String
mapTile2_10 As String
mapTile2_11 As String
mapTile2_12 As String
mapTile2_13 As String
mapTile2_14 As String
mapTile2_15 As String
mapTile3_1 As String
mapTile3_2 As String
mapTile3_3 As String
mapTile3_4 As String
mapTile3_5 As String
mapTile3_6 As String
mapTile3_7 As String
mapTile3_8 As String
mapTile3_9 As String
mapTile3_10 As String
mapTile3_11 As String
mapTile3_12 As String
mapTile3_13 As String
mapTile3_14 As String
mapTile3_15 As String
mapTile4_1 As String
mapTile4_2 As String
mapTile4_3 As String
mapTile4_4 As String
mapTile4_5 As String
mapTile4_6 As String
mapTile4_7 As String
mapTile4_8 As String
mapTile4_9 As String
mapTile4_10 As String
mapTile4_11 As String
mapTile4_12 As String
mapTile4_13 As String
mapTile4_14 As String
mapTile4_15 As String
mapTile5_1 As String
mapTile5_2 As String
mapTile5_3 As String
mapTile5_4 As String
mapTile5_5 As String
mapTile5_6 As String
mapTile5_7 As String
mapTile5_8 As String
mapTile5_9 As String
mapTile5_10 As String
mapTile5_11 As String
mapTile5_12 As String
mapTile5_13 As String
mapTile5_14 As String
mapTile5_15 As String
mapTile6_1 As String
mapTile6_2 As String
mapTile6_3 As String
mapTile6_4 As String
mapTile6_5 As String
mapTile6_6 As String
mapTile6_7 As String
mapTile6_8 As String
mapTile6_9 As String
mapTile6_10 As String
mapTile6_11 As String
mapTile6_12 As String
mapTile6_13 As String
mapTile6_14 As String
mapTile6_15 As String
mapTile7_1 As String
mapTile7_2 As String
mapTile7_3 As String
mapTile7_4 As String
mapTile7_5 As String
mapTile7_6 As String
mapTile7_7 As String
mapTile7_8 As String
mapTile7_9 As String
mapTile7_10 As String
mapTile7_11 As String
mapTile7_12 As String
mapTile7_13 As String
mapTile7_14 As String
mapTile7_15 As String
mapTile8_1 As String
mapTile8_2 As String
mapTile8_3 As String
mapTile8_4 As String
mapTile8_5 As String
mapTile8_6 As String
mapTile8_7 As String
mapTile8_8 As String
mapTile8_9 As String
mapTile8_10 As String
mapTile8_11 As String
mapTile8_12 As String
mapTile8_13 As String
mapTile8_14 As String
mapTile8_15 As String
mapTile9_1 As String
mapTile9_2 As String
mapTile9_3 As String
mapTile9_4 As String
mapTile9_5 As String
mapTile9_6 As String
mapTile9_7 As String
mapTile9_8 As String
mapTile9_9 As String
mapTile9_10 As String
mapTile9_11 As String
mapTile9_12 As String
mapTile9_13 As String
mapTile9_14 As String
mapTile9_15 As String
mapTile10_1 As String
mapTile10_2 As String
mapTile10_3 As String
mapTile10_4 As String
mapTile10_5 As String
mapTile10_6 As String
mapTile10_7 As String
mapTile10_8 As String
mapTile10_9 As String
mapTile10_10 As String
mapTile10_11 As String
mapTile10_12 As String
mapTile10_13 As String
mapTile10_14 As String
mapTile10_15 As String
mapTile11_1 As String
mapTile11_2 As String
mapTile11_3 As String
mapTile11_4 As String
mapTile11_5 As String
mapTile11_6 As String
mapTile11_7 As String
mapTile11_8 As String
mapTile11_9 As String
mapTile11_10 As String
mapTile11_11 As String
mapTile11_12 As String
mapTile11_13 As String
mapTile11_14 As String
mapTile11_15 As String
mapTile12_1 As String
mapTile12_2 As String
mapTile12_3 As String
mapTile12_4 As String
mapTile12_5 As String
mapTile12_6 As String
mapTile12_7 As String
mapTile12_8 As String
mapTile12_9 As String
mapTile12_10 As String
mapTile12_11 As String
mapTile12_12 As String
mapTile12_13 As String
mapTile12_14 As String
mapTile12_15 As String
mapTile13_1 As String
mapTile13_2 As String
mapTile13_3 As String
mapTile13_4 As String
mapTile13_5 As String
mapTile13_6 As String
mapTile13_7 As String
mapTile13_8 As String
mapTile13_9 As String
mapTile13_10 As String
mapTile13_11 As String
mapTile13_12 As String
mapTile13_13 As String
mapTile13_14 As String
mapTile13_15 As String
mapTile14_1 As String
mapTile14_2 As String
mapTile14_3 As String
mapTile14_4 As String
mapTile14_5 As String
mapTile14_6 As String
mapTile14_7 As String
mapTile14_8 As String
mapTile14_9 As String
mapTile14_10 As String
mapTile14_11 As String
mapTile14_12 As String
mapTile14_13 As String
mapTile14_14 As String
mapTile14_15 As String
mapTile15_1 As String
mapTile15_2 As String
mapTile15_3 As String
mapTile15_4 As String
mapTile15_5 As String
mapTile15_6 As String
mapTile15_7 As String
mapTile15_8 As String
mapTile15_9 As String
mapTile15_10 As String
mapTile15_11 As String
mapTile15_12 As String
mapTile15_13 As String
mapTile15_14 As String
mapTile15_15 As String
End Type
Global MapArray(1 To 15, 1 To 15) As MapInfo 'define a 15x15 map
'TILE TYPES (will hold a location for the tile image later on, right now I just put 0)
Public Const TileType1 = 0 'example = tiles/tile1.jpg
Public Const TileType2 = 0 'example = tiles/tile2.jpg
Public Const TileType3 = 0 'example = tiles/grass1.jpg
Public Const TileType4 = 0 'The 0's are just temporary
Public Const TileType5 = 0
Public Const TileType6 = 0
Public Const TileType7 = 0
Assistance Needed: How Can I Control IE From Activex Com Or Control?
We are developing a client app that will receive an account number from a phone switch. It must be developed as a client app to use the phone switch API to get actions from the switch. The app needs to pass the number into a command field on a vendor supplied web site - which we CANNOT modify. We might be allowed to load a dll or control from the login webpage.
The vendor site screen scapes mainframe data and displays the data in Internet Explorer. IE is the company standard -- we do not support netscape, opera or any other browser.
The url does not change nor can we post data to the url. The site controls user access and navigation. We believe we can access the html and insert the account number on a command line. I believe we need to create either an Activex control or com object that we would call from the client app. The object would then set the html value and submit the request. Looking for any samples/code/advise on the feasibility of this solution!
User Access Levels With Text Files
Hi Everyone,
I am relatively new to VB. I am having some difficulty with a a program that I am working on.
I know the answer if I use a database. However, I am only allowed to use text files.
So here it is:
I have 3 users levels:
1) manager who has access to all
2) user who only has access to sold items
3) user who only has access to items for sale.
From their list of items, they can choose one to review, modify or make notes.
There is only 1 text file. I think that I can use an array or a flag just not sure which would be better or the best way to pull the info from the text file.
Thanks for any help!!!!!
MadMonk
mmonk@classicnet.net
Book Stated 'all Levels Of Skill' But Im Havin Trouble :(
Two quick questions
One, global variables
I was just practicing what the book said but didnt work...
I want the variable 'myform' to be able to be read from other forms here is the code..
Loading form:
Dim myform As Form
Private Sub Command1_Click()
Set myform = New Form1
myform.Show
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
2nd form:
Private Sub Command1_Click()
myform.Show
End Sub
What is wrong?
Another question.. sorry
The book talks about releasing variable after they are in no use. Here is my code..
Dim thisfont As StdFont
Private Sub Command1_Click()
thisfont = Nothing
End Sub
Private Sub Form_Load()
Set thisfont = Text1.Font
thisfont.Bold = True
End Sub
When i click command1 it is meant to set the bold property to nothing instead there is a type mismatch error...
Help please
Install Onto Networked Computers With Restricted User-levels
SUMMARY: I'm filling in, installing a VB 6.0 application that was made using the Package&Deployment Wizard. The code doesn't use ADO (my preference). I prefer InstallShield 2.12 (is there a better, please advise).
TASK: Install a Visual Basic application onto 6 computers, used by 10 users over 2 shifts. These computers are networked. Each user has Restricted access. The VB application reads and writes data to a MS ACCESS database on the network.
NOTE: Code is below, as well as the SETUP.LST
STEPS TAKEN, PROBLEMS ENCOUNTERED:
1. Logged onto computer as local administrator
2. Ran SETUP.EXE from my network drive
3. All files copied as normal, including the pesky COMDLG32.DLL/OCX
4. Logged out.
5. Logged back in on restricted user account.
6. Ran .EXE
7. Error box "COMDLG32" or one of its components is not registered or is corrupted.
When I'm logged on as myself, the *.EXE runs just fine. So it wasn't a "corrupted COMDLG32 file".
thanks if anyone has any ideas??
Chris.
'==========================================
' The database code, as written by previous employee
'==========================================
Private Sub cmdSignOn_Click()
Dim db As Database, rs As Recordset, sSQL As String
sSQL = "SELECT * FROM tblLeadGen"
Set db = OpenDatabase(frmInfo.txtDBP)
Set rs = db.OpenRecordset(sSQL)
rs.FindFirst "LeadGen = '" & Me.txtSignIn & "'"
If rs.NoMatch = True Then
MsgBox " LOG IN FAILED" & vbCr & "User ID not recognised", vbCritical, ""
GoTo ClnUp
End If
frmInfo.txtLG = rs.Fields(0)
sSQL = "SELECT * FROM tblCopyOwners WHERE LeadGen='" & frmInfo.txtLG & "' and InPool > 0"
Set rs = db.OpenRecordset(sSQL)
If rs.RecordCount = 0 Then
MsgBox "There are no records in call pool for " & frmInfo.txtLG
GoTo ClnUp
End If
rs.MoveLast
frmOwnerDetail.Show
frmOwnerDetail.lblDetail.Caption = frmInfo.txtLG.Text & " - " & rs.RecordCount & " Records in Call Pool"
rs.MoveFirst
frmOwnerDetail.lblOwnNum = "Owner # - " & rs.Fields(0)
frmOwnerDetail.lblHome = "Home Ph - " & IIf(rs.Fields(19) Like "*", rs.Fields(19), "")
frmOwnerDetail.lblWork = "Work Ph - " & IIf(rs.Fields(20) Like "*", rs.Fields(20), "")
frmOwnerDetail.lblName = "Name - " & IIf(rs.Fields(5) = "Mr & Mrs", rs.Fields(7) & " && " & rs.Fields(8) & " " & rs.Fields(11) & " (Mr && Mrs)", rs.Fields(5) & " " & rs.Fields(7) & " " & rs.Fields(11) & " " & rs.Fields(6) & " " & rs.Fields(8) & " " & rs.Fields(12))
frmOwnerDetail.lblAddress = "Address - " & rs.Fields(13) & " " & rs.Fields(14) & " " & rs.Fields(22) & " " & rs.Fields(23) & " " & rs.Fields(24) & " " & rs.Fields(25)
frmOwnerDetail.lblEmail = "Email - " & rs.Fields(26)
frmOwnerDetail.txtComment = IIf(rs.Fields(47) Like "*", rs.Fields(47), "")
frmOwnerDetail.txtOrigRepNm = IIf(rs.Fields(49) Like "*", rs.Fields(49), "")
frmOwnerDetail.txtOrigRepNum = IIf(rs.Fields(50) Like "*", rs.Fields(50), "")
frmOwnerDetail.txtOrphRepNm = IIf(rs.Fields(51) Like "*", rs.Fields(51), "")
frmOwnerDetail.txtOrphRepNum = IIf(rs.Fields(52) Like "*", rs.Fields(52), "")
Select Case rs.Fields(57)
Case Is = "Phone"
frmOwnerDetail.Option1 = True
Case Is = "Email"
frmOwnerDetail.Option2 = True
Case Is = "Fax"
frmOwnerDetail.Option3 = True
End Select
sSQL = "SELECT Date,Response,Comments FROM tblResponse WHERE OwnNum='" & Right(frmOwnerDetail.lblOwnNum, 8) & "' ORDER BY Date DESC"
Set rs = db.OpenRecordset(sSQL)
If rs.RecordCount = 0 Then
GoTo ClnUp
End If
frmOwnerDetail.MSFlexGrid2.RowHeight(0) = 20
rs.MoveFirst
Do Until rs.EOF
frmOwnerDetail.MSFlexGrid2.AddItem rs.Fields(0) & vbTab & rs.Fields(1) & vbTab & rs.Fields(2)
rs.MoveNext
Loop
Unload frmSignIn
ClnUp:
Set db = Nothing
Set rs = Nothing
End Sub
'====================================
' Setup.Lst
'====================================
[Bootstrap]
SetupTitle=Install
SetupText=Copying Files, please stand by.
CabFile=OwnRefLeads.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
Cabs=1
[Bootstrap Files]
File1=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
File2=@VB6STKIT.DLL,$(WinSysPathSysFile),,,7/15/00 12:00:00 AM,101888,6.0.84.50
File3=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
File4=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
File5=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
File7=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,6/19/03 12:05:04 PM,1385744,6.0.96.90
[IconGroups]
Group0=ORLeadGenInterface
PrivateGroup0=-1
Parent0=$(Programs)
[ORLeadGenInterface]
Icon1="DBaseProperties.exe"
Title1=OwnRefDbaseProperties
StartIn1=$(AppPath)
Icon2="OwnRefLeads.exe"
Title2=ORLeadGenInterface
StartIn2=$(AppPath)
[Setup]
Title=OwnRefLeads
DefaultDir=$(ProgramFiles)OwnRefLeads
AppExe=OwnRefLeads.exe
AppToUninstall=OwnRefLeads.exe
[Setup1 Files]
File1=@COMDLG32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,140488,6.0.84.18
File2=@DBaseProperties.exe,$(AppPath),,,8/6/03 8:59:16 AM,24576,1.0.0.0
File3=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4
File4=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 12:00:00 AM,262328,6.0.89.88
File5=@MSFLXGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,244416,6.0.84.18
File6=@VB5DB.DLL,$(WinSysPath),,$(Shared),6/18/98 12:00:00 AM,89360,6.0.81.69
File7=@msjtes40.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6/19/03 12:05:04 PM,241936,4.0.7328.0
File8=@msrepl40.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,553232,4.0.6726.0
File9=@msrd3x40.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6/19/03 12:05:04 PM,315664,4.0.6508.0
File10=@msrd2x40.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6/19/03 12:05:04 PM,422160,4.0.7328.0
File11=@mswdat10.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,831760,4.0.6508.0
File12=@mswstr10.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,614672,4.0.6508.0
File13=@expsrv.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,380957,6.0.72.9589
File14=@vbajet32.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,30749,6.0.1.9431
File15=@msjint40.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,151824,4.0.6508.0
File16=@msjter40.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,53520,4.0.6508.0
File17=@msjet40.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6/19/03 12:05:04 PM,1507600,4.0.7328.0
File18=@dao360.dll,$(MSDAOPath),$(DLLSelfRegister),$(Shared),6/19/03 12:05:04 PM,561424,3.60.6508.2
File19=@msvcrt.dll,$(WinSysPathSysFile),,,6/19/03 12:05:04 PM,286773,6.1.9844.0
File20=@scrrun.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/26/01 4:39:42 PM,151601,5.6.0.6626
File21=@OwnRefLeads.exe,$(AppPath),,,8/15/03 3:47:04 PM,139264,1.0.0.0
; The following lines may be deleted in order to obtain extra
; space for customizing this file on a full installation diskette.
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
RESOLVED****** Database Or VB 6 Connection Question? Authority Levels....
I am using an Access Database in VB6. I am doing System Project of a Restaurant company, and there are different departments that people can log onto. They are restricted to those environments, except for the Administrator... which is me and my instructor. Problem is that I can only get the program to allow one person from any department into the system... It does not allow 2 from the same dept to log in....(Not speaking logging in at the same time, I am talkking period!!!) Also I have noticed that the person higher up in the database file with the same authority is allowed in the program... because I moved someof the authorities around to troubleshoot. I do not know what the problem is though. What could cause this? Database... or program??? Not sure which? Please help... have 10 days before I have to turn this in... Have all done but one screen, and repairing this! Please Help!
BTW.... thanks again Martin for the assistance!
|
TRACKER
