A proposito di Hollywood...

[Allanon]

Mi chiedevo se c'è qualcuno che lo sta utilizzando fra di voi, potremmo chiederci consiglio a vicenda e condividere idee e codice ^^

[scusscus]

Io non lo uso, però, se hai idee, postale qui nel forum come ho fatto io per il programma exposè.

[amigaro]

Salve, ho appena comprato hollywood , ed ho bisogno di qualcuno con cui scambiare idee ed impressioni..
Volevo ad esempio chiedere se c'è un modo per creare programmi con hollywood, che usino reaction..
O anche se c'è un modo di aggiungere dei menu hai programmi, ma intendo il menu' del wb..

Aspetto risposta..
Saluti da Amigaro.

[Allanon]

Ciao Amigaro,
e complimenti per l'ottimo acquisto!!

Attualmente hollywood non è interfacciato a nessuna Gui per mantenere il cross-compiling al 100% tuttavia so che l'autore aveva una mezza idea implementare in futuro questa carenza.
Se hai bisogno di creare interfacce puoi provare la libreria creata da me (ScuiLib), è ancora un work-in-progress, ma è molto stabile e abbastanza semplice da gestire, supporta il resize automatico delle finestre e i gadget principali (bevel, label, button, switch, options, scroller, progress bar, drop down, image, listview e una versione primitiva dei menù a tendina ancora da migliorare).

Se vuoi farti un'indea dai un'occhiata qua, da qui invece puoi scaricare la WIP della 0.7, l'ultima versione rilasciata al pubblico.

Ovviamente sono a completa disposizione per chiarimenti, esempi, tutorial, suggerimenti, ecc...

A presto,
Allanon

[amigaro]

Salve, e grazie per avermi risposto.
Intanto volevo dirti che conosco la ScuiLib, e mi sembra anke ottima. ma adesso ho bisogno di un tipo particolare di gui, visto che vorrei rifare un programma di TotoCalcio, che era stato sviluppato da un mio amico su Amiga1200, il prog in questione si chiama SupetToto, che era fatto in Amos è Assembler, non sò se lo conosci..
Cmq, visto che hollywood è facile come linguaggio, ogniuno può creare la gui a proprio piacimento..

P.S.
Per chè non crei una gui per hollywood in stile AmosPro, visto che è molto simile come linguaggio...
E' solo un suggerimento, anche se mi piacerebbe farlo io, ma adesso vorrei concentrarmi solo su' supertoto..

Grazie per l'attensione..
Saluti da Amigaro...

[Allanon]

Ai tempi d'oro anch'io ho programmato con AMOS però non ricordo praticamente nulla riguardo la possibilità di programmare le GUI... hai qualche screen o qualche link dove possa rinfrescarmi le idee??

Allanon

[amigaro]

No, non ho ne link ne screenshoot, mi spiace..
Cmq, avevo dimenticato a chiedere come creare dei TextEditor con la tua libreria?

[Allanon]

ops... hai beccato proprio quello che ancora manca!
Appena ho un po di tempo provo a buttar giù qualcosa, ancora non ci ho messo le mani perchè è un "bel crostino", come si dice dalle mie parti :)

[amigaro]

Io pensavo che si potesse fare con la StringBox, avevo anche pensato ad un ciclo for, ma forse sbagliavo :)
Cmq, mi toccherà farlo in C allora..
Se tu hai anche esperiensa di programmazione in C, gradierei molto il tuo aiuto, visto che sono un neofita anche per il c :)

[Allanon]

Nessuno ti vieta di provare ad emulare un editbox con una serie di stringbox ma credo che sia abbastanza arduo gestire, tanto per fare un esempio, lo scorrimento a capo delle parole ed altre cosucce

per quanto riguarda il C la mia conoscenza di questo linguaggio è prossima allo zero

[amigaro]

Ciao Allanon, io avrei un problema di programmazione con hollywood, e mi chiedevo se tu che lo conosci meglio di me, possa aiutarmi..

Codice: Seleziona tutto

for i=1 to 13 Step 1

val=Limit(Rnd(13),1,13)

PrintN(val)
    xx=xx+14

Next 


Come vedi, il pezzo di codice che ho postato genera 13 numeri casuali, quello che mi chiedevo è, come posso fare in modo che i numeri generati siano assolutamente diversi uno dall'altro?

Spero che tu possa aiutarmi..

Grazie in anticipo..

[Allanon]

Ciao Amigaro,
per risolvere il problema devi per forza appoggiarti ad una tabella e marcare i numeri gia' usciti in modo da scartare le uscite doppie, puoi provare qualcosa di simile:

Codice: Seleziona tutto

Function Estrazione()
   ; Estrae 13 numeri casuali senza ripetizioni
   Local numeri_estratti = { }
   Local contatore_estratti = 0

   While (contatore_estratti < 13)
      ; Questo loop si occupa dell'estrazione
      Local estratto = Rnd(13)

      ; Controlal che il numero estratto non sia gia' uscito
      Local trovato = False
      For Local i = 1 To contatore_estratti
         If numeri_estratti[i] = estratto
            ; Questo numero e' gia' uscito
            trovato = True
            Break
         EndIf
      Next

      If Not(trovato)
         ; In questo caso il numero estratto non era gia' uscito
         ; lo devo memorizzare nella tabella degli estratti
         contatore_estratti = contatore_estratti + 1
         numeri_estratti[contatore_estratti] = estratto
      EndIf

      ; Stampa i risultati delle estrazioni
      For Local i = 1 To 13
         DebugPrint("Estratto nr.", i, " --> ", numeri_estratti[i])
      Next

   Wend
EndFunction

Non ho provato il codice perche' sono a lavoro e non ho accesso ad Hollywood, ma dovrebbe funzionare salvo qualche errore di battitura :)

[amigaro]

Grazie allanon per i tuoi utili frammenti di codice, sono riuscito a realizzare un genereatore di 6 numeri casuale x 10 colonne.
Sono riuscito a fare in modo che siano tutti diversi tra loro(solo su ogni colonna)
, ma adesso è sorto il problema dello 0, ogni tanto visualizza lo 0, come posso fare x risolvere questo problema?
Posto il codice in questione.

Codice: Seleziona tutto


Function Extraction()
global num = {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30}
Local contatore=0

While (contatore<29)

   estratto=Rnd(29)

   local trovato=false

   for  local i=1 to contatore
      if num[i] = estratto
         trovato=true
         Break
      EndIf
      
   Next
   
   If NOT(trovato)
      contatore=contatore+1
      num[contatore]=estratto
   Endif
   
   SetFontColor(#BLACK)   
   ;for local i=1 to 29
   ;debugprint(num[i]," ")
;next
Wend
EndFunction
Extraction()
SetFontColor(#BLACK)

posy=100
for s =1 to 10
pos=130

for i=1 to 6
Locate(pos, posy)
pos=pos+30
Print(num[i]," ")

next
posy=posy+20
Extraction()
next



Grazie per il tuo aiuto..
A presto..