sábado, outubro 07, 2017

How to add publicity from Google to your webpages


You can learn here:

https://www.google.com/adsense/start/how-it-works/#/

To create a new account here:

https://www.google.com/adsense/start/#/?modal_active=none

To see a video here it is:

<iframe width="560" height="315" src="https://www.youtube.com/embed/KYA1-TF_6FY" frameborder="0" allow="autoplay; encrypted-media" allowfullscreen></iframe>

quarta-feira, outubro 04, 2017

terça-feira, setembro 19, 2017

terça-feira, setembro 12, 2017

sábado, agosto 19, 2017

How to fix black screen problem on Windows 10



Worked for me :)

Try to wake up the display

Many times it could happen that Windows 10 is just not detecting the display. Using your keyboard, you can use the Windows key + Ctrl + Shift + B keyboard shortcut to wake up your display.
In the case that you're using a tablet, the process to wake up the display is a bit different, press the volume up and volume down buttons simultaneously three times.






https://www.windowscentral.com/how-fix-black-screen-problems-windows-10

segunda-feira, julho 10, 2017

PowerBI Desktop for MS Sql Server


I just found out the usefull that PowerBI Desktop can be for transforming Relational Databases into Multidimensional Databases.

Here goes some important articles:

https://powerbi.microsoft.com/pt-br/

https://www.excelguru.ca/blog/2014/08/20/5-very-useful-text-formulas-power-query-edition/



PS: I will update as soon as I find them

terça-feira, março 28, 2017

Ericsson will sell the Media division??? Could this be the end of Mediafirst as we know it ??? I do not think so but the business world is not simple!!!


Ericsson finally has a plan – flog media and cloud hardware units, double-down on services and IoT

http://telecoms.com/480877/ericsson-finally-has-a-plan-flog-media-and-cloud-hardware-units-double-down-on-services-and-iot/

Having spent the first quarter of the year reviewing the state of his company, Ericsson CEO Börje Ekholm has now unveiled his grand plan to turn the super-tanker around.
The Vestberg era was defined by a drive to diversify away from the core network hardware business, which has been in slow decline for Ericsson. The areas of diversification were generally illustrated in one of Vestberg’s favourite slides below.



Ekholm has decided Ericsson got carried away with its efforts to diversify and spread itself too thin. Not only have a lot of those new areas of business failed to deliver the required growth or profitability after several years of trying, they also have the potential to distract the rest of Ericsson such that it stops even doing its core networks stuff well.
The sensible solution, and generally the most common one when corporations reach the kind of moment of truth Ericsson has, is to jettison the stuff that’s furthest away from your core competency, reinvest in what’s left, and review new business priorities. In the case of Ericsson this looks like a disposal of the media and cloud hardware business, a refocus on networking services and betting on IoT as the main source of long-term growth.
“For some time Ericsson has been challenged on both technology and market leadership and the group strategy has not yielded expected returns,” said Ekholm. “In our strategy review we have listened carefully to customers around the world and made an in-depth analysis of our portfolio and performance. To enable us to immediately take action and move with speed in execution we are today outlining our path to restoring profitability and to lead with innovation and best in class solutions in areas we have decided to focus on.”
Ekholm didn’t specifically say he wanted to offload the media and cloud hardware businesses, but he did say Ericsson was ‘exploring strategy opportunities’ for those units, which is generally accepted as a euphemism for flogging them. Furthermore the recent change in Ericsson’s reporting structure always looked designed to facilitate this process and anyone connected to those units has been removed from the executive leadership team.

domingo, março 26, 2017

Windows 7 Fix For Losing Connection to the Internet


Like many PC users and avid gamers, last week I purchased and installed Windows 7. This new operating system from Microsoft was supposed to have fixed many of the stability problems encountered with Vista.
Within minutes of upgrading my Vista 64-bit version of Windows to Windows 7, I started losing my connection to the Internet approximately 30-60 minutes. For no apparent reason, my computer which was attached to the Internet via a D-Link Gamerlounge router would drop it’s connection while the other computer running Windows XP hooked up to the very same router enjoyed uninterrupted Internet service.
I would get the following message when I hovered over the Internet/Network: the default gateway is not available. Each time I would right click on the connection icon and select the “Troubleshoot Options” it would eventually repair the problem and reconnect to the Internet.

http://www.wolfsheadonline.com/windows-7-fix-for-losing-connection-to-the-internet/

segunda-feira, janeiro 02, 2017

The truth about Ultra HD 4K TV refresh rates

Today's Ultra HD 4K TVs are all marketed with "motion," "action" and "clear" numbers that start at 240Hz and go up from there. They're all basically made up. Here's the real story.

(original source for this article: https://www.cnet.com/news/ultra-hd-4k-tv-refresh-rates/)

quarta-feira, setembro 14, 2016

How to export from a Excel Sheet to a PDF file


If you are needing an way to export from a Excel Sheet to a PDF file, you just need to create a macro and assign to a button.

When you press the button you will have a popup asking for the base name of the Report and then you can select a name of sheets to print to pdf.

I use 2 especial sheets to work better the print and reduce the list

FromNowOn -> This worksheet is the markup from where I will considere the sheets to print (before this one all will be ignored in the List)

Off -> If you put "off" in the name of the sheet it will be ignored also.


Sub ExportExcelSheets()

    Dim ReportName As String
    Dim i As Integer
    Dim TopPos As Integer
    Dim SheetCount As Integer
    Dim PrintDlg As DialogSheet
    Dim CurrentSheet As Worksheet
    Dim cb As CheckBox
    Dim myReportType As Variant
    Dim intPos As Integer
    Dim intStartPos As Integer
   
    Dim blnFirstAdded As Boolean
    blnFirstAdded = False
   
    Dim ReleaseName As String
    ReleaseName = ThisWorkbook.Sheets("Macros").Range("C5")
    Dim intIndexSheet As Integer
    intIndexSheet = 0
    Dim strIndexStr1 As String
    Dim strIndexStr2 As String
   
    intStartPos = -1
    ReportName = "Testing Status for "
   
    Application.ScreenUpdating = False
    myReportType = InputBox("Insert Report Type", "Report Type", "Release " & ReleaseName)
'   Check for protected workbook
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Workbook is protected.", vbCritical
        Exit Sub
    End If
'   Add a temporary dialog sheet
    Set CurrentSheet = ActiveSheet
    Set PrintDlg = ActiveWorkbook.DialogSheets.Add
    SheetCount = 0
'   Add the checkboxes
    TopPos = 40
    For i = 1 To ActiveWorkbook.Worksheets.Count
        Set CurrentSheet = ActiveWorkbook.Worksheets(i)
       
'       Validate if the string "off" is present
       
        intPos = -1
        intPos = InStr(1, UCase(CurrentSheet.Name), UCase("OFF"), vbTextCompare)
       
'       Defining the starting point
        If InStr(1, UCase(CurrentSheet.Name), UCase("FromNowOn"), vbTextCompare) > 0 Then
            intStartPos = CurrentSheet.Index()
        End If

'       Skip hidden sheets
        If CurrentSheet.Visible And intPos = 0 And intStartPos > -1 Then
            SheetCount = SheetCount + 1
            PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
            'PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Index & " - " & CurrentSheet.Name
            PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name
            PrintDlg.CheckBoxes(SheetCount).Value = xlOn
            TopPos = TopPos + 13
        End If
    Next i

    ' PPI: Put in the first sheet for export
    Set CurrentSheet = ActiveWorkbook.Worksheets(intStartPos)
'   Move the OK and Cancel buttons
    PrintDlg.Buttons.Left = 240
'   Set dialog height, width, and caption
    With PrintDlg.DialogFrame
        .Height = Application.Max _
            (68, PrintDlg.DialogFrame.Top + TopPos - 34)
        .Width = 230
        .Caption = "Select sheets to print"
    End With
'   Change tab order of OK and Cancel buttons
'   so the 1st option button will have the focus
    PrintDlg.Buttons("Button 2").BringToFront
    PrintDlg.Buttons("Button 3").BringToFront
' ******************************
' * Export Process
' ******************************
'   Display the dialog box
    CurrentSheet.Activate
    Application.ScreenUpdating = True
       
    Dim arrSheets() As String
    Dim intArrPos As Integer
    intArrPos = 1
   
    ReDim arrSheets(40)
    intArrPos = 0
       
    If SheetCount <> 0 Then
        ' Inicia o dialog para validar as sheets a imprimir
        If PrintDlg.Show Then
            For Each cb In PrintDlg.CheckBoxes
                If cb.Value = xlOn Then
                   
                    ' Array de Sheets selecionadas
                    arrSheets(intArrPos) = cb.Caption
                    intArrPos = intArrPos + 1
                   
                    If (Not blnFirstAdded) Then
                        ThisWorkbook.Sheets(cb.Caption).Select (False)
                        blnFirstAdded = True
                    Else
                        ThisWorkbook.Sheets(cb.Caption).Select (False)
                    End If
                   
                End If
            Next cb
          
            Dim intMaxArrSheetsSelected As Integer
            intMaxArrSheetsSelected = intArrPos - 1
            
            Dim arrSheetsSelected() As String
            ReDim arrSheetsSelected(intMaxArrSheetsSelected)
            For intArrPos = 0 To intMaxArrSheetsSelected
             arrSheetsSelected(intArrPos) = arrSheets(intArrPos)
            Next intArrPos
            
            ThisWorkbook.Worksheets(arrSheetsSelected).Select
          
            ' PPI: For export selected
            With ActiveSheet
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ReportName & myReportType & " - Week (" & Format(Now(), "ww") & ") " & _
            Format(Now(), "ddmmyy") & " v" & Format(Now(), "hhmmss") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
            End With
        End If
    Else
        MsgBox "Não existe nenhuma sheet."
    End If
    ThisWorkbook.Sheets(2).Activate
'   Delete temporary dialog sheet (without a warning)
    Application.DisplayAlerts = False
    PrintDlg.Delete

End Sub

segunda-feira, julho 25, 2016

How to use mySQL (create database, use database, create table, see column table) and commands


Commands list:

http://g2pc1.bu.edu/~qzpeng/manual/MySQL%20Commands.htm

Sample:

Enter password: *********
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 12
Server version: 5.1.73-community MySQL Community Server (GPL)
Copyright (c) 2000, 2013, Oracle and/or its affiliates. All rights reserved.
Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.
Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.
mysql> show databases;
+--------------------+
| Database           |
+--------------------+
| information_schema |
| mysql              |
+--------------------+
2 rows in set (0.00 sec)
mysql> create database sysformatdb;
Query OK, 1 row affected (0.02 sec)
mysql> show databases;
+--------------------+
| Database           |
+--------------------+
| information_schema |
| mysql              |
| sysformatdb        |
+--------------------+
3 rows in set (0.00 sec)
mysql> use sysformatdb
Database changed
mysql> CREATE TABLE employees (firstname VARCHAR(20), middleinitial VARCHAR(3),
lastname VARCHAR(35),suffix VARCHAR(3), officeid VARCHAR(10),userid VARCHAR(15),
username VARCHAR(8),email VARCHAR(35),phone VARCHAR(25), groups VARCHAR(15),date
stamp DATE,timestamp time,pgpemail VARCHAR(255));
Query OK, 0 rows affected (0.08 sec)
mysql> show tables;
+-----------------------+
| Tables_in_sysformatdb |
+-----------------------+
| employees             |
+-----------------------+
1 row in set (0.00 sec)
mysql> show columns from employees;
+---------------+--------------+------+-----+---------+-------+
| Field         | Type         | Null | Key | Default | Extra |
+---------------+--------------+------+-----+---------+-------+
| firstname     | varchar(20)  | YES  |     | NULL    |       |
| middleinitial | varchar(3)   | YES  |     | NULL    |       |
| lastname      | varchar(35)  | YES  |     | NULL    |       |
| suffix        | varchar(3)   | YES  |     | NULL    |       |
| officeid      | varchar(10)  | YES  |     | NULL    |       |
| userid        | varchar(15)  | YES  |     | NULL    |       |
| username      | varchar(8)   | YES  |     | NULL    |       |
| email         | varchar(35)  | YES  |     | NULL    |       |
| phone         | varchar(25)  | YES  |     | NULL    |       |
| groups        | varchar(15)  | YES  |     | NULL    |       |
| datestamp     | date         | YES  |     | NULL    |       |
| timestamp     | time         | YES  |     | NULL    |       |
| pgpemail      | varchar(255) | YES  |     | NULL    |       |
+---------------+--------------+------+-----+---------+-------+
13 rows in set (0.00 sec)
mysql>

how to get test execution date/user in testlink 1.9.8



Testlink: creating new report: Results per tester

I was asked to create a new report in testlink , to be the same like existing report “Results per Tester per Build” but only for the latest build and to have latest results from previous builds, so for example if a test case was executed in release 1 and passed, and we are now in release 2 and it is not executed in release 2, it will come in the report as passed.
These are the steps I followed to create the report

https://amirshenouda.wordpress.com/2012/03/25/testlink-creating-new-report-results-per-tester/