Visual Basic Forum RSS Feed

cheap chanel bags

Fri, 20 Nov 2009 20:40:13 -0700

Newest design:shoes,handbags,wallets,sunglasses,clothes,j eans!
Free shipping! Speedy delivery!Lowest price!
high quality!fashion design!best service!
www.welljordan.com

vb6 Realtime MSChart

Fri, 13 Nov 2009 12:24:15 -0700

I am creating a display to show the PLC values coming in from (KepWare 4) Server. My problem is not really displaying data on the MSChart, but having the MSChart update every second (i.e the rows being the time and the columns being the Conductivity - gallons per minute)

I do not know how to go about this...as every example I've seen so far just shows how to add data to MSChart. I am looking to have the chart always update, going from left to right, as the time progresses.

Option Explicit
Option Base 1
'Define the server Object
Dim WithEvents ConnectedOPCServer As OPCServer

Public gblConductivity As Integer
'Define the group objects
Dim ConnectedServerGroups As OPCGroups
Dim WithEvents ConnectedGroup As OPCGroup
' Define OPC Item related data. These arrays are dimensioned for seven items.
' If you are doing a different number of items you would change the size.
Dim OPCItemCollection As OPCItems
Dim ItemCount As Long
Dim OPCItemIDs(7) As String
Dim ItemServerHandles() As Long
Dim ItemServerErrors() As Long
Dim ClientHandles(7) As Long
' Define the Data Objects
Dim gDB As ADODB.Connection
Dim gRS_Log As ADODB.Recordset
' Define form and logging control parameters
Dim gLogData As Boolean
'Data Logging trigger
Dim LogDataArray(5) As Single
'Value arrayfor data that will be logged.
Public GintGraphGridSize As Integer

Public dtmCheckTime As Date, dtmCheckDate As Date

' General startup initialization Private
Sub Form_Load()

Call loadOPCdata 'PLC stuff
Call GLoadAccessDB 'Acess Database
Call SetGraphProperties(frmADL) 'My Graph

End Sub

Sub ConnectedGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

' We don't have error handling here since this is an event called from the OPC interface
' You can use the 'Clienthandles' array returned by the server to pull out the
' index number of the control to update and load the value. Since we only have
' one we do not worry about that. If you were doing more then one item you might
' use the following code:
'
Dim x As Integer

gLogData = True


For x = 1 To NumItems
Select Case ClientHandles(x)
Case 1 To 5

' Load data to be logged to holding array
LogDataArray(ClientHandles(x)) = ItemValues(x)

' Update the screen display with the data value
myText(ClientHandles(x)).Text = ItemValues(x)

'''''''''''''''''''''''''''''''''''''''''''
'needs to do chart function here I think....

''''''''''''''''''''''''''''''''''''''''''''

Case 6
' Evaluate the Data Logging trigger and set the timer trigger accordingly.
'gLogData = True
If ItemValues(x) = 1 Then
gLogData = True

End If
Case 7 ' Evaluate the Communications Status and set accordingly
If ItemValues(x) = True Then
indError.Visible = True
Else
indError.Visible = False
End If
End Select
Next x
End Sub

Private Sub tmrLogData_Timer()

Dim x As Integer
Dim timevalues(5) As String

MSChartConductivity.Row = 1
timevalues(1) = Format(DateAdd("s", x, dtmCheckTime))
MSChartConductivity.RowLabel = dtmCheckTime
MSChartConductivity.Data = myText(1).Text

For x = 1 To 5


txtTimeConductivity.Text = Now()


MSChartConductivity.Row = x
timevalues(1) = Format(DateAdd("s", x - 4, dtmCheckTime))
MSChartConductivity.RowLabel = dtmCheckTime
MSChartConductivity.Data = myText(1).Text

Call writeToDatabase
Next x

End Sub

Private Sub SetGraphProperties(ByRef frmADL As Form)
On Error GoTo ErrHandle

MSChartConductivity.Column = 1


With MSChartConductivity.Plot.SeriesCollection(1)
.Pen.VtColor.Set 250, 1, 10
.Pen.Width = 1
.LegendText = "Conductivity"
End With

Exit Sub
ErrHandle:

End Sub

Private Sub writeToDatabase()

dtmCheckTime = Format(Now, "hh:mm:ss AMPM")
dtmCheckDate = Format(Now, "dd mmm yyyy")

If gLogData Then
With gRS_Log
.MoveLast
.AddNew
![tagDataValue1] = LogDataArray(1)
![tagDataValue2] = 0 'LogDataArray(2)
![tagDataValue3] = 0 'LogDataArray(3)
![tagDataValue4] = 0 'LogDataArray(4)
![tagTime] = dtmCheckTime
![tagDate] = dtmCheckDate

.Update

End With
gLogData = False

txtRECS.Text = gRS_Log.RecordCount
End If
End Sub


Public Sub loadOPCdata()
'Create a new OPC Server object
Set ConnectedOPCServer = New OPCServer
ConnectedOPCServer.Connect "Kepware.KepserverEx.V4"

' Add the group and set its update rate
Set ConnectedServerGroups = ConnectedOPCServer.OPCGroups
Set ConnectedGroup = ConnectedServerGroups.Add("TRACKER")

' Set the update rate for the group
ConnectedGroup.UpdateRate = 150

' Subscribe the group so that you will be able to get the data change
' callbacks from the server
ConnectedGroup.IsSubscribed = True

'Next we will add 7 items. If your were going to add more then 7 item then you would need to
'make sure that you increase the OPCItemIDs and Client Handles Arrays to the number of items
'you will be adding. You will also need to increase the item count to correspond to the
'number of items that you are adding.
ItemCount = 7

' Add initialize the 5 items to be logged
OPCItemIDs(1) = "Channel1.TRACKER.Tag_1"
ClientHandles(1) = 1
OPCItemIDs(2) = "Channel1.TRACKER.Tag_1"
ClientHandles(2) = 2
OPCItemIDs(3) = "Channel1.TRACKER.Tag_2"
ClientHandles(3) = 3
OPCItemIDs(4) = "Channel1.TRACKER.Tag_2"
ClientHandles(4) = 4
OPCItemIDs(5) = "Channel1.TRACKER.Tag_3"
ClientHandles(5) = 5
OPCItemIDs(6) = "Channel1.TRACKER.Tag_3"
ClientHandles(6) = 6
OPCItemIDs(7) = "Channel1.TRACKER.Tag_4"
ClientHandles(7) = 7

' Establish a connection to the OPC item interface of the connected group

Set OPCItemCollection = ConnectedGroup.OPCItems
OPCItemCollection.DefaultIsActive = True
OPCItemCollection.AddItems ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors

End Sub

Public Sub GLoadAccessDB()

'Initialize new data objects
Set gDB = New ADODB.Connection
Set gRS_Log = New ADODB.Recordset

'Open Database and Table for Data Logging
gDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;data Source=" & App.Path & "\ADL_Data.mdb"
gRS_Log.Open "tblProdData", gDB, adOpenDynamic, adLockOptimistic

'Initialize Record Count field. Some databases or cursor types will not display a value
'other then -1. For those we will hide the field
If (gRS_Log.RecordCount) = -1 Then
txtRECS.Visible = False
txtRECS.Text = gRS_Log.RecordCount & " Total Records."
Else
txtRECS.Text = gRS_Log.RecordCount & " Total Records."
End If

End Sub

Interact VB with water detector

Fri, 13 Nov 2009 06:50:52 -0700

Dear all,

I am new in harware interface. I'm designing a flood monitoring system and i want to interact the system with VB.Im using the microcontroller and water detector. When the sensor sense water, i would like to show the output on VB.The harware is very simple because im using only one water detector for testing but i didnt know the coding to interact it with VB.could anyone plz help me with the coding plz..

Interact VB with water detector

Fri, 13 Nov 2009 06:48:33 -0700

PLEASE HELP GUYS

Tue, 10 Nov 2009 17:28:26 -0700

how do i code this in vb2008 using windows forms application

You have been hired to develop a payroll software application for a company.The application should display an employee's pay given the the number of hours an employee worked during the week.The company would also like the application to display the work status of the employee eg. Full Time or Part Time. Full time employees work at least 40 hours a week and part time employees work no more than 20 hours a week. Employees that work more than 40 hours a week receive overtime pay at time and a half.

The application should display the number of hours that the employee worked. The company would also like the application to display the various taxes the employee has to have deducted from the weekly pay. Full time employees pay FICA tax at 10%, social security at 15% and other miscelaneous taxes at 10%. All taxes are calculated against the gross weekly pay which includes overtime pay. Employees that work part time don't pay any taxes.

Some full time employees contribute to a Tax Deferred Annuity (TDA) account. The employee decides how much to contribute to this account and that amount is deducted from their gross pay before any taxes are calculated and deducted from their pay. Your application should display the amount the employee wants to contribute to the TDA.

You will get the number of hours worked from the user of the application and whether the employee is contributing to the TDA and how much they are contributing.

Newbie Question Regarding DirectSound

Tue, 10 Nov 2009 04:47:55 -0700

Hi,

I am currently developing a PC game based on the game show Card Sharks, and I am experiencing a dilemma as of recently.

I am hoping to use more than one DSBuffer (I would use, for example, "SoundClipA.wav", "SoundClipB.wav", and "SoundClipC.wav").

If I were to have separate cases using the DSBuffers mentioned above, like this:

    Case PlayIntro
        Dim cur As DSCURSORS
        DSBuffer.GetCurrentPosition cur
        contBkgd(1).Visible = True
        If cur.lPlay > 104861 Then 'bytes
          Label1.Caption = "This is an EDUCATED GUESS question."
          Command1.Enabled = True
        ElseIf cur.lPlay > 82785 Then 'bytes
          If QuesRB(0).Caption = "B" Then
            WhosTurn = BluePlayer
            Label1.Caption = "Blue, this question is for you."
            BBorder(1).Visible = True
            board.Visible = False
          ElseIf QuesRB(0).Caption = "R" Then
            WhosTurn = RedPlayer
            Label1.Caption = "Red, this question is for you."
            RBorder(1).Visible = True
          End If
            Image1(0).Visible = False
            Image1(1).Visible = False
            Image1(2).Visible = False
            Image1(3).Visible = False
            Image1(4).Visible = False
            Image2(0).Visible = False
            Image2(1).Visible = False
            Image2(2).Visible = False
            Image2(3).Visible = False
            Image2(4).Visible = False
    '          Timer1.Enabled = False
        ElseIf cur.lPlay > 75250 Then
          Image2(4).Visible = True
        ElseIf cur.lPlay > 67725 Then
          Image2(3).Visible = True
        ElseIf cur.lPlay > 60200 Then
          Image1(4).Visible = True
        ElseIf cur.lPlay > 52625 Then
          Image2(2).Visible = True
        ElseIf cur.lPlay > 45150 Then
          Image1(3).Visible = True
        ElseIf cur.lPlay > 37625 Then
          Image2(1).Visible = True
        ElseIf cur.lPlay > 30100 Then
          Image1(2).Visible = True
        ElseIf cur.lPlay > 22575 Then
          Image2(0).Visible = True
        ElseIf cur.lPlay > 15050 Then
          Image1(1).Visible = True
        ElseIf cur.lPlay > 7525 Then
          Image1(0).Visible = True
        ElseIf cur.lPlay > 0 Then
          board.Visible = True
        End If

And I was to use the "SoundClipB.wav" in another case, like this:

    Case PlayIntro2
        Dim cur As DSCURSORS
        DSBuffer.GetCurrentPosition cur
        contBkgd(1).Visible = True
        If cur.lPlay > 104861 Then 'bytes
          Label1.Caption = "We surveyed 100 people..."
          Command1.Enabled = True
        ElseIf cur.lPlay > 82785 Then 'bytes
          If QuesRB(0).Caption = "B" Then
            WhosTurn = BluePlayer
            Label1.Caption = "Blue, this question is for you."
            BBorder(1).Visible = True
            board.Visible = False
          ElseIf QuesRB(0).Caption = "R" Then
            WhosTurn = RedPlayer
            Label1.Caption = "Red, this question is for you."
            RBorder(1).Visible = True
          End If
            Image1(0).Visible = False
            Image1(1).Visible = False
            Image1(2).Visible = False
            Image1(3).Visible = False
            Image1(4).Visible = False
            Image2(0).Visible = False
            Image2(1).Visible = False
            Image2(2).Visible = False
            Image2(3).Visible = False
            Image2(4).Visible = False
    '          Timer1.Enabled = False
        ElseIf cur.lPlay > 75250 Then
          Image2(4).Visible = True
        ElseIf cur.lPlay > 67725 Then
          Image2(3).Visible = True
        ElseIf cur.lPlay > 60200 Then
          Image1(4).Visible = True
        ElseIf cur.lPlay > 52625 Then
          Image2(2).Visible = True
        ElseIf cur.lPlay > 45150 Then
          Image1(3).Visible = True
        ElseIf cur.lPlay > 37625 Then
          Image2(1).Visible = True
        ElseIf cur.lPlay > 30100 Then
          Image1(2).Visible = True
        ElseIf cur.lPlay > 22575 Then
          Image2(0).Visible = True
        ElseIf cur.lPlay > 15050 Then
          Image1(1).Visible = True
        ElseIf cur.lPlay > 7525 Then
          Image1(0).Visible = True
        ElseIf cur.lPlay > 0 Then
          board.Visible = True
        End If

...what would I have to do in order to allow those DSBuffers to play in those separate cases? Would I be required to use Private Subs for those separate DSBuffers? Would anybody be able to provide a sample code?

TimeZoneInformation difference in XP and Vista

Fri, 06 Nov 2009 03:41:22 -0700

I have a problem with a difference between XP and Vista in the registry.
In the registry the information is on:
"HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\TimeZoneInformation"

In XP:
DaylightName RGE_SZ West-Europa (zomertijd)
...
StandardName RGE_SZ West-Europa (standaardtijd)

In Vista:
DaylightName RGE_SZ @tzres.dll,-281
...
StandardName RGE_SZ @tzres.dll,-282

Q1: is this a bug in Vista?
Q2: how must I interpret the tzres.dll information?

newbie help

Tue, 03 Nov 2009 16:43:03 -0700

Whenever I click the 'OK' button I get the message "No sales data to summarize." I tried to write the code so this message would only appear if the count integer was zero or less. Anyone know what I'm doing wrong?

'Project: Yacht Charters
'Programmer: Michelle Smith
'Date: November 2009
'Description: Maintain a list of yacht brands and sizes; prints
' a summary report of revenue, number of charters
' and average hours per charter.
'Folder: My Project

Public Class MainForm
' Declare module-level variables.
Private TotalRevenueDecimal, AverageHoursDecimal As Decimal
Private CharterCountInteger As Integer

Private Sub AddYachtTypeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddYachtTypeToolStripMenuItem.Click
' Add a new yacht type to the yacht list.

With YachtTypeComboBox
' Test for blank input.
If .Text <> "" Then
' Make sure item is not already on the list.
Dim ItemFoundBoolean As Boolean
Dim ItemIndexInteger As Integer
Do Until ItemFoundBoolean Or ItemIndexInteger = .Items.Count
If .Text = .Items(ItemIndexInteger).ToString() Then
ItemFoundBoolean = True
Exit Do
Else
ItemIndexInteger += 1
End If
Loop
If ItemFoundBoolean Then
MessageBox.Show("Duplicate item.", "Add Failed", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
' If it's not in the list, add it.
.Items.Add(.Text)
.Text = ""
End If
Else
MessageBox.Show("Enter a yacht type to add", _
"Missing Data", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End If
.Focus()
End With
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
' End the program.

Me.Close()
End Sub

Private Sub ClearForNextCharterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearForNextCharterToolStripMenuItem.Click
' Clear all controls.
Dim ResponseDialogResult As DialogResult
ResponseDialogResult = MessageBox.Show("Clear the form?", _
"Clear all items", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If ResponseDialogResult = DialogResult.Yes Then
YachtTypeComboBox.SelectedIndex = -1
YachtSizeComboBox.SelectedIndex = -1
ResponsiblePartyTextBox.Clear()
HoursTextBox.Clear()
PriceTextBox.Clear()
End If
End Sub

Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
' Clear all controls.
Dim ResponseDialogResult As DialogResult
ResponseDialogResult = MessageBox.Show("Clear the form?", _
"Clear all items", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If ResponseDialogResult = DialogResult.Yes Then
YachtTypeComboBox.SelectedIndex = -1
YachtSizeComboBox.SelectedIndex = -1
ResponsiblePartyTextBox.Clear()
HoursTextBox.Clear()
PriceTextBox.Clear()
End If
End Sub

Private Sub OkButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OkButton.Click
Dim PriceInteger, HoursInteger, TotalHoursInteger As Integer

Try
HoursInteger = Integer.Parse(HoursTextBox.Text)

With YachtSizeComboBox
If .SelectedIndex = 0 Then
PriceInteger = HoursInteger * 95D
ElseIf .SelectedIndex = 1 Then
PriceInteger = HoursInteger * 137D
ElseIf .SelectedIndex = 2 Then
PriceInteger = HoursInteger * 160D
ElseIf .SelectedIndex = 3 Then
PriceInteger = HoursInteger * 192D
ElseIf .SelectedIndex = 4 Then
PriceInteger = HoursInteger * 250D
ElseIf .SelectedIndex = 5 Then
PriceInteger = HoursInteger * 400D
ElseIf .SelectedIndex = 6 Then
PriceInteger = HoursInteger * 550D
If .SelectedIndex <> -1 Then
CharterCountInteger += 1
Else
MessageBox.Show("Enter a yacht size", _
"Missing Data", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End If
End If
End With
PriceTextBox.Text = PriceInteger.ToString("C")

If CharterCountInteger > 0 Then
' Calculate the average.

AverageHoursDecimal = TotalHoursInteger / CharterCountInteger
Else
MessageBox.Show("No sales data to summarize.", "Average Charter Summary", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

Catch QuantityException As FormatException
MessageBox.Show("Quantity must be numeric.", "Data entry error", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
With HoursTextBox
.Focus()
.SelectAll()
End With
End Try
TotalRevenueDecimal += PriceInteger
TotalHoursInteger += HoursInteger

End Sub

Private Sub PrintSummaryPrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintSummaryPrintDocument.PrintPage
' Handle printing and print preview when printing page.
Dim PrintFont As New Font("Arial", 12)
Dim HeadingFont As New Font("Arial", 14, FontStyle.Bold)
Dim LineHeightSingle As Single = PrintFont.GetHeight + 2
Dim HorizontalPrintLocationSingle As Single = e.MarginBounds.Left
Dim VerticalPrintLocationSingle As Single = e.MarginBounds.Top

' Set up and display heading lines.
e.Graphics.DrawString("Charter Summary", HeadingFont, _
Brushes.Black, HorizontalPrintLocationSingle, VerticalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle
e.Graphics.DrawString("by Michelle Smith", HeadingFont, _
Brushes.Black, HorizontalPrintLocationSingle, VerticalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle
e.Graphics.DrawString("Total Revenue: " & TotalRevenueDecimal.ToString("C"), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)

VerticalPrintLocationSingle += LineHeightSingle * 2
e.Graphics.DrawString("Total Number of Charters: " & CharterCountInteger.ToString(), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)
VerticalPrintLocationSingle += LineHeightSingle * 2
e.Graphics.DrawString("Average Hours Chartered: " & AverageHoursDecimal.ToString("D2"), PrintFont, _
Brushes.Black, 600, HorizontalPrintLocationSingle)

End Sub

Private Sub PrintSummaryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintSummaryToolStripMenuItem.Click
' Assign the PrintSummaryPrintDocument to the preview.

PrintPreviewDialog1.Document = PrintSummaryPrintDocument
' Show the dialog.
PrintPreviewDialog1.ShowDialog()
End Sub
End Class

newbie help

Tue, 03 Nov 2009 16:41:17 -0700

Error overflow 6

Fri, 30 Oct 2009 15:13:12 -0700

I'm getting this error. when executing the Vb code.
i know i need to change to Integer to Long, the length is more than 32767 so i need to change Integer to Long. but i dont know where to change i'm new to VB6. i have to do this change. please help me.Urgent...

Guntur.=)

Error number: 6
>> Error desc: Overflow
AE Recs = 0

Fat Gram Calculator

Tue, 27 Oct 2009 15:18:29 -0700

It seems to be working BUT my results are in decimal form not percent and I can not figure out how to correct that. Anyone have any ideas?

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
Dim dblCalories As Double 'To hold calories
Dim dblFat As Double 'To hold fat grams
Dim dblPercentFat As Double 'To hold percent of fat

'Read the input.
dblCalories = CDbl(txtCalories.Text)
dblFat = CDbl(txtFat.Text)

'Calculate the percent of fat.
dblPercentFat = dblFat * 9 / dblCalories

'Display the results.
lblPercentFat.Text = CStr(dblPercentFat)

Thanks

Printing Using VB6

Sun, 25 Oct 2009 19:21:36 -0700

I really need your help! I created a simple program in VB6 that fills in empty fields of information on a certificate.

All I need done is for the print button to print only the LABELS (with the background and everything else transparent or not visible) that I have on the form. I have the pre printed certificates sitting in the printer with blank lines where the program I made is supposed to fill in with the information from the LABELS.

So the problem I am having is printing. I tried PrintForm but that just prints an image of the whole form and the background ontop of my certificates. So How would I made it just print out the labels from the form?

Please help me! I would appreciate it so much! I am a beginner so I can use all the help you can give.
Thanks in advance!

(I attached an image of the rough copy of my program.)

Tony

Attachment: certificate.GIF (181108 bytes | downloaded 11 times)

ADO data control help

Sun, 25 Oct 2009 12:38:37 -0700

Hey,
I got some problems. I am making a vb project using vb6 and the database is done in .accdb format. so when i use the Ado Datacontrol i use Microsoft.ACE.OLEDB.12.0 in the data connection string to connect.

My first problem is how do i connect the database via code. In the form_load event what should i write so that i could connect to a database using the app.path syntax.
the code i am looking for
Private Sub Form_Load()

Adodc1.connectionstring=???

ADodc1.recordset=???

End Sub

(2)My second problem is: when i use the following code to search through an autonumber field it give errors.

Adodc_mov.Recordset.Find "[movID] like '*" & txtsearch.Text & "*'", , adSearchForward

Adodc_mov is the name of the ADO datacontrol name. MOVID is the autonumber field in the database. txtsearch.text is the search textbox.

My third problem is: I have created a query in my database. in the query when we write the ID the specific record is displayed. i want to run this query in VB6 and show the results in a MSFLEXgrid or something like that. i want to know how to connect the query using ado datacontrol??

HELP me.. thanks in advance..
Reply With Quote

Get VB Solution for all

Sat, 24 Oct 2009 08:46:17 -0700

Hello every one if you have any problem in VB, just send me an email on soni16_sachin@yahoo.co.in and chat with me, discuss your problem and get the solution. You will definitely get satisfaction. so hurry up!!!

What is the code

Fri, 23 Oct 2009 17:27:16 -0700

Lamp Chair Sofa Table Desk

New York 25 64 23 45 14
Chicago 12 82 19 34 63
Los Angeles 54 22 17 43 35

Item Price $12.00 $17.95 $95.00 $86.50 $78.00

You program should perform the following tasks:
1. Load the sales data into a two-dimensional array using the sub procedure Load_Array (from a data file) and item prices into a one-dimensional array. You will also create a string array for the cities and a string array for the items the stores sell.
2. Write the initial data to the spreadsheet by city, sales item name, sales item, and price. You should also provide column headings for the above mentioned information which should be bold and underlined.
3. Write sales by store to the spreadsheet which includes sales and revenue for each store (output should include the stores’ city). You should also provide column headings which should be bold and underlined.
4. Write number of items sold to the spreadsheet which includes item name, number sold, and revenue generate. You should also provide column headings which should be bold and underlined.
5. Write total number of items sold to the spreadsheet.
6. Write total revenue for all stores to the spreadsheet.

Heeeeeeeeeeeeeeeeeelp!!!!!!!!

Fri, 23 Oct 2009 01:46:11 -0700

I need your help with my project.Problem is in the sendkey under Windows XP is all ok but under Vista write access denied 70.
Please help me.(rewritte my project)

THX

Dim r As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private 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
Private Sub ExecuteLink(ByVal sLinkTo As String, ByVal Password As String)
Dim lRet As Long
Clipboard.SetText Password
lRet = ShellExecute(Me.hWnd, "open", sLinkTo, "", vbNull, 3)
Sleep (1500)
Sendkeys "^v", True
Sendkeys "{ENTER}", True
Clipboard.Clear
End Sub

Private Sub Image3_Click(Index As Integer)
Dim r

Select Case POSUN ' pdf formaty volanie z databazy
Case 11000
ExecuteLink App.path & "/Popis/SK/" & Left(DB1.Columns(0), 2) & ".pdf", "xxx"

End Sub
I need your help with my project.Problem is in the sendkey under Windows XP is all ok but under Vista write access denied 70.
Please help me.(rewritte my project)

THX

Dim r As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private 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
Private Sub ExecuteLink(ByVal sLinkTo As String, ByVal Password As String)
Dim lRet As Long
Clipboard.SetText Password
lRet = ShellExecute(Me.hWnd, "open", sLinkTo, "", vbNull, 3)
Sleep (1500)
Sendkeys "^v", True
Sendkeys "{ENTER}", True
Clipboard.Clear
End Sub

Private Sub Image3_Click(Index As Integer)
Dim r

Select Case POSUN ' pdf formaty volanie z databazy
Case 11000
ExecuteLink App.path & "/Popis/SK/" & Left(DB1.Columns(0), 2) & ".pdf", "xxx"

End Sub

Sendkey under Vista

Fri, 23 Oct 2009 00:09:10 -0700

Help VB5

Thu, 22 Oct 2009 00:02:49 -0700

Items + Listview

Thu, 15 Oct 2009 00:13:12 -0700

Does anyone know how to detect the item from list view using for loop?
If the item already exist in listview you can add the amount to that specific item. Is there anyone out there how to do that?

Tenx whoever replies to this with or without a solution... harharhar

Code for video's

Sat, 10 Oct 2009 19:51:57 -0700

I have been looking all over the net and I can't find a code for visua basic 2008 express edition to shrink the file size of a video. I want to add it to my program were i can convert the video's to another format but when it does that it compress or enlarge's it like what when you do convert a video.

multiplication table in visual basic

Wed, 07 Oct 2009 10:45:51 -0700

Hello people
please can you help me out urgently i need to make a multiplication table in visual basic using a for loop that displays the entire multiplication table for example if 5 is entered into the textbox the label will display the following:
5 * 1 = 5
5 * 2 = 10
5 * 3 = 15
5 * 4 = 20
5 * 5 = 25
5 * 6 = 30
5 * 7 = 35
5 * 8 = 40
5 * 9 = 45
5 * 10 = 50
5 * 11 = 55
5 * 12 = 60

3D illumination

Wed, 07 Oct 2009 00:13:56 -0700

Hi,

If you like 3D Graphics programming, I have some interesting code which deals with adding light to a 3D scene.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72519&lngWId=1

Hope it is informative.

Regards.

VMware VCP-410 latest dumps

Tue, 06 Oct 2009 21:30:45 -0700

Pass Your VCP-410 Exam with 100% Guaranteed at first attempt today with CertifyMe.CertifyMe is known for its High Quality product and 100% Pass Guaranteed or Full Refund.

Why you should choose CertifyMe.com for your upcoming certification exam ?
1) 100% Pass Guaranteed for at first attempt or Full Refund Back.
2) Immediate download after purchase.
3) Free Interactive Testing Engine Included.
4) High Quality PDF Format Question and Answer Included.

Everything word to word that you will see in the real exam all you have to do is study our dump and memorize the questions and you will see those exact questions in the real exam. Success is guaranteed with Certifyme when it comes to VCP-410 preparation

Demo Download from this link below
http://www.certifyme.com/demos/VCP-410.zip

Buy Full Version of Certifyme VCP-410
http://www.certifyme.com/VCP-410.htm

Visual Basic Beginner looking for some advice

Fri, 02 Oct 2009 15:22:40 -0700

Hi everyone.
I am a backup administrator for a large company and we have an excel file we use for tape retention purposes.
My Goal is simple but I have no idea how to go about it.
I want a database , possibly a csv file , containing all the tape labels along with their last used date and retention periods. anyting out of retention is in the scratch pool which can be recalled for backups.

I want to get my feet wet with VB , and use this as a opportunity to make the life more simple for myself and my team members.

I want a program that can lookup tape information .
By using a "Media Written" button I want to bring up a window where I can input tape labels and their retention period , eg: DT738271 , 4 Weeks
Then import that into the database.
Also I want the option to see media available for recall , anything older than the retention period must be available for me to recall , and when i do so , the tapes I selected must show to be recalled on the database. When they arrive and I import them into the library , I want to be able to see a list of tapes I orderd and select the ones that arrived at the library.

I have had fair success with powershell and ive done turbo pascal programming a few years ago.

Granted , i am very new at this and a simple google search didnt really point me into the right direction.

I have team members in separate locations , so a SQL database isnt really what im looking for , is it possible to perform this on the fly , with a csv file ?

Any and all advise / code snippets would be appreciated , I am new at this and eager to get cracking on this.

Thanks for everyone's assistance in this endeavor.

Calling convention not supported by Visual Basic

Wed, 30 Sep 2009 22:45:33 -0700

Hello,

I have one OCX project which contain forms and user control.
And also references 8 user defined VB6 Dll.

When I Compile/Make project then Visual Studio 6 gives me error like
"Calling convention not supported by Visual Basic"

Please help me out for this.

sadiq modan