se ti riferisci all'esempio di giannimaione:
commenta questa riga in alto in b4xmainpage
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
oppure crea la cartella shared file
-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Italian Circa i progetti B4XPages
- Thread starter LucaMs
- Start date
- Similar Threads Similar Threads
commenta questa riga in alto in b4xmainpage
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
oppure crea la cartella shared file
Non serve avviare Activity.
Fai come suggerito da @udg, usa un panel (pnlSplash) nel layout della B4XMainPage (coi miei suggerimenti preDecenti ?) e magari usa quest'ultima per registrazione/login. Una seconda pagina come menu principale, che aprirai con B4XPages.ShowPageAndRemovePreviousPages (o B4XPages.ShowPage)
Provo-lo
ty
Al volo, in fretta e furia, perché voglio guardare l'incontro di Sinner ?Provo-lo
(Non sarebbe nemmeno necessario il pnlSplash, si potrebbe usare direttamente la B4XImageView xivSplash).
Sto parlando del file pubblicato da @giannimaione , l'ho scaricato, decompresso e avviato ma mi da quell'errore ?
?
Te lo avevo scritto nel post (precedenteSto parlando del file pubblicato da @giannimaione , l'ho scaricato, decompresso e avviato ma mi da quell'errore ?
)ti allego quello col commento ma non è un progetto B4X
buona visione
Perfetto, è quello che stavo cercando di realizzare
non tocco più nulla lascio così sennò faccio danni
....ma
Volendo si potrebbe mettere la xivSplash direttamente nel Root, senza il pnlSplash (e quindi senza la routine Touch di quest'ultimo).
Però se l'immagine fosse una png trasparente, si vedrebbe quanto sottostante (a meno che non cambi il background della B4XImageView, che io ho impostato come trasparente nel Designer).
capito
Cmq và bene anche col panel. ty
il mio è un progetto B4J
In "compenso", in meno di mezzo secondo ha elaborato e poi scritto quanto segue:
(Ogni volta mi spiega cosa siano B4X e Anywhere Software ?)
Sorgente che ancora non ho esaminato:
(Si è capito che ho voglia di "giocare" con ChatGPT?)
(Ogni volta mi spiega cosa siano B4X e Anywhere Software ?)
Sorgente che ancora non ho esaminato:
B4X:
' ** B4XPage - RegistrationPage **
#Region Project Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
'Include B4XEncryption library for encryption functions
#if B4A
#AdditionalJar: B4XEncryption.jar
#else if B4i
#AdditionalLib: B4XEncryption
#else if B4J
#AdditionalJar: B4XEncryption.jar
#end if
'Class module for handling registration logic
Sub Process_Globals
Private Page As B4XPage
Private edtUsername, edtPassword, edtConfirmPassword As B4XFloatTextField
Private btnRegister As B4XButton
End Sub
Public Sub Initialize
Page.Initialize("Page")
Page.Title = "Registration"
Page.RootPanel.LoadLayout("RegistrationLayout")
'Initialize other components and set event handlers as needed
End Sub
Public Sub Show
Page.Show
End Sub
'Event handler for the registration button
Sub btnRegister_Click
Dim username As String = edtUsername.Text.Trim
Dim password As String = edtPassword.Text
Dim confirmPassword As String = edtConfirmPassword.Text
'Perform validation checks
If username = "" Then
'Username is required
ToastMessageShow("Username is required", True)
Return
End If
If password = "" Then
'Password is required
ToastMessageShow("Password is required", True)
Return
End If
If confirmPassword = "" Then
'Confirm password is required
ToastMessageShow("Confirm password is required", True)
Return
End If
If password <> confirmPassword Then
'Passwords do not match
ToastMessageShow("Passwords do not match", True)
Return
End If
'Encrypt sensitive data (e.g., password) before sending to the server
Dim encryptedPassword As String = EncryptPassword(password)
'Send data to the server (you need to implement this part)
'For example, you can use HttpUtils2 to send a POST request to your server
'Include relevant server URL and parameters
'Make sure to handle the server response appropriately
End Sub
'Function to encrypt the password before sending it to the server
Private Sub EncryptPassword(password As String) As String
'Use B4XEncryption library or your preferred encryption method
'For example, you can use B4XEncryption library like this:
Dim encryptor As B4XCipher
encryptor.Initialize("AES")
encryptor.Password = "YourEncryptionKey" 'Replace with your encryption key
Return encryptor.EncryptText(password)
End Sub(Si è capito che ho voglia di "giocare" con ChatGPT?)
B4X:
' ** B4XPage - RegistrationPage **
#Region Project Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
'Include B4XEncryption library for encryption functions
#if B4A
#AdditionalJar: B4XEncryption.jar
#else if B4i
#AdditionalLib: B4XEncryption
#else if B4J
#AdditionalJar: B4XEncryption.jar
#end if
'Include B4XSerializator for object serialization
#if B4A
#AdditionalJar: B4XSerializator.jar
#else if B4i
#AdditionalLib: B4XSerializator
#else if B4J
#AdditionalJar: B4XSerializator.jar
#end if
'Class module for handling registration logic
Sub Process_Globals
Private Page As B4XPage
Private edtUsername, edtPassword, edtConfirmPassword, edtVerificationCode As B4XFloatTextField
Private btnRegister, btnSendCode As B4XButton
Private verificationCode As String
End Sub
Public Sub Initialize
Page.Initialize("Page")
Page.Title = "Registration"
Page.RootPanel.LoadLayout("RegistrationLayout")
'Initialize other components and set event handlers as needed
verificationCode = GenerateVerificationCode
End Sub
Public Sub Show
Page.Show
End Sub
'Event handler for the registration button
Sub btnRegister_Click
Dim username As String = edtUsername.Text.Trim
Dim password As String = edtPassword.Text
Dim confirmPassword As String = edtConfirmPassword.Text
Dim enteredVerificationCode As String = edtVerificationCode.Text
'Perform validation checks
If username = "" Or password = "" Or confirmPassword = "" Or enteredVerificationCode = "" Then
ToastMessageShow("All fields are required", True)
Return
End If
If password <> confirmPassword Then
ToastMessageShow("Passwords do not match", True)
Return
End If
If enteredVerificationCode <> verificationCode Then
ToastMessageShow("Invalid verification code", True)
Return
End If
'Encrypt sensitive data (e.g., password) before sending to the server
Dim encryptedPassword As String = EncryptPassword(password)
'Send data to the server (you need to implement this part)
'For example, you can use HttpUtils2 to send a POST request to your server
'Include relevant server URL and parameters
'Make sure to handle the server response appropriately
End Sub
'Event handler for the send code button
Sub btnSendCode_Click
'Generate a new verification code and send it to the user
verificationCode = GenerateVerificationCode
'Send the verification code to the user via email, SMS, or other means
'Implement your code to send the verification code
ToastMessageShow("Verification code sent", True)
End Sub
'Function to generate a random verification code
Private Sub GenerateVerificationCode As String
Dim rnd As Random
rnd.Initialize
Dim code As Int = rnd.Next(1000, 9999)
Return code
End Sub
'Function to encrypt the password before sending it to the server
Private Sub EncryptPassword(password As String) As String
Dim encryptor As B4XCipher
encryptor.Initialize("AES")
encryptor.Password = "YourEncryptionKey" 'Replace with your encryption key
Return encryptor.EncryptText(password)
End SubIn effetti, basta dare un'occhiata al codice generato da ChatGPT per accorgersi che non funzionerebbe (al solito, metodi/oggetti inesistenti).Buongiorno
Mi spiace per ChatGPT ma io preferisco l'esempio del post #24 di @LucaMs
almeno quello è chiaro e funzionante
Senza contare che ti dice, giustamente, che il server dovrebbe mandare un codice temporaneo al client (secondo sorgente) ma poi lo fa creare al client stesso!
