Italian Chiacchiericci

[LucaMs]

Insomma, sto senza Whatsapp; per il nuovo smartphone ancora non ho la scheda SIM adatta (quando l'ho comprato? uhm... forse addirittura a gennaio!)

No, fine febbraio.

 

[Sagenut]

Intanto non ti lascia usare la versione attuale?

 

[LucaMs]

Intanto non ti lascia usare la versione attuale?

No

 

[Deleted member 103]

Del resto, sono obbligato ad usare Chrome per usare la console Google da programmatore, con Firefox non funziona.

io uso Firefox 56.0.1(32-Bit) e funziona per bene.

 

[LucaMs]

io uso Firefox 56.0.1(32-Bit) e funziona per bene.

io avevo la 57 e non funzionava.
Adesso ho la nuova, 59... ma non ho ancora provato

 

[Deleted member 103]

io avevo la 57 e non funzionava.
Adesso ho la nuova, 59... ma non ho ancora provato

Il problema è che non tutte le versioni funzionano; alcuni mesi fa ho dovuto installare Chrome, ma poi ho trovato la versione giusta die Firefox e addesso non mi serve più.
Chrome mi è stato sempre antipatico! La prima cosa che faccio quando acquisto un nuovo smartphone è disattivare Chrome.

 

[Star-Dust]

Taglio immagine a mano libera

 

[LucaMs]

Il problema è che non tutte le versioni funzionano; alcuni mesi fa ho dovuto installare Chrome, ma poi ho trovato la versione giusta die Firefox e addesso non mi serve più.
Chrome mi è stato sempre antipatico! La prima cosa che faccio quando acquisto un nuovo smartphone è disattivare Chrome.

Ora provo con l'ultima di Firefox (se trovo da qualche parte miei utente e pw per la console )

 

[Deleted member 103]

Taglio immagine a mano libera
View attachment 67181

Forte!
Ma funziona solo con il cavallo?

 

[LucaMs]

Taglio immagine a mano libera
View attachment 67181

L'ho già visto da qualche parte! Ma dove? Boh.

Bravo, comunque.

 

[LucaMs]

Devo aver visto una libreria che lo fa... cerca, Star

 

[Star-Dust]

Forte!
Ma funziona solo con il cavallo?

Anche con le mucche per il resto non l'ho testato a fondo

 

[Star-Dust]

Devo aver visto una libreria che lo fa... cerca, Star

2 righe di B4A e senza libreria.

Sub ButtonCut_Click
    Dim Canv As Canvas
    
    Canv.Initialize(PanelMain)
    Canv.DrawColor(Colors.Transparent)
    
    Dim P As Path
    P.Initialize(Point(0).X,Point(0).Y)
    
    For i=1 To Point.Length-1
        P.LineTo(Point(i).X,Point(i).Y)
    Next
    Canv.ClipPath(P)
    
    Dim r As Rect
    r.Initialize(0,0,PanelMain.Width,PanelMain.Height)
    Canv.DrawBitmap(LoadBitmap(File.DirAssets,"cavallo_0.jpg"),Null,r)
End Sub

 

[LucaMs]

Poi ci provo (proverò)

 

[LucaMs]

2 righe di B4A e senza libreria.

Si fa per dire; come minimo manca tutta la parte "touch".

Cmq, mi sto addormentando (a una certa età, sarà il vecchio fegato, ma la digestione... [colazione, eh]) e poi devo completare un'inutile app, per la quale manco trovo un nome decente né un'icona (anche a disegnarla), che non vedo l'ora di pubblicarla per riuscire ad ottenere... 100 download nei prossimi 20 anni



Caffè!

 

[LucaMs]

Basta, ragassuoli; completata questa, se non mi rimetto su Penny, sparatemi, vi prego!

 

[Star-Dust]

Si fa per dire; come minimo manca tutta la parte "touch".

Cmq, mi sto addormentando (a una certa età, sarà il vecchio fegato, ma la digestione... [colazione, eh]) e poi devo completare un'inutile app, per la quale manco trovo un nome decente né un'icona (anche a disegnarla), che non vedo l'ora di pubblicarla per riuscire ad ottenere... 100 download nei prossimi 20 anni



Caffè!

Sub PanelMain_Touch (Action As Int, X As Float, Y As Float)
    Dim Range As Int = 25dip
    Select Action
        Case 0 ' Down
            xi=X
            yi=y
            
            Dim Canv As Canvas
            Canv.Initialize(PanelMain)
            Canv.DrawCircle(X,Y,5dip,Colors.Black,True,1dip)
            AddPoint(X,Y)
        Case 1 ' Up
        Case 2 ' Move
            Dim L As Int = Sqrt(Power(X-xi,2)+Power(Y-yi,2))
            Dim Canv As Canvas
            Canv.Initialize(PanelMain)
            Canv.DrawCircle(X,Y,5dip,Colors.Black,True,1dip)
            If L>=Range Then
                AddPoint(X,Y)
                xi=X
                yi=Y
            End If
    End Select
End Sub

Sub AddPoint(X As Int, Y As Int)
    Dim PointNew(Point.Length+1) As Type_Point
    
    For i=0 To Point.Length-1
        PointNew(i)=Point(i)
    Next

    Dim P As Type_Point
    P.Initialize
    P.X=x
    P.Y=y
    PointNew(Point.Length)=p
    
    Point=PointNew
End Sub

 

[LucaMs]

Bello l'ultimo GF: non fanno altro che piangere

Domandina (superflua perché immagino già le risposte, ma non si sa mai).

Ancora non ho la SIM delle dimensioni giuste, dovrò andare a farmi cambiare la mia (non penso me ne daranno una nuova, aggiuntiva - anche se lo spero).

A quel punto, prima di andare a cambiarla, dovrò salvare i contatti:

1) a mano
2) sviluppo un'app apposita
3) mi fido di qualcuna esistente?????????????????????

 

[LucaMs]

Sei troppo buono, Star... fatti dare quei 100€, invece

 

[LucaMs]

Tutti vivi gli altri membri italiani, si?

Devo fare l'appello?