Vi lascio un primo esempio di Custom ListView interamente generato da GPT – B4X BUILDER, il mio assistente AI personalizzato per B4J/B4X.Il codice funziona già abbastanza bene, anche se ci sono ancora piccoli margini di miglioramento nell’uso delle API JavaFX.
L’obiettivo è mostrare quanto può essere utile un GPT che genera direttamente codice per B4X.
Come funziona?L’utilizzo è molto semplice: basta chiedere, e il GPT restituisce il codice completo.
Certo, a volte commette errori (è normale!), ma basta copiare il log e darglielo in pasto: lui lo correggerà passo dopo passo fino a ottenere un risultato pulito e funzionante.
Suggerimento importanteDopo aver creato qualcosa, chiedete a GPT – B4X BUILDER di generare un file .md con il report completo delle difficoltà e correzioni effettuate.
Esempio di comando:
B4X:
Cosa proponi nel prompt di B4X BUILDER per correggere tutti gli errori che hai riscontrato?
In allegato trovate un file .md generato automaticamente da GPT. Serve a migliorarlo, renderlo più preciso e sempre più orientato a B4X.
Se volete aiutarmi...Quando ottenete un log .md da GPT con errori risolti o difficoltà trovate, inviatemi solo quel file, anche qui sul forum.
Cercherò di integrarlo nel sistema per rendere GPT sempre più forte, stabile e focalizzato su B4X.
Grazie a chiunque vorrà contribuire
Ivano – MIASMART GPT Project
B4X:
' ============================================
' Module: CustomListViewCD (B4XMainPage compatibile)
' Created by: ALEX – MIASMART B4X BUILDER
' Technical support: MIASMART – B4X BUILDER v1
' Date: 2025-05-26
' Purpose: Custom ListView in B4XMainPage con immagine + testo + campo note
' ============================================
Sub Class_Globals
Dim fx As JFX
Private Root As B4XView
Private xui As XUI
Private sv As ScrollPane
Private container As Pane
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
sv.Initialize("sv")
Root.AddView(sv, 0, 0, 600dip, 600dip)
container.Initialize("")
container.SetLayoutAnimated(0, 0, 0, 600dip, 95dip * 10 + 10dip)
Dim jo As JavaObject = sv
jo.RunMethod("setContent", Array(container))
For i = 1 To 10
AddCDRow("CD Titolo " & i, "Artista " & i, "io.png")
Next
End Sub
Private Sub AddCDRow(titolo As String, sottotitolo As String, imgFile As String)
Dim riga As Pane
riga.Initialize("")
riga.SetLayoutAnimated(0, 0, 0, 580dip, 90dip)
Dim joRiga As JavaObject = riga
joRiga.RunMethod("setStyle", Array("-fx-background-color: white;"))
Dim img As ImageView
img.Initialize("")
Dim bmp As B4XBitmap = xui.LoadBitmap(File.DirAssets, imgFile)
img.SetImage(bmp)
riga.AddNode(img, 10dip, 15dip, 60dip, 60dip)
Dim lblTitolo As Label
lblTitolo.Initialize("")
lblTitolo.Text = titolo
lblTitolo.TextSize = 16
riga.AddNode(lblTitolo, 80dip, 10dip, 300dip, 25dip)
Dim lblSotto As Label
lblSotto.Initialize("")
lblSotto.Text = sottotitolo
lblSotto.TextSize = 12
lblSotto.TextColor = fx.Colors.Gray
riga.AddNode(lblSotto, 80dip, 35dip, 300dip, 20dip)
Dim txtNote As TextField
txtNote.Initialize("")
txtNote.PromptText = "Note..."
riga.AddNode(txtNote, 80dip, 60dip, 300dip, 20dip)
container.AddNode(riga, 10dip, container.NumberOfNodes * 95dip, 580dip, 90dip)
End Sub
