Visual Basic

Bob Beaubien wrote:

is this posible with streamWriter

Buggedforever wrote:

DoEvents

Buggedforever wrote:

On Error GoTo ERR_ROUTINE

Buggedforever wrote:

GoTo SUBEND

Mycroft Holmes wrote:

I was not expecting VB6

Shaahinm wrote:

can someone help me?

Dim s As Decimal = 0.6
Private Sub nupS_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nupS.ValueChanged
        If (nupS.Value Mod s) = 0 Then
            nupS.Value = CDec(CInt(nupS.Value))
            s += 1
        End If
End Sub

0.00
0.15
0.30
0.45
0.60 assume this magically changes into 1.00
1.15
1.30
1.45
1.60 magic required ==> 2.0

2.30
2.15
2.00
1.85 assume this magically changes into 1.45
1.30
1.15
1.00
0.85 magic required ==> 0.45
0.30
0.15
0.00

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Shaahinm wrote:

the problem is that I am not able to find out whether user is increasing the value or decreasing it

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

public void CrearPDF(DataSet ds, string nombrearchivopdf)
{         
   StrongTypedReport cr = new StrongTypedReport();      
   
   // Set the report DataSet   

   cr.SetDataSource(ds);   
   
   // Export the report to a Stream, in PDF format   

   Stream input = cr.ExportToStream(
     CrystalDecisions.Shared.ExportFormatType.PortableDocFormat);   
   // Open the output file Stream    

   FileStream output = new FileStream(nombrearchivopdf, 
                                      FileMode.Create);   
   
   // Copy the buffer Stream to the ouput file   

   // We avoid the use of cr.Export, because crystal report   

   // do not inherits the current Thread permission   

   const int size = 4096; 
   byte[] bytes = new byte[4096]; 
   int numBytes;            
   
   while((numBytes = input.Read(bytes, 0, size)) > 0)         
      output.Write(bytes, 0, numBytes);   
   
   // Close the ouput file Stream.

   output.Close();

Public Function RGBArrayFromRawArray(ByVal RawArray() As UInteger) As Array         '<----- change
    Dim j As Integer
    Dim RGBArray(CInt(RawArray.Length * 3) - 1) As Byte

    For i As Integer = 0 To (RawArray.Length - 1)
        j = i * 3
        Dim buff As UInteger = RawArray(i)                        '<----- change
        ' bit-shifting operation
        RGBArray(j) = (buff And &HFFC) >> 4                    ' Blue
        RGBArray(j + 1) = (buff And &H3FFFFC) >> 14            ' Green
        RGBArray(j + 2) = (buff And &HFFFFFFFC) >> 24          ' Red
    Next i
    Return RGBArray
End Function