Xara Web Designer - How to put Text on a Curve
https://www.youtube.com/watch?v=QnkerFAPdEQ
Technology Innovation - Blog para Programadores Esta é uma ideia que surgiu para divulgar as possíveis soluções que possam facilitar a vida aos programadores
domingo, outubro 08, 2017
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
How to get UPNP calls in a Wireshark session
How to get UPNP calls in a Wireshark session
https://www.youtube.com/watch?v=0dg7bjWSx98
https://www.youtube.com/watch?v=0dg7bjWSx98
terça-feira, setembro 19, 2017
How to get Windows Movie Maker for Free comming from Microsoft
I'm just trying right now to download but the link seams nice and ok.
https://www.winmoviemaker.com/
terça-feira, setembro 12, 2017
Como colocar molduras em foto perfil Facebook
Como colocar molduras em foto perfil Facebook
Aqui segue o link
https://youtu.be/SLA_rTUGBjY
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/)
(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
March 25, 2012 9 Comments
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/
Subscrever:
Mensagens (Atom)

