Visual Basic

Richard MacCutchan5-Sep-16 0:18

5-Sep-16 0:18

DutchComputerKid wrote:
and that is expensive as hell

Not any more, [plenty of free editions at Visual Studio - Microsoft Developer Tools[^].

DutchComputerKid5-Sep-16 2:28

DutchComputerKid

5-Sep-16 2:28

Well yeah, but Vs2015 does not work on XP. Only the runtime for 2015 does. And 2010 is removed from Microsoft's site. Soooo what now? I'm kinda lost here unless I buy an old copy or something I think, right?

Richard MacCutchan5-Sep-16 4:26

See How to get download link to VS2010 Express - for use in a Download Manager - Stack Overflow[^].

5-Sep-16 4:26

Dave Kreskowiak5-Sep-16 5:31

Dave Kreskowiak

5-Sep-16 5:31

SafeDisk? That wasn't a Microsoft product at all. That was bullshit copy protection by Macrovision, IIRC.

XP isn't even supported any more. What are you hanging onto and why?

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

DutchComputerKid5-Sep-16 21:58

DutchComputerKid

5-Sep-16 21:58

I'm a retro person, so SafeDisc is required for all of my games to run. That's why. + my recent software that I made in VB6 runs only on NT4,Win2k and XP. Soooo yeah.
Most of my programs that I use on a day-to-day basis are also extremely buggy on Vista and above.

Eddy Vluggen6-Sep-16 0:32

Eddy Vluggen

6-Sep-16 0:32

DutchComputerKid wrote:
I'm a retro person

An unsupported 32 bit person in a 64 bit environment.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Chris Quinn6-Sep-16 2:27

Chris Quinn

6-Sep-16 2:27

He writes MSDOS stuff too, so he's a 16 bit person!

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Dave Kreskowiak6-Sep-16 2:33

Dave Kreskowiak

6-Sep-16 2:33

You're going to find that your very unsupported world is shrinking as there are less and less people in your community still supporting it. The most active people here actively discourage using VB6. Though there are still a few other people who still use it they don't show up very often at all.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

DataTable Select Expressions

DutchComputerKid4-Sep-16 23:32

DutchComputerKid

4-Sep-16 23:32

Oh nevermind, it requires Win2K for VB.NEt 2003, but what version are you all talking about, 2010 I assume?

jkirkerx31-Aug-16 10:51

31-Aug-16 10:51

I'm in uncharted waters here. Never worked or understood DataTables, but getting better at it.

I have this DataTable named table_Active with Active Customers and the Sales Total
I want to make another DataTable with the Top 10 Customers by Sales Total for a given year, in which I have that in the table_Active Table.

I just need to order by Y1_ATD and take the top 10 and Sum
Then I need to get the Bottom 90 or the rest, I should be able to figure that out after the first one
I have this so far, but I have no clue how to write a DataTable Expression

//Create the Top10 Customer % Report Data
Dim top10Exp As String = ""
If (table_Active.Rows.Count > 0) Then
    table_Top10Percent = table_Active.Select(top10Exp).CopyToDataTable()
End If

//Create the Top10 Report DataTable
Dim row_T10 As DataRow
row_T10 = table_Top10Percent.NewRow()
row_T10("T10") = 80000
row_T10("B90") = 50000
row_T10("YTD") = 130000
table_Top10Percent.Rows.Add(row_T10)

I just need a point in the right direction here.

jkirkerx1-Sep-16 8:18

1-Sep-16 8:18

I found some snippets and tweaked them for my use. Sort of Linq, hard part was forming the expression without a reference.

I ended up dumping the first idea and went back to a DataView to grab my rows as a table, and them summed them up.

Calculate Sum (Total) of DataTable Columns using C# and VB.Net[^]

Dim dv_top10 As New DataView(table_Active)
dv_top10.Sort = "Y1_ATD Desc"
Dim dt_top10 = dv_top10.ToTable().Rows.Cast(Of DataRow)().Take(10)
Dim T10 As Decimal = dt_top10.AsEnumerable().Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))

Richard Deeming1-Sep-16 9:37

Richard Deeming

1-Sep-16 9:37

jkirkerx wrote:
without a reference

DataView.Sort Property (System.Data)[^]:

A string that contains the column name followed by "ASC" (ascending) or "DESC" (descending).
Columns are sorted ascending by default.
Multiple columns can be separated by commas.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

jkirkerx1-Sep-16 9:48

1-Sep-16 9:48

Reference to a class

.Sum(function(m) m.Y1_ATD) vs .Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))

Sort of writing a manual type, in which I didn't know you can do.

jkirkerx1-Sep-16 9:52

1-Sep-16 9:52

I'm gonna revisit my packaging algorithm soon. I haven't been able to work on that project for over 3 weeks now. Maybe I'll try Just Answers and pay someone for help on that.

Sorting a DataSet

jkirkerx30-Aug-16 12:00

Re: Sorting a DataSet [solved]

30-Aug-16 12:00

I'm trying to sort a dataset, because I can't do it in SQL, the Order By would have to be a join and sum of invoices from a data range.

I have this code that I wrote, but it doesn't sort. Am I on the right track here?
I tried sorting on the DataTable before adding it to the dataset but was not successful.
Maybe I'm suppose to get the DataView back to the set.
This is my time doing this and I have no clue.

Dim table_Active As DataTable = New DataTable()
table_Active.TableName = "dt_customerActive"
table_Active.Columns.Add(New DataColumn("ID", System.Type.GetType("System.String")))

//Assign the dataSet to the Tablix in the report canvas body
 Dim ds_Active As DataSet = New DataSet()
 ds_Active.DataSetName = "ds_customerActive"
 ds_Active.Tables.Clear()
 ds_Active.Tables.Add(table_Active)
 ds_Active.Tables(0).TableName = "tablix_salesActive"

//Sort the Active Table according to TATD
 Dim dV As DataView = New DataView(ds_Active.Tables("tablix_salesActive"))
 Select Case p_sortOrder
      Case salesHistory5Year_Sort.Name
        dV.Sort = "Name"

      Case salesHistory5Year_Sort.Spent
        dV.Sort = "TATD DESC"

     Case salesHistory5Year_Sort.Territory
        dV.Sort = "Territory"

End Select

jkirkerx30-Aug-16 12:27

30-Aug-16 12:27

I sorted the table, didn't know about the .ToTable to assign to the Dataset.

//Sort the Active Table according to TATD
Dim dV As DataView = New DataView(table_Active)
Select Case p_sortOrder
    Case salesHistory5Year_Sort.Name
        dV.Sort = "Name"

    Case salesHistory5Year_Sort.Spent
        dV.Sort = "TATD DESC"

    Case salesHistory5Year_Sort.Territory
        dV.Sort = "Territory"

End Select

//Assign the dataSet to the Tablix in the report canvas body
Dim ds_Active As DataSet = New DataSet()
ds_Active.DataSetName = "ds_customerActive"
ds_Active.Tables.Clear()
ds_Active.Tables.Add(dV.ToTable())
ds_Active.Tables(0).TableName = "tablix_salesActive"

Pointer translation

SepPax30-Aug-16 2:50

SepPax

30-Aug-16 2:50

Hi,

how would the following C++ pointer use be translated into VB.NET?

Dim p As Byte * = pDataBegin
*p = (*p) Xor nOut

Anyone can help?

SepPax

Re: Pointer translation

Michael_Davies30-Aug-16 3:23

Michael_Davies

30-Aug-16 3:23

VB does not support pointers, nearest it gets is passing an argument to a function By Ref which means the function can alter the content of the argument passed but it is by no means treatable as a pointer by the function.

Passing Arguments by Value and by Reference (Visual Basic)[^]

Re: Pointer translation

Richard MacCutchan30-Aug-16 4:34

neural network simulator in visual basic

30-Aug-16 4:34

Probably something like:

Dim myByteArray = New Byte(){1, 2, 3}
' in a real application 'myByteArray' would be passed as a reference
For index = 0 To myByteArray.GetUpperBound(0)
    myByteArray(index) = myByteArray(index) Xor nOut
Next

Or slightly simpler

For Each element In myByteArray
    element = element Xor nOut
Next

modified 30-Aug-16 10:44am.

visual basic

Member 1270513126-Aug-16 5:33

Member 12705131

26-Aug-16 5:33

How create a program of usb write protected in visual studio can any one help me with a source code?

Re: visual basic

Richard Deeming26-Aug-16 5:43

Richard Deeming

26-Aug-16 5:43

This site does not provide code to order.

We're happy to help with specific questions about code you have written. But nobody here is going to do your work for you.

And quite frankly, even if you were paying someone to do your work for you, you wouldn't get very far with a description as vague as that!

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: visual basic

ZurdoDev26-Aug-16 8:28

ZurdoDev

26-Aug-16 8:28

Member 12705131 wrote:
can any one help me with a source code?

Where are you stuck?

There are only 10 types of people in the world, those who understand binary and those who don't.

Member 1270337325-Aug-16 5:37

Member 12703373

25-Aug-16 5:37

can any one help me with neural network simulator source code in visual basic or link where i can get it. thanks

Re: neural network simulator in visual basic

Richard MacCutchan25-Aug-16 20:39