19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Public Sub Main()
Dim hPdf As PdfDocument
' Dim hAction As PdfAction
Dim sPath, sType As String
Dim iHeight As Integer
' prima occorre inserire un file pdf nel progetto:
sPath = Application.Path &/ "test.pdf"
hPdf = New PdfDocument(sPath)
' Try hAction = New PdfAction
' Try sType = hAction.Type ' <------------Da errore di segmentazione!
' If Error Then Print Error.Text
'' e l'altezza restituita non corrisponde ad alcun formato UNI
' iHeight = Round((hPdf[0].Render().Height) * 0.393700787401575)
' Print iHeight
' sType = ReturnType(iHeight)
' Print sType
End
Private Sub ReturnType(iHeight As Integer) As String
Dim aList As String[] = ["Custom", "A3", "A4", "A5", "B5", "Letter", "Executive", "Legal"]
Dim i As Byte
' else, 420, 297, 210, 250, 279, 330, 356 mm
Select iHeight
Case 420
i = 1
Case 297
i = 2
Case 210
i = 3
Case 250
i = 4
Case 279
i = 5
Case 330
i = 6
Case 356
i = 7
Case Else
i = 0
End Select
Return aList[i]
End
#IP address of the local (web) server
ipaddress="<vostro indirizzo ip>"ifconfig./cp2server.sh <vostra password utente root>http://<vostro indirizzo ip>/cgi-bin/webapp4_new/index.gambasData_di_domani = Date(Year(Now), Month(Now), Day(Now) + 1, 0, 0, 0)Private Sub TomorrowDay() As Date
Dim hTomorrow As Date
If (Day(Now) + 1) > DaysInMonth(Month(Now)) Then
If (Month(Now) + 1) > 12 Then
hTomorrow = Date(Year(Now) + 1, 1, 1, 0, 0, 0)
Else
hTomorrow = Date(Year(Now), Month(Now) + 1, 1, 0, 0, 0)
Endif
Else
hTomorrow = Date(Year(Now), Month(Now), Day(Now) + 1, 0, 0, 0)
Endif
Return hTomorrow
End
Private Sub DaysInMonth(Month As Integer, Optional Year As Integer = Year(Now)) As Integer
If Month = 12 Then Return 31
Return Day(DateAdd(Date(Year, Month + 1, 1), gb.Day, -1))
End<% System.Language = Request.Language %>
<html>
<body>
<h1><%Print ("Web Page Written with Gambas3")%></h1>
<h2><%=Format(Now, "dddd, dd mmmm yyyy")%></h2>
<h3><%=Format(12345.67, "$,#.00")%></h3>
</body>
</html>
Private $hTime As Date
Private $sTime As String
Private $hTimer As Timer
Public Sub Form_Open()
Dim hButton As Button
With Me
.W = 240
.H = 152
.Margin = True
.Arrangement = Arrange.Fill
End With
With hButton = New Button(Me) As "Button1"
.Text = "Avvia il confronto Time"
End With
With $hTimer = New Timer As "Timer1"
.Delay = 1000
.Ignore = True
End With
End
Public Sub Timer1_Timer()
Dim hNow As Date = Time(Now)
Dim sNow As String = Format(hNow, "hh:nn:ss")
Print hNow;; $hTime
''If hNow = $hTime Then '' perché questo non funziona? :-/
If sNow = $sTime Then '' e invece questo funziona ma...
Print "UGUALE"
$hTimer.Stop
Endif
End
Public Sub Button1_Click()
$hTimer.Start
$hTime = Time(Hour(Now), Minute(Now) + 1, 0)
$sTime = Format($hTime, "hh:nn:ss")
End